trackler 2.2.1.100 → 2.2.1.101

data/tracks/perl6/exercises/pangram/.meta/exercise-data.yaml

@@ -3,7 +3,7 @@ version: 3
 plan: 10
 tests: |-
   for $c-data<cases>».<cases>».Array.flat {
-    given is-pangram .<input> -> $result {
+    given is-pangram .<input><sentence> -> $result {
       subtest .<description>, {
         plan 2;
         isa-ok $result, Bool;

data/tracks/perl6/exercises/pangram/pangram.t

@@ -16,7 +16,7 @@ if Pangram.^ver !~~ $version {
 
 my $c-data = from-json $=pod.pop.contents;
 for $c-data<cases>».<cases>».Array.flat {
-  given is-pangram .<input> -> $result {
+  given is-pangram .<input><sentence> -> $result {
     subtest .<description>, {
       plan 2;
       isa-ok $result, Bool;
@@ -27,13 +27,12 @@ for $c-data<cases>».<cases>».Array.flat {
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "pangram",
   "comments": [
     "A pangram is a sentence using every letter of the alphabet at least once."
   ],
-  "version": "1.3.0",
+  "version": "1.4.0",
   "cases": [
     {
       "description": "Check if the given string is an pangram",
@@ -44,66 +43,85 @@ for $c-data<cases>».<cases>».Array.flat {
         {
           "description": "sentence empty",
           "property": "isPangram",
-          "input": "",
+          "input": {
+            "sentence": ""
+          },
           "expected": false
         },
         {
           "description": "recognizes a perfect lower case pangram",
           "property": "isPangram",
-          "input": "abcdefghijklmnopqrstuvwxyz",
+          "input": {
+            "sentence": "abcdefghijklmnopqrstuvwxyz"
+          },
           "expected": true
         },
         {
           "description": "pangram with only lower case",
           "property": "isPangram",
-          "input": "the quick brown fox jumps over the lazy dog",
+          "input": {
+            "sentence": "the quick brown fox jumps over the lazy dog"
+          },
           "expected": true
         },
         {
           "description": "missing character 'x'",
           "property": "isPangram",
-          "input": "a quick movement of the enemy will jeopardize five gunboats",
+          "input": {
+            "sentence": "a quick movement of the enemy will jeopardize five gunboats"
+          },
           "expected": false
         },
         {
           "description": "another missing character, e.g. 'h'",
           "property": "isPangram",
-          "input": "five boxing wizards jump quickly at it",
+          "input": {
+            "sentence": "five boxing wizards jump quickly at it"
+          },
           "expected": false
         },
         {
           "description": "pangram with underscores",
           "property": "isPangram",
-          "input": "the_quick_brown_fox_jumps_over_the_lazy_dog",
+          "input": {
+            "sentence": "the_quick_brown_fox_jumps_over_the_lazy_dog"
+          },
           "expected": true
         },
         {
           "description": "pangram with numbers",
           "property": "isPangram",
-          "input": "the 1 quick brown fox jumps over the 2 lazy dogs",
+          "input": {
+            "sentence": "the 1 quick brown fox jumps over the 2 lazy dogs"
+          },
           "expected": true
         },
         {
           "description": "missing letters replaced by numbers",
           "property": "isPangram",
-          "input": "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog",
+          "input": {
+            "sentence": "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog"
+          },
           "expected": false
         },
         {
           "description": "pangram with mixed case and punctuation",
           "property": "isPangram",
-          "input": "\"Five quacking Zephyrs jolt my wax bed.\"",
+          "input": {
+            "sentence": "\"Five quacking Zephyrs jolt my wax bed.\""
+          },
           "expected": true
         },
         {
           "description": "upper and lower case versions of the same character should not be counted separately",
           "property": "isPangram",
-          "input": "the quick brown fox jumps over with lazy FX",
+          "input": {
+            "sentence": "the quick brown fox jumps over with lazy FX"
+          },
           "expected": false
         }
       ]
     }
   ]
 }
-
 =end code

data/tracks/perl6/exercises/phone-number/.meta/exercise-data.yaml

@@ -1,12 +1,12 @@
 exercise: Phone
-version: 4
-plan: 12
+version: 5
+plan: 14
 tests: |-
   for @($c-data<cases>[0]<cases>) {
     if .<expected> {
-      is clean-number(.<phrase>), |.<expected description>;
+      is clean-number(.<input><phrase>), |.<expected description>;
     } else {
-      nok clean-number(.<phrase>), .<description>;
+      nok clean-number(.<input><phrase>), .<description>;
     }
   }
 

data/tracks/perl6/exercises/phone-number/.meta/solutions/Phone.pm6

@@ -1,4 +1,4 @@
-unit module Phone:ver<4>;
+unit module Phone:ver<5>;
 
 sub clean-number ($number is copy) is export {
   $number ~~ s:g/<:!Nd>//;

data/tracks/perl6/exercises/phone-number/Phone.pm6

@@ -1,4 +1,4 @@
-unit module Phone:ver<4>;
+unit module Phone:ver<5>;
 
 sub clean-number ($number) is export {
 }

data/tracks/perl6/exercises/phone-number/phone-number.t

@@ -4,9 +4,9 @@ use Test;
 use JSON::Fast;
 use lib $?FILE.IO.dirname;
 use Phone;
-plan 12;
+plan 14;
 
-my Version:D $version = v4;
+my Version:D $version = v5;
 
 if Phone.^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
@@ -17,18 +17,17 @@ if Phone.^ver !~~ $version {
 my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>[0]<cases>) {
   if .<expected> {
-    is clean-number(.<phrase>), |.<expected description>;
+    is clean-number(.<input><phrase>), |.<expected description>;
   } else {
-    nok clean-number(.<phrase>), .<description>;
+    nok clean-number(.<input><phrase>), .<description>;
   }
 }
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "phone-number",
-  "version": "1.2.0",
+  "version": "1.4.0",
   "cases": [
     {
       "description": "Cleanup user-entered phone numbers",
@@ -41,78 +40,117 @@ for @($c-data<cases>[0]<cases>) {
         {
           "description": "cleans the number",
           "property": "clean",
-          "phrase": "(223) 456-7890",
+          "input": {
+            "phrase": "(223) 456-7890"
+          },
           "expected": "2234567890"
         },
         {
           "description": "cleans numbers with dots",
           "property": "clean",
-          "phrase": "223.456.7890",
+          "input": {
+            "phrase": "223.456.7890"
+          },
           "expected": "2234567890"
         },
         {
           "description": "cleans numbers with multiple spaces",
           "property": "clean",
-          "phrase": "223 456   7890   ",
+          "input": {
+            "phrase": "223 456   7890   "
+          },
           "expected": "2234567890"
         },
         {
           "description": "invalid when 9 digits",
           "property": "clean",
-          "phrase": "123456789",
+          "input": {
+            "phrase": "123456789"
+          },
           "expected": null
         },
         {
           "description": "invalid when 11 digits does not start with a 1",
           "property": "clean",
-          "phrase": "22234567890",
+          "input": {
+            "phrase": "22234567890"
+          },
           "expected": null
         },
         {
           "description": "valid when 11 digits and starting with 1",
           "property": "clean",
-          "phrase": "12234567890",
+          "input": {
+            "phrase": "12234567890"
+          },
           "expected": "2234567890"
         },
         {
           "description": "valid when 11 digits and starting with 1 even with punctuation",
           "property": "clean",
-          "phrase": "+1 (223) 456-7890",
+          "input": {
+            "phrase": "+1 (223) 456-7890"
+          },
           "expected": "2234567890"
         },
         {
           "description": "invalid when more than 11 digits",
           "property": "clean",
-          "phrase": "321234567890",
+          "input": {
+            "phrase": "321234567890"
+          },
           "expected": null
         },
         {
           "description": "invalid with letters",
           "property": "clean",
-          "phrase": "123-abc-7890",
+          "input": {
+            "phrase": "123-abc-7890"
+          },
           "expected": null
         },
         {
           "description": "invalid with punctuations",
           "property": "clean",
-          "phrase": "123-@:!-7890",
+          "input": {
+            "phrase": "123-@:!-7890"
+          },
+          "expected": null
+        },
+        {
+          "description": "invalid if area code starts with 0",
+          "property": "clean",
+          "input": {
+            "phrase": "(023) 456-7890"
+          },
           "expected": null
         },
         {
-          "description": "invalid if area code does not start with 2-9",
+          "description": "invalid if area code starts with 1",
           "property": "clean",
-          "phrase": "(123) 456-7890",
+          "input": {
+            "phrase": "(123) 456-7890"
+          },
           "expected": null
         },
         {
-          "description": "invalid if exchange code does not start with 2-9",
+          "description": "invalid if exchange code starts with 0",
           "property": "clean",
-          "phrase": "(223) 056-7890",
+          "input": {
+            "phrase": "(223) 056-7890"
+          },
+          "expected": null
+        },
+        {
+          "description": "invalid if exchange code starts with 1",
+          "property": "clean",
+          "input": {
+            "phrase": "(223) 156-7890"
+          },
           "expected": null
         }
       ]
     }
   ]
 }
-
 =end code

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

@@ -25,7 +25,6 @@ for @($c-data<cases>) {
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "raindrops",
   "version": "1.0.0",
@@ -140,5 +139,4 @@ for @($c-data<cases>) {
     }
   ]
 }
-
 =end code

data/tracks/perl6/exercises/rna-transcription/.meta/exercise-data.yaml

@@ -2,7 +2,7 @@ exercise: RNA
 version: 3
 plan: 5
 tests: |-
-  is .<dna>.&to-rna, |.<expected description> for $c-data<cases>.values;
+  is .<input><dna>.&to-rna, |.<expected description> for $c-data<cases>.values;
 
 unit: module
 example: |-

data/tracks/perl6/exercises/rna-transcription/README.md

@@ -38,7 +38,7 @@ tests, including any optional tests marked as 'TODO'.
 
 ## Source
 
-Rosalind [http://rosalind.info/problems/rna](http://rosalind.info/problems/rna)
+Hyperphysics [http://hyperphysics.phy-astr.gsu.edu/hbase/Organic/transcription.html](http://hyperphysics.phy-astr.gsu.edu/hbase/Organic/transcription.html)
 
 ## Submitting Incomplete Solutions
 It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/perl6/exercises/rna-transcription/rna-transcription.t

@@ -15,46 +15,54 @@ if RNA.^ver !~~ $version {
 }
 
 my $c-data = from-json $=pod.pop.contents;
-is .<dna>.&to-rna, |.<expected description> for $c-data<cases>.values;
+is .<input><dna>.&to-rna, |.<expected description> for $c-data<cases>.values;
 
 =head2 Canonical Data
 =begin code
-
 {
   "exercise": "rna-transcription",
-  "version": "1.1.0",
+  "version": "1.2.0",
   "cases": [
     {
       "description": "RNA complement of cytosine is guanine",
       "property": "toRna",
-      "dna": "C",
+      "input": {
+        "dna": "C"
+      },
       "expected": "G"
     },
     {
       "description": "RNA complement of guanine is cytosine",
       "property": "toRna",
-      "dna": "G",
+      "input": {
+        "dna": "G"
+      },
       "expected": "C"
     },
     {
       "description": "RNA complement of thymine is adenine",
       "property": "toRna",
-      "dna": "T",
+      "input": {
+        "dna": "T"
+      },
       "expected": "A"
     },
     {
       "description": "RNA complement of adenine is uracil",
       "property": "toRna",
-      "dna": "A",
+      "input": {
+        "dna": "A"
+      },
       "expected": "U"
     },
     {
       "description": "RNA complement",
       "property": "toRna",
-      "dna": "ACGTGGTCTTAA",
+      "input": {
+        "dna": "ACGTGGTCTTAA"
+      },
       "expected": "UGCACCAGAAUU"
     }
   ]
 }
-
 =end code

data/tracks/perl6/exercises/roman-numerals/.meta/exercise-data.yaml

@@ -1,9 +1,9 @@
 exercise: RomanNumerals
-version: 2
-plan: 18
+version: 3
+plan: 19
 tests: |-
   for $c-data<cases>.values {
-    is to-roman(.<number>), |.<expected description>;
+    is to-roman(.<input><number>), |.<expected description>;
   }
 
 unit: module

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

@@ -1,4 +1,4 @@
-unit module RomanNumerals:ver<2>;
+unit module RomanNumerals:ver<3>;
 
 
 my %table{Int} = <1000 900 500 400 100 90 50 40 10 9 5 4 1>