trackler 2.0.8.28 → 2.0.8.29

data/tracks/perl6/exercises/word-count/Example.pm

@@ -1,9 +1,5 @@
-class Word_Counter is export {
-    method count_words ($text) {
-        my %word_counts;
-        for $text.comb(/\w+/) {
-            %word_counts{$_.lc}++;
-        }
-        %word_counts;
-    }
+unit module WordCount:ver<1>;
+
+sub count-words (Str:D $str --> Hash:D) is export {
+  $str.lc.comb(/ <alnum>+ (\'<alnum>+)? /).Bag.hash
 }

data/tracks/perl6/exercises/word-count/WordCount.pm6

@@ -0,0 +1,4 @@
+unit module WordCount:ver<1>;
+
+sub count-words ($str) is export {
+}

data/tracks/perl6/exercises/word-count/word-count.t

@@ -1,24 +1,157 @@
 #!/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 8;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Word_Counter';
-use-ok $module;
-require ::($module) <Word_Counter>;
+my $exercise = 'WordCount';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 13;
 
-ok Word_Counter.can('count_words'), 'Class Word_Counter has count_words method';
+use-ok $module or bail-out;
+require ::($module);
 
-is-deeply Word_Counter.count_words('word'),                                {word =>  1},                    'one word';
-is-deeply Word_Counter.count_words('one of each'),                         {one => 1, of => 1, each => 1},  'one of each';
-is-deeply Word_Counter.count_words('one fish two fish red fish blue fish'), 
-    {one => 1, fish => 4, two => 1, red => 1, blue => 1}, 
-    'multiple occurences';
-is-deeply Word_Counter.count_words('car : carpet as java : javascript!!&@$%^&'), 
-    {car => 1, carpet => 1, as => 1, java => 1, javascript => 1},
-    'ignore punctuation';
-is-deeply Word_Counter.count_words('testing, 1, 2 testing'),               {testing => 2, 1 => 1, 2 => 1}, 'include numbers';
-is-deeply Word_Counter.count_words('go Go GO'),                            {go => 3},                       'normalize case';
+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 = <&count-words> };
+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;
 
+is-deeply (% = .<input>.&count-words), |.<expected description> for @(my $c-data.<cases>);
+
+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 {
+  $c-data := from-json ｢
+    {
+      "exercise": "word-count",
+      "version": "1.0.0",
+      "comments": [
+        "For each word in the input, count the number of times it appears in the",
+        "entire sentence."
+      ],
+      "cases": [
+        {
+          "description": "count one word",
+          "property": "countwords",
+          "input": "word",
+          "expected": {
+            "word": 1
+          }
+        },
+        {
+          "description": "count one of each word",
+          "property": "countwords",
+          "input": "one of each",
+          "expected": {
+            "one": 1,
+            "of": 1,
+            "each": 1
+          }
+        },
+        {
+          "description": "multiple occurrences of a word",
+          "property": "countwords",
+          "input": "one fish two fish red fish blue fish",
+          "expected": {
+            "one": 1,
+            "fish": 4,
+            "two": 1,
+            "red": 1,
+            "blue": 1
+          }
+        },
+        {
+          "description": "handles cramped lists",
+          "property": "countwords",
+          "input": "one,two,three",
+          "expected": {
+            "one": 1,
+            "two": 1,
+            "three": 1
+          }
+        },
+        {
+          "description": "handles expanded lists",
+          "property": "countwords",
+          "input": "one,\ntwo,\nthree",
+          "expected": {
+            "one": 1,
+            "two": 1,
+            "three": 1
+          }
+        },
+        {
+          "description": "ignore punctuation",
+          "property": "countwords",
+          "input": "car: carpet as java: javascript!!&@$%^&",
+          "expected": {
+            "car": 1,
+            "carpet": 1,
+            "as": 1,
+            "java": 1,
+            "javascript": 1
+          }
+        },
+        {
+          "description": "include numbers",
+          "property": "countwords",
+          "input": "testing, 1, 2 testing",
+          "expected": {
+            "testing": 2,
+            "1": 1,
+            "2": 1
+          }
+        },
+        {
+          "description": "normalize case",
+          "property": "countwords",
+          "input": "go Go GO Stop stop",
+          "expected": {
+            "go": 3,
+            "stop": 2
+          }
+        },
+        {
+          "description": "with apostrophes",
+          "property": "countwords",
+          "input": "First: don't laugh. Then: don't cry.",
+          "expected": {
+            "first": 1,
+            "don't": 2,
+            "laugh": 1,
+            "then": 1,
+            "cry": 1
+          }
+        },
+        {
+          "description": "with quotations",
+          "property": "countwords",
+          "input": "Joe can't tell between 'large' and large.",
+          "expected": {
+            "joe": 1,
+            "can't": 1,
+            "tell": 1,
+            "between": 1,
+            "large": 2,
+            "and": 1
+          }
+        }
+      ]
+    }
+  ｣
+}

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

@@ -1,16 +1,16 @@
-sub answer($q is copy)  is export { 
+unit module Wordy:ver<1>;
 
-    given $q {
-        s:s:g/^What is|\?$//;
-        s:g/plus/+/;
-        s:g/minus/-/;
-
-        loop {
-            last unless s:s/(.*) multiplied by/($0)*/
-                     or s:s,(.*) divided by,($0)/,;
-        }
+sub answer ($q is copy) is export { 
+  given $q {
+    s:s:g/^What is|\?$//;
+    s:g/plus/+/;
+    s:g/minus/−/;
+    loop {
+      last unless
+        s:s/(.*) multiplied by/($0)×/
+        or s:s/(.*) divided by/($0)÷/;
     }
-
-    use MONKEY-SEE-NO-EVAL;
-    return EVAL $q;
+  }
+  use MONKEY-SEE-NO-EVAL;
+  EVAL $q or fail;
 }

data/tracks/perl6/exercises/wordy/Wordy.pm6

@@ -0,0 +1,4 @@
+unit module Wordy:ver<1>;
+
+sub answer ($question) is export { 
+}

data/tracks/perl6/exercises/wordy/wordy.t

@@ -1,111 +1,154 @@
 #!/usr/bin/env perl6
-
+use v6;
 use Test;
+use lib my $dir = $?FILE.IO.dirname;
 use JSON::Tiny;
 
-use lib $?FILE.IO.dirname;
+my $exercise = 'Wordy';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 19;
 
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Wordy';
-require ::($module) <&answer>;
+use-ok $module or bail-out;
+require ::($module);
 
-plan 16;
+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>;
+}
 
-for my @cases -> %case {
-    with %case<expected> {
-        is answer(%case<input>), |%case<expected description>
-            or diag 'input: ' ~ %case<input>;
-    }
-    without %case<expected> {
-        dies-ok { answer(%case<input>) }, %case<description>
-            or diag 'input: ' ~ %case<input>;
-    }
+my @subs;
+BEGIN { @subs = <&answer> };
+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>) {
+  if .<expected> === False {
+    throws-like {.<input>.&answer}, Exception, .<description>;
+  } else {
+    is .<input>.&answer, |.<expected 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 ｢
-    [
-      {
-        "description": "addition",
-        "input": "What is 1 plus 1?",
-        "expected": 2
-      },
-      {
-        "description": "more addition",
-        "input": "What is 53 plus 2?",
-        "expected": 55
-      },
-      {
-        "description": "addition with negative numbers",
-        "input": "What is -1 plus -10?",
-        "expected": -11
-      },
-      {
-        "description": "large addition",
-        "input": "What is 123 plus 45678?",
-        "expected": 45801
-      },
-      {
-        "description": "subtraction",
-        "input": "What is 4 minus -12?",
-        "expected": 16
-      },
-      {
-        "description": "multiplication",
-        "input": "What is -3 multiplied by 25?",
-        "expected": -75
-      },
-      {
-        "description": "division",
-        "input": "What is 33 divided by -3?",
-        "expected": -11
-      },
-      {
-        "description": "multiple additions",
-        "input": "What is 1 plus 1 plus 1?",
-        "expected": 3
-      },
-      {
-        "description": "addition and subtraction",
-        "input": "What is 1 plus 5 minus -2?",
-        "expected": 8
-      },
-      {
-        "description": "multiple subtraction",
-        "input": "What is 20 minus 4 minus 13?",
-        "expected": 3
-      },
-      {
-        "description": "subtraction then addition",
-        "input": "What is 17 minus 6 plus 3?",
-        "expected": 14
-      },
-      {
-        "description": "multiple multiplication",
-        "input": "What is 2 multiplied by -2 multiplied by 3?",
-        "expected": -12
-      },
-      {
-        "description": "addition and multiplication",
-        "input": "What is -3 plus 7 multiplied by -2?",
-        "expected": -8
-      },
-      {
-        "description": "multiple division",
-        "input": "What is -12 divided by 2 divided by -3?",
-        "expected": 2
-      },
-      {
-        "description": "unknown operation",
-        "input": "What is 52 cubed?",
-        "expected": null
-      },
-      {
-        "description": "Non math question",
-        "input": "Who is the President of the United States?",
-        "expected": null
-      }
-    ]
+  $c-data := from-json ｢
+    {
+      "exercise": "wordy",
+      "version": "1.0.0",
+      "comments": [
+        "The tests that expect 'false' should be implemented to raise",
+        "an error, or indicate a failure. Implement this in a way that",
+        "makes sense for your language."
+      ],
+      "cases": [
+        {
+          "description": "addition",
+          "property": "answer",
+          "input": "What is 1 plus 1?",
+          "expected": 2
+        },
+        {
+          "description": "more addition",
+          "property": "answer",
+          "input": "What is 53 plus 2?",
+          "expected": 55
+        },
+        {
+          "description": "addition with negative numbers",
+          "property": "answer",
+          "input": "What is -1 plus -10?",
+          "expected": -11
+        },
+        {
+          "description": "large addition",
+          "property": "answer",
+          "input": "What is 123 plus 45678?",
+          "expected": 45801
+        },
+        {
+          "description": "subtraction",
+          "property": "answer",
+          "input": "What is 4 minus -12?",
+          "expected": 16
+        },
+        {
+          "description": "multiplication",
+          "property": "answer",
+          "input": "What is -3 multiplied by 25?",
+          "expected": -75
+        },
+        {
+          "description": "division",
+          "property": "answer",
+          "input": "What is 33 divided by -3?",
+          "expected": -11
+        },
+        {
+          "description": "multiple additions",
+          "property": "answer",
+          "input": "What is 1 plus 1 plus 1?",
+          "expected": 3
+        },
+        {
+          "description": "addition and subtraction",
+          "property": "answer",
+          "input": "What is 1 plus 5 minus -2?",
+          "expected": 8
+        },
+        {
+          "description": "multiple subtraction",
+          "property": "answer",
+          "input": "What is 20 minus 4 minus 13?",
+          "expected": 3
+        },
+        {
+          "description": "subtraction then addition",
+          "property": "answer",
+          "input": "What is 17 minus 6 plus 3?",
+          "expected": 14
+        },
+        {
+          "description": "multiple multiplication",
+          "property": "answer",
+          "input": "What is 2 multiplied by -2 multiplied by 3?",
+          "expected": -12
+        },
+        {
+          "description": "addition and multiplication",
+          "property": "answer",
+          "input": "What is -3 plus 7 multiplied by -2?",
+          "expected": -8
+        },
+        {
+          "description": "multiple division",
+          "property": "answer",
+          "input": "What is -12 divided by 2 divided by -3?",
+          "expected": 2
+        },
+        {
+          "description": "unknown operation",
+          "property": "answer",
+          "input": "What is 52 cubed?",
+          "expected": false
+        },
+        {
+          "description": "Non math question",
+          "property": "answer",
+          "input": "Who is the President of the United States?",
+          "expected": false
+        }
+      ]
+    }
   ｣
 }