trackler 2.1.0.11 → 2.1.0.12

data/tracks/perl6/exercises/atbash-cipher/example.yaml

@@ -0,0 +1,13 @@
+exercise: AtbashCipher
+version: 1
+plan: 4
+imports: '&encode &decode'
+tests: |
+  for @($c-data<cases>) {
+    my $test = .<description> ~~ 'encode' ?? 'encode' !! 'decode';
+    subtest $test => {
+      my @cases = |.<cases>;
+      plan +@cases;
+      is &::($test)(.<phrase>), |.<expected description> for @cases;
+    }
+  }

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

@@ -0,0 +1,13 @@
+exercise: Grains
+version: 1
+plan: 13
+imports: '&grains-on-square &total-grains'
+tests: |
+  for @($c-data<cases>[0]<cases>) {
+    if .<expected> == -1 {
+      throws-like { grains-on-square(.<input>) }, Exception, .<description>;
+    } else {
+      is grains-on-square(.<input>), |.<expected description>;
+    }
+  }
+  is total-grains, |$c-data<cases>[1]<expected description>;

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

@@ -7,10 +7,11 @@ use JSON::Tiny;
 my $exercise = 'Grains';
 my $version = v1;
 my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 14;
+plan 13;
 
 use-ok $module or bail-out;
 require ::($module);
+
 if ::($exercise).^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
     ~ "\n$exercise is $(::($exercise).^ver.gist). "
@@ -18,112 +19,108 @@ if ::($exercise).^ver !~~ $version {
   bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
-my @subs;
-BEGIN { @subs = <&grains-on-square &total-grains> };
-subtest 'Subroutine(s)', {
-  plan 2;
-  eval-lives-ok "use $module; ::('$_').defined or die '$_ is not defined.'", $_ for @subs;
-} or bail-out 'All subroutines must be defined and exported.';
-require ::($module) @subs.eager;
+require ::($module) <&grains-on-square &total-grains>;
 
-for @(my $c-data.<cases>.[0].<cases>) {
+my $c-data;
+for @($c-data<cases>[0]<cases>) {
   if .<expected> == -1 {
     throws-like { grains-on-square(.<input>) }, Exception, .<description>;
   } else {
     is grains-on-square(.<input>), |.<expected description>;
   }
 }
+is total-grains, |$c-data<cases>[1]<expected description>;
 
-is total-grains, |$c-data.<cases>.[1].<expected description>;
-
-if %*ENV<EXERCISM> && (my $c-data-file = "$dir/../../x-common/exercises/{$dir.IO.basename}/canonical-data.json".IO.resolve) ~~ :f {
-  is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data'
-} else { skip }
+if %*ENV<EXERCISM> && (my $c-data-file =
+  "$dir/../../x-common/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f
+{ is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data' } else { skip }
 
 done-testing;
 
 INIT {
-  $c-data := from-json ｢
+$c-data := from-json q:to/END/;
+
+{
+  "exercise": "grains",
+  "version": "1.0.0",
+  "comments": [
+    "The final tests of square test error conditions",
+    "The expection for these tests is -1, indicating an error",
+    "In these cases you should expect an error as is idiomatic for your language"
+  ],
+  "cases": [
     {
-      "exercise": "grains",
-      "version": "1.0.0",
-      "comments": [
-        "The final tests of square test error conditions",
-        "The expection for these tests is -1, indicating an error",
-        "In these cases you should expect an error as is idiomatic for your language"
-      ],
+      "description": "returns the number of grains on the square",
       "cases": [
         {
-          "description": "returns the number of grains on the square",
-          "cases": [
-            {
-              "description": "1",
-              "property": "square",
-              "input": 1,
-              "expected": 1
-            },
-            {
-              "description": "2",
-              "property": "square",
-              "input": 2,
-              "expected": 2
-            },
-            {
-              "description": "3",
-              "property": "square",
-              "input": 3,
-              "expected": 4
-            },
-            {
-              "description": "4",
-              "property": "square",
-              "input": 4,
-              "expected": 8
-            },
-            {
-              "description": "16",
-              "property": "square",
-              "input": 16,
-              "expected": 32768
-            },
-            {
-              "description": "32",
-              "property": "square",
-              "input": 32,
-              "expected": 2147483648
-            },
-            {
-              "description": "64",
-              "property": "square",
-              "input": 64,
-              "expected": 9223372036854775808
-            },
-            {
-              "description": "square 0 raises an exception",
-              "property": "square",
-              "input": 0,
-              "expected": -1
-            },
-            {
-              "description": "negative square raises an exception",
-              "property": "square",
-              "input": -1,
-              "expected": -1
-            },
-            {
-              "description": "square greater than 64 raises an exception",
-              "property": "square",
-              "input": 65,
-              "expected": -1
-            }
-          ]
+          "description": "1",
+          "property": "square",
+          "input": 1,
+          "expected": 1
+        },
+        {
+          "description": "2",
+          "property": "square",
+          "input": 2,
+          "expected": 2
+        },
+        {
+          "description": "3",
+          "property": "square",
+          "input": 3,
+          "expected": 4
+        },
+        {
+          "description": "4",
+          "property": "square",
+          "input": 4,
+          "expected": 8
+        },
+        {
+          "description": "16",
+          "property": "square",
+          "input": 16,
+          "expected": 32768
         },
         {
-          "description": "returns the total number of grains on the board",
-          "property": "total",
-          "expected": 18446744073709551615
+          "description": "32",
+          "property": "square",
+          "input": 32,
+          "expected": 2147483648
+        },
+        {
+          "description": "64",
+          "property": "square",
+          "input": 64,
+          "expected": 9223372036854775808
+        },
+        {
+          "description": "square 0 raises an exception",
+          "property": "square",
+          "input": 0,
+          "expected": -1
+        },
+        {
+          "description": "negative square raises an exception",
+          "property": "square",
+          "input": -1,
+          "expected": -1
+        },
+        {
+          "description": "square greater than 64 raises an exception",
+          "property": "square",
+          "input": 65,
+          "expected": -1
         }
       ]
+    },
+    {
+      "description": "returns the total number of grains on the board",
+      "property": "total",
+      "expected": 18446744073709551615
     }
-  ｣
+  ]
+}
+
+END
 }

data/tracks/perl6/exercises/linked-list/example.yaml

@@ -0,0 +1,81 @@
+exercise: LinkedList
+version: 1
+plan: 7
+modules:
+  - use: JSON::Tiny
+methods: 'push-list pop-list shift-list unshift-list'
+tests: |
+  for my @cases -> $case {
+    subtest $case.<name>, sub {
+      my $linkedlist = ::($exercise).new;
+      for  |$case.<set> -> %set {
+        for %set {
+          my $value = $_.value;
+          given $_.key  {
+            when 'push'    { $linkedlist.?push-list( $value ) }
+            when 'unshift' { $linkedlist.?unshift-list( $value ) }
+            when 'pop'     { is $linkedlist.?pop-list, $value, 'pop' }
+            when 'shift'   { is $linkedlist.?shift-list, $value, 'shift' }
+          }
+        }
+      }
+    }
+  }
+after_done_testing: |
+  INIT {
+    @cases := from-json ｢
+      [
+        {
+          "set" : [
+            { "push" : 10 },
+            { "push" : 20 },
+            { "pop"  : 20 },
+            { "pop"  : 10 }
+          ],
+          "name" : "push_pop"
+        },
+        {
+          "set" : [
+            { "push" : 10  },
+            { "push" : 20  },
+            { "shift" : 10 },
+            { "shift" : 20 }
+          ],
+          "name" : "push_shift"
+        },
+        {
+          "set" : [
+            { "unshift" : 10 },
+            { "unshift" : 20 },
+            { "shift"   : 20 },
+            { "shift"   : 10 }
+          ],
+          "name" : "unshift_shift"
+        },
+        {
+          "set" : [
+            { "unshift" : 10 },
+            { "unshift" : 20 },
+            { "pop"     : 10 },
+            { "pop"     : 20 }
+          ],
+          "name" : "unshift_pop"
+        },
+        {
+          "set" : [
+            { "push"    : 10 },
+            { "push"    : 20 },
+            { "pop"     : 20 },
+            { "push"    : 30 },
+            { "shift"   : 10 },
+            { "unshift" : 40 },
+            { "push"    : 50 },
+            { "shift"   : 40 },
+            { "pop"     : 50 },
+            { "shift"   : 30 }
+          ],
+          "name" : "example"
+        }
+      ]
+    ｣
+  }

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

@@ -11,6 +11,7 @@ plan 7;
 
 use-ok $module or bail-out;
 require ::($module);
+
 if ::($exercise).^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
     ~ "\n$exercise is $(::($exercise).^ver.gist). "
@@ -18,9 +19,8 @@ if ::($exercise).^ver !~~ $version {
   bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
-subtest "Class method(s)", {
-   plan 4;
-   ok ::($exercise).can($_), $_ for <push-list pop-list shift-list unshift-list>;
+subtest 'Class methods', {
+  ok ::($exercise).can($_), $_ for <push-list pop-list shift-list unshift-list>;
 }
 
 for my @cases -> $case {
@@ -99,3 +99,4 @@ INIT {
     ]
   ｣
 }
+

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

@@ -0,0 +1,12 @@
+exercise: Raindrops
+version: 1
+plan: 20
+imports: '&convert'
+tests: |
+  for @($c-data<cases>) {
+    subtest {
+      plan 2;
+      is .<number>.&convert, |.<expected description>;
+      isa-ok .<number>.&convert, Str;
+    }
+  }

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

@@ -7,7 +7,7 @@ use JSON::Tiny;
 my $exercise = 'Raindrops';
 my $version = v1;
 my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 21;
+plan 20;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -19,15 +19,10 @@ if ::($exercise).^ver !~~ $version {
   bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
-my @subs;
-BEGIN { @subs = <&convert> };
-subtest 'Subroutine(s)', {
-  plan 1;
-  eval-lives-ok "use $module; ::('$_').defined or die '$_ is not defined.'", $_ for @subs;
-} or bail-out 'All subroutines must be defined and exported.';
-require ::($module) @subs.eager;
+require ::($module) <&convert>;
 
-for @(my $c-data.<cases>) {
+my $c-data;
+for @($c-data<cases>) {
   subtest {
     plan 2;
     is .<number>.&convert, |.<expected description>;
@@ -35,127 +30,129 @@ for @(my $c-data.<cases>) {
   }
 }
 
-if %*ENV<EXERCISM> && (my $c-data-file = "$dir/../../x-common/exercises/{$dir.IO.basename}/canonical-data.json".IO.resolve) ~~ :f {
-  is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data'
-} else { skip }
+if %*ENV<EXERCISM> && (my $c-data-file =
+  "$dir/../../x-common/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f
+{ is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data' } else { skip }
 
 done-testing;
 
 INIT {
-  $c-data := from-json ｢
-    {
-      "exercise": "raindrops",
-      "version": "1.0.0",
-      "cases": [
-        {
-          "description": "the sound for 1 is 1",
-          "property": "convert",
-          "number": 1,
-          "expected": "1"
-        },
-        {
-          "description": "the sound for 3 is Pling",
-          "property": "convert",
-          "number": 3,
-          "expected": "Pling"
-        },
-        {
-          "description": "the sound for 5 is Plang",
-          "property": "convert",
-          "number": 5,
-          "expected": "Plang"
-        },
-        {
-          "description": "the sound for 7 is Plong",
-          "property": "convert",
-          "number": 7,
-          "expected": "Plong"
-        },
-        {
-          "description": "the sound for 6 is Pling as it has a factor 3",
-          "property": "convert",
-          "number": 6,
-          "expected": "Pling"
-        },
-        {
-          "description": "2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base",
-          "property": "convert",
-          "number": 8,
-          "expected": "8"
-        },
-        {
-          "description": "the sound for 9 is Pling as it has a factor 3",
-          "property": "convert",
-          "number": 9,
-          "expected": "Pling"
-        },
-        {
-          "description": "the sound for 10 is Plang as it has a factor 5",
-          "property": "convert",
-          "number": 10,
-          "expected": "Plang"
-        },
-        {
-          "description": "the sound for 14 is Plong as it has a factor of 7",
-          "property": "convert",
-          "number": 14,
-          "expected": "Plong"
-        },
-        {
-          "description": "the sound for 15 is PlingPlang as it has factors 3 and 5",
-          "property": "convert",
-          "number": 15,
-          "expected": "PlingPlang"
-        },
-        {
-          "description": "the sound for 21 is PlingPlong as it has factors 3 and 7",
-          "property": "convert",
-          "number": 21,
-          "expected": "PlingPlong"
-        },
-        {
-          "description": "the sound for 25 is Plang as it has a factor 5",
-          "property": "convert",
-          "number": 25,
-          "expected": "Plang"
-        },
-        {
-          "description": "the sound for 27 is Pling as it has a factor 3",
-          "property": "convert",
-          "number": 27,
-          "expected": "Pling"
-        },
-        {
-          "description": "the sound for 35 is PlangPlong as it has factors 5 and 7",
-          "property": "convert",
-          "number": 35,
-          "expected": "PlangPlong"
-        },
-        {
-          "description": "the sound for 49 is Plong as it has a factor 7",
-          "property": "convert",
-          "number": 49,
-          "expected": "Plong"
-        },
-        {
-          "description": "the sound for 52 is 52",
-          "property": "convert",
-          "number": 52,
-          "expected": "52"
-        },
-        {
-          "description": "the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7",
-          "property": "convert",
-          "number": 105,
-          "expected": "PlingPlangPlong"
-        },
-        {
-          "description": "the sound for 3125 is Plang as it has a factor 5",
-          "property": "convert",
-          "number": 3125,
-          "expected": "Plang"
-        }
-      ]
+$c-data := from-json q:to/END/;
+
+{
+  "exercise": "raindrops",
+  "version": "1.0.0",
+  "cases": [
+    {
+      "description": "the sound for 1 is 1",
+      "property": "convert",
+      "number": 1,
+      "expected": "1"
+    },
+    {
+      "description": "the sound for 3 is Pling",
+      "property": "convert",
+      "number": 3,
+      "expected": "Pling"
+    },
+    {
+      "description": "the sound for 5 is Plang",
+      "property": "convert",
+      "number": 5,
+      "expected": "Plang"
+    },
+    {
+      "description": "the sound for 7 is Plong",
+      "property": "convert",
+      "number": 7,
+      "expected": "Plong"
+    },
+    {
+      "description": "the sound for 6 is Pling as it has a factor 3",
+      "property": "convert",
+      "number": 6,
+      "expected": "Pling"
+    },
+    {
+      "description": "2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base",
+      "property": "convert",
+      "number": 8,
+      "expected": "8"
+    },
+    {
+      "description": "the sound for 9 is Pling as it has a factor 3",
+      "property": "convert",
+      "number": 9,
+      "expected": "Pling"
+    },
+    {
+      "description": "the sound for 10 is Plang as it has a factor 5",
+      "property": "convert",
+      "number": 10,
+      "expected": "Plang"
+    },
+    {
+      "description": "the sound for 14 is Plong as it has a factor of 7",
+      "property": "convert",
+      "number": 14,
+      "expected": "Plong"
+    },
+    {
+      "description": "the sound for 15 is PlingPlang as it has factors 3 and 5",
+      "property": "convert",
+      "number": 15,
+      "expected": "PlingPlang"
+    },
+    {
+      "description": "the sound for 21 is PlingPlong as it has factors 3 and 7",
+      "property": "convert",
+      "number": 21,
+      "expected": "PlingPlong"
+    },
+    {
+      "description": "the sound for 25 is Plang as it has a factor 5",
+      "property": "convert",
+      "number": 25,
+      "expected": "Plang"
+    },
+    {
+      "description": "the sound for 27 is Pling as it has a factor 3",
+      "property": "convert",
+      "number": 27,
+      "expected": "Pling"
+    },
+    {
+      "description": "the sound for 35 is PlangPlong as it has factors 5 and 7",
+      "property": "convert",
+      "number": 35,
+      "expected": "PlangPlong"
+    },
+    {
+      "description": "the sound for 49 is Plong as it has a factor 7",
+      "property": "convert",
+      "number": 49,
+      "expected": "Plong"
+    },
+    {
+      "description": "the sound for 52 is 52",
+      "property": "convert",
+      "number": 52,
+      "expected": "52"
+    },
+    {
+      "description": "the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7",
+      "property": "convert",
+      "number": 105,
+      "expected": "PlingPlangPlong"
+    },
+    {
+      "description": "the sound for 3125 is Plang as it has a factor 5",
+      "property": "convert",
+      "number": 3125,
+      "expected": "Plang"
     }
-  ｣
+  ]
+}
+
+END
 }