diff options
author | Dan Gudmundsson <dgud@erlang.org> | 2016-03-31 15:34:37 +0200 |
---|---|---|
committer | Dan Gudmundsson <dgud@erlang.org> | 2016-04-22 09:25:04 +0200 |
commit | 6d1f0b6ac13e2a8615a1d92238892196daa4ee4e (patch) | |
tree | ef50df50623c868b9dda9e0816bd4275c3bbdcfb /erts/test/nt_SUITE.erl | |
parent | 8e0cf992413ed5f5a71621f7f70213985ff12578 (diff) | |
download | erlang-6d1f0b6ac13e2a8615a1d92238892196daa4ee4e.tar.gz |
Windows: Skip tests that requires admin privileges
Windows 8 and later have stronger admin checks which requires
erlang to run in privileged shells, ignore for now.
Diffstat (limited to 'erts/test/nt_SUITE.erl')
-rw-r--r-- | erts/test/nt_SUITE.erl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/erts/test/nt_SUITE.erl b/erts/test/nt_SUITE.erl index f798a40a6c..624e5484ba 100644 --- a/erts/test/nt_SUITE.erl +++ b/erts/test/nt_SUITE.erl @@ -37,13 +37,13 @@ suite() -> [{ct_hooks,[ts_install_cth]}, {timetrap, {minutes, 3}}]. -all() -> - case os:type() of - {win32, nt} -> - [nt, service_basic, service_env, user_env, synced, - service_prio, logout, debug, restart, restart_always, - stopaction]; - _ -> [nt] +all() -> + case {os:type(), os:version()} of + {{win32, nt}, Vsn} when Vsn =< {6,1,999999} -> + [nt, service_basic, service_env, user_env, synced, + service_prio, logout, debug, restart, restart_always, + stopaction]; + _ -> [nt] end. init_per_testcase(_Func, Config) -> @@ -367,11 +367,13 @@ stopaction(Config) when is_list(Config) -> %%% other platforms than NT. nt(Config) when is_list(Config) -> - case os:type() of - {win32,nt} -> - nt_run(); - _ -> - {skipped, "This test case is intended for Win NT only."} + case {os:type(), os:version()} of + {{win32, nt}, Vsn} when Vsn =< {6,1,999999} -> + nt_run(); + {{win32, nt}, _} -> + {skipped, "This test case requires admin privileges on Win 8 and later."}; + _ -> + {skipped, "This test case is intended for Win NT only."} end. |