← Back to branch summary

~clint-fewbar/ubuntu/precise/erlang/merge-15b

« back to all changes in this revision

Viewing changes to erts/emulator/test/tuple_SUITE.erl

  • Committer: Package Import Robot
  • Author(s): Sergei Golovan
  • Date: 2011-12-15 19:20:10 UTC
  • mfrom: (1.1.18) (3.5.15 sid)
  • mto: (3.5.16 sid)
  • mto: This revision was merged to the branch mainline in revision 33.
  • Revision ID: package-import@ubuntu.com-20111215192010-jnxcfe3tbrpp0big
Tags: 1:15.b-dfsg-1
* New upstream release.
* Upload to experimental because this release breaks external drivers
  API along with ABI, so several applications are to be fixed.
* Removed SSL patch because the old SSL implementation is removed from
  the upstream distribution.
* Removed never used patch which added native code to erlang beam files.
* Removed the erlang-docbuilder binary package because the docbuilder
  application was dropped by upstream.
* Documented dropping ${erlang-docbuilder:Depends} substvar in
  erlang-depends(1) manpage.
* Made erlang-base and erlang-base-hipe provide virtual package
  erlang-abi-15.b (the number means the first erlang version, which
  provides current ABI).

Show diffs side-by-side

added added

removed removed

Lines of Context:
erts/emulator/test/tuple_SUITE.erl
1
1
%%
2
2
%% %CopyrightBegin%
3
3
%% 
4
 
%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
 
4
%% Copyright Ericsson AB 1997-2011. All Rights Reserved.
5
5
%% 
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
17
17
%% %CopyrightEnd%
18
18
%%
19
19
-module(tuple_SUITE).
20
 
-export([all/1, t_size/1, t_tuple_size/1, t_element/1, t_setelement/1,
 
20
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
 
21
         init_per_group/2,end_per_group/2, 
 
22
         t_size/1, t_tuple_size/1, t_element/1, t_setelement/1,
21
23
         t_list_to_tuple/1, t_tuple_to_list/1,
22
24
         t_make_tuple_2/1, t_make_tuple_3/1, t_append_element/1,
23
25
         build_and_match/1, tuple_with_case/1, tuple_in_guard/1]).
24
 
-include("test_server.hrl").
 
26
-include_lib("test_server/include/test_server.hrl").
25
27
 
26
28
%% Tests tuples and the BIFs:
27
29
%%
33
35
%% make_tuple/2
34
36
%%
35
37
 
36
 
all(suite) ->
37
 
    [build_and_match, t_size, t_tuple_size,
38
 
     t_list_to_tuple, t_tuple_to_list,
39
 
     t_element, t_setelement, t_make_tuple_2,
40
 
     t_make_tuple_3, t_append_element,
 
38
suite() -> [{ct_hooks,[ts_install_cth]}].
 
39
 
 
40
all() -> 
 
41
    [build_and_match, t_size, t_tuple_size, t_list_to_tuple,
 
42
     t_tuple_to_list, t_element, t_setelement,
 
43
     t_make_tuple_2, t_make_tuple_3, t_append_element,
41
44
     tuple_with_case, tuple_in_guard].
42
45
 
 
46
groups() -> 
 
47
    [].
 
48
 
 
49
init_per_suite(Config) ->
 
50
    Config.
 
51
 
 
52
end_per_suite(_Config) ->
 
53
    ok.
 
54
 
 
55
init_per_group(_GroupName, Config) ->
 
56
    Config.
 
57
 
 
58
end_per_group(_GroupName, Config) ->
 
59
    Config.
 
60
 
 
61
 
43
62
build_and_match(Config) when is_list(Config) ->
44
63
    ?line {} = id({}),
45
64
    ?line {1} = id({1}),
80
99
 
81
100
ludicrous_tuple_size(T)
82
101
  when tuple_size(T) =:= 16#7777777777777777777777777777777777 -> ok;
83
 
ludicrous_tuple_size(T) -> error.
 
102
ludicrous_tuple_size(_) -> error.
84
103
 
85
104
%% Tests element/2.
86
105