Terminate is not counted as an error

polytypic · polytypic · commit db20f01e128c · 2024-05-03T23:42:06.000+03:00
diff --git a/test/test_structured.ml b/test/test_structured.ml
@@ -176,6 +176,7 @@ let test_any_and_all_errors () =
      match
        run_op
          [
+           (fun () -> raise Control.Terminate (* Not counted as an error *));
            raiser Not_found;
            (fun () -> Control.block ());
            raiser Exit;

Original file line number	Diff line number	Diff line change
`@@ -176,6 +176,7 @@ let test_any_and_all_errors () =`
`176`	`176`	`match`
`177`	`177`	`run_op`
`178`	`178`	`[`
	`179`	`+ (fun () -> raise Control.Terminate (* Not counted as an error *));`
`179`	`180`	`raiser Not_found;`
`180`	`181`	`(fun () -> Control.block ());`
`181`	`182`	`raiser Exit;`