+let status indicator info =
+ match info with
+ | "" -> indicator
+ | _ -> sprintf "%s: %s" indicator info
+
+let status_pass ?(info="") () =
+ status (color Green "Pass") info
+
+let status_fail ?(info="") () =
+ status (color Red "Fail") info
+
+let status_skip ?(info="") () =
+ status (color Yellow "Skip") info
+