anchor.diff:      {ok, P, I} = exec:run("read x; echo \"Got: $x\"", [stdin, stdout, monitor]),
       ok = exec:send(I, <<"Test data\n">>),
       ?receiveMatch({stdout,I,<<"Got: Test data\n">>}, 3000),
  -    ?receiveMatch({'DOWN', _, process, P, normal}, 1000).
  +    ?receiveMatch({'DOWN', _, process, P, normal}, 5000).
   
   test_std(Stream) ->
       Suffix = case Stream of
  
positive.code:              stdout -> ""
               end,
      {ok, _, I} = exec:run("for i in 1 2; do echo TEST$i; sleep 0.05; done" ++ Suffix, [Stream]),
      ?receiveMatch({Stream,I,<<"TEST1\n">>}, 3000),
      ?receiveMatch({Stream,I,<<"TEST2\n">>}, 3000),
      
      Filename = temp_file(),
      try
  
negative.code: test_kill_timeout() ->
      {ok, P, I} = exec:run("trap '' SIGTERM; sleep 30", [{kill_timeout, 1}, monitor]),
      exec:stop(I),
      ?receiveMatch({'DOWN', _, process, P, normal}, 5000).
  
  temp_file() ->
      Dir =   case os:getenv("TEMP") of
  