1: %%-----------------------------------------------------------------
    2: %%
    3: %% %CopyrightBegin%
    4: %% 
    5: %% Copyright Ericsson AB 2004-2011. All Rights Reserved.
    6: %% 
    7: %% The contents of this file are subject to the Erlang Public License,
    8: %% Version 1.1, (the "License"); you may not use this file except in
    9: %% compliance with the License. You should have received a copy of the
   10: %% Erlang Public License along with this software. If not, it can be
   11: %% retrieved online at http://www.erlang.org/.
   12: %% 
   13: %% Software distributed under the License is distributed on an "AS IS"
   14: %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
   15: %% the License for the specific language governing rights and limitations
   16: %% under the License.
   17: %% 
   18: %% %CopyrightEnd%
   19: %%
   20: %%
   21: %%-----------------------------------------------------------------
   22: %% File    : generated_SUITE.erl
   23: %% Purpose : 
   24: %%-----------------------------------------------------------------
   25: 
   26: -module(generated_SUITE).
   27: 
   28: -include_lib("test_server/include/test_server.hrl").
   29: -include_lib("orber/include/corba.hrl").
   30: 
   31: -define(default_timeout, ?t:minutes(3)).
   32: 
   33: -define(match(ExpectedRes, Expr),
   34:         fun() ->
   35: 		AcTuAlReS = (catch (Expr)),
   36: 		case AcTuAlReS of
   37: 		    ExpectedRes ->
   38: 			AcTuAlReS;
   39: 		    _ ->
   40: 			io:format("###### ERROR ERROR ######~n~p~n",
   41: 				  [AcTuAlReS]),
   42: 			?line exit(AcTuAlReS)
   43: 		end
   44: 	end()).
   45: 
   46: -define(nomatch(Not, Expr),
   47:         fun() ->
   48: 		AcTuAlReS = (catch (Expr)),
   49: 		case AcTuAlReS of
   50: 		    Not ->
   51: 			io:format("###### ERROR ERROR ######~n~p~n",
   52: 				  [AcTuAlReS]),
   53: 			?line exit(AcTuAlReS);
   54: 		    _ ->
   55: 			AcTuAlReS
   56: 		end
   57: 	end()).
   58: 
   59: 
   60: -define(checktc(_Op),
   61:         fun(TC) ->
   62: 		case orber_tc:check_tc(TC) of
   63: 		    false ->
   64: 			io:format("###### ERROR ERROR ######~n~p - ~p~n", [Op, TC]),
   65: 			?line exit(TC);
   66: 		    true ->
   67: 			true
   68: 		end
   69: 	end).
   70: 
   71: %%-----------------------------------------------------------------
   72: %% External exports
   73: %%-----------------------------------------------------------------
   74: -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, init_per_group/2,end_per_group/2]).
   75: 
   76: %%-----------------------------------------------------------------
   77: %% Internal exports
   78: %%-----------------------------------------------------------------
   79: -compile(export_all).
   80: 
   81: %%-----------------------------------------------------------------
   82: %% Func: all/1
   83: %% Args: 
   84: %% Returns: 
   85: %%-----------------------------------------------------------------
   86: suite() -> [{ct_hooks,[ts_install_cth]}].
   87: 
   88: all() -> 
   89:     ['CosEventDomainAdmin',
   90:      'CosEventDomainAdmin_DiamondSeq',
   91:      'CosEventDomainAdmin_AlreadyExists',
   92:      'CosEventDomainAdmin_DomainIDSeq',
   93:      'CosEventDomainAdmin_Connection',
   94:      'CosEventDomainAdmin_ConnectionIDSeq',
   95:      'CosEventDomainAdmin_ConnectionNotFound',
   96:      'CosEventDomainAdmin_CycleCreationForbidden',
   97:      'CosEventDomainAdmin_CycleSeq',
   98:      'CosEventDomainAdmin_DiamondCreationForbidden',
   99:      'CosEventDomainAdmin_DomainNotFound',
  100:      'CosEventDomainAdmin_MemberIDSeq',
  101:      'CosEventDomainAdmin_RouteSeq',
  102:      'CosEventDomainAdmin_EventDomainFactory',
  103:      'CosEventDomainAdmin_EventDomain'].
  104: 
  105: groups() -> 
  106:     [].
  107: 
  108: init_per_suite(Config) ->
  109:     Config.
  110: 
  111: end_per_suite(_Config) ->
  112:     ok.
  113: 
  114: init_per_group(_GroupName, Config) ->
  115:     Config.
  116: 
  117: end_per_group(_GroupName, Config) ->
  118:     Config.
  119: 
  120: 
  121: %%-----------------------------------------------------------------
  122: %% Init and cleanup functions.
  123: %%-----------------------------------------------------------------
  124: init_per_testcase(_Case, Config) ->
  125:     ?line Dog=test_server:timetrap(?default_timeout),
  126:     [{watchdog, Dog}|Config].
  127: 
  128: 
  129: end_per_testcase(_Case, Config) ->
  130:     Dog = ?config(watchdog, Config),
  131:     test_server:timetrap_cancel(Dog),
  132:     ok.
  133: 
  134: 
  135: %%-----------------------------------------------------------------
  136: %% Test Case: 'CosEventDomainAdmin'
  137: %% Description: 
  138: %%-----------------------------------------------------------------
  139: 'CosEventDomainAdmin'(doc) -> ["CosEventDomainAdmin"];
  140: 'CosEventDomainAdmin'(suite) -> [];
  141: 'CosEventDomainAdmin'(_) ->
  142:     ?match("CycleDetection", 'CosEventDomainAdmin':'CycleDetection'()),
  143:     ?match(0, 'CosEventDomainAdmin':'AuthorizeCycles'()),
  144:     ?match(1, 'CosEventDomainAdmin':'ForbidCycles'()),
  145:     ?match("DiamondDetection", 'CosEventDomainAdmin':'DiamondDetection'()),
  146:     ?match(0, 'CosEventDomainAdmin':'AuthorizeDiamonds'()),
  147:     ?match(1, 'CosEventDomainAdmin':'ForbidDiamonds'()),
  148:     ok.
  149: 
  150: %%-----------------------------------------------------------------
  151: %% Test Case: 'CosEventDomainAdmin_DiamondSeq'
  152: %% Description: 
  153: %%-----------------------------------------------------------------
  154: 'CosEventDomainAdmin_DiamondSeq'(doc) -> ["CosEventDomainAdmin_DiamondSeq"];
  155: 'CosEventDomainAdmin_DiamondSeq'(suite) -> [];
  156: 'CosEventDomainAdmin_DiamondSeq'(_) ->
  157:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_DiamondSeq':tc())),
  158:     ?match("IDL:omg.org/CosEventDomainAdmin/DiamondSeq:1.0", 
  159: 	   'CosEventDomainAdmin_DiamondSeq':id()),
  160:     ?match("CosEventDomainAdmin_DiamondSeq", 
  161: 	   'CosEventDomainAdmin_DiamondSeq':name()),
  162:     ok.
  163: 
  164: %%-----------------------------------------------------------------
  165: %% Test Case: 'CosEventDomainAdmin_AlreadyExists'
  166: %% Description: 
  167: %%-----------------------------------------------------------------
  168: 'CosEventDomainAdmin_AlreadyExists'(doc) -> ["CosEventDomainAdmin_AlreadyExists"];
  169: 'CosEventDomainAdmin_AlreadyExists'(suite) -> [];
  170: 'CosEventDomainAdmin_AlreadyExists'(_) ->
  171:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_AlreadyExists':tc())),
  172:     ?match("IDL:omg.org/CosEventDomainAdmin/AlreadyExists:1.0", 
  173: 	   'CosEventDomainAdmin_AlreadyExists':id()),
  174:     ?match("CosEventDomainAdmin_AlreadyExists", 
  175: 	   'CosEventDomainAdmin_AlreadyExists':name()),
  176:     ok.
  177: 
  178: %%-----------------------------------------------------------------
  179: %% Test Case: 'CosEventDomainAdmin_DomainIDSeq'
  180: %% Description: 
  181: %%-----------------------------------------------------------------
  182: 'CosEventDomainAdmin_DomainIDSeq'(doc) -> ["CosEventDomainAdmin_DomainIDSeq"];
  183: 'CosEventDomainAdmin_DomainIDSeq'(suite) -> [];
  184: 'CosEventDomainAdmin_DomainIDSeq'(_) ->
  185:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_DomainIDSeq':tc())),
  186:     ?match("IDL:omg.org/CosEventDomainAdmin/DomainIDSeq:1.0", 
  187: 	   'CosEventDomainAdmin_DomainIDSeq':id()),
  188:     ?match("CosEventDomainAdmin_DomainIDSeq", 
  189: 	   'CosEventDomainAdmin_DomainIDSeq':name()),
  190:     ok.
  191: 
  192: %%-----------------------------------------------------------------
  193: %% Test Case: 'CosEventDomainAdmin_Connection'
  194: %% Description: 
  195: %%-----------------------------------------------------------------
  196: 'CosEventDomainAdmin_Connection'(doc) -> ["CosEventDomainAdmin_Connection"];
  197: 'CosEventDomainAdmin_Connection'(suite) -> [];
  198: 'CosEventDomainAdmin_Connection'(_) ->
  199:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_Connection':tc())),
  200:     ?match("IDL:omg.org/CosEventDomainAdmin/Connection:1.0", 
  201: 	   'CosEventDomainAdmin_Connection':id()),
  202:     ?match("CosEventDomainAdmin_Connection", 
  203: 	   'CosEventDomainAdmin_Connection':name()),
  204:     ok.
  205: 
  206: %%-----------------------------------------------------------------
  207: %% Test Case: 'CosEventDomainAdmin_ConnectionIDSeq'
  208: %% Description: 
  209: %%-----------------------------------------------------------------
  210: 'CosEventDomainAdmin_ConnectionIDSeq'(doc) -> ["CosEventDomainAdmin_ConnectionIDSeq"];
  211: 'CosEventDomainAdmin_ConnectionIDSeq'(suite) -> [];
  212: 'CosEventDomainAdmin_ConnectionIDSeq'(_) ->
  213:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_ConnectionIDSeq':tc())),
  214:     ?match("IDL:omg.org/CosEventDomainAdmin/ConnectionIDSeq:1.0", 
  215: 	   'CosEventDomainAdmin_ConnectionIDSeq':id()),
  216:     ?match("CosEventDomainAdmin_ConnectionIDSeq", 
  217: 	   'CosEventDomainAdmin_ConnectionIDSeq':name()),
  218:     ok.
  219: 
  220: %%-----------------------------------------------------------------
  221: %% Test Case: 'CosEventDomainAdmin_ConnectionNotFound'
  222: %% Description: 
  223: %%-----------------------------------------------------------------
  224: 'CosEventDomainAdmin_ConnectionNotFound'(doc) -> ["CosEventDomainAdmin_ConnectionNotFound"];
  225: 'CosEventDomainAdmin_ConnectionNotFound'(suite) -> [];
  226: 'CosEventDomainAdmin_ConnectionNotFound'(_) ->
  227:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_ConnectionNotFound':tc())),
  228:     ?match("IDL:omg.org/CosEventDomainAdmin/ConnectionNotFound:1.0", 
  229: 	   'CosEventDomainAdmin_ConnectionNotFound':id()),
  230:     ?match("CosEventDomainAdmin_ConnectionNotFound", 
  231: 	   'CosEventDomainAdmin_ConnectionNotFound':name()),
  232:     ok.
  233: 
  234: %%-----------------------------------------------------------------
  235: %% Test Case: 'CosEventDomainAdmin_CycleCreationForbidden'
  236: %% Description: 
  237: %%-----------------------------------------------------------------
  238: 'CosEventDomainAdmin_CycleCreationForbidden'(doc) -> ["CosEventDomainAdmin_CycleCreationForbidden"];
  239: 'CosEventDomainAdmin_CycleCreationForbidden'(suite) -> [];
  240: 'CosEventDomainAdmin_CycleCreationForbidden'(_) ->
  241:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_CycleCreationForbidden':tc())),
  242:     ?match("IDL:omg.org/CosEventDomainAdmin/CycleCreationForbidden:1.0", 
  243: 	   'CosEventDomainAdmin_CycleCreationForbidden':id()),
  244:     ?match("CosEventDomainAdmin_CycleCreationForbidden", 
  245: 	   'CosEventDomainAdmin_CycleCreationForbidden':name()),
  246:     ok.
  247: 
  248: %%-----------------------------------------------------------------
  249: %% Test Case: 'CosEventDomainAdmin_CycleSeq'
  250: %% Description: 
  251: %%-----------------------------------------------------------------
  252: 'CosEventDomainAdmin_CycleSeq'(doc) -> ["CosEventDomainAdmin_CycleSeq"];
  253: 'CosEventDomainAdmin_CycleSeq'(suite) -> [];
  254: 'CosEventDomainAdmin_CycleSeq'(_) ->
  255:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_CycleSeq':tc())),
  256:     ?match("IDL:omg.org/CosEventDomainAdmin/CycleSeq:1.0", 
  257: 	   'CosEventDomainAdmin_CycleSeq':id()),
  258:     ?match("CosEventDomainAdmin_CycleSeq", 
  259: 	   'CosEventDomainAdmin_CycleSeq':name()),
  260:     ok.
  261: 
  262: %%-----------------------------------------------------------------
  263: %% Test Case: 'CosEventDomainAdmin_DiamondCreationForbidden'
  264: %% Description: 
  265: %%-----------------------------------------------------------------
  266: 'CosEventDomainAdmin_DiamondCreationForbidden'(doc) -> ["CosEventDomainAdmin_DiamondCreationForbidden"];
  267: 'CosEventDomainAdmin_DiamondCreationForbidden'(suite) -> [];
  268: 'CosEventDomainAdmin_DiamondCreationForbidden'(_) ->
  269:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_DiamondCreationForbidden':tc())),
  270:     ?match("IDL:omg.org/CosEventDomainAdmin/DiamondCreationForbidden:1.0", 
  271: 	   'CosEventDomainAdmin_DiamondCreationForbidden':id()),
  272:     ?match("CosEventDomainAdmin_DiamondCreationForbidden", 
  273: 	   'CosEventDomainAdmin_DiamondCreationForbidden':name()),
  274:     ok.
  275: 
  276: %%-----------------------------------------------------------------
  277: %% Test Case: 'CosEventDomainAdmin_DomainNotFound'
  278: %% Description: 
  279: %%-----------------------------------------------------------------
  280: 'CosEventDomainAdmin_DomainNotFound'(doc) -> ["CosEventDomainAdmin_DomainNotFound"];
  281: 'CosEventDomainAdmin_DomainNotFound'(suite) -> [];
  282: 'CosEventDomainAdmin_DomainNotFound'(_) ->
  283:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_DomainNotFound':tc())),
  284:     ?match("IDL:omg.org/CosEventDomainAdmin/DomainNotFound:1.0", 
  285: 	   'CosEventDomainAdmin_DomainNotFound':id()),
  286:     ?match("CosEventDomainAdmin_DomainNotFound", 
  287: 	   'CosEventDomainAdmin_DomainNotFound':name()),
  288:     ok.
  289: 
  290: %%-----------------------------------------------------------------
  291: %% Test Case: 'CosEventDomainAdmin_MemberIDSeq'
  292: %% Description: 
  293: %%-----------------------------------------------------------------
  294: 'CosEventDomainAdmin_MemberIDSeq'(doc) -> ["CosEventDomainAdmin_MemberIDSeq"];
  295: 'CosEventDomainAdmin_MemberIDSeq'(suite) -> [];
  296: 'CosEventDomainAdmin_MemberIDSeq'(_) ->
  297:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_MemberIDSeq':tc())),
  298:     ?match("IDL:omg.org/CosEventDomainAdmin/MemberIDSeq:1.0", 
  299: 	   'CosEventDomainAdmin_MemberIDSeq':id()),
  300:     ?match("CosEventDomainAdmin_MemberIDSeq", 
  301: 	   'CosEventDomainAdmin_MemberIDSeq':name()),
  302:     ok.
  303: 
  304: %%-----------------------------------------------------------------
  305: %% Test Case: 'CosEventDomainAdmin_RouteSeq'
  306: %% Description: 
  307: %%-----------------------------------------------------------------
  308: 'CosEventDomainAdmin_RouteSeq'(doc) -> ["CosEventDomainAdmin_RouteSeq"];
  309: 'CosEventDomainAdmin_RouteSeq'(suite) -> [];
  310: 'CosEventDomainAdmin_RouteSeq'(_) ->
  311:     ?match(true, orber_tc:check_tc('CosEventDomainAdmin_RouteSeq':tc())),
  312:     ?match("IDL:omg.org/CosEventDomainAdmin/RouteSeq:1.0", 
  313: 	   'CosEventDomainAdmin_RouteSeq':id()),
  314:     ?match("CosEventDomainAdmin_RouteSeq", 
  315: 	   'CosEventDomainAdmin_RouteSeq':name()),
  316:     ok.
  317: 
  318: %%-----------------------------------------------------------------
  319: %% Test Case: 'CosEventDomainAdmin_EventDomainFactory'
  320: %% Description: 
  321: %%-----------------------------------------------------------------
  322: 'CosEventDomainAdmin_EventDomainFactory'(doc) -> ["CosEventDomainAdmin_EventDomainFactory"];
  323: 'CosEventDomainAdmin_EventDomainFactory'(suite) -> [];
  324: 'CosEventDomainAdmin_EventDomainFactory'(_) ->
  325:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomainFactory':oe_tc(create_event_domain)),
  326:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomainFactory':oe_tc(get_all_domains)),
  327:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomainFactory':oe_tc(get_event_domain)),
  328:     ?match(undefined, 'CosEventDomainAdmin_EventDomainFactory':oe_tc(undefined)),
  329:     ?match([_|_], 'CosEventDomainAdmin_EventDomainFactory':oe_get_interface()),
  330:     ?match("IDL:omg.org/CosEventDomainAdmin/EventDomainFactory:1.0", 
  331: 	   'CosEventDomainAdmin_EventDomainFactory':typeID()),
  332:     check_tc('CosEventDomainAdmin_EventDomainFactory':oe_get_interface()),
  333:     ?match(true, 'CosEventDomainAdmin_EventDomainFactory':oe_is_a('CosEventDomainAdmin_EventDomainFactory':typeID())),
  334:     ?match(false, 'CosEventDomainAdmin_EventDomainFactory':oe_is_a("wrong")),
  335:     ok.
  336: 
  337: 
  338: %%-----------------------------------------------------------------
  339: %% Test Case: 'CosEventDomainAdmin_EventDomain'
  340: %% Description: 
  341: %%-----------------------------------------------------------------
  342: 'CosEventDomainAdmin_EventDomain'(doc) -> ["CosEventDomainAdmin_EventDomain"];
  343: 'CosEventDomainAdmin_EventDomain'(suite) -> [];
  344: 'CosEventDomainAdmin_EventDomain'(_) ->
  345:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(add_channel)),
  346:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_all_channels)),
  347:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_channel)),
  348:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(remove_channel)),
  349:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(add_connection)),
  350:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_all_connections)),
  351:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_connection)),
  352:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(remove_connection)),
  353:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_offer_channels)),
  354:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_subscription_channels)),
  355:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(destroy)),
  356:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_cycles)),
  357:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_diamonds)),
  358:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(set_default_consumer_channel)),
  359:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(set_default_supplier_channel)),
  360:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_push_consumer)),
  361:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_pull_consumer)),
  362:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_push_supplier)),
  363:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_pull_supplier)),
  364:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_push_consumer)),
  365:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_pull_consumer)),
  366:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_push_supplier)),
  367:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_pull_supplier)),
  368:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_push_consumer)),
  369:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_pull_consumer)),
  370:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_push_supplier)),
  371:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_pull_supplier)),
  372:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_push_consumer_with_id)),
  373:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_pull_consumer_with_id)),
  374:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_push_supplier_with_id)),
  375:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_pull_supplier_with_id)),
  376:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_push_consumer_with_id)),
  377:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_pull_consumer_with_id)),
  378:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_push_supplier_with_id)),
  379:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_structured_pull_supplier_with_id)),
  380:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_push_consumer_with_id)),
  381:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_pull_consumer_with_id)),
  382:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_push_supplier_with_id)),
  383:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(connect_sequence_pull_supplier_with_id)),
  384:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_qos)),
  385:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(set_qos)),
  386:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(validate_qos)),
  387:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(get_admin)),
  388:     ?nomatch(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(set_admin)),
  389:     ?match(undefined, 'CosEventDomainAdmin_EventDomain':oe_tc(undefined)),
  390:     ?match([_|_], 'CosEventDomainAdmin_EventDomain':oe_get_interface()),
  391:     ?match("IDL:omg.org/CosEventDomainAdmin/EventDomain:1.0", 
  392: 	   'CosEventDomainAdmin_EventDomain':typeID()),
  393:     check_tc('CosEventDomainAdmin_EventDomain':oe_get_interface()),
  394:     ?match(true, 'CosEventDomainAdmin_EventDomain':oe_is_a('CosEventDomainAdmin_EventDomain':typeID())),
  395:     ?match(true, 'CosEventDomainAdmin_EventDomain':oe_is_a('CosNotification_QoSAdmin':typeID())),
  396:     ?match(true, 'CosEventDomainAdmin_EventDomain':oe_is_a('CosNotification_AdminPropertiesAdmin':typeID())),
  397:     ?match(false, 'CosEventDomainAdmin_EventDomain':oe_is_a("wrong")),
  398:     ok.
  399: 
  400: 
  401: 
  402: %%-----------------------------------------------------------------
  403: %% MISC functions
  404: %%-----------------------------------------------------------------
  405: check_tc([]) ->
  406:     ok;
  407: check_tc([{Op, {RetType, InParameters, OutParameters}}|T]) ->
  408:     io:format("checked - ~s~n", [Op]),
  409:     lists:all(?checktc(Op), [RetType|InParameters]),
  410:     lists:all(?checktc(Op), OutParameters),
  411:     check_tc(T).
  412:     
  413: