2025-11-11 02:07:51 +01:00 · 2025-11-11 02:07:51 +01:00 · 2f3113f55d
commit 2f3113f55d
parent aa2ff7b2f0
11742 changed files with 1223940 additions and 0 deletions
--- a/unikernel/duniverse/base/test/test_base.ml
+++ b/unikernel/duniverse/base/test/test_base.ml
@ -0,0 +1,17 @@
+open! Import
+
+let%expect_test _ =
+  let f x = x * 2 in
+  let g x = x + 3 in
+  print_s [%sexp (f @@ 5 : int)];
+  [%expect {| 10 |}];
+  print_s [%sexp (g @@ f @@ 5 : int)];
+  [%expect {| 13 |}];
+  print_s [%sexp (f @@ g @@ 5 : int)];
+  [%expect {| 16 |}]
+;;
+
+let%expect_test "exp is present at the toplevel" =
+  print_s [%sexp (2 ** 8 : int)];
+  [%expect {| 256 |}]
+;;