aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/test
diff options
context:
space:
mode:
authorRickard Green <[email protected]>2013-04-29 18:45:45 +0200
committerRickard Green <[email protected]>2013-05-06 22:33:53 +0200
commitd7b83a84c5de60ad6a6aa84eb634a36d0a1a88ff (patch)
treeb3882847d820fd4b3c5e363256db79c149a1160b /erts/emulator/test
parent127f970059371d968238c8e461bc5c547b021899 (diff)
downloadotp-d7b83a84c5de60ad6a6aa84eb634a36d0a1a88ff.tar.gz
otp-d7b83a84c5de60ad6a6aa84eb634a36d0a1a88ff.tar.bz2
otp-d7b83a84c5de60ad6a6aa84eb634a36d0a1a88ff.zip
Only verify not busy for erlang:send(Port, Msg, [nosuspend]) until scheduled
Diffstat (limited to 'erts/emulator/test')
-rw-r--r--erts/emulator/test/busy_port_SUITE.erl2
1 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/test/busy_port_SUITE.erl b/erts/emulator/test/busy_port_SUITE.erl
index 2c63296b83..4b4af0babe 100644
--- a/erts/emulator/test/busy_port_SUITE.erl
+++ b/erts/emulator/test/busy_port_SUITE.erl
@@ -170,6 +170,7 @@ send_3(Config) when is_list(Config) ->
?line {Owner,Slave} = get_slave(),
?line ok = erlang:send(Slave, {Owner,{command,"set busy"}},
[nosuspend]),
+ receive after 100 -> ok end, % ensure command reached port
?line nosuspend = erlang:send(Slave, {Owner,{command,"busy"}},
[nosuspend]),
?line unlock_slave(),
@@ -563,6 +564,7 @@ scheduling_delay_busy_nosuspend(Config) ->
{2,{call,[{var,1},open_port]}},
{0,{cast,[{var,1},{command,1,100}]}},
{0,{cast,[{var,1},{busy,2}]}},
+ {0,{timer,sleep,[200]}}, % ensure reached port
{10,{call,[{var,1},{command,3,[nosuspend]}]}},
{0,{timer,sleep,[200]}},
{0,{erlang,port_command,[{var,2},<<$N>>,[force]]}},