Sha256: 26f06a76d162bb2a76c24f17a1af2dbb47d2528c0fcbf68c08e92dd4d9db7086
Contents?: true
Size: 760 Bytes
Versions: 63
Compression:
Stored size: 760 Bytes
Contents
open Base
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 $string);
END TEST *)
]
(* END SUITE *)
let (* SUITE run-length_decode_a_string *)decode_tests = [
(* TEST
"$description" >::
ae $expected (decode $string);
END TEST *)
]
(* END SUITE *)
let (* SUITE encode_and_then_decode *)encode_and_then_decode_tests = [
(* TEST
"$description" >::
ae $expected (encode $string |> 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
63 entries across 63 versions & 1 rubygems