(* test for brope.ml, q.v. *) let ok a b = assert (a = b) let () = ok (Brope.length Brope.empty) 0 let () = ok (Brope.length (Brope.of_string "test")) 4 let () = print_string "tests ok\n"