From e903e220fb400c6c4d3faedfc20c329f9856aa3e Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Sun, 13 Sep 2026 17:41:18 +0700 Subject: [PATCH] The temporary package the reload case writes is removed again --- test/test_session.ml | 6 ++++++ 1 file changed, 6 insertions(+) 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