trackler 2.2.1.43 → 2.2.1.44

data/tracks/perl6/exercises/all-your-base/example.yaml

@@ -22,7 +22,7 @@ tests: |
       is-deeply call-convert-base, $expected, $case<description>
     }
   
-    sub call-convert-base { &::('convert-base')(|$case<input_base input_digits output_base>) }
+    sub call-convert-base { convert-base(|$case<input_base input_digits output_base>) }
   }
 
 unit: module

data/tracks/perl6/exercises/allergies/README.md

@@ -29,7 +29,6 @@ allergens that score 256, 512, 1024, etc.).  Your program should
 ignore those components of the score.  For example, if the allergy
 score is 257, your program should only report the eggs (1) allergy.
 
-
 ## Resources
 
 Remember to check out the Perl 6 [documentation](https://docs.perl6.org/) and

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

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Allergies';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 4;
+my Str:D $exercise := 'Allergies';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 4;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -39,12 +41,6 @@ for @($c-data<cases>) -> %cases {
   } if %cases<description> ~~ 'list';
 }
 
-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 {
@@ -201,4 +197,20 @@ $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;
+  }
 }

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

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Anagram';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 18;
+my Str:D $exercise := 'Anagram';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 18;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -24,12 +26,6 @@ require ::($module) <&match-anagrams>;
 my $c-data;
 is match-anagrams(|.<subject candidates>), |.<expected description> for @($c-data<cases>);
 
-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 {
@@ -167,4 +163,20 @@ $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;
+  }
 }

data/tracks/perl6/exercises/atbash-cipher/README.md

@@ -9,7 +9,7 @@ letter, the second with the second-last, and so on.
 
 An Atbash cipher for the Latin alphabet would be as follows:
 
-```plain
+```text
 Plain:  abcdefghijklmnopqrstuvwxyz
 Cipher: zyxwvutsrqponmlkjihgfedcba
 ```
@@ -23,6 +23,7 @@ being 5 letters, and punctuation is excluded. This is to make it harder to guess
 things based on word boundaries.
 
 ## Examples
+
 - Encoding `test` gives `gvhg`
 - Decoding `gvhg` gives `test`
 - Decoding `gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt` gives `thequickbrownfoxjumpsoverthelazydog`

data/tracks/perl6/exercises/atbash-cipher/atbash-cipher.t

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'AtbashCipher';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 4;
+my Str:D $exercise := 'AtbashCipher';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 4;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -31,12 +33,6 @@ for @($c-data<cases>) {
   }
 }
 
-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 {
@@ -139,4 +135,20 @@ $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;
+  }
 }

data/tracks/perl6/exercises/binary/README.md

@@ -7,10 +7,12 @@ string, your program should produce a decimal output. The
 program should handle invalid inputs.
 
 ## Note
+
 - Implement the conversion yourself.
   Do not use something else to perform the conversion for you.
 
 ## About Binary (Base-2)
+
 Decimal is a base-10 system.
 
 A number 23 in base 10 notation can be understood

data/tracks/perl6/exercises/bob/bob.t

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname; #`[Look for the module inside the same directory as this test file.]
 use JSON::Fast;
 
-my $exercise = 'Bob'; #`[The name of this exercise.]
-my $version = v1; #`[The version we will be matching against the exercise.]
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise; #`[%*ENV<EXERCISM> is for tests not directly for the exercise, don't worry about these :)]
-plan 28; #`[This is how many tests we expect to run.]
+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.]
+}
 
 #`[Check that the module can be use-d.]
 use-ok $module or bail-out;
@@ -33,13 +35,6 @@ 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>);
 
-#`[Ignore this for your exercise! Tells Exercism folks when exercise cases become out of date.]
-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; #`[There are no more tests after this :)]
 
 #`['INIT' is a phaser, it makes sure that the test data is available before everything else
@@ -205,4 +200,22 @@ $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;
+  }
 }

data/tracks/perl6/exercises/bob/example.yaml

@@ -8,14 +8,14 @@ tests: |
   is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
 
 exercise_comment: The name of this exercise.
-module_comment: "%*ENV<EXERCISM> is for tests not directly for the exercise, don't worry about these :)"
+module_comment: The name of the module file to be loaded.
 version_comment: The version we will be matching against the exercise.
 lib_comment: Look for the module inside the same directory as this test file.
 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)."
-cdata_test_comment: Ignore this for your exercise! Tells Exercism folks when exercise cases become out of date.
+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!)"
 

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

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Clock';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 54;
+my Str:D $exercise := 'Clock';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 54;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -48,12 +50,6 @@ 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';
 
-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 {
@@ -550,4 +546,20 @@ $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;
+  }
 }

data/tracks/perl6/exercises/flatten-array/README.md

@@ -3,14 +3,13 @@
 Take a nested list and return a single flattened list with all values except nil/null.
 
 The challenge is to write a function that accepts an arbitrarily-deep nested list-like structure and returns a flattened structure without any nil/null values.
- 
+
 For Example
 
 input: [1,[2,3,null,4],[null],5]
 
 output: [1,2,3,4,5]
 
-
 ## Resources
 
 Remember to check out the Perl 6 [documentation](https://docs.perl6.org/) and

data/tracks/perl6/exercises/flatten-array/example.yaml

@@ -3,7 +3,7 @@ version: 1
 plan: 8
 imports: '&flatten-array'
 tests: |
-  is-deeply &::('flatten-array')(.<input>), |.<expected description> for @($c-data<cases>);
+  is-deeply flatten-array(.<input>), |.<expected description> for @($c-data<cases>);
 
 unit: module
 example: |

data/tracks/perl6/exercises/flatten-array/flatten-array.t

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'FlattenArray';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 8;
+my Str:D $exercise := 'FlattenArray';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 8;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -22,13 +24,7 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&flatten-array>;
 
 my $c-data;
-is-deeply &::('flatten-array')(.<input>), |.<expected description> for @($c-data<cases>);
-
-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 }
+is-deeply flatten-array(.<input>), |.<expected description> for @($c-data<cases>);
 
 done-testing;
 
@@ -79,4 +75,20 @@ $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;
+  }
 }

data/tracks/perl6/exercises/grade-school/README.md

@@ -21,7 +21,6 @@ In the end, you should be able to:
 Note that all our students only have one name.  (It's a small town, what
 do you want?)
 
-
 ## For bonus points
 
 Did you get the tests passing and the code clean? If you want to, these

data/tracks/perl6/exercises/grade-school/grade-school.t

@@ -3,9 +3,9 @@ use v6;
 use Test;
 use lib $?FILE.IO.dirname;
 
-my $exercise = 'GradeSchool';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+my Str:D $exercise := 'GradeSchool';
+my Version:D $version = v1;
+my Str $module //= $exercise;
 plan 10;
 
 use-ok $module or bail-out;
@@ -40,3 +40,9 @@ subtest 'Additional students', {
 is $roster.?list-all, ('Grade 1', <Anna Barb Charlie>, 'Grade 2', <Alex Jim Zoe>, 'Grade 3', <Dick Harry Tom>), 'List all';
 
 done-testing;
+
+INIT {
+  if %*ENV<EXERCISM> {
+    $module = 'Example';
+  }
+}

data/tracks/perl6/exercises/grains/README.md

@@ -15,7 +15,6 @@ Write code that shows:
 - how many grains were on each square, and
 - the total number of grains
 
-
 ## For bonus points
 
 Did you get the tests passing and the code clean? If you want to, these