Include the test suites for erl_interface

1 files changed, 300 insertions, 0 deletions

diff --git a/lib/erl_interface/test/ei_decode_SUITE.erl b/lib/erl_interface/test/ei_decode_SUITE.erl
new file mode 100644
index 0000000000..ea528728ab
--- /dev/null
+++ b/lib/erl_interface/test/ei_decode_SUITE.erl
@@ -0,0 +1,300 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2004-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+%%
+-module(ei_decode_SUITE).
+
+-include("test_server.hrl").
+-include("ei_decode_SUITE_data/ei_decode_test_cases.hrl").
+
+-export(
+   [
+    all/1,
+    test_ei_decode_long/1,
+    test_ei_decode_ulong/1,
+    test_ei_decode_longlong/1,
+    test_ei_decode_ulonglong/1,
+    test_ei_decode_char/1,
+    test_ei_decode_nonoptimal/1,
+    test_ei_decode_misc/1
+   ]).
+
+all(suite) ->
+    [
+     test_ei_decode_long,
+     test_ei_decode_ulong,
+     test_ei_decode_longlong,
+     test_ei_decode_ulonglong,
+     test_ei_decode_char,
+     test_ei_decode_nonoptimal,
+     test_ei_decode_misc
+    ].
+
+%% ---------------------------------------------------------------------------
+
+% NOTE: for historical reasons we don't pach as tight as we can,
+%       we only fill 27 bits in 32 bit INTEGER_EXT 
+
+
+%% ######################################################################## %%
+
+test_ei_decode_long(suite) -> [];
+test_ei_decode_long(Config) when is_list(Config) ->
+    ?line P = runner:start(?test_ei_decode_long),
+    send_integers(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+
+%% ######################################################################## %%
+
+test_ei_decode_ulong(suite) -> [];
+test_ei_decode_ulong(Config) when is_list(Config) ->
+    ?line P = runner:start(?test_ei_decode_ulong),
+    send_integers(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+
+% (*) In practical terms, other values may fit into the ext format
+% i32 is signed 32 bit on C side
+% u32 is unsigned 32 bit on C side
+ 
+%% ######################################################################## %%
+
+test_ei_decode_longlong(suite) -> [];
+test_ei_decode_longlong(Config) when is_list(Config) ->
+    case os:type() of
+	vxworks ->
+	    {skip,"Skipped on VxWorks"};
+	_ ->
+	    ?line P = runner:start(?test_ei_decode_longlong),
+	    send_integers2(P),
+	    ?line runner:recv_eot(P),
+	    ok
+    end.
+
+
+%% ######################################################################## %%
+
+test_ei_decode_ulonglong(suite) -> [];
+test_ei_decode_ulonglong(Config) when is_list(Config) ->
+    case os:type() of
+	vxworks ->
+	    {skip,"Skipped on VxWorks"};
+	_ ->
+	    ?line P = runner:start(?test_ei_decode_ulonglong),
+	    send_integers2(P),
+	    ?line runner:recv_eot(P),
+	    ok
+    end.
+
+
+%% ######################################################################## %%
+%% A "character" for us is an 8 bit integer, alwasy positive, i.e.
+%% it is unsigned.
+%% FIXME maybe the API should change to use "unsigned char" to be clear?!
+
+test_ei_decode_char(suite) -> [];
+test_ei_decode_char(Config) when is_list(Config) ->
+    ?line P = runner:start(?test_ei_decode_char),
+
+    ?line send_term_as_binary(P,0),
+    ?line send_term_as_binary(P,16#7f),
+    ?line send_term_as_binary(P,16#ff),
+
+    ?line send_term_as_binary(P, []), % illegal type
+
+    ?line runner:recv_eot(P),
+    ok.
+
+
+%% ######################################################################## %%
+
+test_ei_decode_nonoptimal(suite) -> [];
+test_ei_decode_nonoptimal(Config) when is_list(Config) ->
+    ?line P = runner:start(?test_ei_decode_nonoptimal),
+
+    send_non_optimal_pos(P),			% decode_char
+    send_non_optimal(P),			% decode_long
+    send_non_optimal_pos(P),			% decode_ulong
+    case os:type() of
+	vxworks ->
+	    ok;
+	_ ->
+	    send_non_optimal(P),			% decode_longlong
+	    send_non_optimal_pos(P)			% decode_ulonglong
+    end,
+
+    ?line runner:recv_eot(P),
+    ok.
+
+
+send_non_optimal(P) ->
+    send_non_optimal_pos(P),
+    send_non_optimal_neg(P).
+
+send_non_optimal_pos(P) ->
+    ?line send_raw(P, <<131,97,42>>),
+    ?line send_raw(P, <<131,98,42:32>>),
+    ?line send_raw(P, <<131,110,1,0,42>>),
+    ?line send_raw(P, <<131,110,2,0,42,0>>),
+    ?line send_raw(P, <<131,110,4,0,42,0,0,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,1,0,42>>),
+    ?line send_raw(P, <<131,111,0,0,0,2,0,42,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,3,0,42,0,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,6,0,42,0,0,0,0,0>>),
+    ok.
+
+send_non_optimal_neg(P) ->
+%   ?line send_raw(P, <<131,97,-42>>),
+    ?line send_raw(P, <<131,98,-42:32>>),
+    ?line send_raw(P, <<131,110,1,1,42>>),
+    ?line send_raw(P, <<131,110,2,1,42,0>>),
+    ?line send_raw(P, <<131,110,4,1,42,0,0,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,1,1,42>>),
+    ?line send_raw(P, <<131,111,0,0,0,2,1,42,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,3,1,42,0,0>>),
+    ?line send_raw(P, <<131,111,0,0,0,6,1,42,0,0,0,0,0>>),
+    ok.
+
+
+%% ######################################################################## %%
+
+test_ei_decode_misc(suite) -> [];
+test_ei_decode_misc(Config) when is_list(Config) ->
+    ?line P = runner:start(?test_ei_decode_misc),
+
+%    ?line <<131>>  = get_binaries(P),
+
+%    ?line {term,F} = get_term(P),
+%    ?line match_float(F, 0.0),
+%    ?line {term,F} = get_term(P),
+%    ?line match_float(F, 0.0),
+
+%    ?line {term,F} = get_term(P),
+%    ?line true = match_float(F, -1.0),
+%    ?line {term,F} = get_term(P),
+%    ?line true = match_float(F, -1.0),
+
+%    ?line {term,F} = get_term(P),
+%    ?line true = match_float(F, 1.0),
+%    ?line {term,F} = get_term(P),
+%    ?line true = match_float(F, 1.0),
+
+    ?line send_term_as_binary(P,false),
+    ?line send_term_as_binary(P,true),
+
+    ?line send_term_as_binary(P,foo),
+    ?line send_term_as_binary(P,''),
+    ?line send_term_as_binary(P,'������'),
+
+    ?line send_term_as_binary(P,"foo"),
+    ?line send_term_as_binary(P,""),
+    ?line send_term_as_binary(P,"������"),
+
+    ?line send_term_as_binary(P,<<"foo">>),
+    ?line send_term_as_binary(P,<<>>),
+    ?line send_term_as_binary(P,<<"������">>),
+
+%    ?line send_term_as_binary(P,{}),
+%    ?line send_term_as_binary(P,[]),
+
+    ?line runner:recv_eot(P),
+    ok.
+
+
+%% ######################################################################## %%
+
+send_term_as_binary(Port, Term) when is_port(Port) ->
+    Port ! {self(), {command, term_to_binary(Term)}}.
+
+send_raw(Port, Bin) when is_port(Port) ->
+    Port ! {self(), {command, Bin}}.
+
+
+send_integers(P) ->
+    ?line send_term_as_binary(P,0),		% SMALL_INTEGER_EXT smallest
+    ?line send_term_as_binary(P,255),		% SMALL_INTEGER_EXT largest
+    ?line send_term_as_binary(P,256),		% INTEGER_EXT smallest pos (*)
+    ?line send_term_as_binary(P,-1),		% INTEGER_EXT largest  neg 
+
+    ?line send_term_as_binary(P, 16#07ffffff),	% INTEGER_EXT largest (28 bits)
+    ?line send_term_as_binary(P,-16#08000000),	% INTEGER_EXT smallest 
+    ?line send_term_as_binary(P, 16#08000000),  % SMALL_BIG_EXT smallest pos(*)
+    ?line send_term_as_binary(P,-16#08000001),	% SMALL_BIG_EXT largest neg (*)
+
+    ?line send_term_as_binary(P, 16#7fffffff),	% SMALL_BIG_EXT largest  i32
+    ?line send_term_as_binary(P,-16#80000000),	% SMALL_BIG_EXT smallest i32
+
+    case erlang:system_info(wordsize) of
+	4 ->	 
+          ?line send_term_as_binary(P, 16#80000000),% SMALL_BIG_EXT u32
+          ?line send_term_as_binary(P, 16#ffffffff),% SMALL_BIG_EXT largest u32
+
+          ?line send_term_as_binary(P, 16#7fffffffffff), % largest  i48
+          ?line send_term_as_binary(P,-16#800000000000), % smallest i48
+          ?line send_term_as_binary(P, 16#ffffffffffff), % largest  u48
+          ?line send_term_as_binary(P, 16#7fffffffffffffff), % largest  i64
+          ?line send_term_as_binary(P,-16#8000000000000000), % smallest i64
+          ?line send_term_as_binary(P, 16#ffffffffffffffff); % largest  u64
+	8 ->
+          ?line send_term_as_binary(P, 16#8000000000000000),% SMALL_BIG_EXT u64
+	  % SMALL_BIG_EXT largest u64
+          ?line send_term_as_binary(P, 16#ffffffffffffffff),
+	  % largest  i96
+          ?line send_term_as_binary(P, 16#7fffffffffffffffffffffff), 
+	  % smallest i96
+          ?line send_term_as_binary(P,-16#800000000000000000000000), 
+	  % largest  u96
+          ?line send_term_as_binary(P, 16#ffffffffffffffffffffffff), 
+	  % largest  i128
+          ?line send_term_as_binary(P, 16#7fffffffffffffffffffffffffffffff), 
+	  % smallest i128
+          ?line send_term_as_binary(P,-16#80000000000000000000000000000000),
+	  % largest  u128 
+          ?line send_term_as_binary(P, 16#ffffffffffffffffffffffffffffffff) 
+    end,
+    ?line send_term_as_binary(P, []), % illegal type
+    ok.
+
+send_integers2(P) ->
+    ?line send_term_as_binary(P,0),		% SMALL_INTEGER_EXT smallest
+    ?line send_term_as_binary(P,255),		% SMALL_INTEGER_EXT largest
+    ?line send_term_as_binary(P,256),		% INTEGER_EXT smallest pos (*)
+    ?line send_term_as_binary(P,-1),		% INTEGER_EXT largest  neg 
+
+    ?line send_term_as_binary(P, 16#07ffffff),	% INTEGER_EXT largest (28 bits)
+    ?line send_term_as_binary(P,-16#08000000),	% INTEGER_EXT smallest 
+    ?line send_term_as_binary(P, 16#08000000),  % SMALL_BIG_EXT smallest pos(*)
+    ?line send_term_as_binary(P,-16#08000001),	% SMALL_BIG_EXT largest neg (*)
+
+    ?line send_term_as_binary(P, 16#7fffffff),	% SMALL_BIG_EXT largest  i32
+    ?line send_term_as_binary(P,-16#80000000),	% SMALL_BIG_EXT smallest i32
+    ?line send_term_as_binary(P, 16#80000000),% SMALL_BIG_EXT u32
+    ?line send_term_as_binary(P, 16#ffffffff),% SMALL_BIG_EXT largest u32
+
+    ?line send_term_as_binary(P, 16#7fffffffffff), % largest  i48
+    ?line send_term_as_binary(P,-16#800000000000), % smallest i48
+    ?line send_term_as_binary(P, 16#ffffffffffff), % largest  u48
+    ?line send_term_as_binary(P, 16#7fffffffffffffff), % largest  i64
+    ?line send_term_as_binary(P,-16#8000000000000000), % smallest i64
+    ?line send_term_as_binary(P, 16#ffffffffffffffff), % largest  u64
+    ?line send_term_as_binary(P, []), % illegal type
+    ok.