Sha256: 5efc1677455d450d54ceb47935db153b610b8d13d858c6115a783671480ad078

Contents?: true

Size: 1.64 KB

Versions: 49

Compression:

Stored size: 1.64 KB

Contents

open Core.Std
open OUnit2
open Word_count

module SMap = String.Map

let ae exp got _test_ctxt =
  let printer m = SMap.sexp_of_t Int.sexp_of_t m |> Sexp.to_string_hum ~indent:1 in
  assert_equal (SMap.of_alist_exn exp) got ~cmp:(SMap.equal (=)) ~printer

let tests = [
   "count one word" >::
      ae [("word", 1)]
         (word_count "word");
   "count one of each word" >::
      ae [("one", 1); ("of", 1); ("each", 1)]
         (word_count "one of each");
   "multiple occurrences of a word" >::
      ae [("one", 1); ("fish", 4); ("two", 1); ("red", 1); ("blue", 1)]
         (word_count "one fish two fish red fish blue fish");
   "handles cramped lists" >::
      ae [("one", 1); ("two", 1); ("three", 1)]
         (word_count "one,two,three");
   "handles expanded lists" >::
      ae [("one", 1); ("two", 1); ("three", 1)]
         (word_count "one,\ntwo,\nthree");
   "ignore punctuation" >::
      ae [("car", 1); ("carpet", 1); ("as", 1); ("java", 1); ("javascript", 1)]
         (word_count "car: carpet as java: javascript!!&@$%^&");
   "include numbers" >::
      ae [("testing", 2); ("1", 1); ("2", 1)]
         (word_count "testing, 1, 2 testing");
   "normalize case" >::
      ae [("go", 3); ("stop", 2)]
         (word_count "go Go GO Stop stop");
   "with apostrophes" >::
      ae [("first", 1); ("don't", 2); ("laugh", 1); ("then", 1); ("cry", 1)]
         (word_count "First: don't laugh. Then: don't cry.");
   "with quotations" >::
      ae [("joe", 1); ("can't", 1); ("tell", 1); ("between", 1); ("large", 2); ("and", 1)]
         (word_count "Joe can't tell between 'large' and large.");
]

let () =
  run_test_tt_main ("word_count tests" >::: tests)

Version data entries

49 entries across 49 versions & 1 rubygems

Version Path
trackler-2.1.0.12 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.11 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.10 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.9 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.8 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.7 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.6 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.5 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.4 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.3 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.2 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.1 tracks/ocaml/exercises/word-count/test.ml
trackler-2.1.0.0 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.55 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.54 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.53 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.52 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.51 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.50 tracks/ocaml/exercises/word-count/test.ml
trackler-2.0.8.49 tracks/ocaml/exercises/word-count/test.ml