simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

another test, using more Bij features

Browse source
This commit is contained in:
Simon Cruanes 2013-05-15 12:29:45 +02:00
parent 5701df09ad
commit 1fa268138e
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/test_bij.ml
View file

@ -78,6 +78,14 @@ let test_term_random ?(depth=5) n () =
OUnit.assert_equal t t' OUnit.assert_equal t t'
done done
let test_complicated () =
let bij = triple int_ (pair bool_ (many float_))
(map ~inject:(fun (a,b) -> (b,a)) ~extract:(fun (b,a) -> a,b) (pair int_ bool_)) in
let x = (1, (true, [1.; 2.; 3.]), (false, 42)) in
let s = SexpStr.to_string ~bij x in
let x' = SexpStr.of_string ~bij s in
OUnit.assert_equal x x'
let suite = let suite =
"test_bij" >::: "test_bij" >:::
[ "test_int2" >:: test_int2; [ "test_int2" >:: test_int2;
@ -88,4 +96,5 @@ let suite =
"test_rec" >:: test_rec; "test_rec" >:: test_rec;
"test_term_random100" >:: test_term_random 100; "test_term_random100" >:: test_term_random 100;
"test_term_random100_depth10" >:: test_term_random ~depth:10 100; "test_term_random100_depth10" >:: test_term_random ~depth:10 100;
"test_complicated" >:: test_complicated;
] ]