4
%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 2008-2011. All Rights Reserved.
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
8
8
%% compliance with the License. You should have received a copy of the
9
9
%% Erlang Public License along with this software. If not, it can be
10
10
%% retrieved online at http://www.erlang.org/.
12
12
%% Software distributed under the License is distributed on an "AS IS"
13
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
%% the License for the specific language governing rights and limitations
15
15
%% under the License.
20
20
-module(bs_utf_SUITE).
22
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
23
init_per_group/2,end_per_group/2,
23
24
utf8_roundtrip/1,unused_utf_char/1,utf16_roundtrip/1,
24
25
utf32_roundtrip/1,guard/1,extreme_tripping/1,
25
26
literals/1,coverage/1]).
27
-include("test_server.hrl").
30
test_lib:recompile(?MODULE),
31
[utf8_roundtrip,unused_utf_char,utf16_roundtrip,
32
utf32_roundtrip,guard,extreme_tripping,
28
-include_lib("test_server/include/test_server.hrl").
30
suite() -> [{ct_hooks,[ts_install_cth]}].
33
test_lib:recompile(bs_utf_SUITE),
34
[utf8_roundtrip, unused_utf_char, utf16_roundtrip,
35
utf32_roundtrip, guard, extreme_tripping, literals,
41
init_per_suite(Config) ->
44
end_per_suite(_Config) ->
47
init_per_group(_GroupName, Config) ->
50
end_per_group(_GroupName, Config) ->
35
54
utf8_roundtrip(Config) when is_list(Config) ->
36
55
?line [utf8_roundtrip_1(P) || P <- utf_data()],
314
333
?line 0 = coverage_2(<<4096/utf8,65536/utf8,0>>),
315
334
?line 1 = coverage_2(<<1024/utf8,1025/utf8,1>>),
317
?line {'EXIT',{function_clause,_}} = (catch coverage_3(1)),
336
?line fc(catch coverage_3(1)),
319
338
%% Cover beam_flatten (combining the heap allocation in
320
339
%% a subsequent test_heap instruction into the bs_init2
394
413
<<16#41:32/little,NotIdentical:32/little,
395
414
16#0391:32/little,16#2E:32/little>>}.
416
fc({'EXIT',{function_clause,_}}) -> ok;
417
fc({'EXIT',{{case_clause,_},_}}) when ?MODULE =:= bs_utf_inline_SUITE -> ok.