tracks/perl6/exercises/luhn/luhn.t in trackler-2.2.1.49 vs tracks/perl6/exercises/luhn/luhn.t in trackler-2.2.1.50

- old
+ new

@@ -19,29 +19,16 @@ bail-out 'Example version must match test version.' if %*ENV<EXERCISM>; } require ::($module) <&is-luhn-valid>; -my $c-data; +my $c-data = from-json $=pod.pop.contents; is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>); -unless %*ENV<EXERCISM> { - skip-rest 'exercism tests'; - exit; -} +=head2 Canonical Data +=begin code -subtest 'canonical-data' => { - (my $c-data-file = "$dir/../../problem-specifications/exercises/{ - $dir.IO.resolve.basename - }/canonical-data.json".IO.resolve) ~~ :f ?? - is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !! - flunk 'problem-specifications file not found'; -} - -INIT { -$c-data := from-json q:to/END/; - { "exercise": "luhn", "version": "1.0.0", "cases": [ { @@ -123,9 +110,21 @@ "expected": true } ] } -END +=end code - $module = 'Example' if %*ENV<EXERCISM>; +unless %*ENV<EXERCISM> { + skip-rest 'exercism tests'; + exit; } + +subtest 'canonical-data' => { + (my $c-data-file = "$dir/../../problem-specifications/exercises/{ + $dir.IO.resolve.basename + }/canonical-data.json".IO.resolve) ~~ :f ?? + is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !! + flunk 'problem-specifications file not found'; +} + +INIT { $module = 'Example' if %*ENV<EXERCISM> }