challenge 224, test script for raku

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;