exercism/ocaml/hello-world/test.ml

14 lines
276 B
OCaml
Raw Normal View History

2017-08-12 14:01:07 +00:00
(* Test/exercise version: "1.0.0" *)
open Core
open OUnit2
open Hello_world
let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
let tests = [
"Say Hi!" >:: ae "Hello, World!" hello;
]
let () =
run_test_tt_main ("Hello World tests" >::: tests)