diff options
| -rwxr-xr-x | challenge-224/feng-chang/raku/test.raku | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-224/feng-chang/raku/test.raku b/challenge-224/feng-chang/raku/test.raku new file mode 100755 index 0000000000..6b127060cf --- /dev/null +++ b/challenge-224/feng-chang/raku/test.raku @@ -0,0 +1,22 @@ +#!/bin/env raku + +# The Weekly Challenge 224 +use Test; + +sub pwc-test(Str:D $script, *@input) { + my ($expect, $assertion) = @input.splice(*-2, 2); + my $p = run $script, |@input, :out; + is $p.out.slurp(:close).chomp, $expect, $assertion; +} + +# Task 1, Special Notes +pwc-test './ch-1.raku', |<abc xyz>, 'False', 'Special Notes: $source = "abc", $target = "xyz" => False'; +pwc-test './ch-1.raku', |<scriptinglanguage perl>, 'True', 'Special Notes: $source = "scriptinglanguage", $target = "perl" => True'; +pwc-test './ch-1.raku', |<aabbcc abc>, 'True', 'Special Notes: $source = "aabbcc", $target = "abc" => True'; + +# Task 2, Additive Number +pwc-test './ch-2.raku', 112358, 'true', 'Additive Number: 112358 => true'; +pwc-test './ch-2.raku', 12345, 'false', 'Additive Number: 12345 => false'; +pwc-test './ch-2.raku', 199100199, 'true', 'Additive Number: 199100199 => true'; + +done-testing; |