Sha256: 284483e651c50d672a3426c113d39f135fb77547a63406d7b48bf7be7c30a3d4
Contents?: true
Size: 761 Bytes
Versions: 54
Compression:
Stored size: 761 Bytes
Contents
open Core.Std
open OUnit2
open Run_length_encoding
let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
let (* SUITE run-length_encode_a_string *)encode_tests = [
(* TEST
"$description" >::
ae $expected (encode $input);
END TEST *)
]
(* END SUITE *)
let (* SUITE run-length_decode_a_string *)decode_tests = [
(* TEST
"$description" >::
ae $expected (decode $input);
END TEST *)
]
(* END SUITE *)
let (* SUITE encode_and_then_decode *)encode_and_then_decode_tests = [
(* TEST
"$description" >::
ae $expected (encode $input |> decode);
END TEST *)
]
(* END SUITE *)
let () =
run_test_tt_main (
"run length encoding tests" >:::
List.concat [encode_tests; decode_tests; encode_and_then_decode_tests]
)
Version data entries
54 entries across 54 versions & 1 rubygems