let report_result_full ctxt result_full =
  let test_path, result, _ = result_full in
    OUnitLogger.report ctxt.logger
      (OUnitLogger.TestEvent (test_path, OUnitLogger.EResult result));
    result_full