diff options
| author | Patrik Nyblom <[email protected]> | 2013-04-26 12:32:11 +0200 |
|---|---|---|
| committer | Patrik Nyblom <[email protected]> | 2013-04-26 12:32:11 +0200 |
| commit | c599f85af779db465348f0413f9ff245d741d699 (patch) | |
| tree | 3bbfb75ecf0bf3c726cf1683650bce5b71aa6940 | |
| parent | fdfd41eb1a033a5c0b5a9e61f6123d6d849a74f9 (diff) | |
| download | otp-c599f85af779db465348f0413f9ff245d741d699.tar.gz otp-c599f85af779db465348f0413f9ff245d741d699.tar.bz2 otp-c599f85af779db465348f0413f9ff245d741d699.zip | |
Skip testcase on platforms w/o pipes/usleep
| -rw-r--r-- | erts/emulator/test/trace_SUITE.erl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/erts/emulator/test/trace_SUITE.erl b/erts/emulator/test/trace_SUITE.erl index ead433f9f8..caa58ae281 100644 --- a/erts/emulator/test/trace_SUITE.erl +++ b/erts/emulator/test/trace_SUITE.erl @@ -528,7 +528,9 @@ monitor_sys(Parent) -> start_monitor() -> Parent = self(), Mpid = spawn_link(fun() -> monitor_sys(Parent) end), - erlang:system_monitor(Mpid,[{long_schedule,100}]). + erlang:system_monitor(Mpid,[{long_schedule,100}]), + erlang:yield(), % Need to be rescheduled for the trace to take + ok. system_monitor_long_schedule(suite) -> []; @@ -537,9 +539,14 @@ system_monitor_long_schedule(doc) -> system_monitor_long_schedule(Config) when is_list(Config) -> Path = ?config(data_dir, Config), erl_ddll:start(), - ok = load_driver(Path, slow_drv), + case (catch load_driver(Path, slow_drv)) of + ok -> + do_system_monitor_long_schedule(); + _Error -> + {skip, "Unable to load slow_drv (windows or no usleep()?)"} + end. +do_system_monitor_long_schedule() -> start_monitor(), - erlang:yield(), % Need to be rescheduled for the trace to take Port = open_port({spawn_driver,slow_drv}, []), "ok" = erlang:port_control(Port,0,[]), Self = self(), |