Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

process_relation_tests: Expand test.

  • Loading branch information...
commit 7551932446ca8347003510f0a8671f8393663a68 1 parent 0db76a8
@eriksoe eriksoe authored
Showing with 15 additions and 0 deletions.
  1. +15 −0 src/test/erl/properties/simple/process_relation_tests.erl
View
15 src/test/erl/properties/simple/process_relation_tests.erl
@@ -9,6 +9,14 @@
% c(process_relation_tests, [{i, "../../../../../triq/include"}]).
% process_relation_tests:test().
+child_survives_tail_spawn_nonlink_test() ->
+ N = 1000,
+ expect_to_leave_N_processes(N,
+ fun() ->
+ [tail_nonlink_permanent_child()
+ || _ <- lists:seq(1,N)]
+ end).
+
child_survives_tail_spawn_link_normal_exit_test() ->
N = 1000,
expect_to_leave_N_processes(N,
@@ -53,6 +61,13 @@ nontail_spawn_link_child_with_siblings_exits_abnormally_test() ->
end).
+tail_nonlink_permanent_child() ->
+ spawn(fun() ->
+ spawn_link(fun() ->
+ receive never -> ok end
+ end) % In tail position
+ end).
+
tail_spawn_link_permanent_child_normal_exit() ->
spawn(fun() ->
spawn_link(fun() ->
Please sign in to comment.
Something went wrong with that request. Please try again.