CS计算机代考程序代写 open OUnit2

open OUnit2
open Disc3

let test_sanity _ =
assert_equal “abc” (concat “ab” “c”) ~msg:”Custom error message”

let suite =
“student” >::: [
“sanity” >:: test_sanity
]

let _ = run_test_tt_main suite