Source

ocaml-bert / tests_bert.ml

Diff from to

tests_bert.ml

 	       Bert.String("HAHAHA"); Bert.Binary("HAHAHA") ] in
   let str = String.create 128 in
   let _ = encode_all list str 0 in
-    decoding_test list str 0 ;;
-(*    print_endline str; 
-  raise Test_failure;; *)
+  let n = decoding_test list str 0 in
+    Printf.printf "tests_bert: %d/%d passed.\n" n (List.length list) ;;
+ (*str;  raise Test_failure;; *)