tracks/perl6/exercises/wordy/example.yaml in trackler-2.1.0.33 vs tracks/perl6/exercises/wordy/example.yaml in trackler-2.1.0.34
- old
+ new
@@ -8,5 +8,25 @@
throws-like {.<input>.&answer}, Exception, .<description>;
} else {
is .<input>.&answer, |.<expected description>;
}
}
+
+unit: module
+example: |
+ sub answer ($q is copy) is export {
+ given $q {
+ s:s:g/^What is|\?$//;
+ s:g/plus/+/;
+ s:g/minus/−/;
+ loop {
+ last unless
+ s:s/(.*) multiplied by/($0)×/
+ or s:s/(.*) divided by/($0)÷/;
+ }
+ }
+ use MONKEY-SEE-NO-EVAL;
+ EVAL $q or fail;
+ }
+stub: |
+ sub answer ($question) is export {
+ }