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/;