From c599f85af779db465348f0413f9ff245d741d699 Mon Sep 17 00:00:00 2001 From: Patrik Nyblom Date: Fri, 26 Apr 2013 12:32:11 +0200 Subject: Skip testcase on platforms w/o pipes/usleep --- erts/emulator/test/trace_SUITE.erl | 13 ++++++++++--- 1 file 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(), -- cgit v1.2.3