%%----------------------------------------------------------------------
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1999-2011. 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%
%%
%%----------------------------------------------------------------------
%% File : ip_v4v6_interop_SUITE.erl
%% Description :
%%
%%----------------------------------------------------------------------
-module(ip_v4v6_interop_SUITE).
-compile(export_all).
%%----------------------------------------------------------------------
%% External exports
%%----------------------------------------------------------------------
-export([
all/0,
init_per_suite/1,
end_per_suite/1,
init_per_testcase/2,
end_per_testcase/2,
groups/0,
init_per_group/2,
end_per_group/2
]).
%%-----------------------------------------------------------------
%% Internal exports
%%-----------------------------------------------------------------
-export([]).
%%----------------------------------------------------------------------
%% Include files
%%----------------------------------------------------------------------
-include_lib("test_server/include/test_server.hrl").
-include_lib("orber/include/corba.hrl").
-include_lib("orber/COSS/CosNaming/CosNaming.hrl").
-include_lib("orber/src/orber_iiop.hrl").
-include_lib("orber/src/ifr_objects.hrl").
-include("idl_output/orber_test_server.hrl").
-include_lib("orber/COSS/CosNaming/CosNaming_NamingContextExt.hrl").
-include_lib("orber/COSS/CosNaming/CosNaming_NamingContext.hrl").
%%----------------------------------------------------------------------
%% Macros
%%----------------------------------------------------------------------
-define(default_timeout, ?t:minutes(15)).
-define(match(ExpectedRes,Expr),
fun() ->
AcTuAlReS = (catch (Expr)),
case AcTuAlReS of
ExpectedRes ->
io:format("------ CORRECT RESULT ------~n~p~n",
[AcTuAlReS]),
AcTuAlReS;
_ ->
io:format("###### ERROR ERROR ######~nRESULT: ~p~n",
[AcTuAlReS]),
?line exit(AcTuAlReS)
end
end()).
%%----------------------------------------------------------------------
%% Records
%%----------------------------------------------------------------------
%%======================================================================
%% Initialization functions.
%%======================================================================
init_per_testcase(_Case, Config) ->
%% Starting dual configured ORB
orber:jump_start([{iiop_port, 10001}, {flags, 16#1000}]),
orber:info(),
Dog=test_server:timetrap(?default_timeout),
[{watchdog, Dog}|Config].
end_per_testcase(_Case, Config) ->
orber:jump_stop(),
Dog = ?config(watchdog, Config),
test_server:timetrap_cancel(Dog),
ok.
init_per_suite(Config) ->
Config.
end_per_suite(Config) ->
Config.
%%====================================================================
%% SUITE specification
%%====================================================================
all() ->
[
dual_ipv4v6
].
suite() -> [{ct_hooks,[ts_install_cth]}].
groups() ->
[].
init_per_group(_GroupName, Config) ->
Config.
end_per_group(_GroupName, Config) ->
Config.
%%====================================================================
%% Test Cases
%%====================================================================
dual_ipv4v6(doc) ->
["ORB configured for supporting both IPv4 and IPv6"];
dual_ipv4v6(_Config) ->
%% Starting slave node with ipv4 configured ORB
{ok, Ipv4Node, _Ipv4Host} =
?match({ok,_,_}, orber_test_lib:js_node([{iiop_port, 4001}])),
Ipv4NS = orber_test_lib:remote_apply(Ipv4Node, corba, resolve_initial_references, ["NameService"]),
%% Starting slave node with ipv6 configured ORB
{ok, Ipv6Node, _Ipv6Host} =
?match({ok,_,_}, orber_test_lib:js_node([{iiop_port, 6001}, {flags, 16#0100}])),
Ipv6NS = orber_test_lib:remote_apply(Ipv6Node, corba, resolve_initial_references, ["NameService"]),
%% Add the ipv6 interface in the dual configured ORB
?match({ok, _}, orber:add_listen_interface("::1", normal,
[{ip_family, inet6}, {iiop_port, 10002}])),
DualNS = corba:resolve_initial_references("NameService"),
%% Bind IPv4 NameServer to a name in the dual stack orbs NameServer
NSDual4 = orber_test_lib:remote_apply(Ipv4Node, corba, resolve_initial_references_remote,
["NameService", ["iiop://127.0.0.1:10001"]]),
?match(ok, orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', bind,
[NSDual4, lname:new(["ns4"]), Ipv4NS])),
'CosNaming_NamingContext':resolve(DualNS, lname:new(["ns4"])),
%% Bind IPv6 NameServer to a name in the dual stack orbs NameServer
NSDual6 = orber_test_lib:remote_apply(Ipv6Node, corba, resolve_initial_references_remote,
["NameService", ["iiop://[::1]:10002"]]),
?match(ok, orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', bind,
[NSDual6, lname:new(["ns6"]), Ipv6NS])),
'CosNaming_NamingContext':resolve(DualNS, lname:new(["ns6"])),
%% IPv4: Fetch IPv6 NS reference from dual stack orber and register own NameServer in that
Ipv4NSO = orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', resolve,
[NSDual4, lname:new(["ns6"])]),
?match(ok, orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', bind,
[Ipv4NSO, lname:new(["nso"]), Ipv4NS])),
%% IPv6: Fetch IPv4 NS reference from dual stack orber and register own NameServer in that
Ipv6NSO = orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', resolve,
[NSDual6, lname:new(["ns4"])]),
?match(ok, orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', bind,
[Ipv6NSO, lname:new(["nso"]), Ipv6NS])),
%% IPv4: Fetch own NS reference from IPv6 NameServer and add a context then check that everything went well
Ipv4NSFromIpv6 = orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', resolve,
[Ipv6NS, lname:new(["nso"])]),
_Ipv4NC = orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', bind_new_context,
[Ipv4NSFromIpv6, lname:new(["test_context4"])]),
%% IPv6: Fetch own NS reference from IPv4 NameServer and add a context then check that everything went well
Ipv6NSFromIpv4 = orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', resolve,
[Ipv4NS, lname:new(["nso"])]),
_Ipv6NC = orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', bind_new_context,
[Ipv6NSFromIpv4, lname:new(["test_context6"])]),
%% Check that all the names are register correctly
{ok,DualNames,_} = 'CosNaming_NamingContext':list(DualNS, 100),
{ok,Ipv4Names,_} = orber_test_lib:remote_apply(Ipv4Node, 'CosNaming_NamingContext', list, [Ipv4NS, 100]),
{ok,Ipv6Names,_} = orber_test_lib:remote_apply(Ipv6Node, 'CosNaming_NamingContext', list, [Ipv6NS, 100]),
io:format("\nNames in Dual NS: ~p\n", [DualNames]),
?match(2, length(DualNames)),
io:format("\nNames in IPv4 NS: ~p\n", [Ipv4Names]),
?match(2, length(Ipv4Names)),
io:format("\nNames in IPv6 NS: ~p\n", [Ipv6Names]),
?match(2, length(Ipv6Names)),
ok.
