trackler 2.2.1.43 → 2.2.1.44

data/tracks/perl6/exercises/grains/grains.t

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Grains';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 13;
+my Str:D $exercise := 'Grains';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 13;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -31,12 +33,6 @@ for @($c-data<cases>[0]<cases>) {
 }
 is total-grains, |$c-data<cases>[1]<expected description>;
 
-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 {
@@ -125,4 +121,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/hello-world/example.yaml

@@ -5,17 +5,17 @@ imports: '&hello'
 tests: |
   #`[Go through the cases (hiding at the bottom of this file)
   and check that &hello gives us the correct response.]
-  is &::('hello')(), |.<expected description> for @($c-data<cases>);
+  is hello, |.<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!"
 imports_comment: Import '&hello' from 'HelloWorld'
-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/hello-world/hello-world.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 = 'HelloWorld'; #`[The name of this exercise.]
-my $version = v2; #`[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 3; #`[This is how many tests we expect to run.]
+my Str:D $exercise := 'HelloWorld'; #`[The name of this exercise.]
+my Version:D $version = v2; #`[The version we will be matching against the exercise.]
+my Str $module //= $exercise; #`[The name of the module file to be loaded.]
+INIT {
+  plan 3; #`[This is how many tests we expect to run.]
+}
 
 #`[Check that the module can be use-d.]
 use-ok $module or bail-out;
@@ -28,14 +30,7 @@ require ::($module) <&hello>;
 my $c-data;
 #`[Go through the cases (hiding at the bottom of this file)
 and check that &hello gives us the correct response.]
-is &::('hello')(), |.<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 }
+is hello, |.<expected description> for @($c-data<cases>);
 
 done-testing; #`[There are no more tests after this :)]
 
@@ -57,4 +52,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/leap/README.md

@@ -4,7 +4,7 @@ Given a year, report if it is a leap year.
 
 The tricky thing here is that a leap year in the Gregorian calendar occurs:
 
-```plain
+```text
 on every year that is evenly divisible by 4
   except every year that is evenly divisible by 100
     unless the year is also evenly divisible by 400

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

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

data/tracks/perl6/exercises/leap/leap.t

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

@@ -2,18 +2,18 @@
 
 Implement a doubly linked list.
 
-Like an array, a linked list is a simple linear data structure. Several 
-common data types can be implemented using linked lists, like queues, 
+Like an array, a linked list is a simple linear data structure. Several
+common data types can be implemented using linked lists, like queues,
 stacks, and associative arrays.
 
-A linked list is a collection of data elements called *nodes*. In a 
-*singly linked list* each node holds a value and a link to the next node. 
-In a *doubly linked list* each node also holds a link to the previous 
+A linked list is a collection of data elements called *nodes*. In a
+*singly linked list* each node holds a value and a link to the next node.
+In a *doubly linked list* each node also holds a link to the previous
 node.
 
-You will write an implementation of a doubly linked list. Implement a 
-Node to hold a value and pointers to the next and previous nodes. Then 
-implement a List which holds references to the first and last node and 
+You will write an implementation of a doubly linked list. Implement a
+Node to hold a value and pointers to the next and previous nodes. Then
+implement a List which holds references to the first and last node and
 offers an array-like interface for adding and removing items:
 
 * `push` (*insert value at back*);
@@ -21,8 +21,8 @@ offers an array-like interface for adding and removing items:
 * `shift` (*remove value at front*).
 * `unshift` (*insert value at front*);
 
-To keep your implementation simple, the tests will not cover error 
-conditions. Specifically: `pop` or `shift` will never be called on an 
+To keep your implementation simple, the tests will not cover error
+conditions. Specifically: `pop` or `shift` will never be called on an
 empty list.
 
 If you want to know more about linked lists, check [Wikipedia](https://en.wikipedia.org/wiki/Linked_list).

data/tracks/perl6/exercises/linked-list/linked-list.t

@@ -4,9 +4,9 @@ use Test;
 use lib $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'LinkedList';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+my Str:D $exercise := 'LinkedList';
+my Version:D $version = v1;
+my Str $module //= $exercise;
 plan 7;
 
 use-ok $module or bail-out;
@@ -99,3 +99,9 @@ INIT {
     ]
   ｣
 }
+
+INIT {
+  if %*ENV<EXERCISM> {
+    $module = 'Example';
+  }
+}

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

@@ -18,27 +18,27 @@ are disallowed.
 
 ## Example 1: valid credit card number
 
-```
+```text
 4539 1488 0343 6467
 ```
 
 The first step of the Luhn algorithm is to double every second digit,
 starting from the right. We will be doubling
 
-```
+```text
 4_3_ 1_8_ 0_4_ 6_6_
 ```
 
 If doubling the number results in a number greater than 9 then subtract 9
 from the product. The results of our doubling:
 
-```
+```text
 8569 2478 0383 3437
 ```
 
 Then sum all of the digits:
 
-```
+```text
 8+5+6+9+2+4+7+8+0+3+8+3+3+4+3+7 = 80
 ```
 
@@ -46,19 +46,19 @@ If the sum is evenly divisible by 10, then the number is valid. This number is v
 
 ## Example 2: invalid credit card number
 
-```
+```text
 8273 1232 7352 0569
 ```
 
 Double the second digits, starting from the right
 
-```
+```text
 7253 2262 5312 0539
 ```
 
 Sum the digits
 
-```
+```text
 7+2+5+3+2+2+6+2+5+3+1+2+0+5+3+9 = 57
 ```
 

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

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Luhn';
-my $version = v1;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 15;
+my Str:D $exercise := 'Luhn';
+my Version:D $version = v1;
+my Str $module //= $exercise;
+INIT {
+  plan 15;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -24,12 +26,6 @@ require ::($module) <&is-luhn-valid>;
 my $c-data;
 is .<input>.&is-luhn-valid, |.<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 {
@@ -121,4 +117,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/phone-number/README.md

@@ -6,11 +6,12 @@ The **North American Numbering Plan (NANP)** is a telephone numbering system use
 
 NANP numbers are ten-digit numbers consisting of a three-digit Numbering Plan Area code, commonly known as *area code*, followed by a seven-digit local number. The first three digits of the local number represent the *exchange code*, followed by the unique four-digit number which is the *subscriber number*.
 
-
 The format is usually represented as
-```
+
+```text
 (NXX)-NXX-XXXX
 ```
+
 where `N` is any digit from 2 through 9 and `X` is any digit from 0 through 9.
 
 Your task is to clean up differently formated telephone numbers by removing punctuation and the country code (1) if present.

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

@@ -4,10 +4,12 @@ use Test;
 use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
-my $exercise = 'Phone';
-my $version = v3;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 14;
+my Str:D $exercise := 'Phone';
+my Version:D $version = v3;
+my Str $module //= $exercise;
+INIT {
+  plan 14;
+}
 
 use-ok $module or bail-out;
 require ::($module);
@@ -30,12 +32,6 @@ for @($c-data<cases>[0]<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 {
@@ -131,4 +127,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/raindrops/raindrops.t

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