trackler 2.0.8.28 → 2.0.8.29

data/tracks/perl6/exercises/phone-number/Example.pm

@@ -1,30 +1,6 @@
-use v6;
+unit module Phone:ver<1>;
 
-class X::Phone::Invalid is Exception {
-  has $.payload;
-  method message {"'$!payload' is not valid."}
+sub clean-number ($number is copy) is export {
+  $number ~~ /<:L>/ ?? return Nil !! $number ~~ s:g/<:!Nd>//;
+  $number ~~ /^ 1? (<:Nd> ** 10) $/ ?? ~$0 !! Nil;
 }
-
-class Phone is export {
-  has $.number;
-
-  method new (:$number!) {
-    my $validated = $number;
-    $validated ~~ s:g/<:!Decimal_Number>//;
-    $validated ~~ /^ 1? (\d ** 10) $/ ?? ($validated = ~$0) !! X::Phone::Invalid.new(payload => $number).throw;
-    self.bless(number => $validated);
-  }
-
-  method area-code {
-    $!number ~~ /\d**3/ and return ~$/;
-  }
-
-  method pretty {
-    $!number ~~ /
-      $<area-code> = \d**3
-      $<central-office-code> = \d**3
-      $<station-number> = \d**4
-    / and return "($<area-code>) $<central-office-code>-$<station-number>";
-  }
-}
-

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

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

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

@@ -1,84 +1,121 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
+use lib my $dir = $?FILE.IO.dirname;
 use JSON::Tiny;
-use lib $?FILE.IO.dirname;
 
-plan 12;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Phone';
-use-ok $module;
-require ::($module) <Phone>;
+my $exercise = 'Phone';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 13;
 
-my %cases;
-subtest 'number, area-code and pretty methods', {
-  plan 3;
-  ok Phone.can('number'), 'can Phone.number';
-  ok Phone.can('area-code'), 'can Phone.area-code';
-  ok Phone.can('pretty'), 'can Phone.pretty';
-} or fail 'Missing method(s).';
+use-ok $module or bail-out;
+require ::($module);
 
-for @(%cases<valid>) {
-  my $phone = Phone.new(number => .<input>);
-  my $msg = 'for ' ~ .<test>;
-  is $phone.number, .<number>, "number $msg";
-  is $phone.area-code, .<area-code>, "area-code $msg";
-  is $phone.pretty, .<pretty>, "pretty $msg";
+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>;
 }
 
-todo 'Optional Exception Tests' unless %*ENV<EXERCISM>; # Remove this line for invalid input tests
-subtest 'Throw exceptions for invalid input', {
-  plan 5;
-  throws-like {Phone.new(number => .<input>)}, Exception, .<test> for @(%cases<invalid>);
+my @subs;
+BEGIN { @subs = <&clean-number> };
+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;
+
+for @(my $c-data.<cases>.[0].<cases>) {
+  if .<expected> {
+    is clean-number(.<phrase>), |.<expected description>;
+  } else {
+    nok clean-number(.<phrase>), .<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 {
-  %cases := from-json ｢
+  $c-data := from-json ｢
     {
-      "valid": [
-        {
-          "input": 1234567890,
-          "number": "1234567890",
-          "area-code": "123",
-          "pretty": "(123) 456-7890",
-          "test": "10 digit integer"
-        },
-        {
-          "input": "+1 (234) 555-6789",
-          "number": "2345556789",
-          "area-code": "234",
-          "pretty": "(234) 555-6789",
-          "test": "11 digit formatted number"
-        },
-        {
-          "input": "1.379.555.2468",
-          "number": "3795552468",
-          "area-code": "379",
-          "pretty": "(379) 555-2468",
-          "test": "11 digit number containing separators"
-        }
-      ],
-      "invalid": [
-        {
-          "input": "",
-          "test": "empty input"
-        },
-        {
-          "input": "13579",
-          "test": "5 digit number"
-        },
-        {
-          "input": "123456789011",
-          "test": "12 digit number"
-        },
-        {
-          "input": "+2 (468) 555-1379",
-          "test": "11 digit number not beginning with 1"
-        },
+      "exercise": "phone-number",
+      "version": "1.0.2",
+      "cases": [
         {
-          "input": "phone number",
-          "test": "not a number"
+          "description": "Cleanup user-entered phone numbers",
+          "comments": [
+            " Returns the cleaned phone number if given number is valid, "
+          , " else returns nil. Note that number is not formatted,       "
+          , " just a 10-digit number is returned.                        "
+          ],
+          "cases": [
+            {
+              "description": "cleans the number",
+              "property": "clean",
+              "phrase": "(123) 456-7890",
+              "expected": "1234567890"
+            },
+            {
+              "description": "cleans numbers with dots",
+              "property": "clean",
+              "phrase": "123.456.7890",
+              "expected": "1234567890"
+            },
+            {
+              "description": "cleans numbers with multiple spaces",
+              "property": "clean",
+              "phrase": "123 456   7890   ",
+              "expected": "1234567890"
+            },
+            {
+              "description": "invalid when 9 digits",
+              "property": "clean",
+              "phrase": "123456789",
+              "expected": null
+            },
+            {
+              "description": "invalid when 11 digits does not start with a 1",
+              "property": "clean",
+              "phrase": "21234567890",
+              "expected": null
+            },
+            {
+              "description": "valid when 11 digits and starting with 1",
+              "property": "clean",
+              "phrase": "11234567890",
+              "expected": "1234567890"
+            },
+            {
+              "description": "invalid when more than 11 digits",
+              "property": "clean",
+              "phrase": "321234567890",
+              "expected": null
+            },
+            {
+              "description": "invalid with letters",
+              "property": "clean",
+              "phrase": "123-abc-7890",
+              "expected": null
+            },
+            {
+              "description": "invalid with punctuations",
+              "property": "clean",
+              "phrase": "123-@:!-7890",
+              "expected": null
+            },
+            {
+              "description": "invalid with right number of digits but letters mixed in",
+              "property": "clean",
+              "phrase": "1a2b3c4d5e6f7g8h9i0j",
+              "expected": null
+            }
+          ]
         }
       ]
     }

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

@@ -1,9 +1,11 @@
-class Raindrops is export {
-    method convert (Int:D $num --> Str:D) {
-       my $str = '';
-       $str ~= "Pling" if $num % 3 == 0;
-       $str ~= "Plang" if $num % 5 == 0;
-       $str ~= "Plong" if $num % 7 == 0;
-       return $str ?? $str !! $num.Str;
-    }
+unit module Raindrops:ver<1>;
+
+sub convert (Int:D $num --> Str:D) is export {
+  my $str = '';
+  given $num {
+    when * %% 3 {$str ~= 'Pling'; proceed}
+    when * %% 5 {$str ~= 'Plang'; proceed}
+    when * %% 7 {$str ~= 'Plong'}
+  }
+  return $str ?? $str !! $num.Str;
 }

data/tracks/perl6/exercises/raindrops/Raindrops.pm6

@@ -0,0 +1,4 @@
+unit module Raindrops:ver<1>;
+
+sub convert ($num) is export {
+}

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

@@ -1,28 +1,161 @@
 #!/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 23;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Raindrops';
-use-ok $module;
-require ::($module) <Raindrops>;
+my $exercise = 'Raindrops';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 21;
 
-ok Raindrops.can('convert'), 'Class Raindrops has convert method';
+use-ok $module or bail-out;
+require ::($module);
 
-my @ints = 1, 8, 52;
-my @plings = 3, 6, 9, 27;
-my @plangs = 5, 10, 25, 3125;
-my @plongs = 7, 14, 49;
+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 = <&convert> };
+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;
+
+for @(my $c-data.<cases>) {
+  subtest {
+    plan 2;
+    is .<number>.&convert, |.<expected description>;
+    isa-ok .<number>.&convert, Str;
+  }
+}
+
+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;
 
-for @ints {
-  is Raindrops.convert($_), $_, "$_ is not a factor of 3, 5 or 7";
-  isa-ok Raindrops.convert($_), Str, "$_ gives a string";
+INIT {
+  $c-data := from-json ｢
+    {
+      "exercise": "raindrops",
+      "version": "1.0.0",
+      "cases": [
+        {
+          "description": "the sound for 1 is 1",
+          "property": "convert",
+          "number": 1,
+          "expected": "1"
+        },
+        {
+          "description": "the sound for 3 is Pling",
+          "property": "convert",
+          "number": 3,
+          "expected": "Pling"
+        },
+        {
+          "description": "the sound for 5 is Plang",
+          "property": "convert",
+          "number": 5,
+          "expected": "Plang"
+        },
+        {
+          "description": "the sound for 7 is Plong",
+          "property": "convert",
+          "number": 7,
+          "expected": "Plong"
+        },
+        {
+          "description": "the sound for 6 is Pling as it has a factor 3",
+          "property": "convert",
+          "number": 6,
+          "expected": "Pling"
+        },
+        {
+          "description": "2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base",
+          "property": "convert",
+          "number": 8,
+          "expected": "8"
+        },
+        {
+          "description": "the sound for 9 is Pling as it has a factor 3",
+          "property": "convert",
+          "number": 9,
+          "expected": "Pling"
+        },
+        {
+          "description": "the sound for 10 is Plang as it has a factor 5",
+          "property": "convert",
+          "number": 10,
+          "expected": "Plang"
+        },
+        {
+          "description": "the sound for 14 is Plong as it has a factor of 7",
+          "property": "convert",
+          "number": 14,
+          "expected": "Plong"
+        },
+        {
+          "description": "the sound for 15 is PlingPlang as it has factors 3 and 5",
+          "property": "convert",
+          "number": 15,
+          "expected": "PlingPlang"
+        },
+        {
+          "description": "the sound for 21 is PlingPlong as it has factors 3 and 7",
+          "property": "convert",
+          "number": 21,
+          "expected": "PlingPlong"
+        },
+        {
+          "description": "the sound for 25 is Plang as it has a factor 5",
+          "property": "convert",
+          "number": 25,
+          "expected": "Plang"
+        },
+        {
+          "description": "the sound for 27 is Pling as it has a factor 3",
+          "property": "convert",
+          "number": 27,
+          "expected": "Pling"
+        },
+        {
+          "description": "the sound for 35 is PlangPlong as it has factors 5 and 7",
+          "property": "convert",
+          "number": 35,
+          "expected": "PlangPlong"
+        },
+        {
+          "description": "the sound for 49 is Plong as it has a factor 7",
+          "property": "convert",
+          "number": 49,
+          "expected": "Plong"
+        },
+        {
+          "description": "the sound for 52 is 52",
+          "property": "convert",
+          "number": 52,
+          "expected": "52"
+        },
+        {
+          "description": "the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7",
+          "property": "convert",
+          "number": 105,
+          "expected": "PlingPlangPlong"
+        },
+        {
+          "description": "the sound for 3125 is Plang as it has a factor 5",
+          "property": "convert",
+          "number": 3125,
+          "expected": "Plang"
+        }
+      ]
+    }
+  ｣
 }
-is Raindrops.convert($_), 'Pling', "$_ is a factor of 3, not 5 or 7" for @plings;
-is Raindrops.convert($_), 'Plang', "$_ is a factor of 5, not 3 or 7" for @plangs;
-is Raindrops.convert($_), 'Plong', "$_ is a factor of 7, not 3 or 5" for @plongs;
-is Raindrops.convert(15), 'PlingPlang', '15 is a factor of 3 and 5, not 7';
-is Raindrops.convert(21), 'PlingPlong', '21 is a factor of 3 and 7, not 5';
-is Raindrops.convert(35), 'PlangPlong', '35 is a factor of 5 and 7, not 3';
-is Raindrops.convert(105), 'PlingPlangPlong', '105 is a factor of 3, 5 and 7';

data/tracks/perl6/exercises/rna-transcription/Example.pm

@@ -1,8 +1,6 @@
-class RNA_Transcription is export {
-    method to_rna ($dna) {
-        $dna.trans( 'A' => 'U',
-                    'G' => 'C',
-                    'C' => 'G',
-                    'T' => 'A');
-    }
+unit module RNA:ver<1>;
+
+sub to-rna ($dna) is export {
+  fail if $dna ~~ /<-[AGCT]>/;
+  $dna.trans(<A G C T> => <U C G A>);
 }