minor updates

Signed-off-by: Burnleydev1 <[email protected]>

test/driver/exception_handling/extender.ml

@@ -40,8 +40,11 @@ let raise2_located_error_extension =
 let rule1 = Ppxlib.Context_free.Rule.extension extension_point_extension
 let rule2 = Ppxlib.Context_free.Rule.extension raise_exception_extension
 let rule3 = Ppxlib.Context_free.Rule.extension raise_located_error_extension
+let rule4 = Ppxlib.Context_free.Rule.extension raise2_located_error_extension
 
 let () =
-  Driver.register_transformation ~rules:[ rule1; rule2; rule3 ] "gen_errors"
+  Driver.register_transformation
+    ~rules:[ rule1; rule2; rule3; rule4 ]
+    "gen_errors"
 
 let () = Driver.standalone ()

test/driver/exception_handling/run.t

@@ -48,6 +48,7 @@ caught, so no AST is produced.
   $ export OCAML_ERROR_STYLE=short
   $ ./extender.exe impl.ml
   [%%ocaml.error "A raised located error"]
+  [%%ocaml.error "A second raised located error"]
   let x = 1 + 1.
   let _ = [%gen_raise_located_error ]
   let _ = [%gen2_raise_located_error ]
@@ -80,6 +81,7 @@ and the whole AST is prepended with an error extension node.
   $ echo "let _ = [%gen2_raise_located_error]" >> impl.ml
   $ ./extender.exe -embed-errors impl.ml
   [%%ocaml.error "A raised located error"]
+  [%%ocaml.error "A second raised located error"]
   let x = 1 + 1.
   let _ = [%gen_raise_located_error ]
   let _ = [%gen2_raise_located_error ]