aboutsummaryrefslogtreecommitdiffstats
path: root/lib/cosEvent/test/generated_SUITE.erl
blob: bbf4fe2439aef64398388dffffd7b6d561fc66fc (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
%%-----------------------------------------------------------------
%%
%% %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%
%%
%%
%%-----------------------------------------------------------------
%% File    : generated_SUITE.erl
%% Purpose : 
%%-----------------------------------------------------------------

-module(generated_SUITE).

-include_lib("common_test/include/ct.hrl").
-include_lib("orber/include/corba.hrl").

-define(default_timeout, test_server:minutes(3)).

-define(match(ExpectedRes, Expr),
        fun() ->
		AcTuAlReS = (catch (Expr)),
		case AcTuAlReS of
		    ExpectedRes ->
			AcTuAlReS;
		    _ ->
			io:format("###### ERROR ERROR ######~n~p~n",
				  [AcTuAlReS]),
			exit(AcTuAlReS)
		end
	end()).

-define(nomatch(Not, Expr),
        fun() ->
		AcTuAlReS = (catch (Expr)),
		case AcTuAlReS of
		    Not ->
			io:format("###### ERROR ERROR ######~n~p~n",
				  [AcTuAlReS]),
			exit(AcTuAlReS);
		    _ ->
			AcTuAlReS
		end
	end()).


-define(checktc(_Op),
        fun(TC) ->
		case orber_tc:check_tc(TC) of
		    false ->
			io:format("###### ERROR ERROR ######~n~p - ~p~n", [Op, TC]),
			exit(TC);
		    true ->
			true
		end
	end).

%%-----------------------------------------------------------------
%% External exports
%%-----------------------------------------------------------------
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
	 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() -> 
    ['CosEventChannelAdmin_AlreadyConnected',
     'CosEventChannelAdmin_TypeError',
     'CosEventComm_Disconnected',
     'CosEventChannelAdmin_ConsumerAdmin',
     'CosEventChannelAdmin_EventChannel',
     'CosEventChannelAdmin_ProxyPullConsumer',
     'CosEventChannelAdmin_ProxyPullSupplier',
     'CosEventChannelAdmin_ProxyPushConsumer',
     'CosEventChannelAdmin_ProxyPushSupplier',
     'CosEventChannelAdmin_SupplierAdmin',
     oe_CosEventComm_CAdmin, oe_CosEventComm_Channel,
     oe_CosEventComm_Event, oe_CosEventComm_PullerS,
     oe_CosEventComm_PusherS, 'CosEventComm_PullConsumer',
     'CosEventComm_PullSupplier',
     'CosEventComm_PushConsumer',
     'CosEventComm_PushSupplier'].

groups() -> 
    [].

init_per_suite(Config) ->
    Config.

end_per_suite(_Config) ->
    ok.

init_per_group(_GroupName, Config) ->
    Config.

end_per_group(_GroupName, Config) ->
    Config.


%%-----------------------------------------------------------------
%% Init and cleanup functions.
%%-----------------------------------------------------------------
init_per_testcase(_Case, Config) ->
    Dog=test_server:timetrap(?default_timeout),
    [{watchdog, Dog}|Config].


end_per_testcase(_Case, Config) ->
    Dog = proplist:get_value(watchdog, Config),
    test_server:timetrap_cancel(Dog),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_AlreadyConnected'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_AlreadyConnected'(_) ->
    ?match(true, orber_tc:check_tc('CosEventChannelAdmin_AlreadyConnected':tc())),
    ?match("IDL:omg.org/CosEventChannelAdmin/AlreadyConnected:1.0", 
	   'CosEventChannelAdmin_AlreadyConnected':id()),
    ?match("CosEventChannelAdmin_AlreadyConnected", 
	   'CosEventChannelAdmin_AlreadyConnected':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_TypeError'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_TypeError'(_) ->
    ?match(true, orber_tc:check_tc('CosEventChannelAdmin_TypeError':tc())),
    ?match("IDL:omg.org/CosEventChannelAdmin/TypeError:1.0", 
	   'CosEventChannelAdmin_TypeError':id()),
    ?match("CosEventChannelAdmin_TypeError", 
	   'CosEventChannelAdmin_TypeError':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosEventComm_Disconnected'
%% Description: 
%%-----------------------------------------------------------------
'CosEventComm_Disconnected'(_) ->
    ?match(true, orber_tc:check_tc('CosEventComm_Disconnected':tc())),
    ?match("IDL:omg.org/CosEventComm/Disconnected:1.0", 
	   'CosEventComm_Disconnected':id()),
    ?match("CosEventComm_Disconnected", 'CosEventComm_Disconnected':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_ConsumerAdmin'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_ConsumerAdmin'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_ConsumerAdmin':oe_tc(obtain_push_supplier)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ConsumerAdmin':oe_tc(obtain_pull_supplier)),
    ?match(undefined, 'CosEventChannelAdmin_ConsumerAdmin':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_ConsumerAdmin':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/ConsumerAdmin:1.0", 
	   'CosEventChannelAdmin_ConsumerAdmin':typeID()),
    check_tc('CosEventChannelAdmin_ConsumerAdmin':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_ConsumerAdmin':oe_is_a('CosEventChannelAdmin_ConsumerAdmin':typeID())),
    ?match(false, 'CosEventChannelAdmin_ConsumerAdmin':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_EventChannel'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_EventChannel'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_EventChannel':oe_tc(for_consumers)),
    ?nomatch(undefined, 'CosEventChannelAdmin_EventChannel':oe_tc(for_suppliers)),
    ?nomatch(undefined, 'CosEventChannelAdmin_EventChannel':oe_tc(destroy)),
    ?match(undefined, 'CosEventChannelAdmin_EventChannel':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_EventChannel':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/EventChannel:1.0", 
	   'CosEventChannelAdmin_EventChannel':typeID()),
    check_tc('CosEventChannelAdmin_EventChannel':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_EventChannel':oe_is_a('CosEventChannelAdmin_EventChannel':typeID())),
    ?match(false, 'CosEventChannelAdmin_EventChannel':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_ProxyPullConsumer'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_ProxyPullConsumer'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullConsumer':oe_tc(connect_pull_supplier)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullConsumer':oe_tc(disconnect_pull_consumer)),
    ?match(undefined, 'CosEventChannelAdmin_ProxyPullConsumer':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_ProxyPullConsumer':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/ProxyPullConsumer:1.0", 
	   'CosEventChannelAdmin_ProxyPullConsumer':typeID()),
    check_tc('CosEventChannelAdmin_ProxyPullConsumer':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_ProxyPullConsumer':oe_is_a('CosEventChannelAdmin_ProxyPullConsumer':typeID())),
    ?match(true, 'CosEventChannelAdmin_ProxyPullConsumer':oe_is_a('CosEventComm_PullConsumer':typeID())),
    ?match(false, 'CosEventChannelAdmin_ProxyPullConsumer':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_ProxyPullSupplier'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_ProxyPullSupplier'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullSupplier':oe_tc(connect_pull_consumer)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullSupplier':oe_tc(pull)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullSupplier':oe_tc(try_pull)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPullSupplier':oe_tc(disconnect_pull_supplier)),
    ?match(undefined, 'CosEventChannelAdmin_ProxyPullSupplier':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_ProxyPullSupplier':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/ProxyPullSupplier:1.0", 
	   'CosEventChannelAdmin_ProxyPullSupplier':typeID()),
    check_tc('CosEventChannelAdmin_ProxyPullSupplier':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_ProxyPullSupplier':oe_is_a('CosEventChannelAdmin_ProxyPullSupplier':typeID())),
    ?match(true, 'CosEventChannelAdmin_ProxyPullSupplier':oe_is_a('CosEventComm_PullSupplier':typeID())),
    ?match(false, 'CosEventChannelAdmin_ProxyPullSupplier':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_ProxyPushConsumer'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_ProxyPushConsumer'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPushConsumer':oe_tc(connect_push_supplier)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPushConsumer':oe_tc(push)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPushConsumer':oe_tc(disconnect_push_consumer)),
    ?match(undefined, 'CosEventChannelAdmin_ProxyPushConsumer':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_ProxyPushConsumer':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/ProxyPushConsumer:1.0", 
	   'CosEventChannelAdmin_ProxyPushConsumer':typeID()),
    check_tc('CosEventChannelAdmin_ProxyPushConsumer':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_ProxyPushConsumer':oe_is_a('CosEventChannelAdmin_ProxyPushConsumer':typeID())),
    ?match(true, 'CosEventChannelAdmin_ProxyPushConsumer':oe_is_a('CosEventComm_PushConsumer':typeID())),
    ?match(false, 'CosEventChannelAdmin_ProxyPushConsumer':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_ProxyPushSupplier'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_ProxyPushSupplier'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPushSupplier':oe_tc(connect_push_consumer)),
    ?nomatch(undefined, 'CosEventChannelAdmin_ProxyPushSupplier':oe_tc(disconnect_push_supplier)),
    ?match(undefined, 'CosEventChannelAdmin_ProxyPushSupplier':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_ProxyPushSupplier':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/ProxyPushSupplier:1.0", 
	   'CosEventChannelAdmin_ProxyPushSupplier':typeID()),
    check_tc('CosEventChannelAdmin_ProxyPushSupplier':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_ProxyPushSupplier':oe_is_a('CosEventChannelAdmin_ProxyPushSupplier':typeID())),
    ?match(true, 'CosEventChannelAdmin_ProxyPushSupplier':oe_is_a('CosEventComm_PushSupplier':typeID())),
    ?match(false, 'CosEventChannelAdmin_ProxyPushSupplier':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventChannelAdmin_SupplierAdmin'
%% Description: 
%%-----------------------------------------------------------------
'CosEventChannelAdmin_SupplierAdmin'(_) ->
    ?nomatch(undefined, 'CosEventChannelAdmin_SupplierAdmin':oe_tc(obtain_push_consumer)),
    ?nomatch(undefined, 'CosEventChannelAdmin_SupplierAdmin':oe_tc(obtain_pull_consumer)),
    ?match(undefined, 'CosEventChannelAdmin_SupplierAdmin':oe_tc(undefined)),
    ?match([_|_], 'CosEventChannelAdmin_SupplierAdmin':oe_get_interface()),
    ?match("IDL:omg.org/CosEventChannelAdmin/SupplierAdmin:1.0", 
	   'CosEventChannelAdmin_SupplierAdmin':typeID()),
    check_tc('CosEventChannelAdmin_SupplierAdmin':oe_get_interface()),
    ?match(true, 'CosEventChannelAdmin_SupplierAdmin':oe_is_a('CosEventChannelAdmin_SupplierAdmin':typeID())),
    ?match(false, 'CosEventChannelAdmin_SupplierAdmin':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'oe_CosEventComm_CAdmin'
%% Description: 
%%-----------------------------------------------------------------
'oe_CosEventComm_CAdmin'(_) ->
    ?nomatch(undefined, 'oe_CosEventComm_CAdmin':oe_tc(obtain_push_supplier)),
    ?nomatch(undefined, 'oe_CosEventComm_CAdmin':oe_tc(obtain_pull_supplier)),
    ?nomatch(undefined, 'oe_CosEventComm_CAdmin':oe_tc(send)),
    ?nomatch(undefined, 'oe_CosEventComm_CAdmin':oe_tc(send_sync)),
    ?match(undefined, 'oe_CosEventComm_CAdmin':oe_tc(undefined)),
    ?match([_|_], 'oe_CosEventComm_CAdmin':oe_get_interface()),
    ?match("IDL:oe_CosEventComm/CAdmin:1.0", 
	   'oe_CosEventComm_CAdmin':typeID()),
    check_tc('oe_CosEventComm_CAdmin':oe_get_interface()),
    ?match(true, 'oe_CosEventComm_CAdmin':oe_is_a('oe_CosEventComm_CAdmin':typeID())),
    ?match(true, 'oe_CosEventComm_CAdmin':oe_is_a('CosEventChannelAdmin_ConsumerAdmin':typeID())),
    ?match(true, 'oe_CosEventComm_CAdmin':oe_is_a('oe_CosEventComm_Event':typeID())),
    ?match(false, 'oe_CosEventComm_CAdmin':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'oe_CosEventComm_Channel'
%% Description: 
%%-----------------------------------------------------------------
'oe_CosEventComm_Channel'(_) ->
    ?nomatch(undefined, 'oe_CosEventComm_Channel':oe_tc(for_consumers)),
    ?nomatch(undefined, 'oe_CosEventComm_Channel':oe_tc(for_suppliers)),
    ?nomatch(undefined, 'oe_CosEventComm_Channel':oe_tc(destroy)),
    ?nomatch(undefined, 'oe_CosEventComm_Channel':oe_tc(send)),
    ?nomatch(undefined, 'oe_CosEventComm_Channel':oe_tc(send_sync)),
    ?match(undefined, 'oe_CosEventComm_Channel':oe_tc(undefined)),
    ?match([_|_], 'oe_CosEventComm_Channel':oe_get_interface()),
    ?match("IDL:oe_CosEventComm/Channel:1.0", 
	   'oe_CosEventComm_Channel':typeID()),
    check_tc('oe_CosEventComm_Channel':oe_get_interface()),
    ?match(true, 'oe_CosEventComm_Channel':oe_is_a('oe_CosEventComm_Channel':typeID())),
    ?match(true, 'oe_CosEventComm_Channel':oe_is_a('CosEventChannelAdmin_EventChannel':typeID())),
    ?match(true, 'oe_CosEventComm_Channel':oe_is_a('oe_CosEventComm_Event':typeID())),
    ?match(false, 'oe_CosEventComm_Channel':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'oe_CosEventComm_Event'
%% Description: 
%%-----------------------------------------------------------------
'oe_CosEventComm_Event'(_) ->
    ?nomatch(undefined, 'oe_CosEventComm_Event':oe_tc(send)),
    ?nomatch(undefined, 'oe_CosEventComm_Event':oe_tc(send_sync)),
    ?match(undefined, 'oe_CosEventComm_Event':oe_tc(undefined)),
    ?match([_|_], 'oe_CosEventComm_Event':oe_get_interface()),
    ?match("IDL:oe_CosEventComm/Event:1.0", 
	   'oe_CosEventComm_Event':typeID()),
    check_tc('oe_CosEventComm_Event':oe_get_interface()),
    ?match(true, 'oe_CosEventComm_Event':oe_is_a('oe_CosEventComm_Event':typeID())),
    ?match(false, 'oe_CosEventComm_Event':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'oe_CosEventComm_PullerS'
%% Description: 
%%-----------------------------------------------------------------
'oe_CosEventComm_PullerS'(_) ->
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(connect_pull_consumer)),
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(pull)),
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(try_pull)),
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(disconnect_pull_supplier)),
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(send)),
    ?nomatch(undefined, 'oe_CosEventComm_PullerS':oe_tc(send_sync)),
    ?match(undefined, 'oe_CosEventComm_PullerS':oe_tc(undefined)),
    ?match([_|_], 'oe_CosEventComm_PullerS':oe_get_interface()),
    ?match("IDL:oe_CosEventComm/PullerS:1.0", 
	   'oe_CosEventComm_PullerS':typeID()),
    check_tc('oe_CosEventComm_PullerS':oe_get_interface()),
    ?match(true, 'oe_CosEventComm_PullerS':oe_is_a('oe_CosEventComm_PullerS':typeID())),
    ?match(true, 'oe_CosEventComm_PullerS':oe_is_a('CosEventChannelAdmin_ProxyPullSupplier':typeID())),
    ?match(true, 'oe_CosEventComm_PullerS':oe_is_a('CosEventComm_PullSupplier':typeID())),
    ?match(true, 'oe_CosEventComm_PullerS':oe_is_a('oe_CosEventComm_Event':typeID())),
    ?match(false, 'oe_CosEventComm_PullerS':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'oe_CosEventComm_PusherS'
%% Description: 
%%-----------------------------------------------------------------
'oe_CosEventComm_PusherS'(_) ->
    ?nomatch(undefined, 'oe_CosEventComm_PusherS':oe_tc(connect_push_consumer)),
    ?nomatch(undefined, 'oe_CosEventComm_PusherS':oe_tc(disconnect_push_supplier)),
    ?nomatch(undefined, 'oe_CosEventComm_PusherS':oe_tc(send)),
    ?nomatch(undefined, 'oe_CosEventComm_PusherS':oe_tc(send_sync)),
    ?match(undefined, 'oe_CosEventComm_PusherS':oe_tc(undefined)),
    ?match([_|_], 'oe_CosEventComm_PusherS':oe_get_interface()),
    ?match("IDL:oe_CosEventComm/PusherS:1.0", 
	   'oe_CosEventComm_PusherS':typeID()),
    check_tc('oe_CosEventComm_PusherS':oe_get_interface()),
    ?match(true, 'oe_CosEventComm_PusherS':oe_is_a('oe_CosEventComm_PusherS':typeID())),
    ?match(true, 'oe_CosEventComm_PusherS':oe_is_a('CosEventChannelAdmin_ProxyPushSupplier':typeID())),
    ?match(true, 'oe_CosEventComm_PusherS':oe_is_a('CosEventComm_PushSupplier':typeID())),
    ?match(true, 'oe_CosEventComm_PusherS':oe_is_a('oe_CosEventComm_Event':typeID())),
    ?match(false, 'oe_CosEventComm_PusherS':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventComm_PullConsumer'
%% Description: 
%%-----------------------------------------------------------------
'CosEventComm_PullConsumer'(_) ->
    ?nomatch(undefined, 'CosEventComm_PullConsumer':oe_tc(disconnect_pull_consumer)),
    ?match(undefined, 'CosEventComm_PullConsumer':oe_tc(undefined)),
    ?match([_|_], 'CosEventComm_PullConsumer':oe_get_interface()),
    ?match("IDL:omg.org/CosEventComm/PullConsumer:1.0", 
	   'CosEventComm_PullConsumer':typeID()),
    check_tc('CosEventComm_PullConsumer':oe_get_interface()),
    ?match(true, 'CosEventComm_PullConsumer':oe_is_a('CosEventComm_PullConsumer':typeID())),
    ?match(false, 'CosEventComm_PullConsumer':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventComm_PullSupplier'
%% Description: 
%%-----------------------------------------------------------------
'CosEventComm_PullSupplier'(_) ->
    ?nomatch(undefined, 'CosEventComm_PullSupplier':oe_tc(pull)),
    ?nomatch(undefined, 'CosEventComm_PullSupplier':oe_tc(try_pull)),
    ?nomatch(undefined, 'CosEventComm_PullSupplier':oe_tc(disconnect_pull_supplier)),
    ?match(undefined, 'CosEventComm_PullSupplier':oe_tc(undefined)),
    ?match([_|_], 'CosEventComm_PullSupplier':oe_get_interface()),
    ?match("IDL:omg.org/CosEventComm/PullSupplier:1.0", 
	   'CosEventComm_PullSupplier':typeID()),
    check_tc('CosEventComm_PullSupplier':oe_get_interface()),
    ?match(true, 'CosEventComm_PullSupplier':oe_is_a('CosEventComm_PullSupplier':typeID())),
    ?match(false, 'CosEventComm_PullSupplier':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventComm_PushConsumer'
%% Description: 
%%-----------------------------------------------------------------
'CosEventComm_PushConsumer'(_) ->
    ?nomatch(undefined, 'CosEventComm_PushConsumer':oe_tc(push)),
    ?nomatch(undefined, 'CosEventComm_PushConsumer':oe_tc(disconnect_push_consumer)),
    ?match(undefined, 'CosEventComm_PushConsumer':oe_tc(undefined)),
    ?match([_|_], 'CosEventComm_PushConsumer':oe_get_interface()),
    ?match("IDL:omg.org/CosEventComm/PushConsumer:1.0", 
	   'CosEventComm_PushConsumer':typeID()),
    check_tc('CosEventComm_PushConsumer':oe_get_interface()),
    ?match(true, 'CosEventComm_PushConsumer':oe_is_a('CosEventComm_PushConsumer':typeID())),
    ?match(false, 'CosEventComm_PushConsumer':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosEventComm_PushSupplier'
%% Description: 
%%-----------------------------------------------------------------
'CosEventComm_PushSupplier'(_) ->
    ?nomatch(undefined, 'CosEventComm_PushSupplier':oe_tc(disconnect_push_supplier)),
    ?match(undefined, 'CosEventComm_PushSupplier':oe_tc(undefined)),
    ?match([_|_], 'CosEventComm_PushSupplier':oe_get_interface()),
    ?match("IDL:omg.org/CosEventComm/PushSupplier:1.0", 
	   'CosEventComm_PushSupplier':typeID()),
    check_tc('CosEventComm_PushSupplier':oe_get_interface()),
    ?match(true, 'CosEventComm_PushSupplier':oe_is_a('CosEventComm_PushSupplier':typeID())),
    ?match(false, 'CosEventComm_PushSupplier':oe_is_a("wrong")),
    ok.



%%-----------------------------------------------------------------
%% MISC functions
%%-----------------------------------------------------------------
check_tc([]) ->
    ok;
check_tc([{Op, {RetType, InParameters, OutParameters}}|T]) ->
    io:format("checked - ~s~n", [Op]),
    lists:all(?checktc(Op), [RetType|InParameters]),
    lists:all(?checktc(Op), OutParameters),
    check_tc(T).