aboutsummaryrefslogblamecommitdiffstats
path: root/lib/cosProperty/test/generated_SUITE.erl
blob: 80a79539496afe7856c23feacf48ad9a3ef6fa99 (plain) (tree)
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
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571


























































































































































































































































































































































































































































































































































































                                                                                                                          
%%-----------------------------------------------------------------
%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 2004-2009. 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    : generated_SUITE.erl
%% Purpose : 
%%-----------------------------------------------------------------

-module(generated_SUITE).

-include("test_server.hrl").
-include_lib("orber/include/corba.hrl").

-define(default_timeout, ?t:minutes(3)).

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

-define(nomatch(Not, Expr),
        fun() ->
		AcTuAlReS = (catch (Expr)),
		case AcTuAlReS of
		    Not ->
			io:format("###### ERROR ERROR ######~n~p~n",
				  [AcTuAlReS]),
			?line 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]),
			?line exit(TC);
		    true ->
			true
		end
	end).

%%-----------------------------------------------------------------
%% External exports
%%-----------------------------------------------------------------
-export([all/1]).

%%-----------------------------------------------------------------
%% Internal exports
%%-----------------------------------------------------------------
-export([]).
-compile(export_all).

%%-----------------------------------------------------------------
%% Func: all/1
%% Args: 
%% Returns: 
%%-----------------------------------------------------------------
all(doc) -> ["This suite is for testing IC generated files"];
all(suite) -> 
    ['CosPropertyService_ConflictingProperty', 'CosPropertyService_ConstraintNotSupported',
     'CosPropertyService_FixedProperty', 'CosPropertyService_InvalidPropertyName', 
     'CosPropertyService_MultipleExceptions', 'CosPropertyService_Properties', 
     'CosPropertyService_Property', 'CosPropertyService_PropertyDef', 
     'CosPropertyService_PropertyDefs', 'CosPropertyService_PropertyException', 
     'CosPropertyService_PropertyExceptions', 'CosPropertyService_PropertyMode', 
     'CosPropertyService_PropertyModes', 'CosPropertyService_PropertyNames', 
     'CosPropertyService_PropertyNotFound', 'CosPropertyService_PropertyTypes', 
     'CosPropertyService_ReadOnlyProperty', 'CosPropertyService_UnsupportedMode', 
     'CosPropertyService_UnsupportedProperty', 'CosPropertyService_UnsupportedTypeCode', 
     'CosPropertyService_PropertyNamesIterator', 'CosPropertyService_PropertiesIterator', 
     'CosPropertyService_PropertySet', 'CosPropertyService_PropertySetDef', 
     'CosPropertyService_PropertySetDefFactory', 'CosPropertyService_PropertySetFactory'].


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


fin_per_testcase(_Case, Config) ->
    Dog = ?config(watchdog, Config),
    test_server:timetrap_cancel(Dog),
    ok.




%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_ConflictingProperty'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_ConflictingProperty'(doc) -> ["CosPropertyService_ConflictingProperty"];
'CosPropertyService_ConflictingProperty'(suite) -> [];
'CosPropertyService_ConflictingProperty'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_ConflictingProperty':tc())),
    ?match("IDL:omg.org/CosPropertyService/ConflictingProperty:1.0", 
	   'CosPropertyService_ConflictingProperty':id()),
    ?match("CosPropertyService_ConflictingProperty", 
	   'CosPropertyService_ConflictingProperty':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_ConstraintNotSupported'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_ConstraintNotSupported'(doc) -> ["CosPropertyService_ConstraintNotSupported"];
'CosPropertyService_ConstraintNotSupported'(suite) -> [];
'CosPropertyService_ConstraintNotSupported'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_ConstraintNotSupported':tc())),
    ?match("IDL:omg.org/CosPropertyService/ConstraintNotSupported:1.0", 
	   'CosPropertyService_ConstraintNotSupported':id()),
    ?match("CosPropertyService_ConstraintNotSupported", 
	   'CosPropertyService_ConstraintNotSupported':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_FixedProperty'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_FixedProperty'(doc) -> ["CosPropertyService_FixedProperty"];
'CosPropertyService_FixedProperty'(suite) -> [];
'CosPropertyService_FixedProperty'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_FixedProperty':tc())),
    ?match("IDL:omg.org/CosPropertyService/FixedProperty:1.0", 
	   'CosPropertyService_FixedProperty':id()),
    ?match("CosPropertyService_FixedProperty", 
	   'CosPropertyService_FixedProperty':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_InvalidPropertyName'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_InvalidPropertyName'(doc) -> ["CosPropertyService_InvalidPropertyName"];
'CosPropertyService_InvalidPropertyName'(suite) -> [];
'CosPropertyService_InvalidPropertyName'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_InvalidPropertyName':tc())),
    ?match("IDL:omg.org/CosPropertyService/InvalidPropertyName:1.0", 
	   'CosPropertyService_InvalidPropertyName':id()),
    ?match("CosPropertyService_InvalidPropertyName", 
	   'CosPropertyService_InvalidPropertyName':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_MultipleExceptions'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_MultipleExceptions'(doc) -> ["CosPropertyService_MultipleExceptions"];
'CosPropertyService_MultipleExceptions'(suite) -> [];
'CosPropertyService_MultipleExceptions'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_MultipleExceptions':tc())),
    ?match("IDL:omg.org/CosPropertyService/MultipleExceptions:1.0", 
	   'CosPropertyService_MultipleExceptions':id()),
    ?match("CosPropertyService_MultipleExceptions", 
	   'CosPropertyService_MultipleExceptions':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_Properties'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_Properties'(doc) -> ["CosPropertyService_Properties"];
'CosPropertyService_Properties'(suite) -> [];
'CosPropertyService_Properties'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_Properties':tc())),
    ?match("IDL:omg.org/CosPropertyService/Properties:1.0", 
	   'CosPropertyService_Properties':id()),
    ?match("CosPropertyService_Properties", 
	   'CosPropertyService_Properties':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_Property'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_Property'(doc) -> ["CosPropertyService_Property"];
'CosPropertyService_Property'(suite) -> [];
'CosPropertyService_Property'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_Property':tc())),
    ?match("IDL:omg.org/CosPropertyService/Property:1.0", 
	   'CosPropertyService_Property':id()),
    ?match("CosPropertyService_Property", 
	   'CosPropertyService_Property':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyDef'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyDef'(doc) -> ["CosPropertyService_PropertyDef"];
'CosPropertyService_PropertyDef'(suite) -> [];
'CosPropertyService_PropertyDef'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyDef':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyDef:1.0", 
	   'CosPropertyService_PropertyDef':id()),
    ?match("CosPropertyService_PropertyDef", 
	   'CosPropertyService_PropertyDef':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyDefs'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyDefs'(doc) -> ["CosPropertyService_PropertyDefs"];
'CosPropertyService_PropertyDefs'(suite) -> [];
'CosPropertyService_PropertyDefs'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyDefs':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyDefs:1.0", 
	   'CosPropertyService_PropertyDefs':id()),
    ?match("CosPropertyService_PropertyDefs", 
	   'CosPropertyService_PropertyDefs':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyException'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyException'(doc) -> ["CosPropertyService_PropertyException"];
'CosPropertyService_PropertyException'(suite) -> [];
'CosPropertyService_PropertyException'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyException':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyException:1.0", 
	   'CosPropertyService_PropertyException':id()),
    ?match("CosPropertyService_PropertyException", 
	   'CosPropertyService_PropertyException':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyExceptions'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyExceptions'(doc) -> ["CosPropertyService_PropertyExceptions"];
'CosPropertyService_PropertyExceptions'(suite) -> [];
'CosPropertyService_PropertyExceptions'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyExceptions':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyExceptions:1.0", 
	   'CosPropertyService_PropertyExceptions':id()),
    ?match("CosPropertyService_PropertyExceptions", 
	   'CosPropertyService_PropertyExceptions':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyMode'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyMode'(doc) -> ["CosPropertyService_PropertyMode"];
'CosPropertyService_PropertyMode'(suite) -> [];
'CosPropertyService_PropertyMode'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyMode':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyMode:1.0", 
	   'CosPropertyService_PropertyMode':id()),
    ?match("CosPropertyService_PropertyMode", 
	   'CosPropertyService_PropertyMode':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyModes'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyModes'(doc) -> ["CosPropertyService_PropertyModes"];
'CosPropertyService_PropertyModes'(suite) -> [];
'CosPropertyService_PropertyModes'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyModes':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyModes:1.0", 
	   'CosPropertyService_PropertyModes':id()),
    ?match("CosPropertyService_PropertyModes", 
	   'CosPropertyService_PropertyModes':name()),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyNames'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyNames'(doc) -> ["CosPropertyService_PropertyNames"];
'CosPropertyService_PropertyNames'(suite) -> [];
'CosPropertyService_PropertyNames'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyNames':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyNames:1.0", 
	   'CosPropertyService_PropertyNames':id()),
    ?match("CosPropertyService_PropertyNames", 
	   'CosPropertyService_PropertyNames':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyNotFound'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyNotFound'(doc) -> ["CosPropertyService_PropertyNotFound"];
'CosPropertyService_PropertyNotFound'(suite) -> [];
'CosPropertyService_PropertyNotFound'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyNotFound':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyNotFound:1.0", 
	   'CosPropertyService_PropertyNotFound':id()),
    ?match("CosPropertyService_PropertyNotFound", 
	   'CosPropertyService_PropertyNotFound':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyTypes'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyTypes'(doc) -> ["CosPropertyService_PropertyTypes"];
'CosPropertyService_PropertyTypes'(suite) -> [];
'CosPropertyService_PropertyTypes'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_PropertyTypes':tc())),
    ?match("IDL:omg.org/CosPropertyService/PropertyTypes:1.0", 
	   'CosPropertyService_PropertyTypes':id()),
    ?match("CosPropertyService_PropertyTypes", 
	   'CosPropertyService_PropertyTypes':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_ReadOnlyProperty'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_ReadOnlyProperty'(doc) -> ["CosPropertyService_ReadOnlyProperty"];
'CosPropertyService_ReadOnlyProperty'(suite) -> [];
'CosPropertyService_ReadOnlyProperty'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_ReadOnlyProperty':tc())),
    ?match("IDL:omg.org/CosPropertyService/ReadOnlyProperty:1.0", 
	   'CosPropertyService_ReadOnlyProperty':id()),
    ?match("CosPropertyService_ReadOnlyProperty", 
	   'CosPropertyService_ReadOnlyProperty':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_UnsupportedMode'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_UnsupportedMode'(doc) -> ["CosPropertyService_UnsupportedMode"];
'CosPropertyService_UnsupportedMode'(suite) -> [];
'CosPropertyService_UnsupportedMode'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedMode':tc())),
    ?match("IDL:omg.org/CosPropertyService/UnsupportedMode:1.0", 
	   'CosPropertyService_UnsupportedMode':id()),
    ?match("CosPropertyService_UnsupportedMode", 
	   'CosPropertyService_UnsupportedMode':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_UnsupportedProperty'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_UnsupportedProperty'(doc) -> ["CosPropertyService_UnsupportedProperty"];
'CosPropertyService_UnsupportedProperty'(suite) -> [];
'CosPropertyService_UnsupportedProperty'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedProperty':tc())),
    ?match("IDL:omg.org/CosPropertyService/UnsupportedProperty:1.0", 
	   'CosPropertyService_UnsupportedProperty':id()),
    ?match("CosPropertyService_UnsupportedProperty", 
	   'CosPropertyService_UnsupportedProperty':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_UnsupportedTypeCode'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_UnsupportedTypeCode'(doc) -> ["CosPropertyService_UnsupportedTypeCode"];
'CosPropertyService_UnsupportedTypeCode'(suite) -> [];
'CosPropertyService_UnsupportedTypeCode'(_) ->
    ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedTypeCode':tc())),
    ?match("IDL:omg.org/CosPropertyService/UnsupportedTypeCode:1.0", 
	   'CosPropertyService_UnsupportedTypeCode':id()),
    ?match("CosPropertyService_UnsupportedTypeCode", 
	   'CosPropertyService_UnsupportedTypeCode':name()),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertyNamesIterator'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertyNamesIterator'(doc) -> ["CosPropertyService_PropertyNamesIterator"];
'CosPropertyService_PropertyNamesIterator'(suite) -> [];
'CosPropertyService_PropertyNamesIterator'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(reset)),
    ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(next_one)),
    ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(next_n)),
    ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(destroy)),
    ?match(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertyNamesIterator':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertyNamesIterator:1.0", 
	   'CosPropertyService_PropertyNamesIterator':typeID()),
    check_tc('CosPropertyService_PropertyNamesIterator':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertyNamesIterator':oe_is_a('CosPropertyService_PropertyNamesIterator':typeID())),
    ?match(false, 'CosPropertyService_PropertyNamesIterator':oe_is_a("wrong")),
    ok.

%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertiesIterator'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertiesIterator'(doc) -> ["CosPropertyService_PropertiesIterator"];
'CosPropertyService_PropertiesIterator'(suite) -> [];
'CosPropertyService_PropertiesIterator'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(reset)),
    ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(next_one)),
    ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(next_n)),
    ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(destroy)),
    ?match(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertiesIterator':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertiesIterator:1.0", 
	   'CosPropertyService_PropertiesIterator':typeID()),
    check_tc('CosPropertyService_PropertiesIterator':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertiesIterator':oe_is_a('CosPropertyService_PropertiesIterator':typeID())),
    ?match(false, 'CosPropertyService_PropertiesIterator':oe_is_a("wrong")),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertySet'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertySet'(doc) -> ["CosPropertyService_PropertySet"];
'CosPropertyService_PropertySet'(suite) -> [];
'CosPropertyService_PropertySet'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(define_property)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(define_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_number_of_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_all_property_names)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_property_value)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_all_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_property)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_all_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(is_property_defined)),
    ?match(undefined, 'CosPropertyService_PropertySet':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertySet':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertySet:1.0", 
	   'CosPropertyService_PropertySet':typeID()),
    check_tc('CosPropertyService_PropertySet':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertySet':oe_is_a('CosPropertyService_PropertySet':typeID())),
    ?match(false, 'CosPropertyService_PropertySet':oe_is_a("wrong")),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertySetDef'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertySetDef'(doc) -> ["CosPropertyService_PropertySetDef"];
'CosPropertyService_PropertySetDef'(suite) -> [];
'CosPropertyService_PropertySetDef'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_property_types)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_property_with_mode)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_properties_with_modes)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_mode)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_modes)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(set_property_mode)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(set_property_modes)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_property)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_number_of_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_all_property_names)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_value)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_all_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_property)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_all_properties)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(is_property_defined)),
    ?match(undefined, 'CosPropertyService_PropertySetDef':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertySetDef':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertySetDef:1.0", 
	   'CosPropertyService_PropertySetDef':typeID()),
    check_tc('CosPropertyService_PropertySetDef':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertySetDef':oe_is_a('CosPropertyService_PropertySetDef':typeID())),
    ?match(true, 'CosPropertyService_PropertySetDef':oe_is_a('CosPropertyService_PropertySet':typeID())),
    ?match(false, 'CosPropertyService_PropertySetDef':oe_is_a("wrong")),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertySetDefFactory'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertySetDefFactory'(doc) -> ["CosPropertyService_PropertySetDefFactory"];
'CosPropertyService_PropertySetDefFactory'(suite) -> [];
'CosPropertyService_PropertySetDefFactory'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_propertysetdef)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_constrained_propertysetdef)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_initial_propertysetdef)),
    ?match(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertySetDefFactory':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertySetDefFactory:1.0", 
	   'CosPropertyService_PropertySetDefFactory':typeID()),
    check_tc('CosPropertyService_PropertySetDefFactory':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertySetDefFactory':oe_is_a('CosPropertyService_PropertySetDefFactory':typeID())),
    ?match(false, 'CosPropertyService_PropertySetDefFactory':oe_is_a("wrong")),
    ok.


%%-----------------------------------------------------------------
%% Test Case: 'CosPropertyService_PropertySetFactory'
%% Description: 
%%-----------------------------------------------------------------
'CosPropertyService_PropertySetFactory'(doc) -> ["CosPropertyService_PropertySetFactory"];
'CosPropertyService_PropertySetFactory'(suite) -> [];
'CosPropertyService_PropertySetFactory'(_) ->
    ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_propertyset)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_constrained_propertyset)),
    ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_initial_propertyset)),
    ?match(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(undefined)),
    ?match([_|_], 'CosPropertyService_PropertySetFactory':oe_get_interface()),
    ?match("IDL:omg.org/CosPropertyService/PropertySetFactory:1.0", 
	   'CosPropertyService_PropertySetFactory':typeID()),
    check_tc('CosPropertyService_PropertySetFactory':oe_get_interface()),
    ?match(true, 'CosPropertyService_PropertySetFactory':oe_is_a('CosPropertyService_PropertySetFactory':typeID())),
    ?match(false, 'CosPropertyService_PropertySetFactory':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).