Sha256: 9b8970df35e8fbc285b3276809485af04a2f4e22d87fdd3e3173bceb60b2f3cb
Contents?: true
Size: 1.38 KB
Versions: 68
Compression:
Stored size: 1.38 KB
Contents
(* Test/exercise version: "1.0.0" *)
open OUnit2
open Etl
let ae exp got _test_ctxt =
let printer xs = String.concat ";" (List.map (fun (ch, n) -> Printf.sprintf "(%c,%d)" ch n) xs) in
assert_equal exp got ~printer
let tests = [
"a single letter" >::
ae [('a', 1)]
(transform [(1, ['A'])]);
"single score with multiple letters" >::
ae [('a', 1); ('e', 1); ('i', 1); ('o', 1); ('u', 1)]
(transform [(1, ['A'; 'E'; 'I'; 'O'; 'U'])]);
"multiple scores with multiple letters" >::
ae [('a', 1); ('d', 2); ('e', 1); ('g', 2)]
(transform [(1, ['A'; 'E']); (2, ['D'; 'G'])]);
"multiple scores with differing numbers of letters" >::
ae [('a', 1); ('b', 3); ('c', 3); ('d', 2); ('e', 1);
('f', 4); ('g', 2); ('h', 4); ('i', 1); ('j', 8);
('k', 5); ('l', 1); ('m', 3); ('n', 1); ('o', 1);
('p', 3); ('q', 10); ('r', 1); ('s', 1); ('t', 1);
('u', 1); ('v', 4); ('w', 4); ('x', 8); ('y', 4);
('z', 10)]
(transform [(1, ['A'; 'E'; 'I'; 'O'; 'U'; 'L'; 'N'; 'R'; 'S'; 'T']);
(2, ['D'; 'G']);
(3, ['B'; 'C'; 'M'; 'P']);
(4, ['F'; 'H'; 'V'; 'W'; 'Y']);
(5, ['K']);
(8, ['J'; 'X']);
(10, ['Q'; 'Z'])]);
]
let () =
run_test_tt_main ("etl tests" >::: tests)
Version data entries
68 entries across 68 versions & 1 rubygems