let string_of_event ev =
let spf fmt = Printf.sprintf fmt in
let string_of_log_severity =
function
| `Error -> "`Error"
| `Warning -> "`Warning"
| `Info -> "`Info"
in
match ev with
| GlobalEvent e ->
begin
match e with
| GConf (k, v) -> spf "GConf (%S, %S)" k v
| GLog (lvl, s) ->
spf "GLog (%s, %S)" (string_of_log_severity lvl) s
| GStart -> "GStart"
| GEnd -> "GEnd"
| GResults _ -> "GResults"
end
| TestEvent (path, e) ->
begin
match e with
| EStart ->
"EStart"
| EEnd ->
"EEnd"
| EResult result ->
"EResult (_)"
| ELog (lvl, str) ->
spf "ELog (%s, %S)" (string_of_log_severity lvl) str
| ELogRaw str ->
spf "ELogRaw %S" str
end