Sha256: 29fb2cc652a9377f885e22212207934e41af2782b46e08f01844e294f103b3d4
Contents?: true
Size: 612 Bytes
Versions: 81
Compression:
Stored size: 612 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:$input_min ~max:$input_max);
END TEST *)
]
let () =
ignore @@ run_test_tt_main ("palindrome product tests" >::: tests)
Version data entries
81 entries across 81 versions & 1 rubygems