JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The temporary package the reload case writes is removed again

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-13 17:41:18 +07:00
parent dd3611f97d
commit e903e220fb
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/test_session.ml
View File

@ -295,6 +295,12 @@ let () =
fail "a form evaluated after an edited package reloaded used the old macro" fail "a form evaluated after an edited package reloaded used the old macro"
| exception Loc.Error { Loc.dmsg = m; _ } -> | exception Loc.Error { Loc.dmsg = m; _ } ->
fail "a form evaluated after an edited package reloaded: %s" 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 (* 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 qualified the way the import qualified it, or it splices as a brand-new