tracks/perl6/exercises/clock/clock.t in trackler-2.1.0.48 vs tracks/perl6/exercises/clock/clock.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 = 'Clock'; my $version = v1; my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise; plan 54; @@ -46,12 +46,14 @@ } todo 'optional test' unless %*ENV<EXERCISM>; is ::($exercise).new(:0hour,:0minute).?add-minutes(65).?time, '01:05', 'add-minutes method can be chained'; -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/;