Sha256: bcd533a0809fc31ddefb35ab5f372cfb46cc1a2fc4b25ffdb8bd6eb60f457300
Contents?: true
Size: 1.19 KB
Versions: 90
Compression:
Stored size: 1.19 KB
Contents
open Core.Std
open OUnit2
open Pangram
let ae exp got _test_ctxt = assert_equal ~printer:Bool.to_string exp got
let tests = [
"sentence empty" >::
ae false (is_pangram "");
"pangram with only lower case" >::
ae true (is_pangram "the quick brown fox jumps over the lazy dog");
"missing character 'x'" >::
ae false (is_pangram "a quick movement of the enemy will jeopardize five gunboats");
"another missing character 'x'" >::
ae false (is_pangram "the quick brown fish jumps over the lazy dog");
"pangram with underscores" >::
ae true (is_pangram "the_quick_brown_fox_jumps_over_the_lazy_dog");
"pangram with numbers" >::
ae true (is_pangram "the 1 quick brown fox jumps over the 2 lazy dogs");
"missing letters replaced by numbers" >::
ae false (is_pangram "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog");
"pangram with mixed case and punctuation" >::
ae true (is_pangram "\"Five quacking Zephyrs jolt my wax bed.\"");
"upper and lower case versions of the same character should not be counted separately" >::
ae false (is_pangram "the quick brown fox jumped over the lazy FOX");
]
let () =
run_test_tt_main ("pangram tests" >::: tests)
Version data entries
90 entries across 90 versions & 1 rubygems