Sha256: 63a363977df99921814a15beaf89d4a5325a022c2b78a8cce79e3a455765a9b8
Contents?: true
Size: 619 Bytes
Versions: 140
Compression:
Stored size: 619 Bytes
Contents
open Core.Std
open OUnit2
open Say
let ae exp got _ctx = assert_equal ~printer:(Option.value ~default:"None") exp got
let tests = [
(* TEST
"$description" >:: (
ae $expected
(in_english $input));
END TEST *)
"all numbers from 1 to 10_000 can be spelt">::(fun _ ->
assert_bool "range test" (Sequence.range 0 10_000
|> Sequence.map ~f:(fun n -> Int64.of_int n |> in_english)
|> Sequence.filter ~f:(Option.is_none)
|> Sequence.is_empty));
]
let () =
run_test_tt_main ("say tests" >::: tests)
Version data entries
140 entries across 140 versions & 1 rubygems