Sha256: 622e2ad2f5b1b7721865e7bd2629f4335abfe5035d6bc678f9c41d0d9bca1293
Contents?: true
Size: 690 Bytes
Versions: 63
Compression:
Stored size: 690 Bytes
Contents
open OUnit2
open Atbash_cipher
let ae exp got _test_ctxt = assert_equal ~printer:(fun x -> x) exp got
let (* SUITE encode *)encode_tests = [
(* TEST
"$description" >::
ae $expected (encode $phrase);
END TEST *)
]
(* END SUITE *)
let (* SUITE decode *)decode_tests = [
(* TEST
"$description" >::
ae $expected (decode $phrase);
END TEST *)
]
(* END SUITE *)
let different_block_size_test = [
"encode mindblowingly with a different block size" >::
ae "n r m w y o l d r m t o b" (encode ~block_size:1 "mindblowingly");
]
let () =
run_test_tt_main (
"atbash-cipher tests" >:::
List.concat [encode_tests; decode_tests; different_block_size_test]
)
Version data entries
63 entries across 63 versions & 1 rubygems