Sha256: e4d41e963a1d3ccefb8b95c8a9c38bd725c8cde402de80c24a4ad57a84a5d584
Contents?: true
Size: 600 Bytes
Versions: 70
Compression:
Stored size: 600 Bytes
Contents
open OUnit
open Palindrome_products
let show_result printer = function
| Error e -> "Error " ^ e
| Ok a -> "Ok " ^ printer a
let eq_results eq x y = match (x, y) with
| (Error e1, Error e2) -> String.equal e1 e2
| (Ok x, Ok y) -> eq x y
| _ -> false
let ae exp got _test_ctxt =
assert_equal ~printer:(show_result show_palindrome_products) ~cmp:(eq_results equal_palindrome_products) exp got
let tests = [
(* TEST
"$description" >::
ae ($expected)
($property ~min:$min ~max:$max);
END TEST *)
]
let () =
ignore @@ run_test_tt_main ("palindrome product tests" >::: tests)
Version data entries
70 entries across 70 versions & 1 rubygems