diff options
| author | Peter Andersson <[email protected]> | 2013-06-28 01:00:24 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2013-06-28 01:00:24 +0200 |
| commit | 1151a45d49e90383931c92433b15b754156b833d (patch) | |
| tree | f45d29bb21b5e3b2d8c00b6efc1af414d0ea0684 /lib/common_test/test/ct_verbosity_SUITE.erl | |
| parent | 8a0a09ef168210326b29273b20520aee339aaf40 (diff) | |
| download | otp-1151a45d49e90383931c92433b15b754156b833d.tar.gz otp-1151a45d49e90383931c92433b15b754156b833d.tar.bz2 otp-1151a45d49e90383931c92433b15b754156b833d.zip | |
Add test
OTP-11176
Diffstat (limited to 'lib/common_test/test/ct_verbosity_SUITE.erl')
| -rw-r--r-- | lib/common_test/test/ct_verbosity_SUITE.erl | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/lib/common_test/test/ct_verbosity_SUITE.erl b/lib/common_test/test/ct_verbosity_SUITE.erl index 32488b1db9..1aa71953ec 100644 --- a/lib/common_test/test/ct_verbosity_SUITE.erl +++ b/lib/common_test/test/ct_verbosity_SUITE.erl @@ -53,9 +53,19 @@ init_per_suite(Config) -> end_per_suite(Config) -> ct_test_support:end_per_suite(Config). +init_per_testcase(no_crashing, Config) -> + Opts = ct_test_support:start_slave(ctX, Config, 50), + XNode = proplists:get_value(ct_node, Opts), + ct:pal("Node ~p started!", [XNode]), + [{xnode,XNode} | Config]; init_per_testcase(TestCase, Config) -> ct_test_support:init_per_testcase(TestCase, Config). +end_per_testcase(no_crashing, Config) -> + XNode = proplists:get_value(xnode, Config), + ct_test_support:slave_stop(XNode), + ct:pal("Node ~p stopped!", [XNode]), + ok; end_per_testcase(TestCase, Config) -> ct_test_support:end_per_testcase(TestCase, Config). @@ -72,7 +82,8 @@ all() -> combine_categories, testspec_only, merge_with_testspec, - possible_deadlock + possible_deadlock, + no_crashing ]. %%-------------------------------------------------------------------- @@ -189,6 +200,19 @@ possible_deadlock(Config) -> %%%----------------------------------------------------------------- +%%% +no_crashing(Config) -> + XNode = proplists:get_value(xnode, Config), + ok = rpc:call(XNode, ct, print, ["hello",[]]), + ok = rpc:call(XNode, ct, pal, ["hello",[]]), + ok = rpc:call(XNode, ct, log, ["hello",[]]), + Data = io_lib:format("hello", []), + {badrpc,{'EXIT',{noproc,_}}} = + (catch rpc:call(XNode, test_server_io, print_unexpected, [Data])), + ok. + + +%%%----------------------------------------------------------------- %%% HELP FUNCTIONS %%%----------------------------------------------------------------- |