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: