diff options
Diffstat (limited to 'motus/test/motus_test.ml')
| -rw-r--r-- | motus/test/motus_test.ml | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/motus/test/motus_test.ml b/motus/test/motus_test.ml index 0586ffe..717db21 100644 --- a/motus/test/motus_test.ml +++ b/motus/test/motus_test.ml @@ -1,8 +1,8 @@ -module Validity = Motus_lib.Validity open StdLabels open OUnit2 +open Motus_lib -let tests = +let validiy_tests = "validity test suite" >::: [ ( "Sequence of elements" >:: fun _ -> @@ -35,23 +35,8 @@ let tests = in assert_equal 243 count ) - ; ( "Compare words 1" - >:: fun _ -> - let w = "Test" in - - let ref = (w, Validity.CharSet.of_seq (String.to_seq w)) in - - assert_equal - (Some Validity.[| Wellplaced; Wellplaced; Wellplaced; Wellplaced |]) - (Validity.compare_words "Test" ~ref) ) - ; ( "Compare words 2" - >:: fun _ -> - let w = "ABC" in - let ref = (w, Validity.CharSet.of_seq (String.to_seq w)) in - assert_equal - (Some Validity.[| Missing; Misplaced; Wellplaced |]) - (Validity.compare_words "DAC" ~ref) ) ] -let _ = run_test_tt_main tests +let _ = + run_test_tt_main ("main tests" >::: [ validiy_tests; Entropy_tests.tests ]) |