FPEvalDataset/LeetCodeProblem
0304
1 2module Main = struct3 open OUnit24 5 (* Program start *)6 7 (* Program end *)8 9 (* Test cases *)10 11let test1 _ = assert_equal 4 (partitionString "abacaba")12 13let test2 _ = assert_equal 6 (partitionString "ssssss")14 15 16 (* Grouping test cases *)17 let suite = "Test Suite for partitionString" >::: [18 19 "test1" >:: test1;20 "test2" >:: test2;21 ]22 23 24 (* Running the tests *)25 let () = run_test_tt_main suite26end27 