aboutsummaryrefslogtreecommitdiff
path: root/motus/test
diff options
context:
space:
mode:
Diffstat (limited to 'motus/test')
-rw-r--r--motus/test/motus_test.ml10
1 files changed, 8 insertions, 2 deletions
diff --git a/motus/test/motus_test.ml b/motus/test/motus_test.ml
index 4ea952e..0586ffe 100644
--- a/motus/test/motus_test.ml
+++ b/motus/test/motus_test.ml
@@ -37,14 +37,20 @@ let tests =
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:"Test") )
+ (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:"ABC") )
+ (Validity.compare_words "DAC" ~ref) )
]