aboutsummaryrefslogblamecommitdiffstats
path: root/lib/eldap/test/eldap_connections_SUITE.erl
blob: 4c8aa9c2cf4b56cd8576a9cb94585b32bf3fb5a3 (plain) (tree)





























































































































                                                                                              
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2012-2014. 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(eldap_connections_SUITE).

-compile(export_all).

-include_lib("common_test/include/ct.hrl").
%-include_lib("eldap/include/eldap.hrl").


all() ->
    [
     tcp_connection,
     tcp_inet6_connection,
     tcp_connection_option,
     tcp_inet6_connection_option
    ].


init_per_suite(Config) -> Config.

end_per_suite(_Config) -> ok.


init_per_testcase(_TestCase, Config) ->
    {ok,Sl} = gen_tcp:listen(0,[]),
    {ok,Sl6} = gen_tcp:listen(0,[inet6]),
    [{listen_socket,Sl}, {listen_socket6,Sl6} | Config].

end_per_testcase(_TestCase, Config) ->
    catch gen_tcp:close( proplists:get_value(listen_socket, Config) ),
    catch gen_tcp:close( proplists:get_value(listen_socket6, Config) ),
    ok.

%%%================================================================
%%%
%%% Test cases
%%% 
%%%----------------------------------------------------------------
tcp_connection(Config) ->
    do_tcp_connection(Config, listen_socket, "localhost", []).

tcp_inet6_connection(Config) ->
    do_tcp_connection(Config, listen_socket6, "::", [{tcpopts,[inet6]}]).


do_tcp_connection(Config, SockKey, Host, Opts) ->
    Sl = proplists:get_value(SockKey, Config),
    {ok,{_,Port}} = inet:sockname(Sl),
    case eldap:open([Host], [{port,Port}|Opts]) of
	{ok,_H} ->
	    case gen_tcp:accept(Sl,1000) of
		{ok,_S} -> ok;
		{error,timeout} -> ct:fail("server side accept timeout",[])
	    end;
	Other -> ct:fail("eldap:open failed: ~p",[Other])
    end.
	    
%%%----------------------------------------------------------------
tcp_connection_option(Config) -> 
    do_tcp_connection_option(Config, listen_socket, "localhost", []).

tcp_inet6_connection_option(Config) -> 
    do_tcp_connection_option(Config, listen_socket6, "::", [{tcpopts,[inet6]}]).


do_tcp_connection_option(Config, SockKey, Host, Opts) ->
    Sl = proplists:get_value(SockKey, Config),
    {ok,{_,Port}} = inet:sockname(Sl),

    %% Make an option value to test.  The option must be implemented on all
    %% platforms that we test on.  Must check what the default value is
    %% so we don't happen to choose that particular value.
    {ok,[{linger,DefaultLinger}]} = inet:getopts(Sl, [linger]),
    TestLinger = case DefaultLinger of
		     {false,_} -> {true,5};
		     {true,_} -> {false,0}
		 end,

    case catch eldap:open([Host], 
		    [{port,Port},{tcpopts,[{linger,TestLinger}]}|Opts]) of
	{ok,H} ->
	    case gen_tcp:accept(Sl,1000) of
		{ok,_} -> 
		    case eldap:getopts(H, [{tcpopts,[linger]}]) of
			{ok,[{tcpopts,[{linger,ActualLinger}]}]} ->
			    case ActualLinger of
				TestLinger -> 
				    ok;
				DefaultLinger ->
				    ct:fail("eldap:getopts: 'linger' didn't change,"
					    " got ~p (=default) expected ~p",
					    [ActualLinger,TestLinger]);
				_ ->
				    ct:fail("eldap:getopts: bad 'linger', got ~p expected ~p",
					    [ActualLinger,TestLinger])
			    end;
			Other ->
			    ct:fail("eldap:getopts: bad result ~p",[Other])
		    end;
		{error,timeout} -> 
		    ct:fail("server side accept timeout",[])
	    end;

	Other ->
	    ct:fail("eldap:open failed: ~p",[Other])
    end.

%%%----------------------------------------------------------------