blob: c07ec293f067277d2a0df2af46c82ecdc999eef6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
open Utest
let eq0 = mk_bool_test "clib-inteq0"
"Int.equal on 0"
(Int.equal 0 0)
let eq42 = mk_bool_test "clib-inteq42"
"Int.equal on 42"
(Int.equal 42 42)
let tests = [ eq0; eq42 ]
let _ = run_tests __FILE__ tests
|