aboutsummaryrefslogtreecommitdiffstats
path: root/erts
diff options
context:
space:
mode:
authorPatrik Nyblom <[email protected]>2013-04-26 12:32:11 +0200
committerPatrik Nyblom <[email protected]>2013-04-26 12:32:11 +0200
commitc599f85af779db465348f0413f9ff245d741d699 (patch)
tree3bbfb75ecf0bf3c726cf1683650bce5b71aa6940 /erts
parentfdfd41eb1a033a5c0b5a9e61f6123d6d849a74f9 (diff)
downloadotp-c599f85af779db465348f0413f9ff245d741d699.tar.gz
otp-c599f85af779db465348f0413f9ff245d741d699.tar.bz2
otp-c599f85af779db465348f0413f9ff245d741d699.zip
Skip testcase on platforms w/o pipes/usleep
Diffstat (limited to 'erts')
-rw-r--r--erts/emulator/test/trace_SUITE.erl13
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(),