From 97f6e6187d7d983bff3d07792b762ad2cf3b17da Mon Sep 17 00:00:00 2001
From: Michael Santos <michael.santos@gmail.com>
Date: Thu, 27 Nov 2014 15:50:30 -0500
Subject: [PATCH] test: fix race condition on exit

Since exit_status is now enabled by default, a test would occasionally
fail depending on how quickly the message was received from the port.
Fix by waiting for the exit_status event to be received.
---
 test/alcove_tests.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/alcove_tests.erl b/test/alcove_tests.erl
index 1c7efb5..5b246cb 100644
--- a/test/alcove_tests.erl
+++ b/test/alcove_tests.erl
@@ -211,12 +211,12 @@ setopt(#state{pid = Drv}) ->
 event(#state{pid = Drv}) ->
     {ok, Fork} = alcove:fork(Drv),
     Reply0 = alcove:exit(Drv, [Fork], 0),
-    Reply1 = alcove:event(Drv, [Fork]),
+    Reply1 = alcove:event(Drv, [Fork], 5000),
     Reply2 = alcove:event(Drv, [], 5000),
 
     [
         ?_assertEqual(ok, Reply0),
-        ?_assertEqual(false, Reply1),
+        ?_assertEqual({exit_status,0}, Reply1),
         ?_assertMatch({signal,_}, Reply2)
     ].