The R13B03 release.OTP_R13B03

1 files changed, 257 insertions, 0 deletions

diff --git a/lib/stdlib/test/base64_SUITE.erl b/lib/stdlib/test/base64_SUITE.erl
new file mode 100644
index 0000000000..44742063b3
--- /dev/null
+++ b/lib/stdlib/test/base64_SUITE.erl
@@ -0,0 +1,257 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2007-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(base64_SUITE).
+-author('[email protected]').
+
+-include("test_server.hrl").
+-include("test_server_line.hrl").
+
+%% Test server specific exports
+-export([all/1, init_per_testcase/2, end_per_testcase/2]).
+
+%% Test cases must be exported.
+-export([base64_encode/1, base64_decode/1, base64_otp_5635/1,
+	 base64_otp_6279/1, big/1, illegal/1, mime_decode/1,
+	 roundtrip/1]).
+
+init_per_testcase(_, Config) ->
+    Dog = test_server:timetrap(?t:minutes(2)),
+    NewConfig = lists:keydelete(watchdog, 1, Config),
+    [{watchdog, Dog} | NewConfig].
+
+end_per_testcase(_, Config) ->
+    Dog = ?config(watchdog, Config),
+    test_server:timetrap_cancel(Dog),
+    ok.
+
+%%-------------------------------------------------------------------------
+%% Test cases starts here.
+%%-------------------------------------------------------------------------
+all(doc) ->
+    ["Test library functions for base64 encode and decode "
+     "(taken from inets/test/http_format_SUITE)"];
+all(suite) ->
+    [base64_encode, base64_decode, base64_otp_5635,
+     base64_otp_6279, big, illegal, mime_decode,
+     roundtrip].
+
+
+%%-------------------------------------------------------------------------
+base64_encode(doc) ->
+    ["Test base64:encode/1."];
+base64_encode(suite) ->
+    [];
+base64_encode(Config) when is_list(Config) ->
+    %% Two pads 
+    <<"QWxhZGRpbjpvcGVuIHNlc2FtZQ==">> =
+	base64:encode("Aladdin:open sesame"),
+    %% One pad
+    <<"SGVsbG8gV29ybGQ=">> = base64:encode(<<"Hello World">>),
+    %% No pad
+    "QWxhZGRpbjpvcGVuIHNlc2Ft" = 
+	base64:encode_to_string("Aladdin:open sesam"),
+    
+    "MDEyMzQ1Njc4OSFAIzBeJiooKTs6PD4sLiBbXXt9" =
+	base64:encode_to_string(<<"0123456789!@#0^&*();:<>,. []{}">>),
+    ok.
+%%-------------------------------------------------------------------------
+base64_decode(doc) ->
+    ["Test base64:decode/1."];
+base64_decode(suite) ->
+    [];
+base64_decode(Config) when is_list(Config) ->
+    %% Two pads 
+    <<"Aladdin:open sesame">> = 
+	base64:decode("QWxhZGRpbjpvcGVuIHNlc2FtZQ=="),
+    %% One pad
+    <<"Hello World">> = base64:decode(<<"SGVsbG8gV29ybGQ=">>),
+    %% No pad
+    <<"Aladdin:open sesam">> = 
+	base64:decode("QWxhZGRpbjpvcGVuIHNlc2Ft"),
+
+    Alphabet = list_to_binary(lists:seq(0, 255)),
+    Alphabet = base64:decode(base64:encode(Alphabet)),
+
+    %% Encoded base 64 strings may be devided by non base 64 chars.
+    %% In this cases whitespaces.
+    "0123456789!@#0^&*();:<>,. []{}" =
+	base64:decode_to_string(
+	  "MDEy MzQ1Njc4 \tOSFAIzBeJ \niooKTs6 PD4sLi \r\nBbXXt9"),
+    "0123456789!@#0^&*();:<>,. []{}" =
+	base64:decode_to_string(
+	  <<"MDEy MzQ1Njc4 \tOSFAIzBeJ \niooKTs6 PD4sLi \r\nBbXXt9">>),
+    ok.
+%%-------------------------------------------------------------------------
+base64_otp_5635(doc) ->
+    ["OTP-5635: Some data doesn't pass through base64:decode/1 "
+     "correctly"];
+base64_otp_5635(suite) ->
+    [];
+base64_otp_5635(Config) when is_list(Config) ->
+    <<"===">> = base64:decode(base64:encode("===")),
+    ok.
+%%-------------------------------------------------------------------------
+base64_otp_6279(doc) ->
+    ["OTP-6279: Guard needed so that function fails in a correct"
+     "way for faulty input i.e. function_clause"];
+base64_otp_6279(suite) ->
+    [];
+base64_otp_6279(Config) when is_list(Config) ->
+    {'EXIT',{function_clause, _}} = (catch base64:decode("dGVzda==a")),
+    ok.
+%%-------------------------------------------------------------------------
+big(doc) ->
+    ["Encode and decode big binaries."];
+big(suite) ->
+    [];
+big(Config) when is_list(Config) ->
+    Big = make_big_binary(300000),
+    B = base64:encode(Big),
+    true = is_binary(B),
+    400000 = byte_size(B),
+    Big = base64:decode(B),
+    Big = base64:mime_decode(B),
+    ok.
+%%-------------------------------------------------------------------------
+illegal(doc) ->
+    ["Make sure illegal characters are rejected when decoding."];
+illegal(suite) ->
+    [];
+illegal(Config) when is_list(Config) ->
+    {'EXIT',{function_clause, _}} = (catch base64:decode("()")),
+    ok.
+%%-------------------------------------------------------------------------
+mime_decode(doc) ->
+    ["Test base64:mime_decode/1."];
+mime_decode(suite) ->
+    [];
+mime_decode(Config) when is_list(Config) ->
+    %% Two pads 
+    <<"Aladdin:open sesame">> = 
+	base64:mime_decode("QWxhZGRpbjpvc()GVuIHNlc2FtZQ=="),
+    %% One pad, followed by ignored text
+    <<"Hello World">> = base64:mime_decode(<<"SGVsb)(G8gV29ybGQ=apa">>),
+    %% No pad
+    "Aladdin:open sesam" = 
+	base64:mime_decode_to_string("QWxhZGRpbjpvcG�\")(VuIHNlc2Ft"),
+
+    %% Encoded base 64 strings may be divided by non base 64 chars.
+    %% In this cases whitespaces.
+    "0123456789!@#0^&*();:<>,. []{}" =
+	base64:mime_decode_to_string(
+	  <<"MDEy MzQ1Njc4 \tOSFAIzBeJ \nio)(oKTs6 PD4sLi \r\nBbXXt9">>),
+    ok.
+
+
+roundtrip(Config) when is_list(Config) ->
+    Sizes = lists:seq(1, 255) ++ lists:seq(2400-5, 2440),
+    roundtrip_1(Sizes, []).
+
+roundtrip_1([NextSize|Sizes], Current) ->
+    Len = length(Current),
+    io:format("~p", [Len]),
+    do_roundtrip(Current),
+    Next = random_byte_list(NextSize - Len, Current),
+    roundtrip_1(Sizes, Next);
+roundtrip_1([], Last) ->
+    io:format("~p", [length(Last)]),
+    do_roundtrip(Last).
+
+do_roundtrip(List) ->
+    Bin = list_to_binary(List),
+    Base64Bin = base64:encode(List),
+    Base64Bin = base64:encode(Bin),
+    Base64List = base64:encode_to_string(List),
+    Base64Bin = list_to_binary(Base64List),
+    Bin = base64:decode(Base64Bin),
+    List = base64:decode_to_string(Base64Bin),
+    Bin = base64:mime_decode(Base64Bin),
+    List = base64:mime_decode_to_string(Base64Bin),
+    append_roundtrip(8, Bin, List, Base64Bin),
+    prepend_roundtrip(8, Bin, List, Base64List),
+    interleaved_ws_roundtrip(Bin, List, Base64List).
+
+append_roundtrip(0, _, _, _) -> ok;
+append_roundtrip(N, Bin, List, Base64Bin0) ->
+    Base64Bin = <<Base64Bin0/binary,"\n">>,
+    Bin = base64:decode(Base64Bin),
+    List = base64:decode_to_string(Base64Bin),
+    Bin = base64:mime_decode(Base64Bin),
+    List = base64:mime_decode_to_string(Base64Bin),
+
+    Base64List = binary_to_list(Base64Bin),
+    Bin = base64:decode(Base64List),
+    List = base64:decode_to_string(Base64List),
+    Bin = base64:mime_decode(Base64List),
+    List = base64:mime_decode_to_string(Base64List),
+    append_roundtrip(N-1, Bin, List, Base64Bin).
+
+prepend_roundtrip(0, _, _, _) -> ok;
+prepend_roundtrip(N, Bin, List, Base64List0) ->
+    Base64List = [$\s|Base64List0],
+    Bin = base64:decode(Base64List),
+    List = base64:decode_to_string(Base64List),
+    Bin = base64:mime_decode(Base64List),
+    List = base64:mime_decode_to_string(Base64List),
+
+    Base64Bin = list_to_binary(Base64List),
+    Bin = base64:decode(Base64Bin),
+    List = base64:decode_to_string(Base64Bin),
+    Bin = base64:mime_decode(Base64Bin),
+    List = base64:mime_decode_to_string(Base64Bin),
+    prepend_roundtrip(N-1, Bin, List, Base64List).
+
+%% Do an exhaustive test of interleaving whitespace (for short strings).
+interleaved_ws_roundtrip(Bin, List, Base64List) when byte_size(Bin) =< 6 ->
+    interleaved_ws_roundtrip_1(lists:reverse(Base64List), [], Bin, List);
+interleaved_ws_roundtrip(_, _, _) -> ok.
+
+interleaved_ws_roundtrip_1([H|T], Tail, Bin, List) ->
+    interleaved_ws_roundtrip_1(T, [H|Tail], Bin, List),
+    interleaved_ws_roundtrip_1(T, [H,$\s|Tail], Bin, List),
+    interleaved_ws_roundtrip_1(T, [H,$\s,$\t|Tail], Bin, List),
+    interleaved_ws_roundtrip_1(T, [H,$\n,$\t|Tail], Bin, List);
+interleaved_ws_roundtrip_1([], Base64List, Bin, List) ->
+    Bin = base64:decode(Base64List),
+    List = base64:decode_to_string(Base64List),
+    Bin = base64:mime_decode(Base64List),
+    List = base64:mime_decode_to_string(Base64List),
+
+    Base64Bin = list_to_binary(Base64List),
+    Bin = base64:decode(Base64Bin),
+    List = base64:decode_to_string(Base64Bin),
+    Bin = base64:mime_decode(Base64Bin),
+    List = base64:mime_decode_to_string(Base64Bin),
+    ok.
+
+random_byte_list(0, Acc) ->
+    Acc;
+random_byte_list(N, Acc) -> 
+    random_byte_list(N-1, [random:uniform(255)|Acc]).
+
+make_big_binary(N) ->
+    list_to_binary(mbb(N, [])).
+
+mbb(N, Acc) when N > 256 ->
+    B = list_to_binary(lists:seq(0, 255)),
+    mbb(N - 256, [B | Acc]);
+mbb(N, Acc) ->
+    B = list_to_binary(lists:seq(0, N-1)),
+    lists:reverse(Acc, B).