unikernel/duniverse/base/test/test_fn.ml

@@ -0,0 +1,10 @@
+open! Import
+open! Fn
+
+(* enforce that we're testing [Fn.(|>)] and not ppx_pipebang. *)
+let (_ : 'a -> ('a -> 'b) -> 'b) = ( |> )
+let%test _ = 1 |> fun x -> x = 1
+let%test _ = 1 |> fun x -> x + 1 |> fun y -> y = 2
+let%test _ = 0 = apply_n_times ~n:0 (fun _ -> assert false) 0
+let%test _ = 0 = apply_n_times ~n:(-3) (fun _ -> assert false) 0
+let%test _ = 10 = apply_n_times ~n:10 (( + ) 1) 0