raku/word-count/word-count.rakutest


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
3#!/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