diff options
| -rw-r--r-- | src/mirrored_supervisor_tests.erl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/src/mirrored_supervisor_tests.erl b/src/mirrored_supervisor_tests.erl index 22a3bd52eb..d86b3d448b 100644 --- a/src/mirrored_supervisor_tests.erl +++ b/src/mirrored_supervisor_tests.erl @@ -32,6 +32,7 @@ all_tests() -> passed = test_migrate(), passed = test_migrate_twice(), passed = test_already_there(), + passed = test_delete_restart(), passed. test_migrate() -> @@ -62,6 +63,19 @@ test_already_there() -> {ok, Pid} = mirrored_supervisor:start_child(b, S) end, [a, b]). +test_delete_restart() -> + with_sups(fun([_, _]) -> + S = childspec(worker), + {ok, Pid1} = mirrored_supervisor:start_child(a, S), + mirrored_supervisor:terminate_child(a, worker), + mirrored_supervisor:delete_child(a, worker), + {ok, Pid2} = mirrored_supervisor:start_child(b, S), + false = (Pid1 =:= Pid2), + mirrored_supervisor:restart_child(a, worker), + Pid3 = pid_of(worker), + false = (Pid2 =:= Pid3) + end, [a, b]). + %% --------------------------------------------------------------------------- @@ -104,7 +118,9 @@ call(Id, Msg, MaxDelay, Decr) -> call(Id, Msg, MaxDelay - Decr, Decr) end. -kill(Pid) -> exit(Pid, kill). +kill(Pid) -> + exit(Pid, kill), + timer:sleep(100). %% --------------------------------------------------------------------------- %% Dumb gen_server we can supervise |