1 files changed, 184 insertions, 0 deletions
diff --git a/raku/word-count/word-count.rakutest b/raku/word-count/word-count.rakutest
new file mode 100644
index 0000000..45158aa
--- /dev/null
+++ b/raku/word-count/word-count.rakutest
@@ -0,0 +1,184 @@
+#!/usr/bin/env raku
+use Test;
+use JSON::Fast;
+use lib $?FILE.IO.dirname;
+use WordCount;
+plan 13;
+
+my @test-cases = from-json($=pod.pop.contents).List;
+for @test-cases -> %case {
+  cmp-ok count-words(%case<input><sentence>),
+    '~~', %case<expected>.Bag, %case<description>;
+}
+
+=head2 Test Cases
+=begin code
+[
+  {
+    "description": "count one word",
+    "expected": {
+      "word": 1
+    },
+    "input": {
+      "sentence": "word"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "count one of each word",
+    "expected": {
+      "each": 1,
+      "of": 1,
+      "one": 1
+    },
+    "input": {
+      "sentence": "one of each"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "multiple occurrences of a word",
+    "expected": {
+      "blue": 1,
+      "fish": 4,
+      "one": 1,
+      "red": 1,
+      "two": 1
+    },
+    "input": {
+      "sentence": "one fish two fish red fish blue fish"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "handles cramped lists",
+    "expected": {
+      "one": 1,
+      "three": 1,
+      "two": 1
+    },
+    "input": {
+      "sentence": "one,two,three"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "handles expanded lists",
+    "expected": {
+      "one": 1,
+      "three": 1,
+      "two": 1
+    },
+    "input": {
+      "sentence": "one,\ntwo,\nthree"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "ignore punctuation",
+    "expected": {
+      "as": 1,
+      "car": 1,
+      "carpet": 1,
+      "java": 1,
+      "javascript": 1
+    },
+    "input": {
+      "sentence": "car: carpet as java: javascript!!&@$%^&"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "include numbers",
+    "expected": {
+      "1": 1,
+      "2": 1,
+      "testing": 2
+    },
+    "input": {
+      "sentence": "testing, 1, 2 testing"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "normalize case",
+    "expected": {
+      "go": 3,
+      "stop": 2
+    },
+    "input": {
+      "sentence": "go Go GO Stop stop"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "with apostrophes",
+    "expected": {
+      "cry": 1,
+      "don't": 2,
+      "first": 1,
+      "laugh": 1,
+      "then": 1
+    },
+    "input": {
+      "sentence": "First: don't laugh. Then: don't cry."
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "with quotations",
+    "expected": {
+      "and": 1,
+      "between": 1,
+      "can't": 1,
+      "joe": 1,
+      "large": 2,
+      "tell": 1
+    },
+    "input": {
+      "sentence": "Joe can't tell between 'large' and large."
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "substrings from the beginning",
+    "expected": {
+      "a": 1,
+      "and": 1,
+      "app": 1,
+      "apple": 1,
+      "between": 1,
+      "can't": 1,
+      "joe": 1,
+      "tell": 1
+    },
+    "input": {
+      "sentence": "Joe can't tell between app, apple and a."
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "multiple spaces not detected as a word",
+    "expected": {
+      "multiple": 1,
+      "whitespaces": 1
+    },
+    "input": {
+      "sentence": " multiple   whitespaces"
+    },
+    "property": "countWords"
+  },
+  {
+    "description": "alternating word separators not detected as a word",
+    "expected": {
+      "one": 1,
+      "three": 1,
+      "two": 1
+    },
+    "input": {
+      "sentence": ",\n,one,\n ,two \n 'three'"
+    },
+    "property": "countWords"
+  }
+]
+=end code