diff --git a/test/ts_utils.erl b/test/ts_utils.erl index cf74594..f69b8ff 100644 --- a/test/ts_utils.erl +++ b/test/ts_utils.erl @@ -32,6 +32,10 @@ test_deps() -> load_dep(D) -> + {ok, Cwd} = file:get_cwd(), + % apparently zx changes the working dir when doing + % all this stuff so beam files get dropped in + % random dep dir ok = case zx_lib:installed(D) of false -> @@ -41,7 +45,9 @@ load_dep(D) -> true -> ok end, - zx_daemon:build(D). + Result = zx_daemon:build(D), + ok = file:set_cwd(Cwd), + Result. -spec clean_after(Fun) -> Result when @@ -70,7 +76,9 @@ tidily(Fun) -> -spec delete_beams() -> ok. delete_beams() -> - lists:map(fun file:delete/1, ls_test_beams()). + Beams = ls_test_beams(), + %io:format("Deleting: ~tp~n", [Beams]), + lists:foreach(fun file:delete/1, Beams). tidy() -> delete_beams().