trackler 2.2.1.48 → 2.2.1.49

data/tracks/perl6/exercises/luhn/luhn.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Luhn';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 15;
-}
+plan 15;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <&is-luhn-valid>;
 my $c-data;
 is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -118,19 +127,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/phone-number/phone-number.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Phone';
 my Version:D $version = v3;
 my Str $module //= $exercise;
-INIT {
-  plan 14;
-}
+plan 14;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -32,7 +30,18 @@ for @($c-data<cases>[0]<cases>) {
   }
 }
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -128,19 +137,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/raindrops/raindrops.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Raindrops';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 20;
-}
+plan 20;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -32,7 +30,18 @@ for @($c-data<cases>) {
   }
 }
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -154,19 +163,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/rna-transcription/rna-transcription.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'RNA';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 10;
-}
+plan 10;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -32,7 +30,18 @@ for @($c-data<cases>) {
   }
 }
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -106,19 +115,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/robot-name/robot-name.t

@@ -46,11 +46,6 @@ subtest 'Randomness', {
   isnt @names, @names.sort, 'Names not ordered';
   isnt @names, @names.sort.reverse, 'Names not reverse ordered';
 }
-
-done-testing;
-
 INIT {
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/scrabble-score/scrabble-score.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Scrabble';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 13;
-}
+plan 13;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <&score>;
 my $c-data;
 is .<input>.&score, |.<expected description> for @($c-data<cases>);
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -106,19 +115,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/space-age/space-age.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'SpaceAge';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 10;
-}
+plan 10;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <Mercury Venus Earth Mars Jupiter Saturn Uranus Neptune>;
 my $c-data;
 is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @($c-data<cases>);
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -96,19 +105,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/word-count/word-count.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'WordCount';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 12;
-}
+plan 12;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <&count-words>;
 my $c-data;
 is-deeply (% = .<input>.&count-words), |.<expected description> for @($c-data<cases>);
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -150,19 +159,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/wordy/wordy.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Wordy';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 18;
-}
+plan 18;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -32,7 +30,18 @@ for @($c-data<cases>) {
   }
 }
 
-done-testing;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
 INIT {
 $c-data := from-json q:to/END/;
@@ -147,19 +156,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/templates/test.mustache

@@ -8,9 +8,7 @@ use #`{{&use}};#`{{/modules}}
 my Str:D $exercise#`{{#exercise}} := '#`{{&exercise}}'#`{{/exercise}};#`{{#exercise_comment}} #`[#`{{&exercise_comment}}]#`{{/exercise_comment}}
 my Version:D $version#`{{#version}} = v#`{{&version}}#`{{/version}};#`{{#version_comment}} #`[#`{{&version_comment}}]#`{{/version_comment}}
 my Str $module //= $exercise;#`{{#module_comment}} #`[#`{{&module_comment}}]#`{{/module_comment}}#`{{#plan}}
-#`{{#cdata}}INIT {
-  #`{{/cdata}}plan #`{{&plan}};#`{{#plan_comment}} #`[#`{{&plan_comment}}]#`{{/plan_comment}}#`{{#cdata}}
-}#`{{/cdata}}#`{{/plan}}
+plan #`{{&plan}};#`{{#plan_comment}} #`[#`{{&plan_comment}}]#`{{/plan_comment}}#`{{/plan}}
 #`{{#use_test_comment}}
 
 #`[#`{{&use_test_comment}}]#`{{/use_test_comment}}
@@ -36,33 +34,29 @@ subtest 'Class methods', {
 #`{{/methods}}#`{{#cdata}}
 my $c-data;#`{{/cdata}}
 #`{{&tests}}
+#`{{#exercism_comment}}
 
-done-testing;#`{{#done_testing_comment}} #`[#`{{&done_testing_comment}}]#`{{/done_testing_comment}}#`{{#after_done_testing}}
+#`[#`{{&exercism_comment}}]#`{{/exercism_comment}}#`{{#cdata}}
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
 
-#`{{&after_done_testing}}#`{{/after_done_testing}}
-#`{{#INIT_comment}}
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
+}
 
-#`[#`{{&INIT_comment}}]#`{{/INIT_comment}}
-INIT {
-#`{{#cdata}}$c-data := from-json q:to/END/;
+#`{{/cdata}}
+INIT {#`{{#cdata}}
+$c-data := from-json q:to/END/;
 
 #`{{&json}}
 END
+#`{{/cdata}}
 
-#`{{/cdata}}  if %*ENV<EXERCISM> {#`{{#exercism_comment}}
-#`[#`{{&exercism_comment}}]#`{{/exercism_comment}}
-    $module = 'Example';#`{{#cdata}}
-    if (my $c-data-file =
-      "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json"
-      .IO.resolve) ~~ :f
-    {
-      is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'canonical-data';
-    }
-    else {
-      flunk 'canonical-data';
-    }
-  }
-  else {
-    skip;#`{{/cdata}}
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }