← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/erl_interface/test/ei_print_SUITE.erl
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 2001-2011. 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(ei_print_SUITE).
 
22
 
 
23
-include_lib("test_server/include/test_server.hrl").
 
24
-include("ei_print_SUITE_data/ei_print_test_cases.hrl").
 
25
 
 
26
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
 
27
         init_per_group/2,end_per_group/2, 
 
28
         atoms/1, tuples/1, lists/1, strings/1]).
 
29
 
 
30
-import(runner, [get_term/1]).
 
31
 
 
32
%% This test suite test the ei_print() function.
 
33
%% It uses the port program "ei_format_test".
 
34
 
 
35
suite() -> [{ct_hooks,[ts_install_cth]}].
 
36
 
 
37
all() -> 
 
38
    [atoms, tuples, lists, strings].
 
39
 
 
40
groups() -> 
 
41
    [].
 
42
 
 
43
init_per_suite(Config) ->
 
44
    Config.
 
45
 
 
46
end_per_suite(_Config) ->
 
47
    ok.
 
48
 
 
49
init_per_group(_GroupName, Config) ->
 
50
    Config.
 
51
 
 
52
end_per_group(_GroupName, Config) ->
 
53
    Config.
 
54
 
 
55
 
 
56
%% Tests formatting various atoms.
 
57
 
 
58
atoms(suite) -> [];
 
59
atoms(Config) when is_list(Config) ->
 
60
    ?line P = runner:start(?atoms),
 
61
 
 
62
    ?line {term, "''"} = get_term(P),
 
63
    ?line {term, "a"} = get_term(P),
 
64
    ?line {term, "'A'"} = get_term(P),
 
65
    ?line {term, "abc"} = get_term(P),
 
66
    ?line {term, "'Abc'"} = get_term(P),
 
67
    ?line {term, "ab@c"} = get_term(P),
 
68
    ?line {term, "'The rain in Spain stays mainly in the plains'"} =
 
69
        get_term(P),
 
70
 
 
71
    ?line {term, "a"} = get_term(P),
 
72
    ?line {term, "ab"} = get_term(P),
 
73
    ?line {term, "abc"} = get_term(P),
 
74
    ?line {term, "ab@c"} = get_term(P),
 
75
    ?line {term, "abcdefghijklmnopq"} = get_term(P),
 
76
 
 
77
    ?line {term, "''"} = get_term(P),
 
78
    ?line {term, "a"} = get_term(P),
 
79
    ?line {term, "'A'"} = get_term(P),
 
80
    ?line {term, "abc"} = get_term(P),
 
81
    ?line {term, "'Abc'"} = get_term(P),
 
82
    ?line {term, "ab@c"} = get_term(P),
 
83
    ?line {term, "'The rain in Spain stays mainly in the plains'"} =
 
84
        get_term(P),
 
85
 
 
86
    ?line {term, "a"} = get_term(P),
 
87
    ?line {term, "ab"} = get_term(P),
 
88
    ?line {term, "abc"} = get_term(P),
 
89
    ?line {term, "ab@c"} = get_term(P),
 
90
    ?line {term, "'   abcdefghijklmnopq   '"} = get_term(P),
 
91
 
 
92
    ?line runner:recv_eot(P),
 
93
    ok.
 
94
 
 
95
 
 
96
 
 
97
%% Tests formatting various tuples
 
98
 
 
99
tuples(suite) -> [];
 
100
tuples(Config) when is_list(Config) ->
 
101
    ?line P = runner:start(?tuples),
 
102
 
 
103
    ?line {term, "{}"} = get_term(P),
 
104
    ?line {term, "{a}"} = get_term(P),
 
105
    ?line {term, "{a, b}"} = get_term(P),
 
106
    ?line {term, "{a, b, c}"} = get_term(P),
 
107
    ?line {term, "{1}"} = get_term(P),
 
108
    ?line {term, "{[]}"} = get_term(P),
 
109
    ?line {term, "{[], []}"} = get_term(P),
 
110
    ?line {term, "{[], a, b, c}"} = get_term(P),
 
111
    ?line {term, "{[], a, [], b, c}"} = get_term(P),
 
112
    ?line {term, "{[], a, '', b, c}"} = get_term(P),
 
113
 
 
114
    ?line runner:recv_eot(P),
 
115
    ok.
 
116
 
 
117
 
 
118
 
 
119
%% Tests formatting various lists
 
120
 
 
121
lists(suite) -> [];
 
122
lists(Config) when is_list(Config) ->
 
123
    ?line P = runner:start(?lists),
 
124
 
 
125
    ?line {term, "[]"} = get_term(P),
 
126
    ?line {term, "[a]"} = get_term(P),
 
127
    ?line {term, "[a, b]"} = get_term(P),
 
128
    ?line {term, "[a, b, c]"} = get_term(P),
 
129
    ?line {term, "[1]"} = get_term(P),
 
130
    ?line {term, "[[]]"} = get_term(P),
 
131
    ?line {term, "[[], []]"} = get_term(P),
 
132
    ?line {term, "[[], a, b, c]"} = get_term(P),
 
133
    ?line {term, "[[], a, [], b, c]"} = get_term(P),
 
134
    ?line {term, "[[], a, '', b, c]"} = get_term(P),
 
135
    ?line {term, "[[x, 2], [y, 3], [z, 4]]"}= get_term(P),
 
136
 
 
137
%%    ?line {term, "[{name, 'Madonna'}, {age, 21}, {data, [{addr, "E-street", 42}]}]"} = 
 
138
%%      get_term(P),
 
139
    %% kanske regexp i st�llet?
 
140
    ?line {term, "[{pi, 3.141500}, {'cos(70)', 0.342020}]"} = get_term(P),
 
141
    ?line {term, "[[pi, 3.141500], ['cos(70)', 0.342020]]"} = get_term(P),
 
142
 
 
143
    ?line {term, "[-1]"} = get_term(P),
 
144
 
 
145
    ?line runner:recv_eot(P),
 
146
    ok.
 
147
 
 
148
strings(suite) -> [];
 
149
strings(Config) when is_list(Config) ->
 
150
    ?line P = runner:start(?strings),
 
151
 
 
152
    ?line {term, "\"\\n\""} = get_term(P),
 
153
    ?line {term, "\"\\r\\n\""} = get_term(P),
 
154
    ?line {term, "\"a\""} = get_term(P),
 
155
    ?line {term, "\"A\""} = get_term(P),
 
156
    ?line {term, "\"0\""} = get_term(P),
 
157
    ?line {term, "\"9\""} = get_term(P),
 
158
    ?line {term, "\"The rain in Spain stays mainly in the plains\""} = get_term(P),
 
159
    ?line {term, "\"   abcdefghijklmnopq   \""} = get_term(P),
 
160
 
 
161
    ?line runner:recv_eot(P),
 
162
    ok.
 
163