diff --git a/test/test_session.ml b/test/test_session.ml index 562132d..92d82b1 100644 --- a/test/test_session.ml +++ b/test/test_session.ml @@ -295,6 +295,12 @@ let () = fail "a form evaluated after an edited package reloaded used the old macro" | exception Loc.Error { Loc.dmsg = m; _ } -> fail "a form evaluated after an edited package reloaded: %s" m); + List.iter + (fun f -> try Sys.remove f with Sys_error _ -> ()) + [ Filename.concat pkg "p.flan"; entry ]; + List.iter + (fun d -> try Unix.rmdir d with Unix.Unix_error _ -> ()) + [ pkg; tmp ]; (* A form typed into a file that is *imported as a package* has to be qualified the way the import qualified it, or it splices as a brand-new