swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
unikernel/duniverse/base/test/test_ordering.ml Normal file
View file

@ -0,0 +1,13 @@
open! Import
open! Ordering
let%test _ = equal (of_int (-10)) Less
let%test _ = equal (of_int (-1)) Less
let%test _ = equal (of_int 0) Equal
let%test _ = equal (of_int 1) Greater
let%test _ = equal (of_int 10) Greater
let%test _ = equal (of_int (Int.compare 0 1)) Less
let%test _ = equal (of_int (Int.compare 1 1)) Equal
let%test _ = equal (of_int (Int.compare 1 0)) Greater
let%test _ = List.for_all all ~f:(fun t -> equal t (t |> to_int |> of_int))
let%test _ = List.for_all [ -1; 0; 1 ] ~f:(fun i -> i = (i |> of_int |> to_int))