trackler 2.2.1.100 → 2.2.1.101

data/tracks/perl6/exercises/roman-numerals/RomanNumerals.pm6

@@ -1,4 +1,4 @@
-unit module RomanNumerals:ver<2>;
+unit module RomanNumerals:ver<3>;
 
 sub to-roman ($number) is export {
 }

data/tracks/perl6/exercises/roman-numerals/roman-numerals.t

@@ -4,9 +4,9 @@ use Test;
 use JSON::Fast;
 use lib $?FILE.IO.dirname;
 use RomanNumerals;
-plan 18;
+plan 19;
 
-my Version:D $version = v2;
+my Version:D $version = v3;
 
 if RomanNumerals.^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
@@ -16,125 +16,167 @@ if RomanNumerals.^ver !~~ $version {
 
 my $c-data = from-json $=pod.pop.contents;
 for $c-data<cases>.values {
-  is to-roman(.<number>), |.<expected description>;
+  is to-roman(.<input><number>), |.<expected description>;
 }
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "roman-numerals",
-  "version": "1.0.0",
+  "version": "1.2.0",
   "cases": [
     {
       "description": "1 is a single I",
       "property": "roman",
-      "number": 1,
+      "input": {
+        "number": 1
+      },
       "expected": "I"
     },
     {
       "description": "2 is two I's",
       "property": "roman",
-      "number": 2,
+      "input": {
+        "number": 2
+      },
       "expected": "II"
     },
     {
       "description": "3 is three I's",
       "property": "roman",
-      "number": 3,
+      "input": {
+        "number": 3
+      },
       "expected": "III"
     },
     {
       "description": "4, being 5 - 1, is IV",
       "property": "roman",
-      "number": 4,
+      "input": {
+        "number": 4
+      },
       "expected": "IV"
     },
     {
       "description": "5 is a single V",
       "property": "roman",
-      "number": 5,
+      "input": {
+        "number": 5
+      },
       "expected": "V"
     },
     {
       "description": "6, being 5 + 1, is VI",
       "property": "roman",
-      "number": 6,
+      "input": {
+        "number": 6
+      },
       "expected": "VI"
     },
     {
       "description": "9, being 10 - 1, is IX",
       "property": "roman",
-      "number": 9,
+      "input": {
+        "number": 9
+      },
       "expected": "IX"
     },
     {
       "description": "20 is two X's",
       "property": "roman",
-      "number": 27,
+      "input": {
+        "number": 27
+      },
       "expected": "XXVII"
     },
     {
       "description": "48 is not 50 - 2 but rather 40 + 8",
       "property": "roman",
-      "number": 48,
+      "input": {
+        "number": 48
+      },
       "expected": "XLVIII"
     },
+    {
+      "description": "49 is not 40 + 5 + 4 but rather 50 - 10 + 10 - 1",
+      "property": "roman",
+      "input": {
+        "number": 49
+      },
+      "expected": "XLIX"
+    },
     {
       "description": "50 is a single L",
       "property": "roman",
-      "number": 59,
+      "input": {
+        "number": 59
+      },
       "expected": "LIX"
     },
     {
       "description": "90, being 100 - 10, is XC",
       "property": "roman",
-      "number": 93,
+      "input": {
+        "number": 93
+      },
       "expected": "XCIII"
     },
     {
       "description": "100 is a single C",
       "property": "roman",
-      "number": 141,
+      "input": {
+        "number": 141
+      },
       "expected": "CXLI"
     },
     {
       "description": "60, being 50 + 10, is LX",
       "property": "roman",
-      "number": 163,
+      "input": {
+        "number": 163
+      },
       "expected": "CLXIII"
     },
     {
       "description": "400, being 500 - 100, is CD",
       "property": "roman",
-      "number": 402,
+      "input": {
+        "number": 402
+      },
       "expected": "CDII"
     },
     {
       "description": "500 is a single D",
       "property": "roman",
-      "number": 575,
+      "input": {
+        "number": 575
+      },
       "expected": "DLXXV"
     },
     {
       "description": "900, being 1000 - 100, is CM",
       "property": "roman",
-      "number": 911,
+      "input": {
+        "number": 911
+      },
       "expected": "CMXI"
     },
     {
       "description": "1000 is a single M",
       "property": "roman",
-      "number": 1024,
+      "input": {
+        "number": 1024
+      },
       "expected": "MXXIV"
     },
     {
       "description": "3000 is three M's",
       "property": "roman",
-      "number": 3000,
+      "input": {
+        "number": 3000
+      },
       "expected": "MMM"
     }
   ]
 }
-
 =end code

data/tracks/perl6/exercises/scrabble-score/.meta/exercise-data.yaml

@@ -2,7 +2,7 @@ exercise: Scrabble
 version: 2
 plan: 11
 tests: |-
-  is .<input>.&score, |.<expected description> for @($c-data<cases>);
+  is .<input><word>.&score, |.<expected description> for @($c-data<cases>);
 
 unit: module
 example: |-

data/tracks/perl6/exercises/scrabble-score/scrabble-score.t

@@ -15,82 +15,102 @@ if Scrabble.^ver !~~ $version {
 }
 
 my $c-data = from-json $=pod.pop.contents;
-is .<input>.&score, |.<expected description> for @($c-data<cases>);
+is .<input><word>.&score, |.<expected description> for @($c-data<cases>);
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "scrabble-score",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "cases": [
     {
       "description": "lowercase letter",
       "property": "score",
-      "input": "a",
+      "input": {
+        "word": "a"
+      },
       "expected": 1
     },
     {
       "description": "uppercase letter",
       "property": "score",
-      "input": "A",
+      "input": {
+        "word": "A"
+      },
       "expected": 1
     },
     {
       "description": "valuable letter",
       "property": "score",
-      "input": "f",
+      "input": {
+        "word": "f"
+      },
       "expected": 4
     },
     {
       "description": "short word",
       "property": "score",
-      "input": "at",
+      "input": {
+        "word": "at"
+      },
       "expected": 2
     },
     {
       "description": "short, valuable word",
       "property": "score",
-      "input": "zoo",
+      "input": {
+        "word": "zoo"
+      },
       "expected": 12
     },
     {
       "description": "medium word",
       "property": "score",
-      "input": "street",
+      "input": {
+        "word": "street"
+      },
       "expected": 6
     },
     {
       "description": "medium, valuable word",
       "property": "score",
-      "input": "quirky",
+      "input": {
+        "word": "quirky"
+      },
       "expected": 22
     },
     {
       "description": "long, mixed-case word",
       "property": "score",
-      "input": "OxyphenButazone",
+      "input": {
+        "word": "OxyphenButazone"
+      },
       "expected": 41
     },
     {
       "description": "english-like word",
       "property": "score",
-      "input": "pinata",
+      "input": {
+        "word": "pinata"
+      },
       "expected": 8
     },
     {
       "description": "empty input",
       "property": "score",
-      "input": "",
+      "input": {
+        "word": ""
+      },
       "expected": 0
     },
     {
       "description": "entire alphabet available",
       "property": "score",
-      "input": "abcdefghijklmnopqrstuvwxyz",
+      "input": {
+        "word": "abcdefghijklmnopqrstuvwxyz"
+      },
       "expected": 87
     }
   ]
 }
-
 =end code

data/tracks/perl6/exercises/space-age/.meta/exercise-data.yaml

@@ -2,7 +2,7 @@ exercise: SpaceAge
 version: 2
 plan: 8
 tests: |-
-  is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @($c-data<cases>);
+  is (age-on ::(.<input><planet>): .<input><seconds>), |.<expected description> for @($c-data<cases>);
 
 unit: module
 example: |-

data/tracks/perl6/exercises/space-age/space-age.t

@@ -15,72 +15,86 @@ if SpaceAge.^ver !~~ $version {
 }
 
 my $c-data = from-json $=pod.pop.contents;
-is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @($c-data<cases>);
+is (age-on ::(.<input><planet>): .<input><seconds>), |.<expected description> for @($c-data<cases>);
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "space-age",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "cases": [
     {
       "description": "age on Earth",
       "property": "age",
-      "planet": "Earth",
-      "seconds": 1000000000,
+      "input": {
+        "planet": "Earth",
+        "seconds": 1000000000
+      },
       "expected": 31.69
     },
     {
       "description": "age on Mercury",
       "property": "age",
-      "planet": "Mercury",
-      "seconds": 2134835688,
+      "input": {
+        "planet": "Mercury",
+        "seconds": 2134835688
+      },
       "expected": 280.88
     },
     {
       "description": "age on Venus",
       "property": "age",
-      "planet": "Venus",
-      "seconds": 189839836,
+      "input": {
+        "planet": "Venus",
+        "seconds": 189839836
+      },
       "expected": 9.78
     },
     {
       "description": "age on Mars",
       "property": "age",
-      "planet": "Mars",
-      "seconds": 2329871239,
+      "input": {
+        "planet": "Mars",
+        "seconds": 2329871239
+      },
       "expected": 39.25
     },
     {
       "description": "age on Jupiter",
       "property": "age",
-      "planet": "Jupiter",
-      "seconds": 901876382,
+      "input": {
+        "planet": "Jupiter",
+        "seconds": 901876382
+      },
       "expected": 2.41
     },
     {
       "description": "age on Saturn",
       "property": "age",
-      "planet": "Saturn",
-      "seconds": 3000000000,
+      "input": {
+        "planet": "Saturn",
+        "seconds": 3000000000
+      },
       "expected": 3.23
     },
     {
       "description": "age on Uranus",
       "property": "age",
-      "planet": "Uranus",
-      "seconds": 3210123456,
+      "input": {
+        "planet": "Uranus",
+        "seconds": 3210123456
+      },
       "expected": 1.21
     },
     {
       "description": "age on Neptune",
       "property": "age",
-      "planet": "Neptune",
-      "seconds": 8210123456,
+      "input": {
+        "planet": "Neptune",
+        "seconds": 8210123456
+      },
       "expected": 1.58
     }
   ]
 }
-
 =end code