diff options
author | Lukas Larsson <[email protected]> | 2011-02-15 19:57:14 +0100 |
---|---|---|
committer | Lukas Larsson <[email protected]> | 2011-02-25 10:37:20 +0100 |
commit | 367f0c57805401254f386deedd83901315a1e59a (patch) | |
tree | 1d55acbbd79b7fe5df354284f4281b661460b939 /lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl | |
parent | ea7abb8683b62f43cd868aefe81935f4de686722 (diff) | |
download | otp-367f0c57805401254f386deedd83901315a1e59a.tar.gz otp-367f0c57805401254f386deedd83901315a1e59a.tar.bz2 otp-367f0c57805401254f386deedd83901315a1e59a.zip |
Update test_server tests to conform with common_test standard
Diffstat (limited to 'lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl')
-rw-r--r-- | lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl b/lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl new file mode 100644 index 0000000000..4037e1cc0e --- /dev/null +++ b/lib/test_server/test/test_server_SUITE_data/test_server_skip_SUITE.erl @@ -0,0 +1,43 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2004-2010. 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(test_server_skip_SUITE). + +-export([all/1, init_per_suite/1, end_per_suite/1]). +-export([dummy/1]). + +-include_lib("test_server/include/test_server.hrl"). +-include_lib("test_server/include/test_server_line.hrl"). + +all(suite) -> + [dummy]. + +init_per_suite(Config) when is_list(Config) -> + {skip,"Skipping init_per_suite - check that \'dummy\' and" + " \'end_per_suite\' are also skipped"}. + +dummy(suite) -> []; +dummy(doc) -> ["This testcase should never be executed"]; +dummy(Config) when is_list(Config) -> + ?t:fail("This testcase should be executed since" + " init_per_suite/1 is skipped"). + +end_per_suite(doc) -> ["This testcase should never be executed"]; +end_per_suite(Config) when is_list(Config) -> + ?t:fail("end_per_suite/1 should not be executed when" + " init_per_suite/1 is skipped"). |