Added an another engine for motus, using entropy instead of frequencies only

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) )
        ]