TheRealSamuel/LeetCodeProblem
0564
1 2module Main = struct3 open OUnit24 5 (* Program start *)6 7 (* Program end *)8 9 (* Test cases *)10 11let test1 _ = assert_equal 2 (addMinimum "b")12 13let test2 _ = assert_equal 6 (addMinimum "aaa")14 15let test3 _ = assert_equal 0 (addMinimum "abc")16 17 18 (* Grouping test cases *)19 let suite = "Test Suite for addMinimum" >::: [20 21 "test1" >:: test1;22 "test2" >:: test2;23 "test3" >:: test3;24 ]25 26 27 (* Running the tests *)28 let () = run_test_tt_main suite29end30 