test/assrt.ml

   1 let equals_int = Assert.assert_equals_int
   2 let equals_float name eps exp fou = Assert.assert_equals_float name exp fou eps
   3 let equals_string = Assert.assert_equals_string
   4
   5 let equals_uri l e f =
   6   let e = e |> Uri.to_string
   7   and f = f |> Uri.to_string in
   8   equals_string l e f
   9
  10 let equals_int32 l e f =
  11   let e = e |> Int32.to_string
  12   and f = f |> Int32.to_string in
  13   equals_string l e f
  14
  15 let equals_optint l e f =
  16   let e = e |> Optint.to_string
  17   and f = f |> Optint.to_string in
  18   equals_string l e f
  19
  20 let equals_none l v =
  21   (match v with
  22    | None -> "None"
  23    | Some _ -> "Some ..."
  24   ) |> equals_string l "None"