OCamlでassertを使って簡易にテストを書きたい

ユニットテスト用のライブラリ等を使わず assert を使って簡易にテストを行うこともできる。

code:main.ml

let add n1 n2 = n1 + n2

let () =

assert((add 10 10) = 20);

assert((add 10 20) = 30);

print_endline "ok"

成功時

code:sh

$ ocaml main.ml

失敗時

code:sh

$ ocaml main.ml

Exception: Assert_failure ("./bin/main.ml", 4, 2).