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

« back to all changes in this revision

Viewing changes to lib/erl_interface/test/erl_ext_SUITE.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2010-03-09 17:34:57 UTC
  • mfrom: (10.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20100309173457-4yd6hlcb2osfhx31
Tags: 1:13.b.4-dfsg-3
Manpages in section 1 are needed even if only arch-dependent packages are
built. So, re-enabled them.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 2002-2009. 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
 
 
20
%%
 
21
-module(erl_ext_SUITE).
 
22
 
 
23
-include("test_server.hrl").
 
24
-include("erl_ext_SUITE_data/ext_test_cases.hrl").
 
25
 
 
26
-export([
 
27
        all/1, 
 
28
        compare_tuple/1,
 
29
        compare_list/1,
 
30
        compare_string/1,
 
31
        compare_list_string/1,
 
32
        compare_nc_ext/1
 
33
        ]).
 
34
 
 
35
-import(runner, [get_term/1]).
 
36
 
 
37
all(suite) -> [
 
38
        compare_tuple,
 
39
        compare_list,
 
40
        compare_string,
 
41
        compare_list_string, 
 
42
        compare_nc_ext
 
43
        ].
 
44
 
 
45
compare_tuple(suite) -> [];
 
46
compare_tuple(doc) -> [];
 
47
compare_tuple(Config) when is_list(Config) ->
 
48
    ?line P = runner:start(?compare_tuple),
 
49
    ?line runner:recv_eot(P),
 
50
    ok.
 
51
 
 
52
compare_list(suite) -> [];
 
53
compare_list(doc) -> [];
 
54
compare_list(Config) when is_list(Config) ->
 
55
    ?line P = runner:start(?compare_list),
 
56
    ?line runner:recv_eot(P),
 
57
    ok.
 
58
 
 
59
compare_string(suite) -> [];
 
60
compare_string(doc) -> [];
 
61
compare_string(Config) when is_list(Config) ->
 
62
    ?line P = runner:start(?compare_string),
 
63
    ?line runner:recv_eot(P),
 
64
    ok.
 
65
 
 
66
compare_list_string(suite) -> [];
 
67
compare_list_string(doc) -> [];
 
68
compare_list_string(Config) when is_list(Config) ->
 
69
    ?line P = runner:start(?compare_list_string),
 
70
    ?line runner:recv_eot(P),
 
71
    ok.
 
72
 
 
73
compare_nc_ext(suite) -> [];
 
74
compare_nc_ext(doc) -> [];
 
75
compare_nc_ext(Config) when is_list(Config) ->
 
76
    ?line P = runner:start(?compare_nc_ext),
 
77
    ?line runner:recv_eot(P),
 
78
    ok.
 
79
 
 
80
 
 
81