replica
/
hanchenye-llvm-project
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Don't send checkpoints to stderr for the vmcore.ml test. 

llvm-svn: 52218
This commit is contained in:
Gordon Henriksen 2008-06-11 14:58:01 +00:00
parent b2fc72bfbf
commit a612cac935
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
llvm/test/Bindings/Ocaml/vmcore.ml
View File

@ -13,19 +13,33 @@ open Llvm_bitwriter
(* Tiny unit test framework - really just to help find which line is busted *) (* Tiny unit test framework - really just to help find which line is busted *)
let exit_status = ref 0 let exit_status = ref 0
let suite_name = ref ""
let group_name = ref ""
let case_num = ref 0 let case_num = ref 0
let print_checkpoints = false
let group name = let group name =
group_name := !suite_name ^ "/" ^ name;
case_num := 0; case_num := 0;
if print_checkpoints then
prerr_endline (" " ^ name ^ "...") prerr_endline (" " ^ name ^ "...")
let insist cond = let insist cond =
incr case_num; incr case_num;
if not cond then exit_status := 10; if not cond then
prerr_endline (" " ^ (string_of_int !case_num) ^ if cond then "" exit_status := 10;
else " FAIL") match print_checkpoints, cond with
| false, true -> ()
| false, false ->
prerr_endline ("FAILED: " ^ !suite_name ^ "/" ^ !group_name ^ " #" ^ (string_of_int !case_num))
| true, true ->
prerr_endline (" " ^ (string_of_int !case_num))
| true, false ->
prerr_endline (" " ^ (string_of_int !case_num) ^ " FAIL")
let suite name f = let suite name f =
suite_name := name;
if print_checkpoints then
prerr_endline (name ^ ":"); prerr_endline (name ^ ":");
f () f ()
@ -245,7 +259,7 @@ let test_constants () =
ignore (define_global "Const08" c m); ignore (define_global "Const08" c m);
insist ((vector_type i16_type 8) = (type_of c)); insist ((vector_type i16_type 8) = (type_of c));
(* RUN: grep {Const09.*\{ i16, i16, i32, i32 \} \{} < %t.ll (* RUN: grep {Const09.*. i16, i16, i32, i32 . .} < %t.ll
*) *)
group "structure"; group "structure";
let c = const_struct [| one; two; three; four |] in let c = const_struct [| one; two; three; four |] in