trackler 2.2.1.48 → 2.2.1.49

data/tracks/java/exercises/robot-simulator/.meta/version

@@ -0,0 +1 @@
+1.0.0

data/tracks/java/exercises/secret-handshake/.meta/version

@@ -0,0 +1 @@
+1.0.0

data/tracks/java/exercises/sublist/.meta/version

@@ -0,0 +1 @@
+1.0.0

data/tracks/perl6/exercises/accumulate/accumulate.t

@@ -38,11 +38,6 @@ is-deeply accumulate(['a', 'b', 'c' ], sub ($inp) { [ accumulate( [1, 2, 3], sub
 is-deeply accumulate(['the', 'quick', 'brown', 'fox'], sub { @_[0].flip }),
           ['eht', 'kciuq', 'nworb', 'xof'],
           'reverse strings';
-
-done-testing;
-
 INIT {
-  if %*ENV<EXERCISM> {
-    $module = 'Example';
-  }
+  $module = 'Example' if %*ENV<EXERCISM>;
 }

data/tracks/perl6/exercises/all-your-base/all-your-base.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'AllYourBase';
 my Version:D $version = v2;
 my Str $module //= $exercise;
-INIT {
-  plan 23;
-}
+plan 23;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -46,7 +44,18 @@ for @($c-data<cases>) -> $case {
   sub call-convert-base { convert-base(|$case<input_base input_digits output_base>) }
 }
 
-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/;
@@ -248,19 +257,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/allergies/Allergies.pm6

@@ -1 +1 @@
-unit module Allergies:ver<1>;
+unit module Allergies:ver<2>;

data/tracks/perl6/exercises/allergies/Example.pm6

@@ -1,4 +1,4 @@
-unit module Allergies:ver<1>;
+unit module Allergies:ver<2>;
 
 our @allergens = <
     eggs

data/tracks/perl6/exercises/allergies/allergies.t

@@ -5,11 +5,9 @@ use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
 my Str:D $exercise := 'Allergies';
-my Version:D $version = v1;
+my Version:D $version = v2;
 my Str $module //= $exercise;
-INIT {
-  plan 4;
-}
+plan 4;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -24,24 +22,36 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&allergic-to &list-allergies>;
 
 my $c-data;
-for @($c-data<cases>) -> %cases {
+for $c-data<cases>.values -> %case-set {
+
   subtest 'allergic-to' => {
     plan 7;
-    my @cases = |%cases<cases>;
-    for @cases -> %case {
-      is allergic-to(%case<score>, .<substance>), .<result>, %case<description> for @(%case<expected>);
+    for %case-set<cases>.values -> %case {
+      is allergic-to(%case<score>, .<substance>), .<result>, %case<description> ~ ': ' ~ .<substance> for %case<expected>.values;
     }
-  } if %cases<description> ~~ 'allergicTo';
+  } when %case-set<description> ~~ 'allergicTo';
+
   subtest 'list-allergies' => {
     plan 9;
-    my @cases = |%cases<cases>;
-    for @cases {
-      is list-allergies(.<score>), |.<expected description>;
+    for %case-set<cases>.values {
+      cmp-ok list-allergies(.<score>), '~~', .<expected>.Set, .<description>;
     }
-  } if %cases<description> ~~ 'list';
+  } when %case-set<description> ~~ 'list';
+
 }
 
-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/;
@@ -198,19 +208,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/allergies/example.yaml

@@ -1,23 +1,24 @@
 exercise: Allergies
-version: 1
+version: 2
 plan: 4
 imports: '&allergic-to &list-allergies'
 tests: |
-  for @($c-data<cases>) -> %cases {
+  for $c-data<cases>.values -> %case-set {
+  
     subtest 'allergic-to' => {
       plan 7;
-      my @cases = |%cases<cases>;
-      for @cases -> %case {
-        is allergic-to(%case<score>, .<substance>), .<result>, %case<description> for @(%case<expected>);
+      for %case-set<cases>.values -> %case {
+        is allergic-to(%case<score>, .<substance>), .<result>, %case<description> ~ ': ' ~ .<substance> for %case<expected>.values;
       }
-    } if %cases<description> ~~ 'allergicTo';
+    } when %case-set<description> ~~ 'allergicTo';
+  
     subtest 'list-allergies' => {
       plan 9;
-      my @cases = |%cases<cases>;
-      for @cases {
-        is list-allergies(.<score>), |.<expected description>;
+      for %case-set<cases>.values {
+        cmp-ok list-allergies(.<score>), '~~', .<expected>.Set, .<description>;
       }
-    } if %cases<description> ~~ 'list';
+    } when %case-set<description> ~~ 'list';
+  
   }
 
 unit: module

data/tracks/perl6/exercises/anagram/anagram.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Anagram';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 18;
-}
+plan 18;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <&match-anagrams>;
 my $c-data;
 is match-anagrams(|.<subject candidates>), |.<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/;
@@ -164,19 +173,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/atbash-cipher/atbash-cipher.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'AtbashCipher';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 4;
-}
+plan 4;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -33,7 +31,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/;
@@ -136,19 +145,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/bob/bob.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Bob'; #`[The name of this exercise.]
 my Version:D $version = v1; #`[The version we will be matching against the exercise.]
 my Str $module //= $exercise; #`[The name of the module file to be loaded.]
-INIT {
-  plan 28; #`[This is how many tests we expect to run.]
-}
+plan 28; #`[This is how many tests we expect to run.]
 
 #`[Check that the module can be use-d.]
 use-ok $module or bail-out;
@@ -35,10 +33,21 @@ my $c-data;
 and check that Bob gives us the correct response for each one.]
 is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
 
-done-testing; #`[There are no more tests after this :)]
+#`[Don't worry about the stuff below here for your exercise.
+This is for Exercism folks to check that everything is in order.]
+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' is a phaser, it makes sure that the test data is available before everything else
-starts running (otherwise we'd have to shove the test data into the middle of the file!)]
 INIT {
 $c-data := from-json q:to/END/;
 
@@ -201,21 +210,5 @@ $c-data := from-json q:to/END/;
 
 END
 
-  if %*ENV<EXERCISM> {
-#`[Don't worry about the stuff in here for your exercise.
-This is for Exercism folks to check that everything is in order.]
-    $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/bob/example.yaml

@@ -15,9 +15,7 @@ plan_comment: This is how many tests we expect to run.
 use_test_comment: Check that the module can be use-d.
 version_test_comment: "If the exercise is updated, we want to make sure other people testing\nyour code don't think you've made a mistake if things have changed!"
 methods_comment: "Check that the class 'Bob' can use all of the methods\nneeded in the tests (only 'hey' for this one)."
-exercism_comment: "Don't worry about the stuff in here for your exercise.\nThis is for Exercism folks to check that everything is in order."
-done_testing_comment: There are no more tests after this :)
-INIT_comment: "'INIT' is a phaser, it makes sure that the test data is available before everything else\nstarts running (otherwise we'd have to shove the test data into the middle of the file!)"
+exercism_comment: "Don't worry about the stuff below here for your exercise.\nThis is for Exercism folks to check that everything is in order."
 
 unit: class
 unit_comment: |

data/tracks/perl6/exercises/clock/clock.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'Clock';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 54;
-}
+plan 54;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -50,7 +48,18 @@ for @($c-data<cases>) {
 todo 'optional test' unless %*ENV<EXERCISM>;
 is ::($exercise).new(:0hour,:0minute).?add-minutes(65).?time, '01:05', 'add-minutes method can be chained';
 
-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/;
@@ -547,19 +556,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/flatten-array/flatten-array.t

@@ -7,9 +7,7 @@ use JSON::Fast;
 my Str:D $exercise := 'FlattenArray';
 my Version:D $version = v1;
 my Str $module //= $exercise;
-INIT {
-  plan 8;
-}
+plan 8;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -26,7 +24,18 @@ require ::($module) <&flatten-array>;
 my $c-data;
 is-deeply flatten-array(.<input>), |.<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/;
@@ -76,19 +85,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>;
 }