derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
34 lines
960 B
OCaml
34 lines
960 B
OCaml
(* Tiny unit test framework - really just to help find which line is busted *)
|
|
let exit_status = ref 0
|
|
|
|
let suite_name = ref ""
|
|
|
|
let group_name = ref ""
|
|
|
|
let case_num = ref 0
|
|
|
|
let print_checkpoints = false
|
|
|
|
let group name =
|
|
group_name := !suite_name ^ "/" ^ name;
|
|
case_num := 0;
|
|
if print_checkpoints then prerr_endline (" " ^ name ^ "...")
|
|
|
|
let insist ?(exit_on_fail = false) cond =
|
|
incr case_num;
|
|
if not cond then exit_status := 10;
|
|
( 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") );
|
|
if exit_on_fail && not cond then exit !exit_status else ()
|
|
|
|
let suite name f =
|
|
suite_name := name;
|
|
if print_checkpoints then prerr_endline (name ^ ":");
|
|
f ()
|