tracks/perl6/exercises/phone-number/phone-number.t in trackler-2.1.0.48 vs tracks/perl6/exercises/phone-number/phone-number.t in trackler-2.1.0.49

- old
+ new

@@ -1,10 +1,10 @@ #!/usr/bin/env perl6 use v6; use Test; use lib my $dir = $?FILE.IO.dirname; -use JSON::Tiny; +use JSON::Fast; my $exercise = 'Phone'; my $version = v3; my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise; plan 14; @@ -28,12 +28,14 @@ } else { nok clean-number(.<phrase>), .<description>; } } -if %*ENV<EXERCISM> && (my $c-data-file = - "$dir/../../x-common/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f -{ is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data' } else { skip } +if %*ENV<EXERCISM> { + if (my $c-data-file = "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f { + is-deeply $c-data, EVAL('use JSON::Fast; from-json($c-data-file.slurp);'), 'canonical-data'; + } else { flunk 'canonical-data' } +} else { skip } done-testing; INIT { $c-data := from-json q:to/END/;