diff options
author | Lukas Larsson <[email protected]> | 2016-08-09 10:08:30 +0200 |
---|---|---|
committer | Lukas Larsson <[email protected]> | 2016-08-09 10:08:30 +0200 |
commit | 1db9e32445dc368c6073e3b412567d81a2b5eeb2 (patch) | |
tree | 3df47a3d3c741d76198f85c55c410f5958fea1d1 /lib/kernel/test/os_SUITE.erl | |
parent | e23bc1c5705c07735cb87183f6e7409b40613d74 (diff) | |
parent | 020d38d4c9062f255b52eeb35542152c7cff1598 (diff) | |
download | otp-1db9e32445dc368c6073e3b412567d81a2b5eeb2.tar.gz otp-1db9e32445dc368c6073e3b412567d81a2b5eeb2.tar.bz2 otp-1db9e32445dc368c6073e3b412567d81a2b5eeb2.zip |
Merge branch 'maint-19' into maint
Conflicts:
lib/ssl/src/ssl.appup.src
Diffstat (limited to 'lib/kernel/test/os_SUITE.erl')
-rw-r--r-- | lib/kernel/test/os_SUITE.erl | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/lib/kernel/test/os_SUITE.erl b/lib/kernel/test/os_SUITE.erl index 2a1e5016ec..8f3e511941 100644 --- a/lib/kernel/test/os_SUITE.erl +++ b/lib/kernel/test/os_SUITE.erl @@ -24,7 +24,8 @@ init_per_testcase/2,end_per_testcase/2]). -export([space_in_cwd/1, quoting/1, cmd_unicode/1, space_in_name/1, bad_command/1, find_executable/1, unix_comment_in_command/1, deep_list_command/1, - large_output_command/1, perf_counter_api/1]). + large_output_command/1, background_command/0, background_command/1, + perf_counter_api/1]). -include_lib("common_test/include/ct.hrl"). @@ -35,7 +36,7 @@ suite() -> all() -> [space_in_cwd, quoting, cmd_unicode, space_in_name, bad_command, find_executable, unix_comment_in_command, deep_list_command, - large_output_command, perf_counter_api]. + large_output_command, background_command, perf_counter_api]. groups() -> []. @@ -52,6 +53,13 @@ init_per_group(_GroupName, Config) -> end_per_group(_GroupName, Config) -> Config. +init_per_testcase(background_command, Config) -> + case os:type() of + {win32, _} -> + {skip,"Should not work on windows"}; + _ -> + Config + end; init_per_testcase(_TC,Config) -> Config. @@ -261,13 +269,21 @@ deep_list_command(Config) when is_list(Config) -> %% FYI: [$e, $c, "ho"] =:= io_lib:format("ec~s", ["ho"]) ok. -%% Test to take sure that the correct data is +%% Test to make sure that the correct data is %% received when doing large commands. large_output_command(Config) when is_list(Config) -> %% Maximum allowed on windows is 8192, so we test well below that AAA = lists:duplicate(7000, $a), comp(AAA,os:cmd("echo " ++ AAA)). +%% Test that it is possible on unix to start a background task using os:cmd. +background_command() -> + [{timetrap, {seconds, 5}}]. +background_command(_Config) -> + %% This testcase fails when the os:cmd takes + %% longer then the 5 second timeout + os:cmd("sleep 10&"). + %% Test that the os:perf_counter api works as expected perf_counter_api(_Config) -> |