OTP-8016, OTP-8056, OTP-8103, OTP-8106, OTP-8312, OTP-8315, OTP-8327, OTP-8349,

OTP-8351, OTP-8359 & OTP-8371.

1 files changed, 338 insertions, 0 deletions

diff --git a/lib/inets/test/httpc_cookie_SUITE.erl b/lib/inets/test/httpc_cookie_SUITE.erl
new file mode 100644
index 0000000000..7d91631934
--- /dev/null
+++ b/lib/inets/test/httpc_cookie_SUITE.erl
@@ -0,0 +1,338 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2005-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(httpc_cookie_SUITE).
+
+-include("test_server.hrl").
+-include_lib("stdlib/include/ms_transform.hrl").
+
+%% Test server specific exports
+-export([all/1, init_per_testcase/2, end_per_testcase/2]).
+
+%% Test cases must be exported.
+-export([session_cookies_only/1, netscape_cookies/1, 
+	 cookie_cancel/1, cookie_expires/1, persistent_cookie/1,
+	 domain_cookie/1, secure_cookie/1, update_cookie/1, 
+	 update_cookie_session/1, cookie_attributes/1]).
+
+-define(URL, "http://myhost.cookie.test.org").
+-define(URL_DOMAIN, "http://myhost2.cookie.test.org").
+-define(URL_SECURE, "https://myhost.cookie.test.org").
+
+%% Test server callback functions
+
+%%--------------------------------------------------------------------
+%% Function: init_per_testcase(TestCase, Config) -> Config
+%% Case - atom()
+%%   Name of the test case that is about to be run.
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%%
+%% Description: Initiation before each test case
+%%
+%% Note: This function is free to add any key/value pairs to the Config
+%% variable, but should NOT alter/remove any existing entries.
+%% Description: Initiation before each test case
+%%--------------------------------------------------------------------
+init_per_testcase(session_cookies_only, Config) ->
+    application:start(inets), 
+    http:set_options([{cookies, verify}]),
+    watch_dog(Config);
+
+init_per_testcase(_, Config) ->
+    PrivDir = ?config(priv_dir, Config),
+    application:load(inets),
+    application:set_env(inets, services, [{httpc,{default, PrivDir}}]),
+    application:start(inets), 
+    http:set_options([{cookies, verify}]),
+    watch_dog(Config).
+
+watch_dog(Config) ->
+    Dog = test_server:timetrap(inets_test_lib:minutes(10)),
+    NewConfig = lists:keydelete(watchdog, 1, Config),
+    [{watchdog, Dog} | NewConfig].
+
+%%--------------------------------------------------------------------
+%% Function: end_per_testcase(TestCase, Config) -> _
+%% Case - atom()
+%%   Name of the test case that is about to be run.
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%% Description: Cleanup after each test case
+%%--------------------------------------------------------------------
+end_per_testcase(_TestCase, Config) ->
+    application:stop(inets),
+    File = filename:join(?config(priv_dir, Config), "http_default_cookie_db"),
+    file:delete(File),
+    Dog = ?config(watchdog, Config),
+    test_server:timetrap_cancel(Dog),
+    ok.
+
+%%--------------------------------------------------------------------
+%% Function: all(Clause) -> TestCases
+%% Clause - atom() - suite | doc
+%% TestCases - [Case] 
+%% Case - atom()
+%%   Name of a test case.
+%% Description: Returns a list of all test cases in this test suite
+%%--------------------------------------------------------------------
+all(doc) -> 
+    ["Describe the main purpose of this suite"];
+
+all(suite) -> 
+    [session_cookies_only, netscape_cookies, cookie_cancel,
+     cookie_expires, persistent_cookie, domain_cookie, secure_cookie,
+     update_cookie, update_cookie_session, cookie_attributes].
+
+%% Test cases starts here.
+%%--------------------------------------------------------------------
+session_cookies_only(doc) -> 
+    ["Test that all cookies are handled as session cookies if there"
+     "does not exist a directory to save presitent cookies in."];
+session_cookies_only(suite) -> 
+    [];
+session_cookies_only(Config) when is_list(Config) -> 
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			 ";max-age=60000"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+     {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    application:stop(inets),
+    application:start(inets),
+    {"cookie",""}
+	= http:cookie_header(?URL),
+    ok.
+
+netscape_cookies(doc) -> 
+    ["Test that the old (original) format of cookies are accepted."];
+netscape_cookies(suite) -> 
+    [];
+netscape_cookies(Config) when is_list(Config) -> 
+    Expires = future_netscape_date(),
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/; " 
+			 "expires=" ++ Expires}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    ok.
+
+cookie_cancel(doc) -> 
+    ["A cookie can be canceld by sending the same cookie with max-age=0 "
+     "this test cheks that cookie is canceled."];
+cookie_cancel(suite) -> 
+    [];
+cookie_cancel(Config) when is_list(Config) -> 
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			 "max-age=60000"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    NewSetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			    "max-age=0"}],
+    http:verify_cookies(NewSetCookieHeaders, ?URL),
+    {"cookie", ""} = http:cookie_header(?URL),
+    ok.
+
+cookie_expires(doc) -> 
+    ["Test that a cookie is not used when it has expired"];
+cookie_expires(suite) -> 
+    [];
+cookie_expires(Config) when is_list(Config) -> 
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			 "max-age=5"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    test_server:sleep(10000),
+    {"cookie", ""} = http:cookie_header(?URL),
+    ok.
+
+persistent_cookie(doc)->
+    ["Test domian cookie attribute"];
+persistent_cookie(suite) ->
+    [];
+persistent_cookie(Config) when is_list(Config)->
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			 "max-age=60000"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+     {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    PrivDir = ?config(priv_dir, Config),
+    application:stop(inets),
+    application:load(inets),
+    application:set_env(inets, services, [{httpc,{default, PrivDir}}]),
+    application:start(inets), 
+     http:set_options([{cookies, enabled}]),
+    {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL),
+    ok.
+
+domain_cookie(doc)->
+    ["Test the domian cookie attribute"];
+domain_cookie(suite) ->
+    [];
+domain_cookie(Config) when is_list(Config)->
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" 
+			 "domain=.cookie.test.org"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/; "
+     "$Domain=.cookie.test.org"}
+	= http:cookie_header(?URL_DOMAIN),
+    ok.
+
+secure_cookie(doc)->
+    ["Test the secure cookie attribute"];
+secure_cookie(suite) ->
+    [];
+secure_cookie(Config) when is_list(Config)->
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/; secure"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/"}
+	= http:cookie_header(?URL_SECURE),
+     {"cookie",""}
+	= http:cookie_header(?URL),
+    SetCookieHeaders1 = [{"set-cookie", "test1_cookie=true; path=/; secure"}],
+    http:verify_cookies(SetCookieHeaders1, ?URL),
+    {"cookie","$Version=0; test_cookie=true; $Path=/; "
+     "test1_cookie=true; $Path=/"} = http:cookie_header(?URL_SECURE),
+    ok.
+    
+update_cookie(doc)->
+    ["Test that a cookie can be updated."];
+update_cookie(suite) ->
+    [];
+update_cookie(Config) when is_list(Config)->
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;"
+			 "max-age=6500"},
+			{"set-cookie", "test_cookie2=true; path=/;"
+			 "max-age=6500"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie", "$Version=0; test_cookie2=true; $Path=/; "
+     "test_cookie=true; $Path=/"} = http:cookie_header(?URL),
+    NewSetCookieHeaders = [{"set-cookie", "test_cookie=false; "
+			    "path=/;max-age=6500"}],
+    http:verify_cookies(NewSetCookieHeaders, ?URL),
+    {"cookie", "$Version=0; test_cookie2=true; $Path=/; "
+     "test_cookie=false; $Path=/"} = http:cookie_header(?URL).
+    
+update_cookie_session(doc)->
+    ["Test that a cookie can be updated."];
+update_cookie_session(suite) ->
+    [];
+update_cookie_session(Config) when is_list(Config)->
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/"},
+			{"set-cookie", "test_cookie2=true; path=/"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie", "$Version=0; test_cookie2=true; $Path=/; "
+     "test_cookie=true; $Path=/"} = http:cookie_header(?URL),
+    NewSetCookieHeaders = [{"set-cookie", "test_cookie=false; path=/"}],
+    http:verify_cookies(NewSetCookieHeaders, ?URL),
+    {"cookie", "$Version=0; test_cookie2=true; $Path=/; "
+     "test_cookie=false; $Path=/"} = http:cookie_header(?URL).
+    
+
+cookie_attributes(doc) -> 
+    ["Test attribute not covered by the other test cases"];
+cookie_attributes(suite) -> 
+    [];
+cookie_attributes(Config) when is_list(Config) -> 
+    SetCookieHeaders = [{"set-cookie", "test_cookie=true;version=1;"
+			 "comment=foobar; "%% Comment
+			 "foo=bar;" %% Nonsense should be ignored
+			 "max-age=60000"}],
+    http:verify_cookies(SetCookieHeaders, ?URL),
+    {"cookie","$Version=1; test_cookie=true"} 
+	= http:cookie_header(?URL),
+    ok.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+future_netscape_date() ->
+    [Day, DD, Mon, YYYY] = netscape_date(date()),
+    lists:flatten(io_lib:format("~s, ~s ~s ~s 12:30:00 GMT", 
+				[Day, DD, Mon, YYYY])).
+
+netscape_date({Year, 12, _}) ->
+    NewYear = Year + 1,
+    NewMonth = 1,
+    NewDay = calendar:last_day_of_the_month(NewYear, NewMonth),
+    WeekDay = calendar:day_of_the_week(NewYear, NewMonth, NewDay),
+    WeekDayNrStr = day_nr_str(NewDay), 
+    NewDayStr = week_day_str(WeekDay),
+    MonthStr = month_str(NewMonth),
+    [NewDayStr, WeekDayNrStr, MonthStr, integer_to_list(NewYear)];
+
+netscape_date({Year, Month, _})  ->
+    NewMonth = Month + 1,
+    NewDay = calendar:last_day_of_the_month(Year, NewMonth),
+    WeekDay = calendar:day_of_the_week(Year, NewMonth, NewDay),
+    WeekDayNrStr = day_nr_str(NewDay), 
+    NewDayStr = week_day_str(WeekDay),
+    MonthStr = month_str(NewMonth),
+    [NewDayStr, WeekDayNrStr, MonthStr, integer_to_list(Year)].
+
+week_day_str(1) ->
+    "Mon";
+week_day_str(2) ->
+    "Tus";
+week_day_str(3) ->
+    "Wdy";
+week_day_str(4) ->
+    "Thu";
+week_day_str(5) ->
+    "Fri";
+week_day_str(6) ->
+    "Sat";
+week_day_str(7) ->
+    "Sun".
+
+day_nr_str(1) ->
+    "01";
+day_nr_str(2) ->
+    "02";
+day_nr_str(3) ->
+    "03";
+day_nr_str(4) ->
+    "04";
+day_nr_str(5) ->
+    "05";
+day_nr_str(6) ->
+    "06";
+day_nr_str(7) ->
+    "07";
+day_nr_str(8) ->
+    "08";
+day_nr_str(0) ->
+    "09";
+day_nr_str(N) ->
+    integer_to_list(N).
+
+month_str(1) ->"Jan";
+month_str(2) ->"Feb";
+month_str(3) ->"Mar"; 
+month_str(4) ->"Apr";
+month_str(5) ->"May";
+month_str(6) ->"Jun";
+month_str(7) ->"Jul";
+month_str(8) ->"Aug";
+month_str(9) ->"Sep";
+month_str(10) ->"Oct";
+month_str(11) ->"Nov";
+month_str(12) ->"Dec".