trackler 2.2.1.86 → 2.2.1.87

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

@@ -3,7 +3,7 @@ version: 1
 plan: 14
 imports: '&encode &decode'
 tests: |-
-  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;
 
 unit: module
 example: |-

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

@@ -30,163 +30,213 @@ subtest 'Class methods', {
 
 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>);
+is ::($exercise).?hey(.<input><heyBob>), |.<expected description> for @($c-data<cases>);
 
 =head2 Canonical Data
 =begin code
 
 {
   "exercise": "bob",
-  "version": "1.1.0",
+  "version": "1.2.0",
   "cases": [
     {
       "description": "stating something",
       "property": "response",
-      "input": "Tom-ay-to, tom-aaaah-to.",
+      "input": {
+        "heyBob": "Tom-ay-to, tom-aaaah-to."
+      },
       "expected": "Whatever."
     },
     {
       "description": "shouting",
       "property": "response",
-      "input": "WATCH OUT!",
+      "input": {
+        "heyBob": "WATCH OUT!"
+      },
       "expected": "Whoa, chill out!"
     },
     {
       "description": "shouting gibberish",
       "property": "response",
-      "input": "FCECDFCAAB",
+      "input": {
+        "heyBob": "FCECDFCAAB"
+      },
       "expected": "Whoa, chill out!"
     },
     {
       "description": "asking a question",
       "property": "response",
-      "input": "Does this cryogenic chamber make me look fat?",
+      "input": {
+        "heyBob": "Does this cryogenic chamber make me look fat?"
+      },
       "expected": "Sure."
     },
     {
       "description": "asking a numeric question",
       "property": "response",
-      "input": "You are, what, like 15?",
+      "input": {
+        "heyBob": "You are, what, like 15?"
+      },
       "expected": "Sure."
     },
     {
       "description": "asking gibberish",
       "property": "response",
-      "input": "fffbbcbeab?",
+      "input": {
+        "heyBob": "fffbbcbeab?"
+      },
       "expected": "Sure."
     },
     {
       "description": "talking forcefully",
       "property": "response",
-      "input": "Let's go make out behind the gym!",
+      "input": {
+        "heyBob": "Let's go make out behind the gym!"
+      },
       "expected": "Whatever."
     },
     {
       "description": "using acronyms in regular speech",
       "property": "response",
-      "input": "It's OK if you don't want to go to the DMV.",
+      "input": {
+        "heyBob": "It's OK if you don't want to go to the DMV."
+      },
       "expected": "Whatever."
     },
     {
       "description": "forceful question",
       "property": "response",
-      "input": "WHAT THE HELL WERE YOU THINKING?",
+      "input": {
+        "heyBob": "WHAT THE HELL WERE YOU THINKING?"
+      },
       "expected": "Calm down, I know what I'm doing!"
     },
     {
       "description": "shouting numbers",
       "property": "response",
-      "input": "1, 2, 3 GO!",
+      "input": {
+        "heyBob": "1, 2, 3 GO!"
+      },
       "expected": "Whoa, chill out!"
     },
     {
       "description": "only numbers",
       "property": "response",
-      "input": "1, 2, 3",
+      "input": {
+        "heyBob": "1, 2, 3"
+      },
       "expected": "Whatever."
     },
     {
       "description": "question with only numbers",
       "property": "response",
-      "input": "4?",
+      "input": {
+        "heyBob": "4?"
+      },
       "expected": "Sure."
     },
     {
       "description": "shouting with special characters",
       "property": "response",
-      "input": "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!",
+      "input": {
+        "heyBob": "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!"
+      },
       "expected": "Whoa, chill out!"
     },
     {
       "description": "shouting with no exclamation mark",
       "property": "response",
-      "input": "I HATE YOU",
+      "input": {
+        "heyBob": "I HATE YOU"
+      },
       "expected": "Whoa, chill out!"
     },
     {
       "description": "statement containing question mark",
       "property": "response",
-      "input": "Ending with ? means a question.",
+      "input": {
+        "heyBob": "Ending with ? means a question."
+      },
       "expected": "Whatever."
     },
     {
       "description": "non-letters with question",
       "property": "response",
-      "input": ":) ?",
+      "input": {
+        "heyBob": ":) ?"
+      },
       "expected": "Sure."
     },
     {
       "description": "prattling on",
       "property": "response",
-      "input": "Wait! Hang on. Are you going to be OK?",
+      "input": {
+        "heyBob": "Wait! Hang on. Are you going to be OK?"
+      },
       "expected": "Sure."
     },
     {
       "description": "silence",
       "property": "response",
-      "input": "",
+      "input": {
+        "heyBob": ""
+      },
       "expected": "Fine. Be that way!"
     },
     {
       "description": "prolonged silence",
       "property": "response",
-      "input": "          ",
+      "input": {
+        "heyBob": "          "
+      },
       "expected": "Fine. Be that way!"
     },
     {
       "description": "alternate silence",
       "property": "response",
-      "input": "\t\t\t\t\t\t\t\t\t\t",
+      "input": {
+        "heyBob": "\t\t\t\t\t\t\t\t\t\t"
+      },
       "expected": "Fine. Be that way!"
     },
     {
       "description": "multiple line question",
       "property": "response",
-      "input": "\nDoes this cryogenic chamber make me look fat?\nno",
+      "input": {
+        "heyBob": "\nDoes this cryogenic chamber make me look fat?\nno"
+      },
       "expected": "Whatever."
     },
     {
       "description": "starting with whitespace",
       "property": "response",
-      "input": "         hmmmmmmm...",
+      "input": {
+        "heyBob": "         hmmmmmmm..."
+      },
       "expected": "Whatever."
     },
     {
       "description": "ending with whitespace",
       "property": "response",
-      "input": "Okay if like my  spacebar  quite a bit?   ",
+      "input": {
+        "heyBob": "Okay if like my  spacebar  quite a bit?   "
+      },
       "expected": "Sure."
     },
     {
       "description": "other whitespace",
       "property": "response",
-      "input": "\n\r \t",
+      "input": {
+        "heyBob": "\n\r \t"
+      },
       "expected": "Fine. Be that way!"
     },
     {
       "description": "non-question ending with whitespace",
       "property": "response",
-      "input": "This is a statement ending with whitespace      ",
+      "input": {
+        "heyBob": "This is a statement ending with whitespace      "
+      },
       "expected": "Whatever."
     }
   ]

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

@@ -4,7 +4,7 @@ plan: 28
 methods: hey
 tests: |-
   # Go through the cases and check that Bob gives us the correct responses.
-  is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
+  is ::($exercise).?hey(.<input><heyBob>), |.<expected description> for @($c-data<cases>);
 
 exercise_comment: The name of this exercise.
 module_comment: The name of the module file to be loaded.

data/tracks/perl6/exercises/flatten-array/example.yaml

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

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

@@ -22,49 +22,61 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&flatten-array>;
 
 my $c-data = from-json $=pod.pop.contents;
-is-deeply flatten-array(.<input>), |.<expected description> for @($c-data<cases>);
+is-deeply flatten-array(.<input><array>), |.<expected description> for @($c-data<cases>);
 
 =head2 Canonical Data
 =begin code
 
 {
   "exercise": "flatten-array",
-  "version": "1.1.0",
+  "version": "1.2.0",
   "cases": [
     {
       "description": "no nesting",
       "property": "flatten",
-      "input": [0, 1, 2],
+      "input": {
+        "array": [0, 1, 2]
+      },
       "expected": [0, 1, 2]
     },
     {
       "description": "flattens array with just integers present",
       "property": "flatten",
-      "input": [1, [2, 3, 4, 5, 6, 7], 8],
+      "input": {
+        "array": [1, [2, 3, 4, 5, 6, 7], 8]
+      },
       "expected": [1, 2, 3, 4, 5, 6, 7, 8]
     },
     {
       "description": "5 level nesting",
       "property": "flatten",
-      "input": [0, 2, [[2, 3], 8, 100, 4, [[[50]]]], -2],
+      "input": {
+        "array": [0, 2, [[2, 3], 8, 100, 4, [[[50]]]], -2]
+      },
       "expected": [0, 2, 2, 3, 8, 100, 4, 50, -2]
     },
     {
       "description": "6 level nesting",
       "property": "flatten",
-      "input": [1, [2, [[3]], [4, [[5]]], 6, 7], 8],
+      "input": {
+        "array": [1, [2, [[3]], [4, [[5]]], 6, 7], 8]
+      },
       "expected": [1, 2, 3, 4, 5, 6, 7, 8]
     },
     {
       "description": "6 level nest list with null values",
       "property": "flatten",
-      "input": [0, 2, [[2, 3], 8, [[100]], null, [[null]]], -2],
+      "input": {
+        "array": [0, 2, [[2, 3], 8, [[100]], null, [[null]]], -2]
+      },
       "expected": [0, 2, 2, 3, 8, 100, -2]
     },
     {
       "description": "all values in nested list are null",
       "property": "flatten",
-      "input": [null, [[[null]]], null, null, [[null, null], null], null],
+      "input": {
+        "array": [null, [[[null]]], null, null, [[null, null], null], null]
+      },
       "expected": []
     }
   ]

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

@@ -4,7 +4,7 @@ plan: 15
 imports: '&is-luhn-valid'
 tests: |-
   for $c-data<cases>.values {
-    given is-luhn-valid .<input> -> $result {
+    given is-luhn-valid .<input><value> -> $result {
       subtest .<description>, {
         plan 2;
         isa-ok $result, Bool;

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

@@ -23,7 +23,7 @@ require ::($module) <&is-luhn-valid>;
 
 my $c-data = from-json $=pod.pop.contents;
 for $c-data<cases>.values {
-  given is-luhn-valid .<input> -> $result {
+  given is-luhn-valid .<input><value> -> $result {
     subtest .<description>, {
       plan 2;
       isa-ok $result, Bool;
@@ -37,84 +37,110 @@ for $c-data<cases>.values {
 
 {
   "exercise": "luhn",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "cases": [
     {
       "description": "single digit strings can not be valid",
       "property": "valid",
-      "input": "1",
+      "input": {
+        "value": "1"
+      },
       "expected": false
     },
     {
-      "description": "A single zero is invalid",
+      "description": "a single zero is invalid",
       "property": "valid",
-      "input": "0",
+      "input": {
+        "value": "0"
+      },
       "expected": false
     },
     {
       "description": "a simple valid SIN that remains valid if reversed",
       "property": "valid",
-      "input": "059",
+      "input": {
+        "value": "059"
+      },
       "expected": true
     },
     {
       "description": "a simple valid SIN that becomes invalid if reversed",
       "property": "valid",
-      "input": "59",
+      "input": {
+        "value": "59"
+      },
       "expected": true
     },
     {
       "description": "a valid Canadian SIN",
       "property": "valid",
-      "input": "055 444 285",
+      "input": {
+        "value": "055 444 285"
+      },
       "expected": true
     },
     {
       "description": "invalid Canadian SIN",
       "property": "valid",
-      "input": "055 444 286",
+      "input": {
+        "value": "055 444 286"
+      },
       "expected": false
     },
     {
       "description": "invalid credit card",
       "property": "valid",
-      "input": "8273 1232 7352 0569",
+      "input": {
+        "value": "8273 1232 7352 0569"
+      },
       "expected": false
     },
     {
       "description": "valid strings with a non-digit included become invalid",
       "property": "valid",
-      "input": "055a 444 285",
+      "input": {
+        "value": "055a 444 285"
+      },
       "expected": false
     },
     {
       "description": "valid strings with punctuation included become invalid",
       "property": "valid",
-      "input": "055-444-285",
+      "input": {
+        "value": "055-444-285"
+      },
       "expected": false
     },
     {
       "description": "valid strings with symbols included become invalid",
       "property": "valid",
-      "input": "055£ 444$ 285",
+      "input": {
+        "value": "055£ 444$ 285"
+      },
       "expected": false
     },
     {
       "description": "single zero with space is invalid",
       "property": "valid",
-      "input": " 0",
+      "input": {
+        "value": " 0"
+      },
       "expected": false
     },
     {
       "description": "more than a single zero is valid",
       "property": "valid",
-      "input": "0000 0",
+      "input": {
+        "value": "0000 0"
+      },
       "expected": true
     },
     {
       "description": "input digit 9 is correctly converted to output digit 9",
       "property": "valid",
-      "input": "091",
+      "input": {
+        "value": "091"
+      },
       "expected": true
     }
   ]