tracks/perl5/templates/test.mustache in trackler-2.2.1.105 vs tracks/perl5/templates/test.mustache in trackler-2.2.1.106
- old
+ new
@@ -1,20 +1,18 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use FindBin;{{#cdata}}
-my $dir;{{/cdata}}
-use lib{{#cdata}} $dir ={{/cdata}} $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
+use FindBin;
+use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
use JSON::PP;{{/cdata}}{{#modules}}
use {{&use}};{{/modules}}
my $exercise{{#exercise}} = '{{&exercise}}'{{/exercise}};{{#exercise_comment}} {{&exercise_comment}}{{/exercise_comment}}
my $test_version{{#version}} = {{&version}}{{/version}};{{#version_comment}} {{&version_comment}}{{/version_comment}}
-my $module = $ENV{EXERCISM} ? 'Example' : $exercise;{{#module_comment}} {{&module_comment}}{{/module_comment}}
use Test::More{{#plan}} tests => {{&plan}}{{/plan}};{{#plan_comment}} {{&plan_comment}}{{/plan_comment}}
-use_ok $module or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
+use_ok $exercise or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
{{#version_test_comment}}
{{&version_test_comment}}{{/version_test_comment}}
my $exercise_version = $exercise->VERSION // 0;
if ($exercise_version != $test_version) {
warn "\nExercise version mismatch. Further tests may fail!"
@@ -30,21 +28,10 @@
$subs{$_} = $exercise->can($_);
}
{{/subs}}{{#cdata}}
my $C_DATA = do { local $/; decode_json(<DATA>); };{{/cdata}}
{{&tests}}
-{{#cdata}}{{#cdata_test_comment}}
-{{&cdata_test_comment}}{{/cdata_test_comment}}
-SKIP: {
- skip '', 1 unless $ENV{EXERCISM};
- TODO: {
- local $TODO = 'update canonical-data';
- is_deeply eval q{
- use Path::Tiny;
- decode_json path("$dir/../../problem-specifications/exercises/".path($dir)->basename.'/canonical-data.json')->realpath->slurp;
- }, $C_DATA, 'canonical-data';
- }
-}
+{{#cdata}}
__DATA__
{{&json}}
{{/cdata}}