trackler 2.2.1.49 → 2.2.1.50

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

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&encode &decode>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>) {
   my $test = .<description> ~~ 'encode' ?? 'encode' !! 'decode';
   subtest $test => {
@@ -31,21 +31,8 @@ for @($c-data<cases>) {
   }
 }
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "atbash-cipher",
@@ -143,7 +130,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -28,28 +28,12 @@ subtest 'Class methods', {
   ok ::($exercise).can($_), $_ for <hey>;
 }
 
-my $c-data;
-#`[Go through all of the cases (hiding at the bottom of this file)
-and check that Bob gives us the correct response for each one.]
+my $c-data = from-json $=pod.pop.contents;
+# Go through the cases and check that Bob gives us the correct responses.
 is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
 
-#`[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 {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "bob",
@@ -208,7 +192,21 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+#`[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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -3,8 +3,7 @@ version: 1
 plan: 28
 methods: hey
 tests: |
-  #`[Go through all of the cases (hiding at the bottom of this file)
-  and check that Bob gives us the correct response for each one.]
+  # Go through the cases and check that Bob gives us the correct responses.
   is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
 
 exercise_comment: The name of this exercise.

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

@@ -23,7 +23,7 @@ subtest 'Class methods', {
   ok ::($exercise).can($_), $_ for <time add-minutes>;
 }
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>) {
   for @(.<cases>) -> $case {
     given $case<property> {
@@ -48,21 +48,8 @@ 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';
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "clock",
@@ -554,7 +541,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&flatten-array>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is-deeply flatten-array(.<input>), |.<expected description> for @($c-data<cases>);
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "flatten-array",
@@ -83,7 +70,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -38,6 +38,5 @@ subtest 'Additional students', {
   ok $roster.?add-student(:name($_), :3grade), "Add $_ to grade 3" for <Tom Dick Harry>;
 }
 is $roster.?list-all, ('Grade 1', <Anna Barb Charlie>, 'Grade 2', <Alex Jim Zoe>, 'Grade 3', <Dick Harry Tom>), 'List all';
-INIT {
-  $module = 'Example' if %*ENV<EXERCISM>;
-}
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&grains-on-square &total-grains>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>[0]<cases>) {
   if .<expected> == -1 {
     throws-like { grains-on-square(.<input>) }, Exception, .<description>;
@@ -31,21 +31,8 @@ for @($c-data<cases>[0]<cases>) {
 }
 is total-grains, |$c-data<cases>[1]<expected description>;
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "grains",
@@ -129,7 +116,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/hello-world/example.yaml

@@ -3,8 +3,7 @@ version: 2
 plan: 3
 imports: '&hello'
 tests: |
-  #`[Go through the cases (hiding at the bottom of this file)
-  and check that &hello gives us the correct response.]
+  # Go through the cases and check that &hello gives us the correct response.
   is hello, |.<expected description> for @($c-data<cases>);
 
 exercise_comment: The name of this exercise.

data/tracks/perl6/exercises/hello-world/hello-world.t

@@ -25,28 +25,12 @@ if ::($exercise).^ver !~~ $version {
 #`[Import '&hello' from 'HelloWorld']
 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.]
+my $c-data = from-json $=pod.pop.contents;
+# Go through the cases and check that &hello gives us the correct response.
 is hello, |.<expected description> for @($c-data<cases>);
 
-#`[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 {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "hello-world",
@@ -60,7 +44,21 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+#`[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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&is-leap-year>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is is-leap-year(.<input>), |.<expected description> for @($c-data<cases>);
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "leap",
@@ -71,7 +58,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -97,6 +97,5 @@ for $cases.values -> $case {
   }
 ]
 =end code
-INIT {
-  $module = 'Example' if %*ENV<EXERCISM>;
-}
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&is-luhn-valid>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
 
-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/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "luhn",
@@ -125,7 +112,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+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 { $module = 'Example' if %*ENV<EXERCISM> }