From bfa534e31c0e2cb412e95ec10f8223d019a71df1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 18 Mar 2022 16:41:12 -0400
Subject: [PATCH] test: simulate some failing span

---
 tests/emit1.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/emit1.ml b/tests/emit1.ml
index de85d01c..17a621c1 100644
--- a/tests/emit1.ml
+++ b/tests/emit1.ml
@@ -30,7 +30,7 @@ let run () =
 
       incr i;
 
-      begin
+      (try
         let@ _ =
           T.Trace.with_ ~kind:T.Span.Span_kind_internal
             ~trace_id:tr ~parent:sp
@@ -40,7 +40,9 @@ let run () =
         let _arr = Sys.opaque_identity @@ Array.make (25 * 25551) 42.0 in
         ignore _arr;
         Unix.sleepf 0.1;
-      end;
+        if j=4 && !i mod 13 = 0 then failwith "oh no"; (* simulate a failure *)
+      with Failure _ ->
+        ());
     done;
   done