diff options
| author | Marcus Arendt <[email protected]> | 2015-01-23 14:54:58 +0100 |
|---|---|---|
| committer | Marcus Arendt <[email protected]> | 2015-01-23 14:54:58 +0100 |
| commit | e507f0fb475aed28615ae128101a401be91a4fab (patch) | |
| tree | cbdd04f8b0dd4232e7c35d4061f77a8b8f1f5626 /lib/kernel/test | |
| parent | ab750d6a3ae54b1667e0b6cc6e4854032bce91a1 (diff) | |
| parent | 6c91a0a020ce22d422afa0c9900a7af7d442831c (diff) | |
| download | otp-e507f0fb475aed28615ae128101a401be91a4fab.tar.gz otp-e507f0fb475aed28615ae128101a401be91a4fab.tar.bz2 otp-e507f0fb475aed28615ae128101a401be91a4fab.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/kernel/test')
| -rw-r--r-- | lib/kernel/test/Makefile | 3 | ||||
| -rw-r--r-- | lib/kernel/test/standard_error_SUITE.erl | 38 |
2 files changed, 40 insertions, 1 deletions
diff --git a/lib/kernel/test/Makefile b/lib/kernel/test/Makefile index f1b8a105ed..ef351a25fb 100644 --- a/lib/kernel/test/Makefile +++ b/lib/kernel/test/Makefile @@ -77,7 +77,8 @@ MODULES= \ ignore_cores \ zlib_SUITE \ loose_node \ - sendfile_SUITE + sendfile_SUITE \ + standard_error_SUITE APP_FILES = \ appinc.app \ diff --git a/lib/kernel/test/standard_error_SUITE.erl b/lib/kernel/test/standard_error_SUITE.erl new file mode 100644 index 0000000000..b290454b40 --- /dev/null +++ b/lib/kernel/test/standard_error_SUITE.erl @@ -0,0 +1,38 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2014. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% + +-module(standard_error_SUITE). + +-export([all/0,suite/0]). +-export([badarg/1,getopts/1]). + +suite() -> + [{ct_hooks,[ts_install_cth]}]. + +all() -> + [badarg,getopts]. + +badarg(Config) when is_list(Config) -> + {'EXIT',{badarg,_}} = (catch io:put_chars(standard_error, [oops])), + true = erlang:is_process_alive(whereis(standard_error)), + ok. + +getopts(Config) when is_list(Config) -> + [{encoding,latin1}] = io:getopts(standard_error), + ok. |