trackler 2.2.1.86 → 2.2.1.87

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

@@ -6,8 +6,8 @@ tests: |-
   for $c-data<cases>.values -> $case {
     sub call-convert-base {
       convert-base(
-        bases  => %(<from to> Z=> .<input_base output_base>),
-        digits => .<input_digits>,
+        bases  => %(<from to> Z=> .<input><input_base output_base>),
+        digits => .<input><digits>,
       ) given $case;
     }
 

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

@@ -28,7 +28,7 @@ for $c-data<cases>.values -> %case-set {
     plan 7;
     for %case-set<cases>.values -> %case {
       for %case<expected>.values {
-        given allergic-to %case<score>, .<substance> -> $result {
+        given allergic-to %case<input><score>, .<substance> -> $result {
           subtest %case<description> ~ ': ' ~ .<substance> => {
             plan 2;
             isa-ok $result, Bool;
@@ -42,7 +42,7 @@ for $c-data<cases>.values -> %case-set {
   subtest 'list-allergies' => {
     plan 9;
     for %case-set<cases>.values {
-      cmp-ok list-allergies(.<score>), '~~', .<expected>.Set, .<description>;
+      cmp-ok list-allergies(.<input><score>), '~~', .<expected>.Set, .<description>;
     }
   } when %case-set<description> ~~ 'list';
 
@@ -53,7 +53,7 @@ for $c-data<cases>.values -> %case-set {
 
 {
   "exercise": "allergies",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "cases": [
     {
       "description": "allergicTo",
@@ -68,7 +68,9 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "no allergies means not allergic",
           "property": "allergicTo",
-          "score": 0,
+          "input": {
+            "score": 0
+          },
           "expected": [
             {
               "substance": "peanuts",
@@ -87,7 +89,9 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "is allergic to eggs",
           "property": "allergicTo",
-          "score": 1,
+          "input": {
+            "score": 1
+          },
           "expected": [
             {
               "substance": "eggs",
@@ -98,7 +102,9 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "allergic to eggs in addition to other stuff",
           "property": "allergicTo",
-          "score": 5,
+          "input": {
+            "score": 5
+          },
           "expected": [
             {
               "substance": "eggs",
@@ -125,43 +131,57 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "no allergies at all",
           "property": "list",
-          "score": 0,
+          "input": {
+            "score": 0
+          },
           "expected": []
         },
         {
           "description": "allergic to just eggs",
           "property": "list",
-          "score": 1,
+          "input": {
+            "score": 1
+          },
           "expected": ["eggs"]
         },
         {
           "description": "allergic to just peanuts",
           "property": "list",
-          "score": 2,
+          "input": {
+            "score": 2
+          },
           "expected": ["peanuts"]
         },
         {
           "description": "allergic to just strawberries",
           "property": "list",
-          "score": 8,
+          "input": {
+            "score": 8
+          },
           "expected": ["strawberries"]
         },
         {
           "description": "allergic to eggs and peanuts",
           "property": "list",
-          "score": 3,
+          "input": {
+            "score": 3
+          },
           "expected": ["eggs", "peanuts"]
         },
         {
           "description": "allergic to more than eggs but not peanuts",
           "property": "list",
-          "score": 5,
+          "input": {
+            "score": 5
+          },
           "expected": ["eggs", "shellfish"]
         },
         {
           "description": "allergic to lots of stuff",
           "property": "list",
-          "score": 248,
+          "input": {
+            "score": 248
+          },
           "expected": [ "strawberries",
                         "tomatoes",
                         "chocolate",
@@ -172,7 +192,9 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "allergic to everything",
           "property": "list",
-          "score": 255,
+          "input": {
+            "score": 255
+          },
           "expected": [ "eggs",
                         "peanuts",
                         "shellfish",
@@ -186,7 +208,9 @@ for $c-data<cases>.values -> %case-set {
         {
           "description": "ignore non allergen score parts",
           "property": "list",
-          "score": 509,
+          "input": {
+            "score": 509
+          },
           "expected": [ "eggs",
                         "shellfish",
                         "strawberries",

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

@@ -9,7 +9,7 @@ tests: |-
       plan 7;
       for %case-set<cases>.values -> %case {
         for %case<expected>.values {
-          given allergic-to %case<score>, .<substance> -> $result {
+          given allergic-to %case<input><score>, .<substance> -> $result {
             subtest %case<description> ~ ': ' ~ .<substance> => {
               plan 2;
               isa-ok $result, Bool;
@@ -23,7 +23,7 @@ tests: |-
     subtest 'list-allergies' => {
       plan 9;
       for %case-set<cases>.values {
-        cmp-ok list-allergies(.<score>), '~~', .<expected>.Set, .<description>;
+        cmp-ok list-allergies(.<input><score>), '~~', .<expected>.Set, .<description>;
       }
     } when %case-set<description> ~~ 'list';
 

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

@@ -22,14 +22,14 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&match-anagrams>;
 
 my $c-data = from-json $=pod.pop.contents;
-cmp-ok match-anagrams( |%(.<subject candidates>:p) ), '~~', .<expected>.Set, .<description> for $c-data<cases>.values;
+cmp-ok match-anagrams( |%(.<input><subject candidates>:p) ), '~~', .<expected>.Set, .<description> for $c-data<cases>.values;
 
 =head2 Canonical Data
 =begin code
 
 {
   "exercise": "anagram",
-  "version": "1.0.1",
+  "version": "1.1.0",
   "comments": [
     "The string argument cases possible matches are passed in as",
     "individual arguments rather than arrays. Languages can include",
@@ -40,119 +40,152 @@ cmp-ok match-anagrams( |%(.<subject candidates>:p) ), '~~', .<expected>.Set, .<d
     {
       "description": "no matches",
       "property": "anagrams",
-      "subject": "diaper",
-      "candidates": ["hello", "world", "zombies", "pants"],
+      "input": {
+        "subject": "diaper",
+        "candidates": ["hello", "world", "zombies", "pants"]
+      },
       "expected": []
     },
     {
       "description": "detects simple anagram",
       "property": "anagrams",
-      "subject": "ant",
-      "candidates": ["tan", "stand", "at"],
+      "input": {
+        "subject": "ant",
+        "candidates": ["tan", "stand", "at"]
+      },
       "expected": ["tan"]
     },
     {
       "description": "does not detect false positives",
       "property": "anagrams",
-      "subject": "galea",
-      "candidates": ["eagle"],
+      "input": {
+        "subject": "galea",
+        "candidates": ["eagle"]
+      },
       "expected": []
     },
     {
       "description": "detects two anagrams",
       "property": "anagrams",
-      "subject": "master",
-      "candidates": ["stream", "pigeon", "maters"],
+      "input": {
+        "subject": "master",
+        "candidates": ["stream", "pigeon", "maters"]
+      },
       "expected": ["stream", "maters"]
     },
     {
       "description": "does not detect anagram subsets",
       "property": "anagrams",
-      "subject": "good",
-      "candidates": ["dog", "goody"],
+      "input": {
+        "subject": "good",
+        "candidates": ["dog", "goody"]
+      },
       "expected": []
     },
     {
       "description": "detects anagram",
       "property": "anagrams",
-      "subject": "listen",
-      "candidates": ["enlists", "google", "inlets", "banana"],
+      "input": {
+        "subject": "listen",
+        "candidates": ["enlists", "google", "inlets", "banana"]
+      },
       "expected": ["inlets"]
     },
     {
       "description": "detects three anagrams",
       "property": "anagrams",
-      "subject": "allergy",
-      "candidates": [ "gallery",
-                      "ballerina",
-                      "regally",
-                      "clergy",
-                      "largely",
-                      "leading"
-                    ],
+      "input": {
+        "subject": "allergy",
+        "candidates": [
+          "gallery",
+          "ballerina",
+          "regally",
+          "clergy",
+          "largely",
+          "leading"
+        ]
+      },
       "expected": ["gallery", "regally", "largely"]
     },
     {
       "description": "does not detect identical words",
       "property": "anagrams",
-      "subject": "corn",
-      "candidates": ["corn", "dark", "Corn", "rank", "CORN", "cron", "park"],
+      "input": {
+        "subject": "corn",
+        "candidates": ["corn", "dark", "Corn", "rank", "CORN", "cron", "park"]
+      },
       "expected": ["cron"]
     },
     {
       "description": "does not detect non-anagrams with identical checksum",
       "property": "anagrams",
-      "subject": "mass",
-      "candidates": ["last"],
+      "input": {
+        "subject": "mass",
+        "candidates": ["last"]
+      },
       "expected": []
     },
     {
       "description": "detects anagrams case-insensitively",
       "property": "anagrams",
-      "subject": "Orchestra",
-      "candidates": ["cashregister", "Carthorse", "radishes"],
+      "input": {
+        "subject": "Orchestra",
+        "candidates": ["cashregister", "Carthorse", "radishes"]
+      },
       "expected": ["Carthorse"]
     },
     {
       "description": "detects anagrams using case-insensitive subject",
       "property": "anagrams",
-      "subject": "Orchestra",
-      "candidates": ["cashregister", "carthorse", "radishes"],
+      "input": {
+        "subject": "Orchestra",
+        "candidates": ["cashregister", "carthorse", "radishes"]
+      },
       "expected": ["carthorse"]
     },
     {
       "description": "detects anagrams using case-insensitive possible matches",
       "property": "anagrams",
-      "subject": "orchestra",
-      "candidates": ["cashregister", "Carthorse", "radishes"],
+      "input": {
+        "subject": "orchestra",
+        "candidates": ["cashregister", "Carthorse", "radishes"]
+      },
       "expected": ["Carthorse"]
     },
     {
       "description": "does not detect a word as its own anagram",
       "property": "anagrams",
-      "subject": "banana",
-      "candidates": ["Banana"],
+      "input": {
+        "subject": "banana",
+        "candidates": ["Banana"]
+      },
       "expected": []
     },
     {
       "description": "does not detect a anagram if the original word is repeated",
       "property": "anagrams",
-      "subject": "go",
-      "candidates": ["go Go GO"],
+      "input": {
+        "subject": "go",
+        "candidates": ["go Go GO"]
+      },
       "expected": []
     },
     {
       "description": "anagrams must use all letters exactly once",
       "property": "anagrams",
-      "subject": "tapper",
-      "candidates": ["patter"],
+      "input": {
+        "subject": "tapper",
+        "candidates": ["patter"]
+      },
       "expected": []
     },
     {
       "description": "capital word is not own anagram",
       "property": "anagrams",
-      "subject": "BANANA",
-      "candidates": ["Banana"],
+      "input": {
+        "subject": "BANANA",
+        "candidates": ["Banana"]
+      },
       "expected": []
     }
   ]

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

@@ -3,7 +3,7 @@ version: 2
 plan: 18
 imports: '&match-anagrams'
 tests: |-
-  cmp-ok match-anagrams( |%(.<subject candidates>:p) ), '~~', .<expected>.Set, .<description> for $c-data<cases>.values;
+  cmp-ok match-anagrams( |%(.<input><subject candidates>:p) ), '~~', .<expected>.Set, .<description> for $c-data<cases>.values;
 
 unit: module
 example: |-

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

@@ -22,14 +22,14 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&encode &decode>;
 
 my $c-data = from-json $=pod.pop.contents;
-is .<phrase>.&::(.<property>), |.<expected description> for $c-data<cases>»<cases>».Array.flat;
+is .<input><phrase>.&::(.<property>), |.<expected description> for $c-data<cases>»<cases>».Array.flat;
 
 =head2 Canonical Data
 =begin code
 
 {
   "exercise": "atbash-cipher",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "comments": [
     "The tests are divided into two groups: ",
     "* Encoding from English to atbash cipher",
@@ -43,49 +43,65 @@ is .<phrase>.&::(.<property>), |.<expected description> for $c-data<cases>»<cas
         {
           "description": "encode yes",
           "property": "encode",
-          "phrase": "yes",
+          "input": {
+            "phrase": "yes"
+          },
           "expected": "bvh"
         },
         {
           "description": "encode no",
           "property": "encode",
-          "phrase": "no",
+          "input": {
+            "phrase": "no"
+          },
           "expected": "ml"
         },
         {
           "description": "encode OMG",
           "property": "encode",
-          "phrase": "OMG",
+          "input": {
+            "phrase": "OMG"
+          },
           "expected": "lnt"
         },
         {
           "description": "encode spaces",
           "property": "encode",
-          "phrase": "O M G",
+          "input": {
+            "phrase": "O M G"
+          },
           "expected": "lnt"
         },
         {
           "description": "encode mindblowingly",
           "property": "encode",
-          "phrase": "mindblowingly",
+          "input": {
+            "phrase": "mindblowingly"
+          },
           "expected": "nrmwy oldrm tob"
         },
         {
           "description": "encode numbers",
           "property": "encode",
-          "phrase": "Testing,1 2 3, testing.",
+          "input": {
+            "phrase": "Testing,1 2 3, testing."
+          },
           "expected": "gvhgr mt123 gvhgr mt"
         },
         {
           "description": "encode deep thought",
           "property": "encode",
-          "phrase": "Truth is fiction.",
+          "input": {
+            "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.",
+          "input": {
+            "phrase": "The quick brown fox jumps over the lazy dog."
+          },
           "expected": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
         }
       ]
@@ -97,32 +113,39 @@ is .<phrase>.&::(.<property>), |.<expected description> for $c-data<cases>»<cas
         {
           "description": "decode exercism",
           "property": "decode",
-          "phrase": "vcvix rhn",
+          "input": {
+            "phrase": "vcvix rhn"
+          },
           "expected": "exercism"
         },
         {
           "description": "decode a sentence",
           "property": "decode",
-          "phrase": "zmlyh gzxov rhlug vmzhg vkkrm thglm v",
+          "input": {
+            "phrase": "zmlyh gzxov rhlug vmzhg vkkrm thglm v"
+          },
           "expected": "anobstacleisoftenasteppingstone"
         },
         {
           "description": "decode numbers",
           "property": "decode",
-          "phrase": "gvhgr mt123 gvhgr mt",
+          "input": {
+            "phrase": "gvhgr mt123 gvhgr mt"
+          },
           "expected": "testing123testing"
         },
         {
           "description": "decode all the letters",
           "property": "decode",
-          "phrase": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt",
+          "input": {
+            "phrase": "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
+          },
           "expected": "thequickbrownfoxjumpsoverthelazydog"
         }
       ]
     }
   ]
 }
-
 =end code
 
 unless %*ENV<EXERCISM> {