tracks/perl6/bin/exercise-gen.pl6 in trackler-2.1.0.48 vs tracks/perl6/bin/exercise-gen.pl6 in trackler-2.1.0.49
- old
+ new
@@ -31,11 +31,11 @@
print "Generating $exercise... ";
my %data = load-yaml $yaml.slurp;
$_=.chomp when Str for @(%data.values);
- my $cdata = $base-dir.child("x-common/exercises/$exercise/canonical-data.json");
- %data<cdata> = :json($cdata.slurp) if $cdata ~~ :f;
+ my $cdata = $base-dir.child("problem-specifications/exercises/$exercise/canonical-data.json");
+ if $cdata ~~ :f {%data<cdata><json> = $cdata.slurp}
create-file "$exercise.t", 'test';
%data<module_file> = %data<example>;
create-file |<Example.pm6 module>;