stringとかfloatとかintとかboolに対しては、printerがすでに用意されているOUnit.assert_equal。 let assert_eq msg expected actual = let printer x = let tag = Obj.tag (Obj.repr x) in if tag = Obj.int_tag then string_of_int (Obj.magic x) else if…