~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/test_server/test/test_server_skip_SUITE.erl

• browse files at revision 11
• compare with another revision
• download diff
• download tarball
• view history from revision 11

Show diffs side-by-side

added

removed

lib/test_server/test/test_server_skip_SUITE.erl

 

1

%%

 

2

%% %CopyrightBegin%

 

3

%%

 

4

%% Copyright Ericsson AB 2004-2010. All Rights Reserved.

 

5

%%

 

6

%% The contents of this file are subject to the Erlang Public License,

 

7

%% Version 1.1, (the "License"); you may not use this file except in

 

8

%% compliance with the License. You should have received a copy of the

 

9

%% Erlang Public License along with this software. If not, it can be

 

10

%% retrieved online at http://www.erlang.org/.

 

11

%%

 

12

%% Software distributed under the License is distributed on an "AS IS"

 

13

%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See

 

14

%% the License for the specific language governing rights and limitations

 

15

%% under the License.

 

16

%%

 

17

%% %CopyrightEnd%

 

18

%%

 

19

-module(test_server_skip_SUITE).

 

20

 

 

21

-export([all/1, init_per_suite/1, end_per_suite/1]).

 

22

-export([dummy/1]).

 

23

 

 

24

-include_lib("test_server/include/test_server.hrl").

 

25

-include_lib("test_server/include/test_server_line.hrl").

 

26

 

 

27

all(suite) ->

 

28

    [dummy].

 

29

 

 

30

init_per_suite(Config) when is_list(Config) ->

 

31

    {skip,"Skipping init_per_suite - check that \'dummy\' and"

 

32

     " \'end_per_suite\' are also skipped"}.

 

33

 

 

34

dummy(suite) -> [];

 

35

dummy(doc) -> ["This testcase should never be executed"];

 

36

dummy(Config) when is_list(Config) ->

 

37

    ?t:fail("This testcase should be executed since"

 

38

            " init_per_suite/1 is skipped").

 

39

 

 

40

end_per_suite(doc) -> ["This testcase should never be executed"];

 

41

end_per_suite(Config) when is_list(Config) ->

 

42

    ?t:fail("end_per_suite/1 should not be executed when"

 

43

            " init_per_suite/1 is skipped").

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1