trackler 2.0.8.28 → 2.0.8.29

data/tracks/perl6/exercises/atbash-cipher/AtbashCipher.pm6

@@ -0,0 +1 @@
+unit module AtbashCipher:ver<1>;

data/tracks/perl6/exercises/atbash-cipher/Example.pm

@@ -1,3 +1,5 @@
+unit module AtbashCipher:ver<1>;
+
 sub encode($input) is export {
     decode($input.lc.trans( ['a'..'z', 0..9] => '', :complement ) )
         .comb(5)

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

@@ -1,119 +1,142 @@
 #!/usr/bin/env perl6
-
+use v6;
 use Test;
+use lib my $dir = $?FILE.IO.dirname;
 use JSON::Tiny;
 
-use lib $?FILE.IO.dirname;
-
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Cipher';
-require ::($module) <&encode &decode>;
-
-plan 2;
-
-my %cases;
-subtest 'encode' => {
-    my @cases = |%cases.<encode>.<cases>;
+my $exercise = 'AtbashCipher';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 5;
 
-    plan +@cases;
-
-    is encode( .<phrase> ), .<expected>, .<description>
-        for @cases;
-};
+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). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
 
-subtest 'decode' => {
-    my @cases = |%cases.<decode>.<cases>;
+my @subs;
+BEGIN { @subs = <&encode &decode> };
+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;
 
+for @(my $c-data.<cases>) {
+  my $test = .<description> ~~ 'encode' ?? 'encode' !! 'decode';
+  subtest $test => {
+    my @cases = |.<cases>;
     plan +@cases;
+    is &::($test)(.<phrase>), |.<expected description> for @cases;
+  }
+}
 
-    is decode( .<phrase> ), .<expected>, .<description>
-        for @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 }
 
 done-testing;
 
 INIT {
-  %cases := from-json ｢
+  $c-data := from-json ｢
     {
-      "#": [
+      "exercise": "atbash-cipher",
+      "version": "1.0.0",
+      "comments": [
         "The tests are divided into two groups: ",
         "* Encoding from English to atbash cipher",
         "* Decoding from atbash cipher to all-lowercase-mashed-together English"
       ],
-      "encode": {
-        "description": ["Test encoding from English to atbash"],
-        "cases": [
-          {
-            "description": "encode yes",
-            "phrase": "yes",
-            "expected": "bvh"
-          },
-          {
-            "description": "encode no",
-            "phrase": "no",
-            "expected": "ml"
-          },
-          {
-            "description": "encode OMG",
-            "phrase": "OMG",
-            "expected": "lnt"
-          },
-          {
-            "description": "encode spaces",
-            "phrase": "O M G",
-            "expected": "lnt"
-          },
-          {
-            "description": "encode mindblowingly",
-            "phrase": "mindblowingly",
-            "expected": "nrmwy oldrm tob"
-          },
-          {
-            "description": "encode numbers",
-            "phrase": "Testing,1 2 3, testing.",
-            "expected": "gvhgr mt123 gvhgr mt"
-          },
-          {
-            "description": "encode deep thought",
-            "phrase": "Truth is fiction.",
-            "expected": "gifgs rhurx grlm"
-          },
-          {
-            "description": "encode all the letters",
-            "phrase": "The quick brown fox jumps over the lazy dog.",
-            "expected": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
-          },
-          {
-            "description": "encode ignores non ascii",
-            "phrase": "non ascii éignored",
-            "expected": "mlmzh xrrrt mlivw"
-          }
-        ]
-      },
-      "decode": {
-        "description": ["Test decoding from atbash to English"],
-        "cases": [
-          {
+      "cases": [
+        {
+          "description": "encode",
+          "comments": [ "Test encoding from English to atbash" ],
+          "cases": [
+            {
+              "description": "encode yes",
+              "property": "encode",
+              "phrase": "yes",
+              "expected": "bvh"
+            },
+            {
+              "description": "encode no",
+              "property": "encode",
+              "phrase": "no",
+              "expected": "ml"
+            },
+            {
+              "description": "encode OMG",
+              "property": "encode",
+              "phrase": "OMG",
+              "expected": "lnt"
+            },
+            {
+              "description": "encode spaces",
+              "property": "encode",
+              "phrase": "O M G",
+              "expected": "lnt"
+            },
+            {
+              "description": "encode mindblowingly",
+              "property": "encode",
+              "phrase": "mindblowingly",
+              "expected": "nrmwy oldrm tob"
+            },
+            {
+              "description": "encode numbers",
+              "property": "encode",
+              "phrase": "Testing,1 2 3, testing.",
+              "expected": "gvhgr mt123 gvhgr mt"
+            },
+            {
+              "description": "encode deep thought",
+              "property": "encode",
+              "phrase": "Truth is fiction.",
+              "expected": "gifgs rhurx grlm"
+            },
+            {
+              "description": "encode all the letters",
+              "property": "encode",
+              "phrase": "The quick brown fox jumps over the lazy dog.",
+              "expected": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
+            }
+          ]
+        },
+        {
+          "description": "decode",
+          "comments": [ "Test decoding from atbash to English" ],
+          "cases": [
+            {
               "description": "decode exercism",
+              "property": "decode",
               "phrase": "vcvix rhn",
               "expected": "exercism"
-          },
-          {
+            },
+            {
               "description": "decode a sentence",
+              "property": "decode",
               "phrase": "zmlyh gzxov rhlug vmzhg vkkrm thglm v",
               "expected": "anobstacleisoftenasteppingstone"
-          },
-          {
+            },
+            {
               "description": "decode numbers",
+              "property": "decode",
               "phrase": "gvhgr mt123 gvhgr mt",
               "expected": "testing123testing"
-          },
-          {
+            },
+            {
               "description": "decode all the letters",
+              "property": "decode",
               "phrase": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt",
               "expected": "thequickbrownfoxjumpsoverthelazydog"
-          }
-        ]
-      }
+            }
+          ]
+        }
+      ]
     }
   ｣
 }

data/tracks/perl6/exercises/grains/Example.pm

@@ -1,11 +1,12 @@
-class Grains is export {
-    method square($number) {
-        2**($number-1);
-    }
+unit module Grains:ver<1>;
 
-    method total {
-        my $total;
-        for  1..64 { $total += self.square($_) }
-        $total;
-    }
+sub grains-on-square ($number) is export {
+  die if $number < 1 or $number > 64;
+  2**($number-1);
+}
+
+sub total-grains is export {
+  my Int $total;
+  for  1..64 { $total += grains-on-square($_) }
+  $total;
 }

data/tracks/perl6/exercises/grains/Grains.pm6

@@ -0,0 +1 @@
+unit module Grains:ver<1>;

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

@@ -1,21 +1,129 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
-use lib IO::Path.new($?FILE).parent.path;
-
-plan 11;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Grains';
-use-ok $module;
-require ::($module) <Grains>;
-
-ok Grains.can('square'), 'Grains class has square method';
-ok Grains.can('total'), 'Grains class has total method';
-
-is Grains.square(1),  1, 'test square 1';
-is Grains.square(2),  2, 'test square 2';
-is Grains.square(3),  4, 'test square 3';
-is Grains.square(4),  8,  'test square 4';
-is Grains.square(16), 32768, 'test square 16';
-is Grains.square(32), 2147483648, 'test square 32';
-is Grains.square(64), 9223372036854775808, 'test square 64';
-is Grains.total,      18446744073709551615, 'test total';
+use lib my $dir = $?FILE.IO.dirname;
+use JSON::Tiny;
+
+my $exercise = 'Grains';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 14;
+
+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). "
+    ~ "Test is $($version.gist).\n";
+  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;
+
+for @(my $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>;
+
+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 }
+
+done-testing;
+
+INIT {
+  $c-data := from-json ｢
+    {
+      "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": [
+        {
+          "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": "returns the total number of grains on the board",
+          "property": "total",
+          "expected": 18446744073709551615
+        }
+      ]
+    }
+  ｣
+}

data/tracks/perl6/exercises/leap/Example.pm

@@ -1,11 +1,11 @@
-class Leap is export {
-    method is_leap ($year) {
-        self.is_divisible($year, 400)
-        || self.is_divisible($year, 4)
-           && !self.is_divisible($year, 100);
-    }
+unit module Leap:ver<1>; 
 
-    method is_divisible($year, $number) {
-        $year % $number == 0 ?? True !! False;
-    }
+sub is-leap-year ($year) is export {
+  is-divisible($year, 400)
+    || is-divisible($year, 4)
+    && !is-divisible($year, 100);
+}
+
+sub is-divisible($year, $number) {
+  $year % $number == 0 ?? True !! False;
 }

data/tracks/perl6/exercises/leap/Leap.pm6

@@ -0,0 +1,4 @@
+unit module Leap:ver<1>; 
+
+sub is-leap-year ($year) is export {
+}

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

@@ -1,26 +1,70 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
-use lib IO::Path.new($?FILE).parent.path;
+use lib my $dir = $?FILE.IO.dirname;
+use JSON::Tiny;
 
-plan 8;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Leap';
-use-ok $module;
-require ::($module) <Leap>;
+my $exercise = 'Leap';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 7;
 
-ok Leap.can('is_leap'), 'Leap class has is_leap() method';
+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). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
+
+my @subs;
+BEGIN { @subs = <&is-leap-year> };
+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;
+
+is .<input>.&is-leap-year, |.<expected description> for @(my $c-data.<cases>);
 
-ok my $leap = Leap.new, 'Create new Leap object';
+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 }
 
-my %year = (
-    1996 => True,
-    1997 => False,
-    1998 => False,
-    1900 => False,
-    2400 => True,
-);
+done-testing;
 
-for %year.sort -> $y {
-    is $leap.is_leap($y.key), $y.value, 
-        [ flat( $y.key, 'is', 'not' xx !$y.value, 'a leap year' ) ].join( ' ' )
+INIT {
+  $c-data := from-json ｢
+    {
+      "exercise": "leap",
+      "version": "1.0.0",
+      "cases": [
+        {
+          "description": "year not divisible by 4: common year",
+          "property": "leapYear",
+          "input": 2015,
+          "expected": false
+        },
+        {
+          "description": "year divisible by 4, not divisible by 100: leap year",
+          "property": "leapYear",
+          "input": 2016,
+          "expected": true
+        },
+        {
+          "description": "year divisible by 100, not divisible by 400: common year",
+          "property": "leapYear",
+          "input": 2100,
+          "expected": false
+        },
+        {
+          "description": "year divisible by 400: leap year",
+          "property": "leapYear",
+          "input": 2000,
+          "expected": true
+        }
+      ]
+    }
+  ｣
 }