diff options
| author | Patrik Nyblom <[email protected]> | 2010-09-07 12:02:48 +0200 |
|---|---|---|
| committer | Patrik Nyblom <[email protected]> | 2010-09-13 10:51:53 +0200 |
| commit | ac804e8bfc9c9cc28d708a38ac7be10a51ee7dc3 (patch) | |
| tree | 61b92d0b7383050b27c9d19606d3c607a43344b3 /erts/emulator/test/port_SUITE.erl | |
| parent | 2f2d4c6b2ed4eff518936bc4d6a3fac170876171 (diff) | |
| download | otp-ac804e8bfc9c9cc28d708a38ac7be10a51ee7dc3.tar.gz otp-ac804e8bfc9c9cc28d708a38ac7be10a51ee7dc3.tar.bz2 otp-ac804e8bfc9c9cc28d708a38ac7be10a51ee7dc3.zip | |
Teach port suite to not use unix-specific commands and not leave them running
Diffstat (limited to 'erts/emulator/test/port_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/port_SUITE.erl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/erts/emulator/test/port_SUITE.erl b/erts/emulator/test/port_SUITE.erl index 77fa75b78f..a7476ca9bb 100644 --- a/erts/emulator/test/port_SUITE.erl +++ b/erts/emulator/test/port_SUITE.erl @@ -2305,7 +2305,11 @@ load_driver(Dir, Driver) -> close_deaf_port(doc) -> ["Send data to port program that does not read it, then close port."]; close_deaf_port(suite) -> []; close_deaf_port(Config) when is_list(Config) -> - Port = open_port({spawn,"sleep 999999"},[]), - erlang:port_command(Port,"Hello, can you hear me!?!?"), - port_close(Port), + ?line Dog = test_server:timetrap(test_server:seconds(100)), + ?line DataDir = ?config(data_dir, Config), + ?line DeadPort = os:find_executable("dead_port", DataDir), + + ?line Port = open_port({spawn,DeadPort++" 60"},[]), + ?line erlang:port_command(Port,"Hello, can you hear me!?!?"), + ?line port_close(Port), ok. |