From 6bcdad20c24457393c0d9eeb385d0ff5aa872cd0 Mon Sep 17 00:00:00 2001 From: Lars Thorsen Date: Wed, 25 Apr 2018 15:09:14 +0200 Subject: Move the corba applcations to separate repository All corba applications are moved to a separate repository. E.g. orber, ic, cosEvent, cosEventDomain, cosNotifications cosTime, cosTransactions, cosProperty and cosFileTransfer. --- lib/orber/test/orber_acl_SUITE.erl | 299 ------------------------------------- 1 file changed, 299 deletions(-) delete mode 100644 lib/orber/test/orber_acl_SUITE.erl (limited to 'lib/orber/test/orber_acl_SUITE.erl') diff --git a/lib/orber/test/orber_acl_SUITE.erl b/lib/orber/test/orber_acl_SUITE.erl deleted file mode 100644 index 2b0a48adc9..0000000000 --- a/lib/orber/test/orber_acl_SUITE.erl +++ /dev/null @@ -1,299 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2004-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%----------------------------------------------------------------- -%% -%% Description: -%% Test suite for the ACL functions -%% -%%----------------------------------------------------------------- --module(orber_acl_SUITE). - --include_lib("common_test/include/ct.hrl"). - --define(default_timeout, test_server:minutes(5)). - --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]), - exit(AcTuAlReS) - end - end()). - -%%----------------------------------------------------------------- -%% External exports -%%----------------------------------------------------------------- --export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2]). - -%%----------------------------------------------------------------- -%% Internal exports -%%----------------------------------------------------------------- --compile(export_all). - -%%----------------------------------------------------------------- -%% Func: all/1 -%% Args: -%% Returns: -%%----------------------------------------------------------------- -suite() -> [{ct_hooks,[ts_install_cth]}]. - -all() -> - [ipv4_verify, ipv4_range, ipv4_interfaces, ipv4_bm, - ipv6_verify, ipv6_range, ipv6_interfaces, ipv6_bm]. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%----------------------------------------------------------------- -%% Init and cleanup functions. -%%----------------------------------------------------------------- -init_per_suite(Config) -> - if - is_list(Config) -> - Config; - true -> - exit("Config not a list") - end. - -end_per_suite(Config) -> - Config. - - -init_per_testcase(_Case, Config) -> - Dog=test_server:timetrap(?default_timeout), - [{watchdog, Dog}|Config]. - - -end_per_testcase(_Case, Config) -> - Dog = proplists:get_value(watchdog, Config), - test_server:timetrap_cancel(Dog), - ok. - -%%----------------------------------------------------------------- -%% Test Case -%% Description: Testing IPv4 Verify Operation -%%----------------------------------------------------------------- -ipv4_verify(_) -> - ?match(true, orber_acl:verify("192.168.64.148", "192.168.64.0/17", inet)), - ?match({false,"192.168.128.0","192.168.255.255"}, - orber_acl:verify("192.168.64.148", "192.168.255.0/17", inet)), - ?match(true, orber_acl:verify("192.168.255.148", "192.168.128.0/17", inet)), - ?match(true, orber_acl:verify("192.168.128.148", "192.168.128.0/17", inet)), - ?match(true, orber_acl:verify("192.168.255.255", "192.168.128.0/16", inet)), - ?match({false,"192.168.0.0","192.168.255.255"}, - orber_acl:verify("192.169.255.255", "192.168.128.0/16", inet)), - ?match(true, orber_acl:verify("192.168.128.255", "192.168.128.0/24", inet)), - ?match({false,"192.168.128.0","192.168.128.255"}, - orber_acl:verify("192.168.255.255", "192.168.128.0/24", inet)), - ?match({false,"192.168.128.0","192.168.128.127"}, - orber_acl:verify("192.168.128.255", "192.168.128.0/25", inet)), - ?match(true, orber_acl:verify("192.168.128.255", "192.168.128.128/25", inet)), - ?match(true, orber_acl:verify("192.168.128.128", "192.168.128.128/32", inet)), - ?match({false,"192.168.128.128.","192.168.128.128."}, - orber_acl:verify("192.168.128.255", "192.168.128.128/32", inet)), - ?match(true, orber_acl:verify("192.168.128.128", "192.168.128.128", inet)), - ?match({false,"192.168.128.128.","192.168.128.128."}, - orber_acl:verify("192.168.128.255", "192.168.128.128", inet)), - ?match(true, orber_acl:verify("192.168.128.255", "192.168.128.128/7", inet)), - ok. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Testing IPv4 Range Operation -%%----------------------------------------------------------------- -ipv4_range(_) -> - ?match({ok,"192.168.0.0", "192.168.127.255"}, - orber_acl:range("192.168.64.0/17")), - ?match({ok, "192.168.128.0", "192.168.255.255"}, - orber_acl:range("192.168.255.0/17")), - ?match({ok,"192.168.128.0","192.168.255.255"}, - orber_acl:range("192.168.128.0/17")), - ?match({ok,"192.168.0.0","192.168.255.255"}, - orber_acl:range("192.168.128.0/16")), - ?match({ok,"192.168.128.0","192.168.128.255"}, - orber_acl:range("192.168.128.0/24")), - ?match({ok,"192.168.128.0","192.168.128.127"}, - orber_acl:range("192.168.128.0/25")), - ?match({ok,"192.168.128.128","192.168.128.255"}, - orber_acl:range("192.168.128.128/25")), - ?match({ok,"192.168.128.128.","192.168.128.128."}, - orber_acl:range("192.168.128.128/32")), - ?match({ok,"192.168.128.128.","192.168.128.128."}, - orber_acl:range("192.168.128.128")), - ?match({ok,"192.0.0.0","193.255.255.255"}, - orber_acl:range("192.168.128.128/7")), - ok. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Testing IPv4 Interfaces Operation -%%----------------------------------------------------------------- -ipv4_interfaces(_) -> - ?match({ok, _}, - orber_acl:init_acl([{tcp_in, "192.168.128.0/18", ["10.1.1.1"]}, - {tcp_in, "192.167.64.0/18#4001/5001", ["10.1.1.2"]}, - {tcp_in, "192.166.192.0/18"}], inet)), - {ok, IPTuple1} = ?match({ok, _}, inet:getaddr("192.168.128.0", inet)), - ?match({true, ["10.1.1.1"], 0}, orber_acl:match(IPTuple1, tcp_in, true)), - ?match({false, [], 0}, orber_acl:match(IPTuple1, tcp_out, true)), - {ok, IPTuple2} = ?match({ok, _}, inet:getaddr("192.167.64.0", inet)), - ?match({true, ["10.1.1.2"], {4001,5001}}, orber_acl:match(IPTuple2, tcp_in, true)), - ?match({false, [], 0}, orber_acl:match(IPTuple2, tcp_out, true)), - {ok, IPTuple3} = ?match({ok, _}, inet:getaddr("192.166.192.0", inet)), - ?match({true, [], 0}, orber_acl:match(IPTuple3, tcp_in, true)), - ?match(false, orber_acl:match(IPTuple3, tcp_out)), - ?match(ok, orber_acl:clear_acl()), - ok. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Benchmarking runtime critical IPv4 Operations -%%----------------------------------------------------------------- -ipv4_bm(_) -> - ?match({ok, _, _, _}, bm2([{tcp_in, "192.168.64.0/17"}], inet, "192.168.64.148")), - ok. -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Testing IPv6 Verify Operation -%%----------------------------------------------------------------- -ipv6_verify(_) -> - case orber_test_lib:version_ok() of - true -> - ?match(true, orber_acl:verify("2002:C0A8:0:0:0:0:0:0", "2002:C0A8::/48", inet6)), - ?match(true, orber_acl:verify("2002:C0A8:0:FFFF:FFFF:FFFF:FFFF:FFFF", "2002:C0A8::/48", inet6)), - ?match({false,"2002:C0A8:0:0:0:0:0:0", "2002:C0A8:0:FFFF:FFFF:FFFF:FFFF:FFFF"}, - orber_acl:verify("2002:C0A8:1:FFFF:FFFF:FFFF:FFFF:FFFF", "2002:C0A8::/48", inet6)), - ?match(true, orber_acl:verify("2002:C0A8:1:FFFF:FFFF:FFFF:FFFF:FFFF", "2002:C0A8::/47", inet6)), - ?match({false,"2002:C0A8:0:0:0:0:0:0", "2002:C0A8:1:FFFF:FFFF:FFFF:FFFF:FFFF"}, - orber_acl:verify("2002:C0A8:2:FFFF:FFFF:FFFF:FFFF:FFFF", "2002:C0A8::/47", inet6)), - ok; - Reason -> - Reason - end. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Testing IPv6 Range Operation -%%----------------------------------------------------------------- -ipv6_range(_) -> - case orber_test_lib:version_ok() of - true -> - ?match({ok,"2002:C0A8:0:0:0:0:0:0", "2002:C0A8:0:FFFF:FFFF:FFFF:FFFF:FFFF"}, - orber_acl:range("2002:C0A8::/48", inet6)), - ?match({ok,"2002:C0A8:0:0:0:0:0:0", "2002:C0A8:1:FFFF:FFFF:FFFF:FFFF:FFFF"}, - orber_acl:range("2002:C0A8::/47", inet6)), - ok; - Reason -> - Reason - end. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Testing IPv6 Interfaces Operation -%%----------------------------------------------------------------- -ipv6_interfaces(_) -> - case orber_test_lib:version_ok() of - true -> - ?match({ok, _}, orber_acl:init_acl([{tcp_in, "2002:C0A8::/49", ["0:0:0:0:0:0:10.1.1.1"]}], inet6)), - {ok, IPTuple1} = ?match({ok, _}, inet:getaddr("2002:C0A8:0:7FFF:FFFF:FFFF:FFFF:FFFF", inet6)), - ?match({true, ["0:0:0:0:0:0:10.1.1.1"], 0}, orber_acl:match(IPTuple1, tcp_in, true)), - ?match(false, orber_acl:match(IPTuple1, tcp_out)), - ?match(ok, orber_acl:clear_acl()), - ok; - Reason -> - Reason - end. - -%%----------------------------------------------------------------- -%% Test Case : -%% Description: Benchmarking runtime critical IPv6 Operations -%%----------------------------------------------------------------- -ipv6_bm(_) -> - case orber_test_lib:version_ok() of - true -> - ?match({ok, _, _, _}, bm2([{tcp_in, "2002:C0A8::/48"}], inet6, "2002:C0A8:0:0:0:0:0:0")), - ok; - Reason -> - Reason - end. - -%%----------------------------------------------------------------- -%% Local Functions -%%----------------------------------------------------------------- --define(NO_OF_TIMES, 1000). - -bm2(Filters, Family, Ip) -> - {ok, IPTuple} = inet:getaddr(Ip, Family), - orber_acl:init_acl(Filters, Family), - TimeBefore1 = erlang:timestamp(), - bm_loop(IPTuple, ?NO_OF_TIMES), - TimeAfter1 = erlang:timestamp(), - orber_acl:clear_acl(), - Time1 = computeTime(TimeBefore1, TimeAfter1), - orber_acl:init_acl(Filters, Family), - TimeBefore2 = erlang:timestamp(), - bm_loop2(Ip, ?NO_OF_TIMES, Family), - TimeAfter2 = erlang:timestamp(), - orber_acl:clear_acl(), - Time2 = computeTime(TimeBefore2, TimeAfter2), - orber_acl:init_acl(Filters, Family), - TimeBefore3 = erlang:timestamp(), - bm_loop2(IPTuple, ?NO_OF_TIMES, Family), - TimeAfter3 = erlang:timestamp(), - orber_acl:clear_acl(), - Time3 = computeTime(TimeBefore3, TimeAfter3), - {ok, round(?NO_OF_TIMES/Time1), round(?NO_OF_TIMES/Time2), round(?NO_OF_TIMES/Time3)}. - - -bm_loop(_Ip, 0) -> - ok; -bm_loop(Ip, N) -> - true = orber_acl:match(Ip, tcp_in), - bm_loop(Ip, N-1). - -bm_loop2(_Ip, 0, _Family) -> - ok; -bm_loop2(Ip, N, Family) -> - {ok, IPTuple} = inet:getaddr(Ip, Family), - true = orber_acl:match(IPTuple, tcp_in), - bm_loop2(Ip, N-1, Family). - -computeTime({_MegaSecb, Secb, MicroSecb}, {_MegaSeca, Seca, MicroSeca}) -> - (Seca - Secb) + ((MicroSeca - MicroSecb) / 1000000). - - -%%----------------------------------------------------------------- -%% END OF MODULE -%%----------------------------------------------------------------- -- cgit v1.2.3