Commit | Line | Data |
---|---|---|
970ed795 | 1 | .****************************************************************************** |
d44e3c4f | 2 | .* Copyright (c) 2000-2016 Ericsson Telecom AB |
970ed795 EL |
3 | .* All rights reserved. This program and the accompanying materials |
4 | .* are made available under the terms of the Eclipse Public License v1.0 | |
5 | .* which accompanies this distribution, and is available at | |
6 | .* http://www.eclipse.org/legal/epl-v10.html | |
d44e3c4f | 7 | .* |
8 | .* Contributors: | |
9 | .* Balasko, Jeno | |
10 | .* Bartha, Norbert | |
11 | .* Beres, Szabolcs | |
12 | .* Delic, Adam | |
13 | .* Hanko, Matyas | |
14 | .* Kovacs, Ferenc | |
15 | .* Pandi, Krisztian | |
16 | .* Szabados, Kristof | |
17 | .* Szabo, Janos Zoltan – initial implementation | |
18 | .* Szalai, Gabor | |
19 | .* | |
970ed795 EL |
20 | .******************************************************************************/ |
21 | :text. | |
22 | :lang eng. | |
23 | .* | |
24 | :docname.Test Description | |
25 | :docno.8/152 91-CRL 113 200/3 Uen | |
26 | :rev.A | |
27 | :date.2013-01-17 | |
28 | .* | |
29 | :prep.ETH/XZR Krisztian Pandi | |
30 | :appr.ETH/XZ (Gyula Koos) | |
31 | :checked.ETHGRY | |
32 | .* | |
33 | :title.Test Description - BER coder | |
34 | :contents level=3. | |
35 | .*---------------------------------------------------------------------* | |
36 | :h1.PREREQUISITES AND PREPARATIONS | |
37 | .*---------------------------------------------------------------------* | |
38 | .*---------------------------------------------------------------------* | |
39 | :h2.Scope of the Test Object | |
40 | .*---------------------------------------------------------------------* | |
41 | :xmp tab=1 nokeep. | |
42 | ||
43 | This file is obsolate, don't modify, improve it anymore! | |
44 | ||
45 | This TD contains test cases related to TTCN3 Executor's BER coder function. | |
46 | DON'T YOU DARE TO WRITE AN INSPECTION RECORD ABOUT THIS FILE. | |
47 | ||
48 | :exmp. | |
49 | ||
50 | :p.:us.Revision Information:eus. | |
51 | ||
52 | :xmp nokeep. | |
53 | :us.History:eus. | |
54 | ||
55 | REV DATE PREPARED CHANGE | |
56 | === ========== ======== ====== | |
57 | A 2003-10-31 ETHEKR New document | |
58 | B 2007-03-06 EDMDELI Implicit message encoding | |
59 | C 2007-03-21 EJNOSZA Bugfix in a testcase for implicit msg. enc. | |
60 | D 2008-10-01 EFERKOV Big integers | |
61 | E 2010-01-18 EKRISZA Updated for TITAN R8C | |
62 | F 2011-06-18 EKRISZA Added tests for errors | |
63 | A 2011-12-12 EKRISZA Updated for release | |
64 | A 2012-06-27 EFERKOV Updated for release | |
65 | A 2013-01-17 EKRIPND Updated for release | |
66 | :exmp. | |
67 | ||
68 | .*---------------------------------------------------------------------* | |
69 | :h2.Test Tools | |
70 | .*---------------------------------------------------------------------* | |
71 | :p.:us.Software Tools:eus. | |
72 | :xmp tab=2 nokeep. | |
73 | ||
74 | SAtester | |
75 | ||
76 | :exmp. | |
77 | :np. | |
78 | .*---------------------------------------------------------------------* | |
79 | :h1.REQUIREMENT-BASED TESTS | |
80 | .*---------------------------------------------------------------------* | |
81 | .*---------------------------------------------------------------------* | |
82 | :h2.Testing FIELDLENGTH Attribute | |
83 | .*---------------------------------------------------------------------* | |
84 | .*---------------------------------------------------------------------* | |
85 | :h3. DER + CER encoding of BOOLEAN TRUE | |
86 | .*---------------------------------------------------------------------* | |
87 | :xmp tab=0. | |
88 | ||
89 | <TC - DER + CER encoding of BOOLEAN TRUE > | |
90 | ||
91 | <STATIC:ASN> | |
92 | ||
93 | TempA | |
94 | ||
95 | DEFINITIONS ::= | |
96 | ||
97 | ||
98 | BEGIN | |
99 | BERPDU ::= BOOLEAN | |
100 | END | |
101 | ||
102 | <STATIC> | |
103 | ||
104 | import from TempA all; | |
105 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
106 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
107 | ||
108 | const BERPDU b := true | |
109 | ||
110 | <TTCN_TC:EXEC> | |
111 | ||
112 | if ((enc_DER_PDU(b) == '0101FF'O)and(enc_CER_PDU(b) == '0101FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
113 | ||
114 | <RESULT> | |
115 | ||
116 | Overall verdict: pass | |
117 | ||
118 | <END_TC> | |
119 | ||
120 | :exmp. | |
121 | ||
122 | .*---------------------------------------------------------------------* | |
123 | :h3. DER + CER encoding of BOOLEAN FALSE | |
124 | .*---------------------------------------------------------------------* | |
125 | :xmp tab=0. | |
126 | ||
127 | <TC - DER + CER encoding of BOOLEAN FALSE > | |
128 | ||
129 | <STATIC:ASN> | |
130 | ||
131 | TempA | |
132 | ||
133 | DEFINITIONS ::= | |
134 | BEGIN | |
135 | BERPDU ::= BOOLEAN | |
136 | END | |
137 | ||
138 | <STATIC> | |
139 | ||
140 | import from TempA all; | |
141 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
142 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
143 | ||
144 | const BERPDU b := false | |
145 | ||
146 | <TTCN_TC:EXEC> | |
147 | ||
148 | if ((enc_DER_PDU(b) == '010100'O)and(enc_CER_PDU(b) == '010100'O)) {setverdict(pass);} else {setverdict(fail);} | |
149 | ||
150 | <RESULT> | |
151 | ||
152 | Overall verdict: pass | |
153 | ||
154 | <END_TC> | |
155 | ||
156 | :exmp. | |
157 | ||
158 | .*---------------------------------------------------------------------* | |
159 | :h3. DER + CER encoding of BOOLEAN with Context Specific TAG, EXPLICIT | |
160 | .*---------------------------------------------------------------------* | |
161 | :xmp tab=0. | |
162 | ||
163 | <TC - DER + CER encoding of BOOLEAN with Context Specific TAG, EXPLICIT> | |
164 | ||
165 | <STATIC:ASN> | |
166 | ||
167 | TempA | |
168 | ||
169 | DEFINITIONS ::= | |
170 | BEGIN | |
171 | BERPDU ::= [0] EXPLICIT BOOLEAN | |
172 | END | |
173 | ||
174 | <STATIC> | |
175 | ||
176 | import from TempA all; | |
177 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
178 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
179 | ||
180 | const BERPDU b := true | |
181 | ||
182 | <TTCN_TC:EXEC> | |
183 | ||
184 | if ((enc_DER_PDU(b) == 'A0030101FF'O)and(enc_CER_PDU(b) == 'A0800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
185 | ||
186 | <RESULT> | |
187 | ||
188 | Overall verdict: pass | |
189 | ||
190 | <END_TC> | |
191 | ||
192 | :exmp. | |
193 | ||
194 | .*---------------------------------------------------------------------* | |
195 | :h3. DER + CER encoding of BOOLEAN with PRIVATE TAG, EXPLICIT | |
196 | .*---------------------------------------------------------------------* | |
197 | :xmp tab=0. | |
198 | ||
199 | <TC - DER + CER encoding of BOOLEAN with PRIVATE TAG, EXPLICIT> | |
200 | ||
201 | <STATIC:ASN> | |
202 | ||
203 | TempA | |
204 | ||
205 | DEFINITIONS ::= | |
206 | BEGIN | |
207 | BERPDU ::= [PRIVATE 1] EXPLICIT BOOLEAN | |
208 | END | |
209 | ||
210 | <STATIC> | |
211 | ||
212 | import from TempA all; | |
213 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
214 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
215 | ||
216 | const BERPDU b := true | |
217 | ||
218 | <TTCN_TC:EXEC> | |
219 | ||
220 | if ((enc_DER_PDU(b) == 'E1030101FF'O)and(enc_CER_PDU(b) == 'E1800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
221 | ||
222 | <RESULT> | |
223 | ||
224 | Overall verdict: pass | |
225 | ||
226 | <END_TC> | |
227 | ||
228 | :exmp. | |
229 | ||
230 | .*---------------------------------------------------------------------* | |
231 | :h3. DER + CER encoding of BOOLEAN with APPLICATION TAG, EXPLICIT | |
232 | .*---------------------------------------------------------------------* | |
233 | :xmp tab=0. | |
234 | ||
235 | <TC - DER + CER encoding of BOOLEAN with APPLICATION TAG, EXPLICIT> | |
236 | ||
237 | <STATIC:ASN> | |
238 | ||
239 | TempA | |
240 | ||
241 | DEFINITIONS ::= | |
242 | BEGIN | |
243 | BERPDU ::= [APPLICATION 2] EXPLICIT BOOLEAN | |
244 | END | |
245 | ||
246 | <STATIC> | |
247 | ||
248 | import from TempA all; | |
249 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
250 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
251 | ||
252 | const BERPDU b := true | |
253 | ||
254 | <TTCN_TC:EXEC> | |
255 | ||
256 | if ((enc_DER_PDU(b) == '62030101FF'O)and(enc_CER_PDU(b) == '62800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
257 | ||
258 | <RESULT> | |
259 | ||
260 | Overall verdict: pass | |
261 | ||
262 | <END_TC> | |
263 | ||
264 | :exmp. | |
265 | ||
266 | .*---------------------------------------------------------------------* | |
267 | :h3. DER + CER encoding of BOOLEAN with Context Specific TAG, IMPLICIT | |
268 | .*---------------------------------------------------------------------* | |
269 | :xmp tab=0. | |
270 | ||
271 | <TC - DER + CER encoding of BOOLEAN with Context Specific TAG, IMPLICIT> | |
272 | ||
273 | <STATIC:ASN> | |
274 | ||
275 | TempA | |
276 | ||
277 | DEFINITIONS ::= | |
278 | BEGIN | |
279 | BERPDU ::= [0] IMPLICIT BOOLEAN | |
280 | END | |
281 | ||
282 | <STATIC> | |
283 | ||
284 | import from TempA all; | |
285 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
286 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
287 | ||
288 | const BERPDU b := false | |
289 | ||
290 | <TTCN_TC:EXEC> | |
291 | ||
292 | if ((enc_DER_PDU(b) == '800100'O)and(enc_CER_PDU(b) == '800100'O)) {setverdict(pass);} else {setverdict(fail);} | |
293 | ||
294 | <RESULT> | |
295 | ||
296 | Overall verdict: pass | |
297 | ||
298 | <END_TC> | |
299 | ||
300 | :exmp. | |
301 | ||
302 | .*---------------------------------------------------------------------* | |
303 | :h3. DER + CER encoding of BOOLEAN with PRIVATE TAG, IMPLICIT | |
304 | .*---------------------------------------------------------------------* | |
305 | :xmp tab=0. | |
306 | ||
307 | <TC - DER + CER encoding of BOOLEAN with PRIVATE TAG, IMPLICIT> | |
308 | ||
309 | <STATIC:ASN> | |
310 | ||
311 | TempA | |
312 | ||
313 | DEFINITIONS ::= | |
314 | BEGIN | |
315 | BERPDU ::= [PRIVATE 1] IMPLICIT BOOLEAN | |
316 | END | |
317 | ||
318 | <STATIC> | |
319 | ||
320 | import from TempA all; | |
321 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
322 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
323 | ||
324 | const BERPDU b := false | |
325 | ||
326 | <TTCN_TC:EXEC> | |
327 | ||
328 | if ((enc_DER_PDU(b) == 'C10100'O)and(enc_CER_PDU(b) == 'C10100'O)) {setverdict(pass);} else {setverdict(fail);} | |
329 | ||
330 | <RESULT> | |
331 | ||
332 | Overall verdict: pass | |
333 | ||
334 | <END_TC> | |
335 | ||
336 | :exmp. | |
337 | ||
338 | .*---------------------------------------------------------------------* | |
339 | :h3. DER + CER encoding of BOOLEAN with APPLICATION TAG, IMPLICIT | |
340 | .*---------------------------------------------------------------------* | |
341 | :xmp tab=0. | |
342 | ||
343 | <TC - DER + CER encoding of BOOLEAN with APPLICATION TAG, IMPLICIT> | |
344 | ||
345 | <STATIC:ASN> | |
346 | ||
347 | TempA | |
348 | ||
349 | DEFINITIONS ::= | |
350 | BEGIN | |
351 | BERPDU ::= [APPLICATION 2] IMPLICIT BOOLEAN | |
352 | END | |
353 | ||
354 | <STATIC> | |
355 | ||
356 | import from TempA all; | |
357 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
358 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
359 | ||
360 | const BERPDU b := true | |
361 | ||
362 | <TTCN_TC:EXEC> | |
363 | ||
364 | if ((enc_DER_PDU(b) == '4201FF'O)and(enc_CER_PDU(b) == '4201FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
365 | ||
366 | <RESULT> | |
367 | ||
368 | Overall verdict: pass | |
369 | ||
370 | <END_TC> | |
371 | ||
372 | :exmp. | |
373 | ||
374 | .*---------------------------------------------------------------------* | |
375 | :h3. DECODING BOOLEAN, CER+DER | |
376 | .*---------------------------------------------------------------------* | |
377 | :xmp tab=0. | |
378 | ||
379 | <TC - DECODING BOOLEAN, CER+DER> | |
380 | ||
381 | <STATIC:ASN> | |
382 | ||
383 | TempA | |
384 | ||
385 | DEFINITIONS ::= | |
386 | BEGIN | |
387 | BERPDU ::= BOOLEAN | |
388 | ||
389 | myBooleanValue BERPDU ::= TRUE | |
390 | ||
391 | END | |
392 | ||
393 | <STATIC> | |
394 | ||
395 | import from TempA all; | |
396 | ||
397 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
398 | ||
399 | ||
400 | <TTCN_TC:EXEC> | |
401 | ||
402 | if (dec_BER_PDU('0101FF'O) == myBooleanValue) | |
403 | ||
404 | ||
405 | {setverdict(pass);} else {setverdict(fail);} | |
406 | ||
407 | ||
408 | <RESULT> | |
409 | ||
410 | Overall verdict: pass | |
411 | ||
412 | <END_TC> | |
413 | ||
414 | :exmp. | |
415 | ||
416 | .*---------------------------------------------------------------------* | |
417 | :h3. DECODING BOOLEAN, CER+DER | |
418 | .*---------------------------------------------------------------------* | |
419 | :xmp tab=0. | |
420 | ||
421 | <TC - DECODING BOOLEAN, CER+DER> | |
422 | ||
423 | <STATIC:ASN> | |
424 | ||
425 | TempA | |
426 | ||
427 | DEFINITIONS ::= | |
428 | BEGIN | |
429 | BERPDU ::= BOOLEAN | |
430 | ||
431 | myBooleanValue BERPDU ::= FALSE | |
432 | ||
433 | END | |
434 | ||
435 | <STATIC> | |
436 | ||
437 | import from TempA all; | |
438 | ||
439 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
440 | ||
441 | ||
442 | <TTCN_TC:EXEC> | |
443 | ||
444 | if (dec_BER_PDU('010100'O) == myBooleanValue) | |
445 | ||
446 | ||
447 | {setverdict(pass);} else {setverdict(fail);} | |
448 | ||
449 | ||
450 | <RESULT> | |
451 | ||
452 | Overall verdict: pass | |
453 | ||
454 | <END_TC> | |
455 | ||
456 | :exmp. | |
457 | ||
458 | .*---------------------------------------------------------------------* | |
459 | :h3. DECODING BOOLEAN, (LENGTH OF LENGTH = 1) | |
460 | .*---------------------------------------------------------------------* | |
461 | :xmp tab=0. | |
462 | ||
463 | <TC - DECODING BOOLEAN, (LENGTH OF LENGTH = 1)> | |
464 | ||
465 | <STATIC:ASN> | |
466 | ||
467 | TempA | |
468 | ||
469 | DEFINITIONS ::= | |
470 | BEGIN | |
471 | BERPDU ::= BOOLEAN | |
472 | ||
473 | myBooleanValue BERPDU ::= TRUE | |
474 | ||
475 | END | |
476 | ||
477 | <STATIC> | |
478 | ||
479 | import from TempA all; | |
480 | ||
481 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
482 | ||
483 | ||
484 | <TTCN_TC:EXEC> | |
485 | ||
486 | if (dec_BER_PDU('05810101'O) == myBooleanValue) | |
487 | ||
488 | ||
489 | {setverdict(pass);} else {setverdict(fail);} | |
490 | ||
491 | ||
492 | <RESULT> | |
493 | ||
494 | Overall verdict: pass | |
495 | ||
496 | <END_TC> | |
497 | ||
498 | :exmp. | |
499 | ||
500 | .*---------------------------------------------------------------------* | |
501 | :h3. DECODING BOOELAN, (LENGTH OF LENGTH = 2) | |
502 | .*---------------------------------------------------------------------* | |
503 | :xmp tab=0. | |
504 | ||
505 | <TC - DECODING BOOELAN, (LENGTH OF LENGTH = 2)> | |
506 | ||
507 | <STATIC:ASN> | |
508 | ||
509 | TempA | |
510 | ||
511 | DEFINITIONS ::= | |
512 | BEGIN | |
513 | BERPDU ::= BOOLEAN | |
514 | ||
515 | myBooleanValue BERPDU ::= FALSE | |
516 | ||
517 | END | |
518 | ||
519 | <STATIC> | |
520 | ||
521 | import from TempA all; | |
522 | ||
523 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
524 | ||
525 | ||
526 | <TTCN_TC:EXEC> | |
527 | ||
528 | if (dec_BER_PDU('0582000100'O) == myBooleanValue) | |
529 | ||
530 | ||
531 | {setverdict(pass);} else {setverdict(fail);} | |
532 | ||
533 | ||
534 | <RESULT> | |
535 | ||
536 | Overall verdict: pass | |
537 | ||
538 | <END_TC> | |
539 | ||
540 | :exmp. | |
541 | ||
542 | .*---------------------------------------------------------------------* | |
543 | :h3. DECODING [0] EXPLICIT BOOLEAN , DER, Short form - short form | |
544 | .*---------------------------------------------------------------------* | |
545 | :xmp tab=0. | |
546 | ||
547 | <TC - DECODING [0] EXPLICIT BOOLEAN , DER, Short form - short form> | |
548 | ||
549 | <STATIC:ASN> | |
550 | ||
551 | TempA | |
552 | ||
553 | DEFINITIONS ::= | |
554 | BEGIN | |
555 | BERPDU ::= [0] EXPLICIT BOOLEAN | |
556 | ||
557 | myBooleanValue BERPDU ::= TRUE | |
558 | ||
559 | END | |
560 | ||
561 | <STATIC> | |
562 | ||
563 | import from TempA all; | |
564 | ||
565 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
566 | ||
567 | ||
568 | <TTCN_TC:EXEC> | |
569 | ||
570 | if (dec_BER_PDU('A0030101FF'O) == myBooleanValue) | |
571 | ||
572 | ||
573 | {setverdict(pass);} else {setverdict(fail);} | |
574 | ||
575 | ||
576 | <RESULT> | |
577 | ||
578 | Overall verdict: pass | |
579 | ||
580 | <END_TC> | |
581 | ||
582 | :exmp. | |
583 | ||
584 | .*---------------------------------------------------------------------* | |
585 | :h3. DECODING [0] EXPLICIT BOOLEAN, CER | |
586 | .*---------------------------------------------------------------------* | |
587 | :xmp tab=0. | |
588 | ||
589 | <TC - DECODING [0] EXPLICIT BOOLEAN, CER> | |
590 | ||
591 | <STATIC:ASN> | |
592 | ||
593 | TempA | |
594 | ||
595 | DEFINITIONS ::= | |
596 | BEGIN | |
597 | BERPDU ::= [0] EXPLICIT BOOLEAN | |
598 | ||
599 | myBooleanValue BERPDU ::= TRUE | |
600 | ||
601 | END | |
602 | ||
603 | <STATIC> | |
604 | ||
605 | import from TempA all; | |
606 | ||
607 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
608 | ||
609 | ||
610 | <TTCN_TC:EXEC> | |
611 | ||
612 | if (dec_BER_PDU('A0800101FF0000'O) == myBooleanValue) | |
613 | ||
614 | ||
615 | {setverdict(pass);} else {setverdict(fail);} | |
616 | ||
617 | ||
618 | <RESULT> | |
619 | ||
620 | Overall verdict: pass | |
621 | ||
622 | <END_TC> | |
623 | ||
624 | :exmp. | |
625 | ||
626 | .*---------------------------------------------------------------------* | |
627 | :h3. DECODING [0] EXPLICIT BOOLEAN, Long form - short form | |
628 | .*---------------------------------------------------------------------* | |
629 | :xmp tab=0. | |
630 | ||
631 | <TC - DECODING [0] EXPLICIT BOOLEAN, Long form - short form> | |
632 | ||
633 | <STATIC:ASN> | |
634 | ||
635 | TempA | |
636 | ||
637 | DEFINITIONS ::= | |
638 | BEGIN | |
639 | BERPDU ::= [0] EXPLICIT BOOLEAN | |
640 | ||
641 | myBooleanValue BERPDU ::= TRUE | |
642 | ||
643 | END | |
644 | ||
645 | <STATIC> | |
646 | ||
647 | import from TempA all; | |
648 | ||
649 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
650 | ||
651 | ||
652 | <TTCN_TC:EXEC> | |
653 | ||
654 | if (dec_BER_PDU('A081030101FF'O) == myBooleanValue) | |
655 | ||
656 | ||
657 | {setverdict(pass);} else {setverdict(fail);} | |
658 | ||
659 | ||
660 | <RESULT> | |
661 | ||
662 | Overall verdict: pass | |
663 | ||
664 | <END_TC> | |
665 | ||
666 | :exmp. | |
667 | ||
668 | .*---------------------------------------------------------------------* | |
669 | :h3. DECODING [0] EXPLICIT BOOLEAN, Long form Long form | |
670 | .*---------------------------------------------------------------------* | |
671 | :xmp tab=0. | |
672 | ||
673 | <TC - DECODING [0] EXPLICIT BOOLEAN, Long form Long form> | |
674 | ||
675 | <STATIC:ASN> | |
676 | ||
677 | TempA | |
678 | ||
679 | DEFINITIONS ::= | |
680 | BEGIN | |
681 | BERPDU ::= [0] EXPLICIT BOOLEAN | |
682 | ||
683 | myBooleanValue BERPDU ::= TRUE | |
684 | ||
685 | END | |
686 | ||
687 | <STATIC> | |
688 | ||
689 | import from TempA all; | |
690 | ||
691 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
692 | ||
693 | ||
694 | <TTCN_TC:EXEC> | |
695 | ||
696 | if (dec_BER_PDU('A0810401810199'O) == myBooleanValue) | |
697 | ||
698 | ||
699 | {setverdict(pass);} else {setverdict(fail);} | |
700 | ||
701 | ||
702 | <RESULT> | |
703 | ||
704 | Overall verdict: pass | |
705 | ||
706 | <END_TC> | |
707 | ||
708 | :exmp. | |
709 | ||
710 | .*---------------------------------------------------------------------* | |
711 | :h3. DECODING [PRIVATE 1] EXPLICIT BOOLEAN , DER, Short form - short form | |
712 | .*---------------------------------------------------------------------* | |
713 | :xmp tab=0. | |
714 | ||
715 | <TC - DECODING [PRIVATE 1] EXPLICIT BOOLEAN , DER, Short form - short form> | |
716 | ||
717 | <STATIC:ASN> | |
718 | ||
719 | TempA | |
720 | ||
721 | DEFINITIONS ::= | |
722 | BEGIN | |
723 | BERPDU ::= [PRIVATE 1] EXPLICIT BOOLEAN | |
724 | ||
725 | myBooleanValue BERPDU ::= TRUE | |
726 | ||
727 | END | |
728 | ||
729 | <STATIC> | |
730 | ||
731 | import from TempA all; | |
732 | ||
733 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
734 | ||
735 | ||
736 | <TTCN_TC:EXEC> | |
737 | ||
738 | if (dec_BER_PDU('E1030101FF'O) == myBooleanValue) | |
739 | ||
740 | ||
741 | {setverdict(pass);} else {setverdict(fail);} | |
742 | ||
743 | ||
744 | <RESULT> | |
745 | ||
746 | Overall verdict: pass | |
747 | ||
748 | <END_TC> | |
749 | ||
750 | :exmp. | |
751 | ||
752 | .*---------------------------------------------------------------------* | |
753 | :h3. DECODING [PRIVATE 1] EXPLICIT BOOLEAN, CER | |
754 | .*---------------------------------------------------------------------* | |
755 | :xmp tab=0. | |
756 | ||
757 | <TC - DECODING [PRIVATE 1] EXPLICIT BOOLEAN, CER> | |
758 | ||
759 | <STATIC:ASN> | |
760 | ||
761 | TempA | |
762 | ||
763 | DEFINITIONS ::= | |
764 | BEGIN | |
765 | BERPDU ::= [PRIVATE 1] EXPLICIT BOOLEAN | |
766 | ||
767 | myBooleanValue BERPDU ::= TRUE | |
768 | ||
769 | END | |
770 | ||
771 | <STATIC> | |
772 | ||
773 | import from TempA all; | |
774 | ||
775 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
776 | ||
777 | ||
778 | <TTCN_TC:EXEC> | |
779 | ||
780 | if (dec_BER_PDU('E1800101FF0000'O) == myBooleanValue) | |
781 | ||
782 | ||
783 | {setverdict(pass);} else {setverdict(fail);} | |
784 | ||
785 | ||
786 | <RESULT> | |
787 | ||
788 | Overall verdict: pass | |
789 | ||
790 | <END_TC> | |
791 | ||
792 | :exmp. | |
793 | ||
794 | .*---------------------------------------------------------------------* | |
795 | :h3. DECODING [PRIVATE 1] EXPLICIT BOOLEAN, Long form - short form | |
796 | .*---------------------------------------------------------------------* | |
797 | :xmp tab=0. | |
798 | ||
799 | <TC - DECODING [PRIVATE 1] EXPLICIT BOOLEAN, Long form - short form> | |
800 | ||
801 | <STATIC:ASN> | |
802 | ||
803 | TempA | |
804 | ||
805 | DEFINITIONS ::= | |
806 | BEGIN | |
807 | BERPDU ::= [PRIVATE 1] EXPLICIT BOOLEAN | |
808 | ||
809 | myBooleanValue BERPDU ::= TRUE | |
810 | ||
811 | END | |
812 | ||
813 | <STATIC> | |
814 | ||
815 | import from TempA all; | |
816 | ||
817 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
818 | ||
819 | ||
820 | <TTCN_TC:EXEC> | |
821 | ||
822 | if (dec_BER_PDU('E181030101FF'O) == myBooleanValue) | |
823 | ||
824 | ||
825 | {setverdict(pass);} else {setverdict(fail);} | |
826 | ||
827 | ||
828 | <RESULT> | |
829 | ||
830 | Overall verdict: pass | |
831 | ||
832 | <END_TC> | |
833 | ||
834 | :exmp. | |
835 | ||
836 | .*---------------------------------------------------------------------* | |
837 | :h3. DECODING [PRIVATE 1] EXPLICIT BOOLEAN, Long form Long form | |
838 | .*---------------------------------------------------------------------* | |
839 | :xmp tab=0. | |
840 | ||
841 | <TC - DECODING [PRIVATE 1] EXPLICIT BOOLEAN, Long form Long form> | |
842 | ||
843 | <STATIC:ASN> | |
844 | ||
845 | TempA | |
846 | ||
847 | DEFINITIONS ::= | |
848 | BEGIN | |
849 | BERPDU ::= [PRIVATE 1] EXPLICIT BOOLEAN | |
850 | ||
851 | myBooleanValue BERPDU ::= TRUE | |
852 | ||
853 | END | |
854 | ||
855 | <STATIC> | |
856 | ||
857 | import from TempA all; | |
858 | ||
859 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
860 | ||
861 | ||
862 | <TTCN_TC:EXEC> | |
863 | ||
864 | if (dec_BER_PDU('E1810401810199'O) == myBooleanValue) | |
865 | ||
866 | ||
867 | {setverdict(pass);} else {setverdict(fail);} | |
868 | ||
869 | ||
870 | <RESULT> | |
871 | ||
872 | Overall verdict: pass | |
873 | ||
874 | <END_TC> | |
875 | ||
876 | :exmp. | |
877 | ||
878 | .*---------------------------------------------------------------------* | |
879 | :h3. DECODING [APPLICATION 2] EXPLICIT BOOLEAN , DER, Short form - short form | |
880 | .*---------------------------------------------------------------------* | |
881 | :xmp tab=0. | |
882 | ||
883 | <TC - DECODING [APPLICATION 2] EXPLICIT BOOLEAN , DER, Short form - short form> | |
884 | ||
885 | <STATIC:ASN> | |
886 | ||
887 | TempA | |
888 | ||
889 | DEFINITIONS ::= | |
890 | BEGIN | |
891 | BERPDU ::= [APPLICATION 2] EXPLICIT BOOLEAN | |
892 | ||
893 | myBooleanValue BERPDU ::= TRUE | |
894 | ||
895 | END | |
896 | ||
897 | <STATIC> | |
898 | ||
899 | import from TempA all; | |
900 | ||
901 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
902 | ||
903 | ||
904 | <TTCN_TC:EXEC> | |
905 | ||
906 | if (dec_BER_PDU('62030101FF'O) == myBooleanValue) | |
907 | ||
908 | ||
909 | {setverdict(pass);} else {setverdict(fail);} | |
910 | ||
911 | ||
912 | <RESULT> | |
913 | ||
914 | Overall verdict: pass | |
915 | ||
916 | <END_TC> | |
917 | ||
918 | :exmp. | |
919 | ||
920 | .*---------------------------------------------------------------------* | |
921 | :h3. DECODING [APPLICATION 2] EXPLICIT BOOLEAN, CER | |
922 | .*---------------------------------------------------------------------* | |
923 | :xmp tab=0. | |
924 | ||
925 | <TC - DECODING [APPLICATION 2] EXPLICIT BOOLEAN, CER> | |
926 | ||
927 | <STATIC:ASN> | |
928 | ||
929 | TempA | |
930 | ||
931 | DEFINITIONS ::= | |
932 | BEGIN | |
933 | BERPDU ::= [APPLICATION 2] EXPLICIT BOOLEAN | |
934 | ||
935 | myBooleanValue BERPDU ::= TRUE | |
936 | ||
937 | END | |
938 | ||
939 | <STATIC> | |
940 | ||
941 | import from TempA all; | |
942 | ||
943 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
944 | ||
945 | ||
946 | <TTCN_TC:EXEC> | |
947 | ||
948 | if (dec_BER_PDU('62800101FF0000'O) == myBooleanValue) | |
949 | ||
950 | ||
951 | {setverdict(pass);} else {setverdict(fail);} | |
952 | ||
953 | ||
954 | <RESULT> | |
955 | ||
956 | Overall verdict: pass | |
957 | ||
958 | <END_TC> | |
959 | ||
960 | :exmp. | |
961 | ||
962 | .*---------------------------------------------------------------------* | |
963 | :h3. DECODING [APPLICATION 2] EXPLICIT BOOLEAN, Long form - short form | |
964 | .*---------------------------------------------------------------------* | |
965 | :xmp tab=0. | |
966 | ||
967 | <TC - DECODING [APPLICATION 2] EXPLICIT BOOLEAN, Long form - short form> | |
968 | ||
969 | <STATIC:ASN> | |
970 | ||
971 | TempA | |
972 | ||
973 | DEFINITIONS ::= | |
974 | BEGIN | |
975 | BERPDU ::= [APPLICATION 2] EXPLICIT BOOLEAN | |
976 | ||
977 | myBooleanValue BERPDU ::= TRUE | |
978 | ||
979 | END | |
980 | ||
981 | <STATIC> | |
982 | ||
983 | import from TempA all; | |
984 | ||
985 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
986 | ||
987 | ||
988 | <TTCN_TC:EXEC> | |
989 | ||
990 | if (dec_BER_PDU('6281030101FF'O) == myBooleanValue) | |
991 | ||
992 | ||
993 | {setverdict(pass);} else {setverdict(fail);} | |
994 | ||
995 | ||
996 | <RESULT> | |
997 | ||
998 | Overall verdict: pass | |
999 | ||
1000 | <END_TC> | |
1001 | ||
1002 | :exmp. | |
1003 | ||
1004 | .*---------------------------------------------------------------------* | |
1005 | :h3. DECODING [APPLICATION 2] EXPLICIT BOOLEAN, Long form Long form | |
1006 | .*---------------------------------------------------------------------* | |
1007 | :xmp tab=0. | |
1008 | ||
1009 | <TC - DECODING [APPLICATION 2] EXPLICIT BOOLEAN, Long form Long form> | |
1010 | ||
1011 | <STATIC:ASN> | |
1012 | ||
1013 | TempA | |
1014 | ||
1015 | DEFINITIONS ::= | |
1016 | BEGIN | |
1017 | BERPDU ::= [APPLICATION 2] EXPLICIT BOOLEAN | |
1018 | ||
1019 | myBooleanValue BERPDU ::= TRUE | |
1020 | ||
1021 | END | |
1022 | ||
1023 | <STATIC> | |
1024 | ||
1025 | import from TempA all; | |
1026 | ||
1027 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1028 | ||
1029 | ||
1030 | <TTCN_TC:EXEC> | |
1031 | ||
1032 | if (dec_BER_PDU('62810401810199'O) == myBooleanValue) | |
1033 | ||
1034 | ||
1035 | {setverdict(pass);} else {setverdict(fail);} | |
1036 | ||
1037 | ||
1038 | <RESULT> | |
1039 | ||
1040 | Overall verdict: pass | |
1041 | ||
1042 | <END_TC> | |
1043 | ||
1044 | :exmp. | |
1045 | ||
1046 | .*---------------------------------------------------------------------* | |
1047 | :h3. DECODING [0] IMPLICIT BOOLEAN ,Short form CER,DER | |
1048 | .*---------------------------------------------------------------------* | |
1049 | :xmp tab=0. | |
1050 | ||
1051 | <TC - DECODING [0] IMPLICIT BOOLEAN ,Short form CER,DER> | |
1052 | ||
1053 | <STATIC:ASN> | |
1054 | ||
1055 | TempA | |
1056 | ||
1057 | DEFINITIONS ::= | |
1058 | BEGIN | |
1059 | BERPDU ::= [0] IMPLICIT BOOLEAN | |
1060 | ||
1061 | myBooleanValue BERPDU ::= TRUE | |
1062 | ||
1063 | END | |
1064 | ||
1065 | <STATIC> | |
1066 | ||
1067 | import from TempA all; | |
1068 | ||
1069 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1070 | ||
1071 | ||
1072 | <TTCN_TC:EXEC> | |
1073 | ||
1074 | if (dec_BER_PDU('8001FF'O) == myBooleanValue) | |
1075 | ||
1076 | ||
1077 | {setverdict(pass);} else {setverdict(fail);} | |
1078 | ||
1079 | ||
1080 | <RESULT> | |
1081 | ||
1082 | Overall verdict: pass | |
1083 | ||
1084 | <END_TC> | |
1085 | ||
1086 | :exmp. | |
1087 | ||
1088 | .*---------------------------------------------------------------------* | |
1089 | :h3. DECODING [0] IMPLICIT BOOLEAN,Long form | |
1090 | .*---------------------------------------------------------------------* | |
1091 | :xmp tab=0. | |
1092 | ||
1093 | <TC - DECODING [0] IMPLICIT BOOLEAN,Long form> | |
1094 | ||
1095 | <STATIC:ASN> | |
1096 | ||
1097 | TempA | |
1098 | ||
1099 | DEFINITIONS ::= | |
1100 | BEGIN | |
1101 | BERPDU ::= [0] IMPLICIT BOOLEAN | |
1102 | ||
1103 | myBooleanValue BERPDU ::= TRUE | |
1104 | ||
1105 | END | |
1106 | ||
1107 | <STATIC> | |
1108 | ||
1109 | import from TempA all; | |
1110 | ||
1111 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1112 | ||
1113 | ||
1114 | <TTCN_TC:EXEC> | |
1115 | ||
1116 | if (dec_BER_PDU('80810133'O) == myBooleanValue) | |
1117 | ||
1118 | ||
1119 | {setverdict(pass);} else {setverdict(fail);} | |
1120 | ||
1121 | ||
1122 | <RESULT> | |
1123 | ||
1124 | Overall verdict: pass | |
1125 | ||
1126 | <END_TC> | |
1127 | ||
1128 | :exmp. | |
1129 | ||
1130 | .*---------------------------------------------------------------------* | |
1131 | :h3. DECODING [PRIVATE 1] IMPLICIT BOOLEAN,Short form CER,DER | |
1132 | .*---------------------------------------------------------------------* | |
1133 | :xmp tab=0. | |
1134 | ||
1135 | <TC - DECODING [PRIVATE 1] IMPLICIT BOOLEAN,Short form CER,DER> | |
1136 | ||
1137 | <STATIC:ASN> | |
1138 | ||
1139 | TempA | |
1140 | ||
1141 | DEFINITIONS ::= | |
1142 | BEGIN | |
1143 | BERPDU ::= [PRIVATE 1] IMPLICIT BOOLEAN | |
1144 | ||
1145 | myBooleanValue BERPDU ::= FALSE | |
1146 | ||
1147 | END | |
1148 | ||
1149 | <STATIC> | |
1150 | ||
1151 | import from TempA all; | |
1152 | ||
1153 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1154 | ||
1155 | ||
1156 | <TTCN_TC:EXEC> | |
1157 | ||
1158 | if (dec_BER_PDU('C10100'O) == myBooleanValue) | |
1159 | ||
1160 | ||
1161 | {setverdict(pass);} else {setverdict(fail);} | |
1162 | ||
1163 | ||
1164 | <RESULT> | |
1165 | ||
1166 | Overall verdict: pass | |
1167 | ||
1168 | <END_TC> | |
1169 | ||
1170 | :exmp. | |
1171 | ||
1172 | .*---------------------------------------------------------------------* | |
1173 | :h3. DECODING [PRIVATE 1] IMPLICIT BOOLEAN,Long form | |
1174 | .*---------------------------------------------------------------------* | |
1175 | :xmp tab=0. | |
1176 | ||
1177 | <TC - DECODING [PRIVATE 1] IMPLICIT BOOLEAN,Long form> | |
1178 | ||
1179 | <STATIC:ASN> | |
1180 | ||
1181 | TempA | |
1182 | ||
1183 | DEFINITIONS ::= | |
1184 | BEGIN | |
1185 | BERPDU ::= [PRIVATE 1] IMPLICIT BOOLEAN | |
1186 | ||
1187 | myBooleanValue BERPDU ::= TRUE | |
1188 | ||
1189 | END | |
1190 | ||
1191 | <STATIC> | |
1192 | ||
1193 | import from TempA all; | |
1194 | ||
1195 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1196 | ||
1197 | ||
1198 | <TTCN_TC:EXEC> | |
1199 | ||
1200 | if (dec_BER_PDU('C1810105'O) == myBooleanValue) | |
1201 | ||
1202 | ||
1203 | {setverdict(pass);} else {setverdict(fail);} | |
1204 | ||
1205 | ||
1206 | <RESULT> | |
1207 | ||
1208 | Overall verdict: pass | |
1209 | ||
1210 | <END_TC> | |
1211 | ||
1212 | :exmp. | |
1213 | ||
1214 | .*---------------------------------------------------------------------* | |
1215 | :h3. DECODING [APPLICATION 2] IMPLICIT BOOLEAN,Short form CER,DER | |
1216 | .*---------------------------------------------------------------------* | |
1217 | :xmp tab=0. | |
1218 | ||
1219 | <TC - DECODING [APPLICATION 2] IMPLICIT BOOLEAN,Short form CER,DER> | |
1220 | ||
1221 | <STATIC:ASN> | |
1222 | ||
1223 | TempA | |
1224 | ||
1225 | DEFINITIONS ::= | |
1226 | BEGIN | |
1227 | BERPDU ::= [APPLICATION 2] IMPLICIT BOOLEAN | |
1228 | ||
1229 | myBooleanValue BERPDU ::= FALSE | |
1230 | ||
1231 | END | |
1232 | ||
1233 | <STATIC> | |
1234 | ||
1235 | import from TempA all; | |
1236 | ||
1237 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1238 | ||
1239 | ||
1240 | <TTCN_TC:EXEC> | |
1241 | ||
1242 | if (dec_BER_PDU('420100'O) == myBooleanValue) | |
1243 | ||
1244 | ||
1245 | {setverdict(pass);} else {setverdict(fail);} | |
1246 | ||
1247 | ||
1248 | <RESULT> | |
1249 | ||
1250 | Overall verdict: pass | |
1251 | ||
1252 | <END_TC> | |
1253 | ||
1254 | :exmp. | |
1255 | ||
1256 | .*---------------------------------------------------------------------* | |
1257 | :h3. DECODING [APPLICATION 2] IMPLICIT BOOLEAN,Long form | |
1258 | .*---------------------------------------------------------------------* | |
1259 | :xmp tab=0. | |
1260 | ||
1261 | <TC - DECODING [APPLICATION 2] IMPLICIT BOOLEAN,Long form> | |
1262 | ||
1263 | <STATIC:ASN> | |
1264 | ||
1265 | TempA | |
1266 | ||
1267 | DEFINITIONS ::= | |
1268 | BEGIN | |
1269 | BERPDU ::= [APPLICATION 2] IMPLICIT BOOLEAN | |
1270 | ||
1271 | myBooleanValue BERPDU ::= TRUE | |
1272 | ||
1273 | END | |
1274 | ||
1275 | <STATIC> | |
1276 | ||
1277 | import from TempA all; | |
1278 | ||
1279 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
1280 | ||
1281 | ||
1282 | <TTCN_TC:EXEC> | |
1283 | ||
1284 | if (dec_BER_PDU('42810188'O) == myBooleanValue) | |
1285 | ||
1286 | ||
1287 | {setverdict(pass);} else {setverdict(fail);} | |
1288 | ||
1289 | ||
1290 | <RESULT> | |
1291 | ||
1292 | Overall verdict: pass | |
1293 | ||
1294 | <END_TC> | |
1295 | ||
1296 | :exmp. | |
1297 | ||
1298 | .*---------------------------------------------------------------------* | |
1299 | :h3. DER + CER encoding of integer (5) | |
1300 | .*---------------------------------------------------------------------* | |
1301 | :xmp tab=0. | |
1302 | ||
1303 | <TC - DER + CER encoding of integer (5)> | |
1304 | START OF INTEGER SECTION | |
1305 | ||
1306 | <STATIC:ASN> | |
1307 | ||
1308 | TempA | |
1309 | ||
1310 | DEFINITIONS ::= | |
1311 | BEGIN | |
1312 | BERPDU ::= INTEGER | |
1313 | END | |
1314 | ||
1315 | <STATIC> | |
1316 | ||
1317 | import from TempA all; | |
1318 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1319 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1320 | ||
1321 | const BERPDU b := 5 | |
1322 | ||
1323 | <TTCN_TC:EXEC> | |
1324 | ||
1325 | if ((enc_DER_PDU(b) == '020105'O)and(enc_CER_PDU(b) == '020105'O)) {setverdict(pass);} else {setverdict(fail);} | |
1326 | ||
1327 | <RESULT> | |
1328 | ||
1329 | Overall verdict: pass | |
1330 | ||
1331 | <END_TC> | |
1332 | ||
1333 | :exmp. | |
1334 | ||
1335 | .*---------------------------------------------------------------------* | |
1336 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
1337 | .*---------------------------------------------------------------------* | |
1338 | :xmp tab=0. | |
1339 | ||
1340 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
1341 | ||
1342 | <STATIC:ASN> | |
1343 | ||
1344 | TempA | |
1345 | ||
1346 | DEFINITIONS ::= | |
1347 | BEGIN | |
1348 | BERPDU ::= [0] EXPLICIT INTEGER | |
1349 | END | |
1350 | ||
1351 | <STATIC> | |
1352 | ||
1353 | import from TempA all; | |
1354 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1355 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1356 | ||
1357 | const BERPDU b := 5 | |
1358 | ||
1359 | <TTCN_TC:EXEC> | |
1360 | ||
1361 | if ((enc_DER_PDU(b) == 'A003020105'O)and(enc_CER_PDU(b) == 'A0800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1362 | ||
1363 | <RESULT> | |
1364 | ||
1365 | Overall verdict: pass | |
1366 | ||
1367 | <END_TC> | |
1368 | ||
1369 | :exmp. | |
1370 | ||
1371 | .*---------------------------------------------------------------------* | |
1372 | :h3. DER + CER encoding of integer (5) with PRIVATE TAG, EXPLICIT | |
1373 | .*---------------------------------------------------------------------* | |
1374 | :xmp tab=0. | |
1375 | ||
1376 | <TC - DER + CER encoding of integer (5) with PRIVATE TAG, EXPLICIT> | |
1377 | ||
1378 | <STATIC:ASN> | |
1379 | ||
1380 | TempA | |
1381 | ||
1382 | DEFINITIONS ::= | |
1383 | BEGIN | |
1384 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
1385 | END | |
1386 | ||
1387 | <STATIC> | |
1388 | ||
1389 | import from TempA all; | |
1390 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1391 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1392 | ||
1393 | const BERPDU b := 5 | |
1394 | ||
1395 | <TTCN_TC:EXEC> | |
1396 | ||
1397 | if ((enc_DER_PDU(b) == 'E103020105'O)and(enc_CER_PDU(b) == 'E1800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1398 | ||
1399 | <RESULT> | |
1400 | ||
1401 | Overall verdict: pass | |
1402 | ||
1403 | <END_TC> | |
1404 | ||
1405 | :exmp. | |
1406 | ||
1407 | .*---------------------------------------------------------------------* | |
1408 | :h3. DER + CER encoding of integer (5) with APPLICATION TAG, EXPLICIT | |
1409 | .*---------------------------------------------------------------------* | |
1410 | :xmp tab=0. | |
1411 | ||
1412 | <TC - DER + CER encoding of integer (5) with APPLICATION TAG, EXPLICIT> | |
1413 | ||
1414 | <STATIC:ASN> | |
1415 | ||
1416 | TempA | |
1417 | ||
1418 | DEFINITIONS ::= | |
1419 | BEGIN | |
1420 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
1421 | END | |
1422 | ||
1423 | <STATIC> | |
1424 | ||
1425 | import from TempA all; | |
1426 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1427 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1428 | ||
1429 | const BERPDU b := 5 | |
1430 | ||
1431 | <TTCN_TC:EXEC> | |
1432 | ||
1433 | if ((enc_DER_PDU(b) == '6203020105'O)and(enc_CER_PDU(b) == '62800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1434 | ||
1435 | <RESULT> | |
1436 | ||
1437 | Overall verdict: pass | |
1438 | ||
1439 | <END_TC> | |
1440 | ||
1441 | :exmp. | |
1442 | ||
1443 | .*---------------------------------------------------------------------* | |
1444 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, IMPLICIT | |
1445 | .*---------------------------------------------------------------------* | |
1446 | :xmp tab=0. | |
1447 | ||
1448 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, IMPLICIT> | |
1449 | ||
1450 | <STATIC:ASN> | |
1451 | ||
1452 | TempA | |
1453 | ||
1454 | DEFINITIONS ::= | |
1455 | BEGIN | |
1456 | BERPDU ::= [0] IMPLICIT INTEGER | |
1457 | END | |
1458 | ||
1459 | <STATIC> | |
1460 | ||
1461 | import from TempA all; | |
1462 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1463 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1464 | ||
1465 | const BERPDU b := 5 | |
1466 | ||
1467 | <TTCN_TC:EXEC> | |
1468 | ||
1469 | if ((enc_DER_PDU(b) == '800105'O)and(enc_CER_PDU(b) == '800105'O)) {setverdict(pass);} else {setverdict(fail);} | |
1470 | ||
1471 | <RESULT> | |
1472 | ||
1473 | Overall verdict: pass | |
1474 | ||
1475 | <END_TC> | |
1476 | ||
1477 | :exmp. | |
1478 | ||
1479 | .*---------------------------------------------------------------------* | |
1480 | :h3. DER + CER encoding of integer (5) with PRIVATE TAG, IMPLICIT | |
1481 | .*---------------------------------------------------------------------* | |
1482 | :xmp tab=0. | |
1483 | ||
1484 | <TC - DER + CER encoding of integer (5) with PRIVATE TAG, IMPLICIT> | |
1485 | ||
1486 | <STATIC:ASN> | |
1487 | ||
1488 | TempA | |
1489 | ||
1490 | DEFINITIONS ::= | |
1491 | BEGIN | |
1492 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
1493 | END | |
1494 | ||
1495 | <STATIC> | |
1496 | ||
1497 | import from TempA all; | |
1498 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1499 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1500 | ||
1501 | const BERPDU b := 5 | |
1502 | ||
1503 | <TTCN_TC:EXEC> | |
1504 | ||
1505 | if ((enc_DER_PDU(b) == 'C10105'O)and(enc_CER_PDU(b) == 'C10105'O)) {setverdict(pass);} else {setverdict(fail);} | |
1506 | ||
1507 | <RESULT> | |
1508 | ||
1509 | Overall verdict: pass | |
1510 | ||
1511 | <END_TC> | |
1512 | ||
1513 | :exmp. | |
1514 | ||
1515 | .*---------------------------------------------------------------------* | |
1516 | :h3. DER + CER encoding of integer (5) with APPLICATION TAG, IMPLICIT | |
1517 | .*---------------------------------------------------------------------* | |
1518 | :xmp tab=0. | |
1519 | ||
1520 | <TC - DER + CER encoding of integer (5) with APPLICATION TAG, IMPLICIT> | |
1521 | ||
1522 | <STATIC:ASN> | |
1523 | ||
1524 | TempA | |
1525 | ||
1526 | DEFINITIONS ::= | |
1527 | BEGIN | |
1528 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
1529 | END | |
1530 | ||
1531 | <STATIC> | |
1532 | ||
1533 | import from TempA all; | |
1534 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1535 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1536 | ||
1537 | const BERPDU b := 5 | |
1538 | ||
1539 | <TTCN_TC:EXEC> | |
1540 | ||
1541 | if ((enc_DER_PDU(b) == '420105'O)and(enc_CER_PDU(b) == '420105'O)) {setverdict(pass);} else {setverdict(fail);} | |
1542 | ||
1543 | <RESULT> | |
1544 | ||
1545 | Overall verdict: pass | |
1546 | ||
1547 | <END_TC> | |
1548 | ||
1549 | :exmp. | |
1550 | ||
1551 | .*---------------------------------------------------------------------* | |
1552 | :h3. DER + CER encoding of integer (0) | |
1553 | .*---------------------------------------------------------------------* | |
1554 | :xmp tab=0. | |
1555 | ||
1556 | <TC - DER + CER encoding of integer (0) > | |
1557 | ||
1558 | <STATIC:ASN> | |
1559 | ||
1560 | TempA | |
1561 | ||
1562 | DEFINITIONS ::= | |
1563 | BEGIN | |
1564 | BERPDU ::= INTEGER | |
1565 | END | |
1566 | ||
1567 | <STATIC> | |
1568 | ||
1569 | import from TempA all; | |
1570 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1571 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1572 | ||
1573 | const BERPDU b := 0 | |
1574 | ||
1575 | <TTCN_TC:EXEC> | |
1576 | ||
1577 | if ((enc_DER_PDU(b) == '020100'O)and(enc_CER_PDU(b) == '020100'O)) {setverdict(pass);} else {setverdict(fail);} | |
1578 | ||
1579 | <RESULT> | |
1580 | ||
1581 | Overall verdict: pass | |
1582 | ||
1583 | <END_TC> | |
1584 | ||
1585 | :exmp. | |
1586 | ||
1587 | .*---------------------------------------------------------------------* | |
1588 | :h3. DER + CER encoding of integer (0) with Context Specific TAG, EXPLICIT | |
1589 | .*---------------------------------------------------------------------* | |
1590 | :xmp tab=0. | |
1591 | ||
1592 | <TC - DER + CER encoding of integer (0) with Context Specific TAG, EXPLICIT> | |
1593 | ||
1594 | <STATIC:ASN> | |
1595 | ||
1596 | TempA | |
1597 | ||
1598 | DEFINITIONS ::= | |
1599 | BEGIN | |
1600 | BERPDU ::= [0] EXPLICIT INTEGER | |
1601 | END | |
1602 | ||
1603 | <STATIC> | |
1604 | ||
1605 | import from TempA all; | |
1606 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1607 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1608 | ||
1609 | const BERPDU b := 0 | |
1610 | ||
1611 | <TTCN_TC:EXEC> | |
1612 | ||
1613 | if ((enc_DER_PDU(b) == 'A003020100'O)and(enc_CER_PDU(b) == 'A0800201000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1614 | ||
1615 | <RESULT> | |
1616 | ||
1617 | Overall verdict: pass | |
1618 | ||
1619 | <END_TC> | |
1620 | ||
1621 | :exmp. | |
1622 | ||
1623 | .*---------------------------------------------------------------------* | |
1624 | :h3. DER + CER encoding of integer (0) with PRIVATE TAG, EXPLICIT | |
1625 | .*---------------------------------------------------------------------* | |
1626 | :xmp tab=0. | |
1627 | ||
1628 | <TC - DER + CER encoding of integer (0) with PRIVATE TAG, EXPLICIT> | |
1629 | ||
1630 | <STATIC:ASN> | |
1631 | ||
1632 | TempA | |
1633 | ||
1634 | DEFINITIONS ::= | |
1635 | BEGIN | |
1636 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
1637 | END | |
1638 | ||
1639 | <STATIC> | |
1640 | ||
1641 | import from TempA all; | |
1642 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1643 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1644 | ||
1645 | const BERPDU b := 0 | |
1646 | ||
1647 | <TTCN_TC:EXEC> | |
1648 | ||
1649 | if ((enc_DER_PDU(b) == 'E103020100'O)and(enc_CER_PDU(b) == 'E1800201000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1650 | ||
1651 | <RESULT> | |
1652 | ||
1653 | Overall verdict: pass | |
1654 | ||
1655 | <END_TC> | |
1656 | ||
1657 | :exmp. | |
1658 | ||
1659 | .*---------------------------------------------------------------------* | |
1660 | :h3. DER + CER encoding of integer (0) with APPLICATION TAG, EXPLICIT | |
1661 | .*---------------------------------------------------------------------* | |
1662 | :xmp tab=0. | |
1663 | ||
1664 | <TC - DER + CER encoding of integer (0) with APPLICATION TAG, EXPLICIT> | |
1665 | ||
1666 | <STATIC:ASN> | |
1667 | ||
1668 | TempA | |
1669 | ||
1670 | DEFINITIONS ::= | |
1671 | BEGIN | |
1672 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
1673 | END | |
1674 | ||
1675 | <STATIC> | |
1676 | ||
1677 | import from TempA all; | |
1678 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1679 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1680 | ||
1681 | const BERPDU b := 0 | |
1682 | ||
1683 | <TTCN_TC:EXEC> | |
1684 | ||
1685 | if ((enc_DER_PDU(b) == '6203020100'O)and(enc_CER_PDU(b) == '62800201000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1686 | ||
1687 | <RESULT> | |
1688 | ||
1689 | Overall verdict: pass | |
1690 | ||
1691 | <END_TC> | |
1692 | ||
1693 | :exmp. | |
1694 | ||
1695 | .*---------------------------------------------------------------------* | |
1696 | :h3. DER + CER encoding of integer (0) with Context Specific TAG, IMPLICIT | |
1697 | .*---------------------------------------------------------------------* | |
1698 | :xmp tab=0. | |
1699 | ||
1700 | <TC - DER + CER encoding of integer (0) with Context Specific TAG, IMPLICIT> | |
1701 | ||
1702 | <STATIC:ASN> | |
1703 | ||
1704 | TempA | |
1705 | ||
1706 | DEFINITIONS ::= | |
1707 | BEGIN | |
1708 | BERPDU ::= [0] IMPLICIT INTEGER | |
1709 | END | |
1710 | ||
1711 | <STATIC> | |
1712 | ||
1713 | import from TempA all; | |
1714 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1715 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1716 | ||
1717 | const BERPDU b := 0 | |
1718 | ||
1719 | <TTCN_TC:EXEC> | |
1720 | ||
1721 | if ((enc_DER_PDU(b) == '800100'O)and(enc_CER_PDU(b) == '800100'O)) {setverdict(pass);} else {setverdict(fail);} | |
1722 | ||
1723 | <RESULT> | |
1724 | ||
1725 | Overall verdict: pass | |
1726 | ||
1727 | <END_TC> | |
1728 | ||
1729 | :exmp. | |
1730 | ||
1731 | .*---------------------------------------------------------------------* | |
1732 | :h3. DER + CER encoding of integer (0) with PRIVATE TAG, IMPLICIT | |
1733 | .*---------------------------------------------------------------------* | |
1734 | :xmp tab=0. | |
1735 | ||
1736 | <TC - DER + CER encoding of integer (0) with PRIVATE TAG, IMPLICIT> | |
1737 | ||
1738 | <STATIC:ASN> | |
1739 | ||
1740 | TempA | |
1741 | ||
1742 | DEFINITIONS ::= | |
1743 | BEGIN | |
1744 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
1745 | END | |
1746 | ||
1747 | <STATIC> | |
1748 | ||
1749 | import from TempA all; | |
1750 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1751 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1752 | ||
1753 | const BERPDU b := 0 | |
1754 | ||
1755 | <TTCN_TC:EXEC> | |
1756 | ||
1757 | if ((enc_DER_PDU(b) == 'C10100'O)and(enc_CER_PDU(b) == 'C10100'O)) {setverdict(pass);} else {setverdict(fail);} | |
1758 | ||
1759 | <RESULT> | |
1760 | ||
1761 | Overall verdict: pass | |
1762 | ||
1763 | <END_TC> | |
1764 | ||
1765 | :exmp. | |
1766 | ||
1767 | .*---------------------------------------------------------------------* | |
1768 | :h3. DER + CER encoding of integer (0) with APPLICATION TAG, IMPLICIT | |
1769 | .*---------------------------------------------------------------------* | |
1770 | :xmp tab=0. | |
1771 | ||
1772 | <TC - DER + CER encoding of integer (0) with APPLICATION TAG, IMPLICIT> | |
1773 | ||
1774 | <STATIC:ASN> | |
1775 | ||
1776 | TempA | |
1777 | ||
1778 | DEFINITIONS ::= | |
1779 | BEGIN | |
1780 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
1781 | END | |
1782 | ||
1783 | <STATIC> | |
1784 | ||
1785 | import from TempA all; | |
1786 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1787 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1788 | ||
1789 | const BERPDU b := 0 | |
1790 | ||
1791 | <TTCN_TC:EXEC> | |
1792 | ||
1793 | if ((enc_DER_PDU(b) == '420100'O)and(enc_CER_PDU(b) == '420100'O)) {setverdict(pass);} else {setverdict(fail);} | |
1794 | ||
1795 | <RESULT> | |
1796 | ||
1797 | Overall verdict: pass | |
1798 | ||
1799 | <END_TC> | |
1800 | ||
1801 | :exmp. | |
1802 | ||
1803 | .*---------------------------------------------------------------------* | |
1804 | :h3. DER + CER encoding of integer (127) | |
1805 | .*---------------------------------------------------------------------* | |
1806 | :xmp tab=0. | |
1807 | ||
1808 | <TC - DER + CER encoding of integer (127) > | |
1809 | ||
1810 | <STATIC:ASN> | |
1811 | ||
1812 | TempA | |
1813 | ||
1814 | DEFINITIONS ::= | |
1815 | BEGIN | |
1816 | BERPDU ::= INTEGER | |
1817 | END | |
1818 | ||
1819 | <STATIC> | |
1820 | ||
1821 | import from TempA all; | |
1822 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1823 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1824 | ||
1825 | const BERPDU b := 127 | |
1826 | ||
1827 | <TTCN_TC:EXEC> | |
1828 | ||
1829 | if ((enc_DER_PDU(b) == '02017F'O)and(enc_CER_PDU(b) == '02017F'O)) {setverdict(pass);} else {setverdict(fail);} | |
1830 | ||
1831 | <RESULT> | |
1832 | ||
1833 | Overall verdict: pass | |
1834 | ||
1835 | <END_TC> | |
1836 | ||
1837 | :exmp. | |
1838 | ||
1839 | .*---------------------------------------------------------------------* | |
1840 | :h3. DER + CER encoding of integer (127) with Context Specific TAG, EXPLICIT | |
1841 | .*---------------------------------------------------------------------* | |
1842 | :xmp tab=0. | |
1843 | ||
1844 | <TC - DER + CER encoding of integer (127) with Context Specific TAG, EXPLICIT> | |
1845 | ||
1846 | <STATIC:ASN> | |
1847 | ||
1848 | TempA | |
1849 | ||
1850 | DEFINITIONS ::= | |
1851 | BEGIN | |
1852 | BERPDU ::= [0] EXPLICIT INTEGER | |
1853 | END | |
1854 | ||
1855 | <STATIC> | |
1856 | ||
1857 | import from TempA all; | |
1858 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1859 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1860 | ||
1861 | const BERPDU b := 127 | |
1862 | ||
1863 | <TTCN_TC:EXEC> | |
1864 | ||
1865 | if ((enc_DER_PDU(b) == 'A00302017F'O)and(enc_CER_PDU(b) == 'A08002017F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1866 | ||
1867 | <RESULT> | |
1868 | ||
1869 | Overall verdict: pass | |
1870 | ||
1871 | <END_TC> | |
1872 | ||
1873 | :exmp. | |
1874 | ||
1875 | .*---------------------------------------------------------------------* | |
1876 | :h3. DER + CER encoding of integer (127) with PRIVATE TAG, EXPLICIT | |
1877 | .*---------------------------------------------------------------------* | |
1878 | :xmp tab=0. | |
1879 | ||
1880 | <TC - DER + CER encoding of integer (127) with PRIVATE TAG, EXPLICIT> | |
1881 | ||
1882 | <STATIC:ASN> | |
1883 | ||
1884 | TempA | |
1885 | ||
1886 | DEFINITIONS ::= | |
1887 | BEGIN | |
1888 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
1889 | END | |
1890 | ||
1891 | <STATIC> | |
1892 | ||
1893 | import from TempA all; | |
1894 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1895 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1896 | ||
1897 | const BERPDU b := 127 | |
1898 | ||
1899 | <TTCN_TC:EXEC> | |
1900 | ||
1901 | if ((enc_DER_PDU(b) == 'E10302017F'O)and(enc_CER_PDU(b) == 'E18002017F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1902 | ||
1903 | <RESULT> | |
1904 | ||
1905 | Overall verdict: pass | |
1906 | ||
1907 | <END_TC> | |
1908 | ||
1909 | :exmp. | |
1910 | ||
1911 | .*---------------------------------------------------------------------* | |
1912 | :h3. DER + CER encoding of integer (127) with APPLICATION TAG, EXPLICIT | |
1913 | .*---------------------------------------------------------------------* | |
1914 | :xmp tab=0. | |
1915 | ||
1916 | <TC - DER + CER encoding of integer (127) with APPLICATION TAG, EXPLICIT> | |
1917 | ||
1918 | <STATIC:ASN> | |
1919 | ||
1920 | TempA | |
1921 | ||
1922 | DEFINITIONS ::= | |
1923 | BEGIN | |
1924 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
1925 | END | |
1926 | ||
1927 | <STATIC> | |
1928 | ||
1929 | import from TempA all; | |
1930 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1931 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1932 | ||
1933 | const BERPDU b := 127 | |
1934 | ||
1935 | <TTCN_TC:EXEC> | |
1936 | ||
1937 | if ((enc_DER_PDU(b) == '620302017F'O)and(enc_CER_PDU(b) == '628002017F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
1938 | ||
1939 | <RESULT> | |
1940 | ||
1941 | Overall verdict: pass | |
1942 | ||
1943 | <END_TC> | |
1944 | ||
1945 | :exmp. | |
1946 | ||
1947 | .*---------------------------------------------------------------------* | |
1948 | :h3. DER + CER encoding of integer (127) with Context Specific TAG, IMPLICIT | |
1949 | .*---------------------------------------------------------------------* | |
1950 | :xmp tab=0. | |
1951 | ||
1952 | <TC - DER + CER encoding of integer (127) with Context Specific TAG, IMPLICIT> | |
1953 | ||
1954 | <STATIC:ASN> | |
1955 | ||
1956 | TempA | |
1957 | ||
1958 | DEFINITIONS ::= | |
1959 | BEGIN | |
1960 | BERPDU ::= [0] IMPLICIT INTEGER | |
1961 | END | |
1962 | ||
1963 | <STATIC> | |
1964 | ||
1965 | import from TempA all; | |
1966 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
1967 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
1968 | ||
1969 | const BERPDU b := 127 | |
1970 | ||
1971 | <TTCN_TC:EXEC> | |
1972 | ||
1973 | if ((enc_DER_PDU(b) == '80017F'O)and(enc_CER_PDU(b) == '80017F'O)) {setverdict(pass);} else {setverdict(fail);} | |
1974 | ||
1975 | <RESULT> | |
1976 | ||
1977 | Overall verdict: pass | |
1978 | ||
1979 | <END_TC> | |
1980 | ||
1981 | :exmp. | |
1982 | ||
1983 | .*---------------------------------------------------------------------* | |
1984 | :h3. DER + CER encoding of integer (127) with PRIVATE TAG, IMPLICIT | |
1985 | .*---------------------------------------------------------------------* | |
1986 | :xmp tab=0. | |
1987 | ||
1988 | <TC - DER + CER encoding of integer (127) with PRIVATE TAG, IMPLICIT> | |
1989 | ||
1990 | <STATIC:ASN> | |
1991 | ||
1992 | TempA | |
1993 | ||
1994 | DEFINITIONS ::= | |
1995 | BEGIN | |
1996 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
1997 | END | |
1998 | ||
1999 | <STATIC> | |
2000 | ||
2001 | import from TempA all; | |
2002 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2003 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2004 | ||
2005 | const BERPDU b := 127 | |
2006 | ||
2007 | <TTCN_TC:EXEC> | |
2008 | ||
2009 | if ((enc_DER_PDU(b) == 'C1017F'O)and(enc_CER_PDU(b) == 'C1017F'O)) {setverdict(pass);} else {setverdict(fail);} | |
2010 | ||
2011 | <RESULT> | |
2012 | ||
2013 | Overall verdict: pass | |
2014 | ||
2015 | <END_TC> | |
2016 | ||
2017 | :exmp. | |
2018 | ||
2019 | .*---------------------------------------------------------------------* | |
2020 | :h3. DER + CER encoding of integer (127) with APPLICATION TAG, IMPLICIT | |
2021 | .*---------------------------------------------------------------------* | |
2022 | :xmp tab=0. | |
2023 | ||
2024 | <TC - DER + CER encoding of integer (127) with APPLICATION TAG, IMPLICIT> | |
2025 | ||
2026 | <STATIC:ASN> | |
2027 | ||
2028 | TempA | |
2029 | ||
2030 | DEFINITIONS ::= | |
2031 | BEGIN | |
2032 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
2033 | END | |
2034 | ||
2035 | <STATIC> | |
2036 | ||
2037 | import from TempA all; | |
2038 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2039 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2040 | ||
2041 | const BERPDU b := 127 | |
2042 | ||
2043 | <TTCN_TC:EXEC> | |
2044 | ||
2045 | if ((enc_DER_PDU(b) == '42017F'O)and(enc_CER_PDU(b) == '42017F'O)) {setverdict(pass);} else {setverdict(fail);} | |
2046 | ||
2047 | <RESULT> | |
2048 | ||
2049 | Overall verdict: pass | |
2050 | ||
2051 | <END_TC> | |
2052 | ||
2053 | :exmp. | |
2054 | ||
2055 | .*---------------------------------------------------------------------* | |
2056 | :h3. DER + CER encoding of integer (-128) | |
2057 | .*---------------------------------------------------------------------* | |
2058 | :xmp tab=0. | |
2059 | ||
2060 | <TC - DER + CER encoding of integer (-128) > | |
2061 | ||
2062 | <STATIC:ASN> | |
2063 | ||
2064 | TempA | |
2065 | ||
2066 | DEFINITIONS ::= | |
2067 | BEGIN | |
2068 | BERPDU ::= INTEGER | |
2069 | END | |
2070 | ||
2071 | <STATIC> | |
2072 | ||
2073 | import from TempA all; | |
2074 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2075 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2076 | ||
2077 | const BERPDU b := -128 | |
2078 | ||
2079 | <TTCN_TC:EXEC> | |
2080 | ||
2081 | if ((enc_DER_PDU(b) == '020180'O)and(enc_CER_PDU(b) == '020180'O)) {setverdict(pass);} else {setverdict(fail);} | |
2082 | ||
2083 | <RESULT> | |
2084 | ||
2085 | Overall verdict: pass | |
2086 | ||
2087 | <END_TC> | |
2088 | ||
2089 | :exmp. | |
2090 | ||
2091 | .*---------------------------------------------------------------------* | |
2092 | :h3. DER + CER encoding of integer (-128) with Context Specific TAG, EXPLICIT | |
2093 | .*---------------------------------------------------------------------* | |
2094 | :xmp tab=0. | |
2095 | ||
2096 | <TC - DER + CER encoding of integer (-128) with Context Specific TAG, EXPLICIT> | |
2097 | ||
2098 | <STATIC:ASN> | |
2099 | ||
2100 | TempA | |
2101 | ||
2102 | DEFINITIONS ::= | |
2103 | BEGIN | |
2104 | BERPDU ::= [0] EXPLICIT INTEGER | |
2105 | END | |
2106 | ||
2107 | <STATIC> | |
2108 | ||
2109 | import from TempA all; | |
2110 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2111 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2112 | ||
2113 | const BERPDU b := -128 | |
2114 | ||
2115 | <TTCN_TC:EXEC> | |
2116 | ||
2117 | if ((enc_DER_PDU(b) == 'A003020180'O)and(enc_CER_PDU(b) == 'A0800201800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2118 | ||
2119 | <RESULT> | |
2120 | ||
2121 | Overall verdict: pass | |
2122 | ||
2123 | <END_TC> | |
2124 | ||
2125 | :exmp. | |
2126 | ||
2127 | .*---------------------------------------------------------------------* | |
2128 | :h3. DER + CER encoding of integer (-128) with PRIVATE TAG, EXPLICIT | |
2129 | .*---------------------------------------------------------------------* | |
2130 | :xmp tab=0. | |
2131 | ||
2132 | <TC - DER + CER encoding of integer (-128) with PRIVATE TAG, EXPLICIT> | |
2133 | ||
2134 | <STATIC:ASN> | |
2135 | ||
2136 | TempA | |
2137 | ||
2138 | DEFINITIONS ::= | |
2139 | BEGIN | |
2140 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
2141 | END | |
2142 | ||
2143 | <STATIC> | |
2144 | ||
2145 | import from TempA all; | |
2146 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2147 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2148 | ||
2149 | const BERPDU b := -128 | |
2150 | ||
2151 | <TTCN_TC:EXEC> | |
2152 | ||
2153 | if ((enc_DER_PDU(b) == 'E103020180'O)and(enc_CER_PDU(b) == 'E1800201800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2154 | ||
2155 | <RESULT> | |
2156 | ||
2157 | Overall verdict: pass | |
2158 | ||
2159 | <END_TC> | |
2160 | ||
2161 | :exmp. | |
2162 | ||
2163 | .*---------------------------------------------------------------------* | |
2164 | :h3. DER + CER encoding of integer (-128) with APPLICATION TAG, EXPLICIT | |
2165 | .*---------------------------------------------------------------------* | |
2166 | :xmp tab=0. | |
2167 | ||
2168 | <TC - DER + CER encoding of integer (-128) with APPLICATION TAG, EXPLICIT> | |
2169 | ||
2170 | <STATIC:ASN> | |
2171 | ||
2172 | TempA | |
2173 | ||
2174 | DEFINITIONS ::= | |
2175 | BEGIN | |
2176 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
2177 | END | |
2178 | ||
2179 | <STATIC> | |
2180 | ||
2181 | import from TempA all; | |
2182 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2183 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2184 | ||
2185 | const BERPDU b := -128 | |
2186 | ||
2187 | <TTCN_TC:EXEC> | |
2188 | ||
2189 | if ((enc_DER_PDU(b) == '6203020180'O)and(enc_CER_PDU(b) == '62800201800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2190 | ||
2191 | <RESULT> | |
2192 | ||
2193 | Overall verdict: pass | |
2194 | ||
2195 | <END_TC> | |
2196 | ||
2197 | :exmp. | |
2198 | ||
2199 | .*---------------------------------------------------------------------* | |
2200 | :h3. DER + CER encoding of integer (-128) with Context Specific TAG, IMPLICIT | |
2201 | .*---------------------------------------------------------------------* | |
2202 | :xmp tab=0. | |
2203 | ||
2204 | <TC - DER + CER encoding of integer (-128) with Context Specific TAG, IMPLICIT> | |
2205 | ||
2206 | <STATIC:ASN> | |
2207 | ||
2208 | TempA | |
2209 | ||
2210 | DEFINITIONS ::= | |
2211 | BEGIN | |
2212 | BERPDU ::= [0] IMPLICIT INTEGER | |
2213 | END | |
2214 | ||
2215 | <STATIC> | |
2216 | ||
2217 | import from TempA all; | |
2218 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2219 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2220 | ||
2221 | const BERPDU b := -128 | |
2222 | ||
2223 | <TTCN_TC:EXEC> | |
2224 | ||
2225 | if ((enc_DER_PDU(b) == '800180'O)and(enc_CER_PDU(b) == '800180'O)) {setverdict(pass);} else {setverdict(fail);} | |
2226 | ||
2227 | <RESULT> | |
2228 | ||
2229 | Overall verdict: pass | |
2230 | ||
2231 | <END_TC> | |
2232 | ||
2233 | :exmp. | |
2234 | ||
2235 | .*---------------------------------------------------------------------* | |
2236 | :h3. DER + CER encoding of integer (-128) with PRIVATE TAG, IMPLICIT | |
2237 | .*---------------------------------------------------------------------* | |
2238 | :xmp tab=0. | |
2239 | ||
2240 | <TC - DER + CER encoding of integer (-128) with PRIVATE TAG, IMPLICIT> | |
2241 | ||
2242 | <STATIC:ASN> | |
2243 | ||
2244 | TempA | |
2245 | ||
2246 | DEFINITIONS ::= | |
2247 | BEGIN | |
2248 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
2249 | END | |
2250 | ||
2251 | <STATIC> | |
2252 | ||
2253 | import from TempA all; | |
2254 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2255 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2256 | ||
2257 | const BERPDU b := -128 | |
2258 | ||
2259 | <TTCN_TC:EXEC> | |
2260 | ||
2261 | if ((enc_DER_PDU(b) == 'C10180'O)and(enc_CER_PDU(b) == 'C10180'O)) {setverdict(pass);} else {setverdict(fail);} | |
2262 | ||
2263 | <RESULT> | |
2264 | ||
2265 | Overall verdict: pass | |
2266 | ||
2267 | <END_TC> | |
2268 | ||
2269 | :exmp. | |
2270 | ||
2271 | .*---------------------------------------------------------------------* | |
2272 | :h3. DER + CER encoding of integer (-128) with APPLICATION TAG, IMPLICIT | |
2273 | .*---------------------------------------------------------------------* | |
2274 | :xmp tab=0. | |
2275 | ||
2276 | <TC - DER + CER encoding of integer (-128) with APPLICATION TAG, IMPLICIT> | |
2277 | ||
2278 | <STATIC:ASN> | |
2279 | ||
2280 | TempA | |
2281 | ||
2282 | DEFINITIONS ::= | |
2283 | BEGIN | |
2284 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
2285 | END | |
2286 | ||
2287 | <STATIC> | |
2288 | ||
2289 | import from TempA all; | |
2290 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2291 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2292 | ||
2293 | const BERPDU b := -128 | |
2294 | ||
2295 | <TTCN_TC:EXEC> | |
2296 | ||
2297 | if ((enc_DER_PDU(b) == '420180'O)and(enc_CER_PDU(b) == '420180'O)) {setverdict(pass);} else {setverdict(fail);} | |
2298 | ||
2299 | <RESULT> | |
2300 | ||
2301 | Overall verdict: pass | |
2302 | ||
2303 | <END_TC> | |
2304 | ||
2305 | :exmp. | |
2306 | ||
2307 | .*---------------------------------------------------------------------* | |
2308 | :h3. DER + CER encoding of integer (-5) | |
2309 | .*---------------------------------------------------------------------* | |
2310 | :xmp tab=0. | |
2311 | ||
2312 | <TC - DER + CER encoding of integer (-5)> | |
2313 | ||
2314 | <STATIC:ASN> | |
2315 | ||
2316 | TempA | |
2317 | ||
2318 | DEFINITIONS ::= | |
2319 | BEGIN | |
2320 | BERPDU ::= INTEGER | |
2321 | END | |
2322 | ||
2323 | <STATIC> | |
2324 | ||
2325 | import from TempA all; | |
2326 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2327 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2328 | ||
2329 | const BERPDU b := -5 | |
2330 | ||
2331 | <TTCN_TC:EXEC> | |
2332 | ||
2333 | if ((enc_DER_PDU(b) == '0201FB'O)and(enc_CER_PDU(b) == '0201FB'O)) {setverdict(pass);} else {setverdict(fail);} | |
2334 | ||
2335 | <RESULT> | |
2336 | ||
2337 | Overall verdict: pass | |
2338 | ||
2339 | <END_TC> | |
2340 | ||
2341 | :exmp. | |
2342 | ||
2343 | .*---------------------------------------------------------------------* | |
2344 | :h3. DER + CER encoding of integer (-5) with Context Specific TAG, EXPLICIT | |
2345 | .*---------------------------------------------------------------------* | |
2346 | :xmp tab=0. | |
2347 | ||
2348 | <TC - DER + CER encoding of integer (-5) with Context Specific TAG, EXPLICIT> | |
2349 | ||
2350 | <STATIC:ASN> | |
2351 | ||
2352 | TempA | |
2353 | ||
2354 | DEFINITIONS ::= | |
2355 | BEGIN | |
2356 | BERPDU ::= [0] EXPLICIT INTEGER | |
2357 | END | |
2358 | ||
2359 | <STATIC> | |
2360 | ||
2361 | import from TempA all; | |
2362 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2363 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2364 | ||
2365 | const BERPDU b := -5 | |
2366 | ||
2367 | <TTCN_TC:EXEC> | |
2368 | ||
2369 | if ((enc_DER_PDU(b) == 'A0030201FB'O)and(enc_CER_PDU(b) == 'A0800201FB0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2370 | ||
2371 | <RESULT> | |
2372 | ||
2373 | Overall verdict: pass | |
2374 | ||
2375 | <END_TC> | |
2376 | ||
2377 | :exmp. | |
2378 | ||
2379 | .*---------------------------------------------------------------------* | |
2380 | :h3. DER + CER encoding of integer (-5) with PRIVATE TAG, EXPLICIT | |
2381 | .*---------------------------------------------------------------------* | |
2382 | :xmp tab=0. | |
2383 | ||
2384 | <TC - DER + CER encoding of integer (-5) with PRIVATE TAG, EXPLICIT> | |
2385 | ||
2386 | <STATIC:ASN> | |
2387 | ||
2388 | TempA | |
2389 | ||
2390 | DEFINITIONS ::= | |
2391 | BEGIN | |
2392 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
2393 | END | |
2394 | ||
2395 | <STATIC> | |
2396 | ||
2397 | import from TempA all; | |
2398 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2399 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2400 | ||
2401 | const BERPDU b := -5 | |
2402 | ||
2403 | <TTCN_TC:EXEC> | |
2404 | ||
2405 | if ((enc_DER_PDU(b) == 'E1030201FB'O)and(enc_CER_PDU(b) == 'E1800201FB0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2406 | ||
2407 | <RESULT> | |
2408 | ||
2409 | Overall verdict: pass | |
2410 | ||
2411 | <END_TC> | |
2412 | ||
2413 | :exmp. | |
2414 | ||
2415 | .*---------------------------------------------------------------------* | |
2416 | :h3. DER + CER encoding of integer (-5) with APPLICATION TAG, EXPLICIT | |
2417 | .*---------------------------------------------------------------------* | |
2418 | :xmp tab=0. | |
2419 | ||
2420 | <TC - DER + CER encoding of integer (-5) with APPLICATION TAG, EXPLICIT> | |
2421 | ||
2422 | <STATIC:ASN> | |
2423 | ||
2424 | TempA | |
2425 | ||
2426 | DEFINITIONS ::= | |
2427 | BEGIN | |
2428 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
2429 | END | |
2430 | ||
2431 | <STATIC> | |
2432 | ||
2433 | import from TempA all; | |
2434 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2435 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2436 | ||
2437 | const BERPDU b := -5 | |
2438 | ||
2439 | <TTCN_TC:EXEC> | |
2440 | ||
2441 | if ((enc_DER_PDU(b) == '62030201FB'O)and(enc_CER_PDU(b) == '62800201FB0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2442 | ||
2443 | <RESULT> | |
2444 | ||
2445 | Overall verdict: pass | |
2446 | ||
2447 | <END_TC> | |
2448 | ||
2449 | :exmp. | |
2450 | ||
2451 | .*---------------------------------------------------------------------* | |
2452 | :h3. DER + CER encoding of integer (-5) with Context Specific TAG, IMPLICIT | |
2453 | .*---------------------------------------------------------------------* | |
2454 | :xmp tab=0. | |
2455 | ||
2456 | <TC - DER + CER encoding of integer (-5) with Context Specific TAG, IMPLICIT> | |
2457 | ||
2458 | <STATIC:ASN> | |
2459 | ||
2460 | TempA | |
2461 | ||
2462 | DEFINITIONS ::= | |
2463 | BEGIN | |
2464 | BERPDU ::= [0] IMPLICIT INTEGER | |
2465 | END | |
2466 | ||
2467 | <STATIC> | |
2468 | ||
2469 | import from TempA all; | |
2470 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2471 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2472 | ||
2473 | const BERPDU b := -5 | |
2474 | ||
2475 | <TTCN_TC:EXEC> | |
2476 | ||
2477 | if ((enc_DER_PDU(b) == '8001FB'O)and(enc_CER_PDU(b) == '8001FB'O)) {setverdict(pass);} else {setverdict(fail);} | |
2478 | ||
2479 | <RESULT> | |
2480 | ||
2481 | Overall verdict: pass | |
2482 | ||
2483 | <END_TC> | |
2484 | ||
2485 | :exmp. | |
2486 | ||
2487 | .*---------------------------------------------------------------------* | |
2488 | :h3. DER + CER encoding of integer (-5) with PRIVATE TAG, IMPLICIT | |
2489 | .*---------------------------------------------------------------------* | |
2490 | :xmp tab=0. | |
2491 | ||
2492 | <TC - DER + CER encoding of integer (-5) with PRIVATE TAG, IMPLICIT> | |
2493 | ||
2494 | <STATIC:ASN> | |
2495 | ||
2496 | TempA | |
2497 | ||
2498 | DEFINITIONS ::= | |
2499 | BEGIN | |
2500 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
2501 | END | |
2502 | ||
2503 | <STATIC> | |
2504 | ||
2505 | import from TempA all; | |
2506 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2507 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2508 | ||
2509 | const BERPDU b := -5 | |
2510 | ||
2511 | <TTCN_TC:EXEC> | |
2512 | ||
2513 | if ((enc_DER_PDU(b) == 'C101FB'O)and(enc_CER_PDU(b) == 'C101FB'O)) {setverdict(pass);} else {setverdict(fail);} | |
2514 | ||
2515 | <RESULT> | |
2516 | ||
2517 | Overall verdict: pass | |
2518 | ||
2519 | <END_TC> | |
2520 | ||
2521 | :exmp. | |
2522 | ||
2523 | .*---------------------------------------------------------------------* | |
2524 | :h3. DER + CER encoding of integer (-5) with APPLICATION TAG, IMPLICIT | |
2525 | .*---------------------------------------------------------------------* | |
2526 | :xmp tab=0. | |
2527 | ||
2528 | <TC - DER + CER encoding of integer (-5) with APPLICATION TAG, IMPLICIT> | |
2529 | ||
2530 | <STATIC:ASN> | |
2531 | ||
2532 | TempA | |
2533 | ||
2534 | DEFINITIONS ::= | |
2535 | BEGIN | |
2536 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
2537 | END | |
2538 | ||
2539 | <STATIC> | |
2540 | ||
2541 | import from TempA all; | |
2542 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2543 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2544 | ||
2545 | const BERPDU b := -5 | |
2546 | ||
2547 | <TTCN_TC:EXEC> | |
2548 | ||
2549 | if ((enc_DER_PDU(b) == '4201FB'O)and(enc_CER_PDU(b) == '4201FB'O)) {setverdict(pass);} else {setverdict(fail);} | |
2550 | ||
2551 | <RESULT> | |
2552 | ||
2553 | Overall verdict: pass | |
2554 | ||
2555 | <END_TC> | |
2556 | ||
2557 | :exmp. | |
2558 | ||
2559 | .*---------------------------------------------------------------------* | |
2560 | :h3. DER + CER encoding of integer (128) | |
2561 | .*---------------------------------------------------------------------* | |
2562 | :xmp tab=0. | |
2563 | ||
2564 | <TC - DER + CER encoding of integer (128)> | |
2565 | ||
2566 | <STATIC:ASN> | |
2567 | ||
2568 | TempA | |
2569 | ||
2570 | DEFINITIONS ::= | |
2571 | BEGIN | |
2572 | BERPDU ::= INTEGER | |
2573 | END | |
2574 | ||
2575 | <STATIC> | |
2576 | ||
2577 | import from TempA all; | |
2578 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2579 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2580 | ||
2581 | const BERPDU b := 128 | |
2582 | ||
2583 | <TTCN_TC:EXEC> | |
2584 | ||
2585 | if ((enc_DER_PDU(b) == '02020080'O)and(enc_CER_PDU(b) == '02020080'O)) {setverdict(pass);} else {setverdict(fail);} | |
2586 | ||
2587 | <RESULT> | |
2588 | ||
2589 | Overall verdict: pass | |
2590 | ||
2591 | <END_TC> | |
2592 | ||
2593 | :exmp. | |
2594 | ||
2595 | .*---------------------------------------------------------------------* | |
2596 | :h3. DER + CER encoding of integer (128) with Context Specific TAG, EXPLICIT | |
2597 | .*---------------------------------------------------------------------* | |
2598 | :xmp tab=0. | |
2599 | ||
2600 | <TC - DER + CER encoding of integer (128) with Context Specific TAG, EXPLICIT> | |
2601 | ||
2602 | <STATIC:ASN> | |
2603 | ||
2604 | TempA | |
2605 | ||
2606 | DEFINITIONS ::= | |
2607 | BEGIN | |
2608 | BERPDU ::= [0] EXPLICIT INTEGER | |
2609 | END | |
2610 | ||
2611 | <STATIC> | |
2612 | ||
2613 | import from TempA all; | |
2614 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2615 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2616 | ||
2617 | const BERPDU b := 128 | |
2618 | ||
2619 | <TTCN_TC:EXEC> | |
2620 | ||
2621 | if ((enc_DER_PDU(b) == 'A00402020080'O)and(enc_CER_PDU(b) == 'A080020200800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2622 | ||
2623 | <RESULT> | |
2624 | ||
2625 | Overall verdict: pass | |
2626 | ||
2627 | <END_TC> | |
2628 | ||
2629 | :exmp. | |
2630 | ||
2631 | .*---------------------------------------------------------------------* | |
2632 | :h3. DER + CER encoding of integer (128) with PRIVATE TAG, EXPLICIT | |
2633 | .*---------------------------------------------------------------------* | |
2634 | :xmp tab=0. | |
2635 | ||
2636 | <TC - DER + CER encoding of integer (128) with PRIVATE TAG, EXPLICIT> | |
2637 | ||
2638 | <STATIC:ASN> | |
2639 | ||
2640 | TempA | |
2641 | ||
2642 | DEFINITIONS ::= | |
2643 | BEGIN | |
2644 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
2645 | END | |
2646 | ||
2647 | <STATIC> | |
2648 | ||
2649 | import from TempA all; | |
2650 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2651 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2652 | ||
2653 | const BERPDU b := 128 | |
2654 | ||
2655 | <TTCN_TC:EXEC> | |
2656 | ||
2657 | if ((enc_DER_PDU(b) == 'E10402020080'O)and(enc_CER_PDU(b) == 'E180020200800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2658 | ||
2659 | <RESULT> | |
2660 | ||
2661 | Overall verdict: pass | |
2662 | ||
2663 | <END_TC> | |
2664 | ||
2665 | :exmp. | |
2666 | ||
2667 | .*---------------------------------------------------------------------* | |
2668 | :h3. DER + CER encoding of integer (128) with APPLICATION TAG, EXPLICIT | |
2669 | .*---------------------------------------------------------------------* | |
2670 | :xmp tab=0. | |
2671 | ||
2672 | <TC - DER + CER encoding of integer (128) with APPLICATION TAG, EXPLICIT> | |
2673 | ||
2674 | <STATIC:ASN> | |
2675 | ||
2676 | TempA | |
2677 | ||
2678 | DEFINITIONS ::= | |
2679 | BEGIN | |
2680 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
2681 | END | |
2682 | ||
2683 | <STATIC> | |
2684 | ||
2685 | import from TempA all; | |
2686 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2687 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2688 | ||
2689 | const BERPDU b := 128 | |
2690 | ||
2691 | <TTCN_TC:EXEC> | |
2692 | ||
2693 | if ((enc_DER_PDU(b) == '620402020080'O)and(enc_CER_PDU(b) == '6280020200800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2694 | ||
2695 | <RESULT> | |
2696 | ||
2697 | Overall verdict: pass | |
2698 | ||
2699 | <END_TC> | |
2700 | ||
2701 | :exmp. | |
2702 | ||
2703 | .*---------------------------------------------------------------------* | |
2704 | :h3. DER + CER encoding of integer (128) with Context Specific TAG, IMPLICIT | |
2705 | .*---------------------------------------------------------------------* | |
2706 | :xmp tab=0. | |
2707 | ||
2708 | <TC - DER + CER encoding of integer (128) with Context Specific TAG, IMPLICIT> | |
2709 | ||
2710 | <STATIC:ASN> | |
2711 | ||
2712 | TempA | |
2713 | ||
2714 | DEFINITIONS ::= | |
2715 | BEGIN | |
2716 | BERPDU ::= [0] IMPLICIT INTEGER | |
2717 | END | |
2718 | ||
2719 | <STATIC> | |
2720 | ||
2721 | import from TempA all; | |
2722 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2723 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2724 | ||
2725 | const BERPDU b := 128 | |
2726 | ||
2727 | <TTCN_TC:EXEC> | |
2728 | ||
2729 | if ((enc_DER_PDU(b) == '80020080'O)and(enc_CER_PDU(b) == '80020080'O)) {setverdict(pass);} else {setverdict(fail);} | |
2730 | ||
2731 | <RESULT> | |
2732 | ||
2733 | Overall verdict: pass | |
2734 | ||
2735 | <END_TC> | |
2736 | ||
2737 | :exmp. | |
2738 | ||
2739 | .*---------------------------------------------------------------------* | |
2740 | :h3. DER + CER encoding of integer (128) with PRIVATE TAG, IMPLICIT | |
2741 | .*---------------------------------------------------------------------* | |
2742 | :xmp tab=0. | |
2743 | ||
2744 | <TC - DER + CER encoding of integer (128) with PRIVATE TAG, IMPLICIT> | |
2745 | ||
2746 | <STATIC:ASN> | |
2747 | ||
2748 | TempA | |
2749 | ||
2750 | DEFINITIONS ::= | |
2751 | BEGIN | |
2752 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
2753 | END | |
2754 | ||
2755 | <STATIC> | |
2756 | ||
2757 | import from TempA all; | |
2758 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2759 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2760 | ||
2761 | const BERPDU b := 128 | |
2762 | ||
2763 | <TTCN_TC:EXEC> | |
2764 | ||
2765 | if ((enc_DER_PDU(b) == 'C1020080'O)and(enc_CER_PDU(b) == 'C1020080'O)) {setverdict(pass);} else {setverdict(fail);} | |
2766 | ||
2767 | <RESULT> | |
2768 | ||
2769 | Overall verdict: pass | |
2770 | ||
2771 | <END_TC> | |
2772 | ||
2773 | :exmp. | |
2774 | ||
2775 | .*---------------------------------------------------------------------* | |
2776 | :h3. DER + CER encoding of integer (128) with APPLICATION TAG, IMPLICIT | |
2777 | .*---------------------------------------------------------------------* | |
2778 | :xmp tab=0. | |
2779 | ||
2780 | <TC - DER + CER encoding of integer (128) with APPLICATION TAG, IMPLICIT> | |
2781 | ||
2782 | <STATIC:ASN> | |
2783 | ||
2784 | TempA | |
2785 | ||
2786 | DEFINITIONS ::= | |
2787 | BEGIN | |
2788 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
2789 | END | |
2790 | ||
2791 | <STATIC> | |
2792 | ||
2793 | import from TempA all; | |
2794 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2795 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2796 | ||
2797 | const BERPDU b := 128 | |
2798 | ||
2799 | <TTCN_TC:EXEC> | |
2800 | ||
2801 | if ((enc_DER_PDU(b) == '42020080'O)and(enc_CER_PDU(b) == '42020080'O)) {setverdict(pass);} else {setverdict(fail);} | |
2802 | ||
2803 | <RESULT> | |
2804 | ||
2805 | Overall verdict: pass | |
2806 | ||
2807 | <END_TC> | |
2808 | ||
2809 | :exmp. | |
2810 | ||
2811 | .*---------------------------------------------------------------------* | |
2812 | :h3. DER + CER encoding of integer (-129) | |
2813 | .*---------------------------------------------------------------------* | |
2814 | :xmp tab=0. | |
2815 | ||
2816 | <TC - DER + CER encoding of integer (-129)> | |
2817 | ||
2818 | <STATIC:ASN> | |
2819 | ||
2820 | TempA | |
2821 | ||
2822 | DEFINITIONS ::= | |
2823 | BEGIN | |
2824 | BERPDU ::= INTEGER | |
2825 | END | |
2826 | ||
2827 | <STATIC> | |
2828 | ||
2829 | import from TempA all; | |
2830 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2831 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2832 | ||
2833 | const BERPDU b := -129 | |
2834 | ||
2835 | <TTCN_TC:EXEC> | |
2836 | ||
2837 | if ((enc_DER_PDU(b) == '0202FF7F'O)and(enc_CER_PDU(b) == '0202FF7F'O)) {setverdict(pass);} else {setverdict(fail);} | |
2838 | ||
2839 | <RESULT> | |
2840 | ||
2841 | Overall verdict: pass | |
2842 | ||
2843 | <END_TC> | |
2844 | ||
2845 | :exmp. | |
2846 | ||
2847 | .*---------------------------------------------------------------------* | |
2848 | :h3. DER + CER encoding of integer (-129) with Context Specific TAG, EXPLICIT | |
2849 | .*---------------------------------------------------------------------* | |
2850 | :xmp tab=0. | |
2851 | ||
2852 | <TC - DER + CER encoding of integer (-129) with Context Specific TAG, EXPLICIT> | |
2853 | ||
2854 | <STATIC:ASN> | |
2855 | ||
2856 | TempA | |
2857 | ||
2858 | DEFINITIONS ::= | |
2859 | BEGIN | |
2860 | BERPDU ::= [0] EXPLICIT INTEGER | |
2861 | END | |
2862 | ||
2863 | <STATIC> | |
2864 | ||
2865 | import from TempA all; | |
2866 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2867 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2868 | ||
2869 | const BERPDU b := -129 | |
2870 | ||
2871 | <TTCN_TC:EXEC> | |
2872 | ||
2873 | if ((enc_DER_PDU(b) == 'A0040202FF7F'O)and(enc_CER_PDU(b) == 'A0800202FF7F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2874 | ||
2875 | <RESULT> | |
2876 | ||
2877 | Overall verdict: pass | |
2878 | ||
2879 | <END_TC> | |
2880 | ||
2881 | :exmp. | |
2882 | ||
2883 | .*---------------------------------------------------------------------* | |
2884 | :h3. DER + CER encoding of integer (-129) with PRIVATE TAG, EXPLICIT | |
2885 | .*---------------------------------------------------------------------* | |
2886 | :xmp tab=0. | |
2887 | ||
2888 | <TC - DER + CER encoding of integer (-129) with PRIVATE TAG, EXPLICIT> | |
2889 | ||
2890 | <STATIC:ASN> | |
2891 | ||
2892 | TempA | |
2893 | ||
2894 | DEFINITIONS ::= | |
2895 | BEGIN | |
2896 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
2897 | END | |
2898 | ||
2899 | <STATIC> | |
2900 | ||
2901 | import from TempA all; | |
2902 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2903 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2904 | ||
2905 | const BERPDU b := -129 | |
2906 | ||
2907 | <TTCN_TC:EXEC> | |
2908 | ||
2909 | if ((enc_DER_PDU(b) == 'E1040202FF7F'O)and(enc_CER_PDU(b) == 'E1800202FF7F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2910 | ||
2911 | <RESULT> | |
2912 | ||
2913 | Overall verdict: pass | |
2914 | ||
2915 | <END_TC> | |
2916 | ||
2917 | :exmp. | |
2918 | ||
2919 | .*---------------------------------------------------------------------* | |
2920 | :h3. DER + CER encoding of integer (-129) with APPLICATION TAG, EXPLICIT | |
2921 | .*---------------------------------------------------------------------* | |
2922 | :xmp tab=0. | |
2923 | ||
2924 | <TC - DER + CER encoding of integer (-129) with APPLICATION TAG, EXPLICIT> | |
2925 | ||
2926 | <STATIC:ASN> | |
2927 | ||
2928 | TempA | |
2929 | ||
2930 | DEFINITIONS ::= | |
2931 | BEGIN | |
2932 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
2933 | END | |
2934 | ||
2935 | <STATIC> | |
2936 | ||
2937 | import from TempA all; | |
2938 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2939 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2940 | ||
2941 | const BERPDU b := -129 | |
2942 | ||
2943 | <TTCN_TC:EXEC> | |
2944 | ||
2945 | if ((enc_DER_PDU(b) == '62040202FF7F'O)and(enc_CER_PDU(b) == '62800202FF7F0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
2946 | ||
2947 | <RESULT> | |
2948 | ||
2949 | Overall verdict: pass | |
2950 | ||
2951 | <END_TC> | |
2952 | ||
2953 | :exmp. | |
2954 | ||
2955 | .*---------------------------------------------------------------------* | |
2956 | :h3. DER + CER encoding of integer (-129) with Context Specific TAG, IMPLICIT | |
2957 | .*---------------------------------------------------------------------* | |
2958 | :xmp tab=0. | |
2959 | ||
2960 | <TC - DER + CER encoding of integer (-129) with Context Specific TAG, IMPLICIT> | |
2961 | ||
2962 | <STATIC:ASN> | |
2963 | ||
2964 | TempA | |
2965 | ||
2966 | DEFINITIONS ::= | |
2967 | BEGIN | |
2968 | BERPDU ::= [0] IMPLICIT INTEGER | |
2969 | END | |
2970 | ||
2971 | <STATIC> | |
2972 | ||
2973 | import from TempA all; | |
2974 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
2975 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
2976 | ||
2977 | const BERPDU b := -129 | |
2978 | ||
2979 | <TTCN_TC:EXEC> | |
2980 | ||
2981 | if ((enc_DER_PDU(b) == '8002FF7F'O)and(enc_CER_PDU(b) == '8002FF7F'O)) {setverdict(pass);} else {setverdict(fail);} | |
2982 | ||
2983 | <RESULT> | |
2984 | ||
2985 | Overall verdict: pass | |
2986 | ||
2987 | <END_TC> | |
2988 | ||
2989 | :exmp. | |
2990 | ||
2991 | .*---------------------------------------------------------------------* | |
2992 | :h3. DER + CER encoding of integer (-129) with PRIVATE TAG, IMPLICIT | |
2993 | .*---------------------------------------------------------------------* | |
2994 | :xmp tab=0. | |
2995 | ||
2996 | <TC - DER + CER encoding of integer (-129) with PRIVATE TAG, IMPLICIT> | |
2997 | ||
2998 | <STATIC:ASN> | |
2999 | ||
3000 | TempA | |
3001 | ||
3002 | DEFINITIONS ::= | |
3003 | BEGIN | |
3004 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
3005 | END | |
3006 | ||
3007 | <STATIC> | |
3008 | ||
3009 | import from TempA all; | |
3010 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3011 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3012 | ||
3013 | const BERPDU b := -129 | |
3014 | ||
3015 | <TTCN_TC:EXEC> | |
3016 | ||
3017 | if ((enc_DER_PDU(b) == 'C102FF7F'O)and(enc_CER_PDU(b) == 'C102FF7F'O)) {setverdict(pass);} else {setverdict(fail);} | |
3018 | ||
3019 | <RESULT> | |
3020 | ||
3021 | Overall verdict: pass | |
3022 | ||
3023 | <END_TC> | |
3024 | ||
3025 | :exmp. | |
3026 | ||
3027 | .*---------------------------------------------------------------------* | |
3028 | :h3. DER + CER encoding of integer (-129) with APPLICATION TAG, IMPLICIT | |
3029 | .*---------------------------------------------------------------------* | |
3030 | :xmp tab=0. | |
3031 | ||
3032 | <TC - DER + CER encoding of integer (-129) with APPLICATION TAG, IMPLICIT> | |
3033 | ||
3034 | <STATIC:ASN> | |
3035 | ||
3036 | TempA | |
3037 | ||
3038 | DEFINITIONS ::= | |
3039 | BEGIN | |
3040 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
3041 | END | |
3042 | ||
3043 | <STATIC> | |
3044 | ||
3045 | import from TempA all; | |
3046 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3047 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3048 | ||
3049 | const BERPDU b := -129 | |
3050 | ||
3051 | <TTCN_TC:EXEC> | |
3052 | ||
3053 | if ((enc_DER_PDU(b) == '4202FF7F'O)and(enc_CER_PDU(b) == '4202FF7F'O)) {setverdict(pass);} else {setverdict(fail);} | |
3054 | ||
3055 | <RESULT> | |
3056 | ||
3057 | Overall verdict: pass | |
3058 | ||
3059 | <END_TC> | |
3060 | ||
3061 | :exmp. | |
3062 | ||
3063 | .*---------------------------------------------------------------------* | |
3064 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3065 | .*---------------------------------------------------------------------* | |
3066 | :xmp tab=0. | |
3067 | ||
3068 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3069 | ||
3070 | TAG=30 | |
3071 | ||
3072 | <STATIC:ASN> | |
3073 | ||
3074 | TempA | |
3075 | ||
3076 | DEFINITIONS ::= | |
3077 | BEGIN | |
3078 | BERPDU ::= [30] EXPLICIT INTEGER | |
3079 | END | |
3080 | ||
3081 | <STATIC> | |
3082 | ||
3083 | import from TempA all; | |
3084 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3085 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3086 | ||
3087 | const BERPDU b := 5 | |
3088 | ||
3089 | <TTCN_TC:EXEC> | |
3090 | ||
3091 | if ((enc_DER_PDU(b) == 'BE03020105'O)and(enc_CER_PDU(b) == 'BE800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3092 | ||
3093 | <RESULT> | |
3094 | ||
3095 | Overall verdict: pass | |
3096 | ||
3097 | <END_TC> | |
3098 | ||
3099 | :exmp. | |
3100 | ||
3101 | .*---------------------------------------------------------------------* | |
3102 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3103 | .*---------------------------------------------------------------------* | |
3104 | :xmp tab=0. | |
3105 | ||
3106 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3107 | ||
3108 | TAG=31 | |
3109 | ||
3110 | <STATIC:ASN> | |
3111 | ||
3112 | TempA | |
3113 | ||
3114 | DEFINITIONS ::= | |
3115 | BEGIN | |
3116 | BERPDU ::= [31] EXPLICIT INTEGER | |
3117 | END | |
3118 | ||
3119 | <STATIC> | |
3120 | ||
3121 | import from TempA all; | |
3122 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3123 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3124 | ||
3125 | const BERPDU b := 5 | |
3126 | ||
3127 | <TTCN_TC:EXEC> | |
3128 | ||
3129 | if ((enc_DER_PDU(b) == 'BF1F03020105'O)and(enc_CER_PDU(b) == 'BF1F800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3130 | ||
3131 | <RESULT> | |
3132 | ||
3133 | Overall verdict: pass | |
3134 | ||
3135 | <END_TC> | |
3136 | ||
3137 | :exmp. | |
3138 | ||
3139 | .*---------------------------------------------------------------------* | |
3140 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3141 | .*---------------------------------------------------------------------* | |
3142 | :xmp tab=0. | |
3143 | ||
3144 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3145 | ||
3146 | TAG=127 | |
3147 | ||
3148 | <STATIC:ASN> | |
3149 | ||
3150 | TempA | |
3151 | ||
3152 | DEFINITIONS ::= | |
3153 | BEGIN | |
3154 | BERPDU ::= [127] EXPLICIT INTEGER | |
3155 | END | |
3156 | ||
3157 | <STATIC> | |
3158 | ||
3159 | import from TempA all; | |
3160 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3161 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3162 | ||
3163 | const BERPDU b := 5 | |
3164 | ||
3165 | <TTCN_TC:EXEC> | |
3166 | ||
3167 | if ((enc_DER_PDU(b) == 'BF7F03020105'O)and(enc_CER_PDU(b) == 'BF7F800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3168 | ||
3169 | <RESULT> | |
3170 | ||
3171 | Overall verdict: pass | |
3172 | ||
3173 | <END_TC> | |
3174 | ||
3175 | :exmp. | |
3176 | ||
3177 | .*---------------------------------------------------------------------* | |
3178 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3179 | .*---------------------------------------------------------------------* | |
3180 | :xmp tab=0. | |
3181 | ||
3182 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3183 | ||
3184 | TAG=128 | |
3185 | ||
3186 | <STATIC:ASN> | |
3187 | ||
3188 | TempA | |
3189 | ||
3190 | DEFINITIONS ::= | |
3191 | BEGIN | |
3192 | BERPDU ::= [128] EXPLICIT INTEGER | |
3193 | END | |
3194 | ||
3195 | <STATIC> | |
3196 | ||
3197 | import from TempA all; | |
3198 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3199 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3200 | ||
3201 | const BERPDU b := 5 | |
3202 | ||
3203 | <TTCN_TC:EXEC> | |
3204 | ||
3205 | if ((enc_DER_PDU(b) == 'BF810003020105'O)and(enc_CER_PDU(b) == 'BF8100800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3206 | ||
3207 | <RESULT> | |
3208 | ||
3209 | Overall verdict: pass | |
3210 | ||
3211 | <END_TC> | |
3212 | ||
3213 | :exmp. | |
3214 | ||
3215 | .*---------------------------------------------------------------------* | |
3216 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3217 | .*---------------------------------------------------------------------* | |
3218 | :xmp tab=0. | |
3219 | ||
3220 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3221 | ||
3222 | TAG=16383 | |
3223 | ||
3224 | <STATIC:ASN> | |
3225 | ||
3226 | TempA | |
3227 | ||
3228 | DEFINITIONS ::= | |
3229 | BEGIN | |
3230 | BERPDU ::= [16383] EXPLICIT INTEGER | |
3231 | END | |
3232 | ||
3233 | <STATIC> | |
3234 | ||
3235 | import from TempA all; | |
3236 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3237 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3238 | ||
3239 | const BERPDU b := 5 | |
3240 | ||
3241 | <TTCN_TC:EXEC> | |
3242 | ||
3243 | if ((enc_DER_PDU(b) == 'BFFF7F03020105'O)and(enc_CER_PDU(b) == 'BFFF7F800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3244 | ||
3245 | <RESULT> | |
3246 | ||
3247 | Overall verdict: pass | |
3248 | ||
3249 | <END_TC> | |
3250 | ||
3251 | :exmp. | |
3252 | ||
3253 | .*---------------------------------------------------------------------* | |
3254 | :h3. DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT | |
3255 | .*---------------------------------------------------------------------* | |
3256 | :xmp tab=0. | |
3257 | ||
3258 | <TC - DER + CER encoding of integer (5) with Context Specific TAG, EXPLICIT> | |
3259 | ||
3260 | TAG=16384 | |
3261 | ||
3262 | <STATIC:ASN> | |
3263 | ||
3264 | TempA | |
3265 | ||
3266 | DEFINITIONS ::= | |
3267 | BEGIN | |
3268 | BERPDU ::= [16384] EXPLICIT INTEGER | |
3269 | END | |
3270 | ||
3271 | <STATIC> | |
3272 | ||
3273 | import from TempA all; | |
3274 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
3275 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
3276 | ||
3277 | const BERPDU b := 5 | |
3278 | ||
3279 | <TTCN_TC:EXEC> | |
3280 | ||
3281 | if ((enc_DER_PDU(b) == 'BF81800003020105'O)and(enc_CER_PDU(b) == 'BF818000800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
3282 | ||
3283 | <RESULT> | |
3284 | ||
3285 | Overall verdict: pass | |
3286 | ||
3287 | <END_TC> | |
3288 | ||
3289 | :exmp. | |
3290 | ||
3291 | .*---------------------------------------------------------------------* | |
3292 | :h3. DECODING INTEGER (5), CER+DER | |
3293 | .*---------------------------------------------------------------------* | |
3294 | :xmp tab=0. | |
3295 | ||
3296 | <TC - DECODING INTEGER (5), CER+DER> | |
3297 | ||
3298 | <STATIC:ASN> | |
3299 | ||
3300 | TempA | |
3301 | ||
3302 | DEFINITIONS ::= | |
3303 | BEGIN | |
3304 | BERPDU ::= INTEGER | |
3305 | ||
3306 | myIntegerValue BERPDU ::= 5 | |
3307 | ||
3308 | END | |
3309 | ||
3310 | <STATIC> | |
3311 | ||
3312 | import from TempA all; | |
3313 | ||
3314 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3315 | ||
3316 | ||
3317 | <TTCN_TC:EXEC> | |
3318 | ||
3319 | if (dec_BER_PDU('020105'O) == myIntegerValue) | |
3320 | ||
3321 | ||
3322 | {setverdict(pass);} else {setverdict(fail);} | |
3323 | ||
3324 | ||
3325 | <RESULT> | |
3326 | ||
3327 | Overall verdict: pass | |
3328 | ||
3329 | <END_TC> | |
3330 | ||
3331 | :exmp. | |
3332 | ||
3333 | .*---------------------------------------------------------------------* | |
3334 | :h3. DECODING INTEGER (5), (LENGTH OF LENGTH = 1) | |
3335 | .*---------------------------------------------------------------------* | |
3336 | :xmp tab=0. | |
3337 | ||
3338 | <TC - DECODING INTEGER (5), (LENGTH OF LENGTH = 1)> | |
3339 | ||
3340 | <STATIC:ASN> | |
3341 | ||
3342 | TempA | |
3343 | ||
3344 | DEFINITIONS ::= | |
3345 | BEGIN | |
3346 | BERPDU ::= INTEGER | |
3347 | ||
3348 | myIntegerValue BERPDU ::= 5 | |
3349 | ||
3350 | END | |
3351 | ||
3352 | <STATIC> | |
3353 | ||
3354 | import from TempA all; | |
3355 | ||
3356 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3357 | ||
3358 | ||
3359 | <TTCN_TC:EXEC> | |
3360 | ||
3361 | if (dec_BER_PDU('02810105'O) == myIntegerValue) | |
3362 | ||
3363 | ||
3364 | {setverdict(pass);} else {setverdict(fail);} | |
3365 | ||
3366 | ||
3367 | <RESULT> | |
3368 | ||
3369 | Overall verdict: pass | |
3370 | ||
3371 | <END_TC> | |
3372 | ||
3373 | :exmp. | |
3374 | ||
3375 | .*---------------------------------------------------------------------* | |
3376 | :h3. DECODING INTEGER (5), (LENGTH OF LENGTH = 2) | |
3377 | .*---------------------------------------------------------------------* | |
3378 | :xmp tab=0. | |
3379 | ||
3380 | <TC - DECODING INTEGER (5), (LENGTH OF LENGTH = 2)> | |
3381 | ||
3382 | <STATIC:ASN> | |
3383 | ||
3384 | TempA | |
3385 | ||
3386 | DEFINITIONS ::= | |
3387 | BEGIN | |
3388 | BERPDU ::= INTEGER | |
3389 | ||
3390 | myIntegerValue BERPDU ::= 5 | |
3391 | ||
3392 | END | |
3393 | ||
3394 | <STATIC> | |
3395 | ||
3396 | import from TempA all; | |
3397 | ||
3398 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3399 | ||
3400 | ||
3401 | <TTCN_TC:EXEC> | |
3402 | ||
3403 | if (dec_BER_PDU('0282000105'O) == myIntegerValue) | |
3404 | ||
3405 | ||
3406 | {setverdict(pass);} else {setverdict(fail);} | |
3407 | ||
3408 | ||
3409 | <RESULT> | |
3410 | ||
3411 | Overall verdict: pass | |
3412 | ||
3413 | <END_TC> | |
3414 | ||
3415 | :exmp. | |
3416 | ||
3417 | .*---------------------------------------------------------------------* | |
3418 | :h3. DECODING [0] EXPLICIT INTEGER (5), DER | |
3419 | .*---------------------------------------------------------------------* | |
3420 | :xmp tab=0. | |
3421 | ||
3422 | <TC - DECODING [0] EXPLICIT INTEGER (5), DER> | |
3423 | ||
3424 | <STATIC:ASN> | |
3425 | ||
3426 | TempA | |
3427 | ||
3428 | DEFINITIONS ::= | |
3429 | BEGIN | |
3430 | BERPDU ::= [0] EXPLICIT INTEGER | |
3431 | ||
3432 | myIntegerValue BERPDU ::= 5 | |
3433 | ||
3434 | END | |
3435 | ||
3436 | <STATIC> | |
3437 | ||
3438 | import from TempA all; | |
3439 | ||
3440 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3441 | ||
3442 | ||
3443 | <TTCN_TC:EXEC> | |
3444 | ||
3445 | if (dec_BER_PDU('A003020105'O) == myIntegerValue) | |
3446 | ||
3447 | ||
3448 | {setverdict(pass);} else {setverdict(fail);} | |
3449 | ||
3450 | ||
3451 | <RESULT> | |
3452 | ||
3453 | Overall verdict: pass | |
3454 | ||
3455 | <END_TC> | |
3456 | ||
3457 | :exmp. | |
3458 | ||
3459 | .*---------------------------------------------------------------------* | |
3460 | :h3. DECODING [0] EXPLICIT INTEGER (5), CER | |
3461 | .*---------------------------------------------------------------------* | |
3462 | :xmp tab=0. | |
3463 | ||
3464 | <TC - DECODING [0] EXPLICIT INTEGER (5), CER> | |
3465 | ||
3466 | <STATIC:ASN> | |
3467 | ||
3468 | TempA | |
3469 | ||
3470 | DEFINITIONS ::= | |
3471 | BEGIN | |
3472 | BERPDU ::= [0] EXPLICIT INTEGER | |
3473 | ||
3474 | myIntegerValue BERPDU ::= 5 | |
3475 | ||
3476 | END | |
3477 | ||
3478 | <STATIC> | |
3479 | ||
3480 | import from TempA all; | |
3481 | ||
3482 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3483 | ||
3484 | ||
3485 | <TTCN_TC:EXEC> | |
3486 | ||
3487 | if (dec_BER_PDU('A0800201050000'O) == myIntegerValue) | |
3488 | ||
3489 | ||
3490 | {setverdict(pass);} else {setverdict(fail);} | |
3491 | ||
3492 | ||
3493 | <RESULT> | |
3494 | ||
3495 | Overall verdict: pass | |
3496 | ||
3497 | <END_TC> | |
3498 | ||
3499 | :exmp. | |
3500 | ||
3501 | .*---------------------------------------------------------------------* | |
3502 | :h3. DECODING [0] EXPLICIT INTEGER (5), Short form - long form | |
3503 | .*---------------------------------------------------------------------* | |
3504 | :xmp tab=0. | |
3505 | ||
3506 | <TC - DECODING [0] EXPLICIT INTEGER (5), Short form - long form> | |
3507 | ||
3508 | <STATIC:ASN> | |
3509 | ||
3510 | TempA | |
3511 | ||
3512 | DEFINITIONS ::= | |
3513 | BEGIN | |
3514 | BERPDU ::= [0] EXPLICIT INTEGER | |
3515 | ||
3516 | myIntegerValue BERPDU ::= 5 | |
3517 | ||
3518 | END | |
3519 | ||
3520 | <STATIC> | |
3521 | ||
3522 | import from TempA all; | |
3523 | ||
3524 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3525 | ||
3526 | ||
3527 | <TTCN_TC:EXEC> | |
3528 | ||
3529 | if (dec_BER_PDU('A003020105'O) == myIntegerValue) | |
3530 | ||
3531 | ||
3532 | {setverdict(pass);} else {setverdict(fail);} | |
3533 | ||
3534 | ||
3535 | <RESULT> | |
3536 | ||
3537 | Overall verdict: pass | |
3538 | ||
3539 | <END_TC> | |
3540 | ||
3541 | :exmp. | |
3542 | ||
3543 | .*---------------------------------------------------------------------* | |
3544 | :h3. DECODING [0] EXPLICIT INTEGER (5), Long form - short form | |
3545 | .*---------------------------------------------------------------------* | |
3546 | :xmp tab=0. | |
3547 | ||
3548 | <TC - DECODING [0] EXPLICIT INTEGER (5), Long form - short form> | |
3549 | ||
3550 | <STATIC:ASN> | |
3551 | ||
3552 | TempA | |
3553 | ||
3554 | DEFINITIONS ::= | |
3555 | BEGIN | |
3556 | BERPDU ::= [0] EXPLICIT INTEGER | |
3557 | ||
3558 | myIntegerValue BERPDU ::= 5 | |
3559 | ||
3560 | END | |
3561 | ||
3562 | <STATIC> | |
3563 | ||
3564 | import from TempA all; | |
3565 | ||
3566 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3567 | ||
3568 | ||
3569 | <TTCN_TC:EXEC> | |
3570 | ||
3571 | if (dec_BER_PDU('A08103020105'O) == myIntegerValue) | |
3572 | ||
3573 | ||
3574 | {setverdict(pass);} else {setverdict(fail);} | |
3575 | ||
3576 | ||
3577 | <RESULT> | |
3578 | ||
3579 | Overall verdict: pass | |
3580 | ||
3581 | <END_TC> | |
3582 | ||
3583 | :exmp. | |
3584 | ||
3585 | .*---------------------------------------------------------------------* | |
3586 | :h3. DECODING [0] EXPLICIT INTEGER (5), Long form Long form | |
3587 | .*---------------------------------------------------------------------* | |
3588 | :xmp tab=0. | |
3589 | ||
3590 | <TC - DECODING [0] EXPLICIT INTEGER (5), Long form Long form> | |
3591 | ||
3592 | <STATIC:ASN> | |
3593 | ||
3594 | TempA | |
3595 | ||
3596 | DEFINITIONS ::= | |
3597 | BEGIN | |
3598 | BERPDU ::= [0] EXPLICIT INTEGER | |
3599 | ||
3600 | myIntegerValue BERPDU ::= 5 | |
3601 | ||
3602 | END | |
3603 | ||
3604 | <STATIC> | |
3605 | ||
3606 | import from TempA all; | |
3607 | ||
3608 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3609 | ||
3610 | ||
3611 | <TTCN_TC:EXEC> | |
3612 | ||
3613 | if (dec_BER_PDU('A0810402810105'O) == myIntegerValue) | |
3614 | ||
3615 | ||
3616 | {setverdict(pass);} else {setverdict(fail);} | |
3617 | ||
3618 | ||
3619 | <RESULT> | |
3620 | ||
3621 | Overall verdict: pass | |
3622 | ||
3623 | <END_TC> | |
3624 | ||
3625 | :exmp. | |
3626 | ||
3627 | .*---------------------------------------------------------------------* | |
3628 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Short form - Short form, DER | |
3629 | .*---------------------------------------------------------------------* | |
3630 | :xmp tab=0. | |
3631 | ||
3632 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Short form - Short form, DER> | |
3633 | ||
3634 | <STATIC:ASN> | |
3635 | ||
3636 | TempA | |
3637 | ||
3638 | DEFINITIONS ::= | |
3639 | BEGIN | |
3640 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
3641 | ||
3642 | myIntegerValue BERPDU ::= 5 | |
3643 | ||
3644 | END | |
3645 | ||
3646 | <STATIC> | |
3647 | ||
3648 | import from TempA all; | |
3649 | ||
3650 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3651 | ||
3652 | ||
3653 | <TTCN_TC:EXEC> | |
3654 | ||
3655 | if (dec_BER_PDU('E103020105'O) == myIntegerValue) | |
3656 | ||
3657 | ||
3658 | {setverdict(pass);} else {setverdict(fail);} | |
3659 | ||
3660 | ||
3661 | <RESULT> | |
3662 | ||
3663 | Overall verdict: pass | |
3664 | ||
3665 | <END_TC> | |
3666 | ||
3667 | :exmp. | |
3668 | ||
3669 | .*---------------------------------------------------------------------* | |
3670 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Short form - long form | |
3671 | .*---------------------------------------------------------------------* | |
3672 | :xmp tab=0. | |
3673 | ||
3674 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Short form - long form> | |
3675 | ||
3676 | <STATIC:ASN> | |
3677 | ||
3678 | TempA | |
3679 | ||
3680 | DEFINITIONS ::= | |
3681 | BEGIN | |
3682 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
3683 | ||
3684 | myIntegerValue BERPDU ::= 5 | |
3685 | ||
3686 | END | |
3687 | ||
3688 | <STATIC> | |
3689 | ||
3690 | import from TempA all; | |
3691 | ||
3692 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3693 | ||
3694 | ||
3695 | <TTCN_TC:EXEC> | |
3696 | ||
3697 | if (dec_BER_PDU('E10402810105'O) == myIntegerValue) | |
3698 | ||
3699 | ||
3700 | {setverdict(pass);} else {setverdict(fail);} | |
3701 | ||
3702 | ||
3703 | <RESULT> | |
3704 | ||
3705 | Overall verdict: pass | |
3706 | ||
3707 | <END_TC> | |
3708 | ||
3709 | :exmp. | |
3710 | ||
3711 | .*---------------------------------------------------------------------* | |
3712 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Long form - short form | |
3713 | .*---------------------------------------------------------------------* | |
3714 | :xmp tab=0. | |
3715 | ||
3716 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Long form - short form> | |
3717 | ||
3718 | <STATIC:ASN> | |
3719 | ||
3720 | TempA | |
3721 | ||
3722 | DEFINITIONS ::= | |
3723 | BEGIN | |
3724 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
3725 | ||
3726 | myIntegerValue BERPDU ::= 5 | |
3727 | ||
3728 | END | |
3729 | ||
3730 | <STATIC> | |
3731 | ||
3732 | import from TempA all; | |
3733 | ||
3734 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3735 | ||
3736 | ||
3737 | <TTCN_TC:EXEC> | |
3738 | ||
3739 | if (dec_BER_PDU('E18103020105'O) == myIntegerValue) | |
3740 | ||
3741 | ||
3742 | {setverdict(pass);} else {setverdict(fail);} | |
3743 | ||
3744 | ||
3745 | <RESULT> | |
3746 | ||
3747 | Overall verdict: pass | |
3748 | ||
3749 | <END_TC> | |
3750 | ||
3751 | :exmp. | |
3752 | ||
3753 | .*---------------------------------------------------------------------* | |
3754 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Long form Long form | |
3755 | .*---------------------------------------------------------------------* | |
3756 | :xmp tab=0. | |
3757 | ||
3758 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (5), Long form Long form> | |
3759 | ||
3760 | <STATIC:ASN> | |
3761 | ||
3762 | TempA | |
3763 | ||
3764 | DEFINITIONS ::= | |
3765 | BEGIN | |
3766 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
3767 | ||
3768 | myIntegerValue BERPDU ::= 5 | |
3769 | ||
3770 | END | |
3771 | ||
3772 | <STATIC> | |
3773 | ||
3774 | import from TempA all; | |
3775 | ||
3776 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3777 | ||
3778 | ||
3779 | <TTCN_TC:EXEC> | |
3780 | ||
3781 | if (dec_BER_PDU('E1810402810105'O) == myIntegerValue) | |
3782 | ||
3783 | ||
3784 | {setverdict(pass);} else {setverdict(fail);} | |
3785 | ||
3786 | ||
3787 | <RESULT> | |
3788 | ||
3789 | Overall verdict: pass | |
3790 | ||
3791 | <END_TC> | |
3792 | ||
3793 | :exmp. | |
3794 | ||
3795 | .*---------------------------------------------------------------------* | |
3796 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (5),Indefinite form,CER | |
3797 | .*---------------------------------------------------------------------* | |
3798 | :xmp tab=0. | |
3799 | ||
3800 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (5),Indefinite form,CER> | |
3801 | ||
3802 | <STATIC:ASN> | |
3803 | ||
3804 | TempA | |
3805 | ||
3806 | DEFINITIONS ::= | |
3807 | BEGIN | |
3808 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
3809 | ||
3810 | myIntegerValue BERPDU ::= 5 | |
3811 | ||
3812 | END | |
3813 | ||
3814 | <STATIC> | |
3815 | ||
3816 | import from TempA all; | |
3817 | ||
3818 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3819 | ||
3820 | ||
3821 | <TTCN_TC:EXEC> | |
3822 | ||
3823 | if (dec_BER_PDU('E1800201050000'O) == myIntegerValue) | |
3824 | ||
3825 | ||
3826 | {setverdict(pass);} else {setverdict(fail);} | |
3827 | ||
3828 | ||
3829 | <RESULT> | |
3830 | ||
3831 | Overall verdict: pass | |
3832 | ||
3833 | <END_TC> | |
3834 | ||
3835 | :exmp. | |
3836 | ||
3837 | .*---------------------------------------------------------------------* | |
3838 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Short form - Short form, DER | |
3839 | .*---------------------------------------------------------------------* | |
3840 | :xmp tab=0. | |
3841 | ||
3842 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Short form - Short form, DER> | |
3843 | ||
3844 | <STATIC:ASN> | |
3845 | ||
3846 | TempA | |
3847 | ||
3848 | DEFINITIONS ::= | |
3849 | BEGIN | |
3850 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
3851 | ||
3852 | myIntegerValue BERPDU ::= 5 | |
3853 | ||
3854 | END | |
3855 | ||
3856 | <STATIC> | |
3857 | ||
3858 | import from TempA all; | |
3859 | ||
3860 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3861 | ||
3862 | ||
3863 | <TTCN_TC:EXEC> | |
3864 | ||
3865 | if (dec_BER_PDU('6203020105'O) == myIntegerValue) | |
3866 | ||
3867 | ||
3868 | {setverdict(pass);} else {setverdict(fail);} | |
3869 | ||
3870 | ||
3871 | <RESULT> | |
3872 | ||
3873 | Overall verdict: pass | |
3874 | ||
3875 | <END_TC> | |
3876 | ||
3877 | :exmp. | |
3878 | ||
3879 | .*---------------------------------------------------------------------* | |
3880 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Short form - long form | |
3881 | .*---------------------------------------------------------------------* | |
3882 | :xmp tab=0. | |
3883 | ||
3884 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Short form - long form> | |
3885 | ||
3886 | <STATIC:ASN> | |
3887 | ||
3888 | TempA | |
3889 | ||
3890 | DEFINITIONS ::= | |
3891 | BEGIN | |
3892 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
3893 | ||
3894 | myIntegerValue BERPDU ::= 5 | |
3895 | ||
3896 | END | |
3897 | ||
3898 | <STATIC> | |
3899 | ||
3900 | import from TempA all; | |
3901 | ||
3902 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3903 | ||
3904 | ||
3905 | <TTCN_TC:EXEC> | |
3906 | ||
3907 | if (dec_BER_PDU('620402810105'O) == myIntegerValue) | |
3908 | ||
3909 | ||
3910 | {setverdict(pass);} else {setverdict(fail);} | |
3911 | ||
3912 | ||
3913 | <RESULT> | |
3914 | ||
3915 | Overall verdict: pass | |
3916 | ||
3917 | <END_TC> | |
3918 | ||
3919 | :exmp. | |
3920 | ||
3921 | .*---------------------------------------------------------------------* | |
3922 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Long form - short form | |
3923 | .*---------------------------------------------------------------------* | |
3924 | :xmp tab=0. | |
3925 | ||
3926 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Long form - short form> | |
3927 | ||
3928 | <STATIC:ASN> | |
3929 | ||
3930 | TempA | |
3931 | ||
3932 | DEFINITIONS ::= | |
3933 | BEGIN | |
3934 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
3935 | ||
3936 | myIntegerValue BERPDU ::= 5 | |
3937 | ||
3938 | END | |
3939 | ||
3940 | <STATIC> | |
3941 | ||
3942 | import from TempA all; | |
3943 | ||
3944 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3945 | ||
3946 | ||
3947 | <TTCN_TC:EXEC> | |
3948 | ||
3949 | if (dec_BER_PDU('628103020105'O) == myIntegerValue) | |
3950 | ||
3951 | ||
3952 | {setverdict(pass);} else {setverdict(fail);} | |
3953 | ||
3954 | ||
3955 | <RESULT> | |
3956 | ||
3957 | Overall verdict: pass | |
3958 | ||
3959 | <END_TC> | |
3960 | ||
3961 | :exmp. | |
3962 | ||
3963 | .*---------------------------------------------------------------------* | |
3964 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Long form Long form | |
3965 | .*---------------------------------------------------------------------* | |
3966 | :xmp tab=0. | |
3967 | ||
3968 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (5), Long form Long form> | |
3969 | ||
3970 | <STATIC:ASN> | |
3971 | ||
3972 | TempA | |
3973 | ||
3974 | DEFINITIONS ::= | |
3975 | BEGIN | |
3976 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
3977 | ||
3978 | myIntegerValue BERPDU ::= 5 | |
3979 | ||
3980 | END | |
3981 | ||
3982 | <STATIC> | |
3983 | ||
3984 | import from TempA all; | |
3985 | ||
3986 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
3987 | ||
3988 | ||
3989 | <TTCN_TC:EXEC> | |
3990 | ||
3991 | if (dec_BER_PDU('62810402810105'O) == myIntegerValue) | |
3992 | ||
3993 | ||
3994 | {setverdict(pass);} else {setverdict(fail);} | |
3995 | ||
3996 | ||
3997 | <RESULT> | |
3998 | ||
3999 | Overall verdict: pass | |
4000 | ||
4001 | <END_TC> | |
4002 | ||
4003 | :exmp. | |
4004 | ||
4005 | .*---------------------------------------------------------------------* | |
4006 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (5),Indefinite form,CER | |
4007 | .*---------------------------------------------------------------------* | |
4008 | :xmp tab=0. | |
4009 | ||
4010 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (5),Indefinite form,CER> | |
4011 | ||
4012 | <STATIC:ASN> | |
4013 | ||
4014 | TempA | |
4015 | ||
4016 | DEFINITIONS ::= | |
4017 | BEGIN | |
4018 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
4019 | ||
4020 | myIntegerValue BERPDU ::= 5 | |
4021 | ||
4022 | END | |
4023 | ||
4024 | <STATIC> | |
4025 | ||
4026 | import from TempA all; | |
4027 | ||
4028 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4029 | ||
4030 | ||
4031 | <TTCN_TC:EXEC> | |
4032 | ||
4033 | if (dec_BER_PDU('62800201050000'O) == myIntegerValue) | |
4034 | ||
4035 | ||
4036 | {setverdict(pass);} else {setverdict(fail);} | |
4037 | ||
4038 | ||
4039 | <RESULT> | |
4040 | ||
4041 | Overall verdict: pass | |
4042 | ||
4043 | <END_TC> | |
4044 | ||
4045 | :exmp. | |
4046 | ||
4047 | .*---------------------------------------------------------------------* | |
4048 | :h3. DECODING [0] IMPLICIT INTEGER (5),Short form CER,DER | |
4049 | .*---------------------------------------------------------------------* | |
4050 | :xmp tab=0. | |
4051 | ||
4052 | <TC - DECODING [0] IMPLICIT INTEGER (5),Short form CER,DER> | |
4053 | ||
4054 | <STATIC:ASN> | |
4055 | ||
4056 | TempA | |
4057 | ||
4058 | DEFINITIONS ::= | |
4059 | BEGIN | |
4060 | BERPDU ::= [0] IMPLICIT INTEGER | |
4061 | ||
4062 | myIntegerValue BERPDU ::= 5 | |
4063 | ||
4064 | END | |
4065 | ||
4066 | <STATIC> | |
4067 | ||
4068 | import from TempA all; | |
4069 | ||
4070 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4071 | ||
4072 | ||
4073 | <TTCN_TC:EXEC> | |
4074 | ||
4075 | if (dec_BER_PDU('800105'O) == myIntegerValue) | |
4076 | ||
4077 | ||
4078 | {setverdict(pass);} else {setverdict(fail);} | |
4079 | ||
4080 | ||
4081 | <RESULT> | |
4082 | ||
4083 | Overall verdict: pass | |
4084 | ||
4085 | <END_TC> | |
4086 | ||
4087 | :exmp. | |
4088 | ||
4089 | .*---------------------------------------------------------------------* | |
4090 | :h3. DECODING [0] IMPLICIT INTEGER (5),Long form | |
4091 | .*---------------------------------------------------------------------* | |
4092 | :xmp tab=0. | |
4093 | ||
4094 | <TC - DECODING [0] IMPLICIT INTEGER (5),Long form> | |
4095 | ||
4096 | <STATIC:ASN> | |
4097 | ||
4098 | TempA | |
4099 | ||
4100 | DEFINITIONS ::= | |
4101 | BEGIN | |
4102 | BERPDU ::= [0] IMPLICIT INTEGER | |
4103 | ||
4104 | myIntegerValue BERPDU ::= 5 | |
4105 | ||
4106 | END | |
4107 | ||
4108 | <STATIC> | |
4109 | ||
4110 | import from TempA all; | |
4111 | ||
4112 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4113 | ||
4114 | ||
4115 | <TTCN_TC:EXEC> | |
4116 | ||
4117 | if (dec_BER_PDU('80810105'O) == myIntegerValue) | |
4118 | ||
4119 | ||
4120 | {setverdict(pass);} else {setverdict(fail);} | |
4121 | ||
4122 | ||
4123 | <RESULT> | |
4124 | ||
4125 | Overall verdict: pass | |
4126 | ||
4127 | <END_TC> | |
4128 | ||
4129 | :exmp. | |
4130 | ||
4131 | .*---------------------------------------------------------------------* | |
4132 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (5),Short form CER,DER | |
4133 | .*---------------------------------------------------------------------* | |
4134 | :xmp tab=0. | |
4135 | ||
4136 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (5),Short form CER,DER> | |
4137 | ||
4138 | <STATIC:ASN> | |
4139 | ||
4140 | TempA | |
4141 | ||
4142 | DEFINITIONS ::= | |
4143 | BEGIN | |
4144 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
4145 | ||
4146 | myIntegerValue BERPDU ::= 5 | |
4147 | ||
4148 | END | |
4149 | ||
4150 | <STATIC> | |
4151 | ||
4152 | import from TempA all; | |
4153 | ||
4154 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4155 | ||
4156 | ||
4157 | <TTCN_TC:EXEC> | |
4158 | ||
4159 | if (dec_BER_PDU('C10105'O) == myIntegerValue) | |
4160 | ||
4161 | ||
4162 | {setverdict(pass);} else {setverdict(fail);} | |
4163 | ||
4164 | ||
4165 | <RESULT> | |
4166 | ||
4167 | Overall verdict: pass | |
4168 | ||
4169 | <END_TC> | |
4170 | ||
4171 | :exmp. | |
4172 | ||
4173 | .*---------------------------------------------------------------------* | |
4174 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (5),Long form | |
4175 | .*---------------------------------------------------------------------* | |
4176 | :xmp tab=0. | |
4177 | ||
4178 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (5),Long form> | |
4179 | ||
4180 | <STATIC:ASN> | |
4181 | ||
4182 | TempA | |
4183 | ||
4184 | DEFINITIONS ::= | |
4185 | BEGIN | |
4186 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
4187 | ||
4188 | myIntegerValue BERPDU ::= 5 | |
4189 | ||
4190 | END | |
4191 | ||
4192 | <STATIC> | |
4193 | ||
4194 | import from TempA all; | |
4195 | ||
4196 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4197 | ||
4198 | ||
4199 | <TTCN_TC:EXEC> | |
4200 | ||
4201 | if (dec_BER_PDU('C1810105'O) == myIntegerValue) | |
4202 | ||
4203 | ||
4204 | {setverdict(pass);} else {setverdict(fail);} | |
4205 | ||
4206 | ||
4207 | <RESULT> | |
4208 | ||
4209 | Overall verdict: pass | |
4210 | ||
4211 | <END_TC> | |
4212 | ||
4213 | :exmp. | |
4214 | ||
4215 | .*---------------------------------------------------------------------* | |
4216 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (5),Short form CER,DER | |
4217 | .*---------------------------------------------------------------------* | |
4218 | :xmp tab=0. | |
4219 | ||
4220 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (5),Short form CER,DER> | |
4221 | ||
4222 | <STATIC:ASN> | |
4223 | ||
4224 | TempA | |
4225 | ||
4226 | DEFINITIONS ::= | |
4227 | BEGIN | |
4228 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
4229 | ||
4230 | myIntegerValue BERPDU ::= 5 | |
4231 | ||
4232 | END | |
4233 | ||
4234 | <STATIC> | |
4235 | ||
4236 | import from TempA all; | |
4237 | ||
4238 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4239 | ||
4240 | ||
4241 | <TTCN_TC:EXEC> | |
4242 | ||
4243 | if (dec_BER_PDU('420105'O) == myIntegerValue) | |
4244 | ||
4245 | ||
4246 | {setverdict(pass);} else {setverdict(fail);} | |
4247 | ||
4248 | ||
4249 | <RESULT> | |
4250 | ||
4251 | Overall verdict: pass | |
4252 | ||
4253 | <END_TC> | |
4254 | ||
4255 | :exmp. | |
4256 | ||
4257 | .*---------------------------------------------------------------------* | |
4258 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (5),Long form | |
4259 | .*---------------------------------------------------------------------* | |
4260 | :xmp tab=0. | |
4261 | ||
4262 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (5),Long form> | |
4263 | ||
4264 | <STATIC:ASN> | |
4265 | ||
4266 | TempA | |
4267 | ||
4268 | DEFINITIONS ::= | |
4269 | BEGIN | |
4270 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
4271 | ||
4272 | myIntegerValue BERPDU ::= 5 | |
4273 | ||
4274 | END | |
4275 | ||
4276 | <STATIC> | |
4277 | ||
4278 | import from TempA all; | |
4279 | ||
4280 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4281 | ||
4282 | ||
4283 | <TTCN_TC:EXEC> | |
4284 | ||
4285 | if (dec_BER_PDU('42810105'O) == myIntegerValue) | |
4286 | ||
4287 | ||
4288 | {setverdict(pass);} else {setverdict(fail);} | |
4289 | ||
4290 | ||
4291 | <RESULT> | |
4292 | ||
4293 | Overall verdict: pass | |
4294 | ||
4295 | <END_TC> | |
4296 | ||
4297 | :exmp. | |
4298 | ||
4299 | .*---------------------------------------------------------------------* | |
4300 | :h3. DECODING INTEGER (0), CER+DER | |
4301 | .*---------------------------------------------------------------------* | |
4302 | :xmp tab=0. | |
4303 | ||
4304 | <TC - DECODING INTEGER (0), CER+DER> | |
4305 | ||
4306 | <STATIC:ASN> | |
4307 | ||
4308 | TempA | |
4309 | ||
4310 | DEFINITIONS ::= | |
4311 | BEGIN | |
4312 | BERPDU ::= INTEGER | |
4313 | ||
4314 | myIntegerValue BERPDU ::= 0 | |
4315 | ||
4316 | END | |
4317 | ||
4318 | <STATIC> | |
4319 | ||
4320 | import from TempA all; | |
4321 | ||
4322 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4323 | ||
4324 | ||
4325 | <TTCN_TC:EXEC> | |
4326 | ||
4327 | if (dec_BER_PDU('020100'O) == myIntegerValue) | |
4328 | ||
4329 | ||
4330 | {setverdict(pass);} else {setverdict(fail);} | |
4331 | ||
4332 | ||
4333 | <RESULT> | |
4334 | ||
4335 | Overall verdict: pass | |
4336 | ||
4337 | <END_TC> | |
4338 | ||
4339 | :exmp. | |
4340 | ||
4341 | .*---------------------------------------------------------------------* | |
4342 | :h3. DECODING INTEGER (0), (LENGTH OF LENGTH = 1) | |
4343 | .*---------------------------------------------------------------------* | |
4344 | :xmp tab=0. | |
4345 | ||
4346 | <TC - DECODING INTEGER (0), (LENGTH OF LENGTH = 1)> | |
4347 | ||
4348 | <STATIC:ASN> | |
4349 | ||
4350 | TempA | |
4351 | ||
4352 | DEFINITIONS ::= | |
4353 | BEGIN | |
4354 | BERPDU ::= INTEGER | |
4355 | ||
4356 | myIntegerValue BERPDU ::= 0 | |
4357 | ||
4358 | END | |
4359 | ||
4360 | <STATIC> | |
4361 | ||
4362 | import from TempA all; | |
4363 | ||
4364 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4365 | ||
4366 | ||
4367 | <TTCN_TC:EXEC> | |
4368 | ||
4369 | if (dec_BER_PDU('02810100'O) == myIntegerValue) | |
4370 | ||
4371 | ||
4372 | {setverdict(pass);} else {setverdict(fail);} | |
4373 | ||
4374 | ||
4375 | <RESULT> | |
4376 | ||
4377 | Overall verdict: pass | |
4378 | ||
4379 | <END_TC> | |
4380 | ||
4381 | :exmp. | |
4382 | ||
4383 | .*---------------------------------------------------------------------* | |
4384 | :h3. DECODING INTEGER (0), (LENGTH OF LENGTH = 2) | |
4385 | .*---------------------------------------------------------------------* | |
4386 | :xmp tab=0. | |
4387 | ||
4388 | <TC - DECODING INTEGER (0), (LENGTH OF LENGTH = 2)> | |
4389 | ||
4390 | <STATIC:ASN> | |
4391 | ||
4392 | TempA | |
4393 | ||
4394 | DEFINITIONS ::= | |
4395 | BEGIN | |
4396 | BERPDU ::= INTEGER | |
4397 | ||
4398 | myIntegerValue BERPDU ::= 0 | |
4399 | ||
4400 | END | |
4401 | ||
4402 | <STATIC> | |
4403 | ||
4404 | import from TempA all; | |
4405 | ||
4406 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4407 | ||
4408 | ||
4409 | <TTCN_TC:EXEC> | |
4410 | ||
4411 | if (dec_BER_PDU('0282000100'O) == myIntegerValue) | |
4412 | ||
4413 | ||
4414 | {setverdict(pass);} else {setverdict(fail);} | |
4415 | ||
4416 | ||
4417 | <RESULT> | |
4418 | ||
4419 | Overall verdict: pass | |
4420 | ||
4421 | <END_TC> | |
4422 | ||
4423 | :exmp. | |
4424 | ||
4425 | .*---------------------------------------------------------------------* | |
4426 | :h3. DECODING [0] EXPLICIT INTEGER (0), DER | |
4427 | .*---------------------------------------------------------------------* | |
4428 | :xmp tab=0. | |
4429 | ||
4430 | <TC - DECODING [0] EXPLICIT INTEGER (0), DER> | |
4431 | ||
4432 | <STATIC:ASN> | |
4433 | ||
4434 | TempA | |
4435 | ||
4436 | DEFINITIONS ::= | |
4437 | BEGIN | |
4438 | BERPDU ::= [0] EXPLICIT INTEGER | |
4439 | ||
4440 | myIntegerValue BERPDU ::= 0 | |
4441 | ||
4442 | END | |
4443 | ||
4444 | <STATIC> | |
4445 | ||
4446 | import from TempA all; | |
4447 | ||
4448 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4449 | ||
4450 | ||
4451 | <TTCN_TC:EXEC> | |
4452 | ||
4453 | if (dec_BER_PDU('A003020100'O) == myIntegerValue) | |
4454 | ||
4455 | ||
4456 | {setverdict(pass);} else {setverdict(fail);} | |
4457 | ||
4458 | ||
4459 | <RESULT> | |
4460 | ||
4461 | Overall verdict: pass | |
4462 | ||
4463 | <END_TC> | |
4464 | ||
4465 | :exmp. | |
4466 | ||
4467 | .*---------------------------------------------------------------------* | |
4468 | :h3. DECODING [0] EXPLICIT INTEGER (0), CER | |
4469 | .*---------------------------------------------------------------------* | |
4470 | :xmp tab=0. | |
4471 | ||
4472 | <TC - DECODING [0] EXPLICIT INTEGER (0), CER> | |
4473 | ||
4474 | <STATIC:ASN> | |
4475 | ||
4476 | TempA | |
4477 | ||
4478 | DEFINITIONS ::= | |
4479 | BEGIN | |
4480 | BERPDU ::= [0] EXPLICIT INTEGER | |
4481 | ||
4482 | myIntegerValue BERPDU ::= 0 | |
4483 | ||
4484 | END | |
4485 | ||
4486 | <STATIC> | |
4487 | ||
4488 | import from TempA all; | |
4489 | ||
4490 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4491 | ||
4492 | ||
4493 | <TTCN_TC:EXEC> | |
4494 | ||
4495 | if (dec_BER_PDU('A0800201000000'O) == myIntegerValue) | |
4496 | ||
4497 | ||
4498 | {setverdict(pass);} else {setverdict(fail);} | |
4499 | ||
4500 | ||
4501 | <RESULT> | |
4502 | ||
4503 | Overall verdict: pass | |
4504 | ||
4505 | <END_TC> | |
4506 | ||
4507 | :exmp. | |
4508 | ||
4509 | .*---------------------------------------------------------------------* | |
4510 | :h3. DECODING [0] EXPLICIT INTEGER (0), Short form - long form | |
4511 | .*---------------------------------------------------------------------* | |
4512 | :xmp tab=0. | |
4513 | ||
4514 | <TC - DECODING [0] EXPLICIT INTEGER (0), Short form - long form> | |
4515 | ||
4516 | <STATIC:ASN> | |
4517 | ||
4518 | TempA | |
4519 | ||
4520 | DEFINITIONS ::= | |
4521 | BEGIN | |
4522 | BERPDU ::= [0] EXPLICIT INTEGER | |
4523 | ||
4524 | myIntegerValue BERPDU ::= 0 | |
4525 | ||
4526 | END | |
4527 | ||
4528 | <STATIC> | |
4529 | ||
4530 | import from TempA all; | |
4531 | ||
4532 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4533 | ||
4534 | ||
4535 | <TTCN_TC:EXEC> | |
4536 | ||
4537 | if (dec_BER_PDU('A003020100'O) == myIntegerValue) | |
4538 | ||
4539 | ||
4540 | {setverdict(pass);} else {setverdict(fail);} | |
4541 | ||
4542 | ||
4543 | <RESULT> | |
4544 | ||
4545 | Overall verdict: pass | |
4546 | ||
4547 | <END_TC> | |
4548 | ||
4549 | :exmp. | |
4550 | ||
4551 | .*---------------------------------------------------------------------* | |
4552 | :h3. DECODING [0] EXPLICIT INTEGER (0), Long form - short form | |
4553 | .*---------------------------------------------------------------------* | |
4554 | :xmp tab=0. | |
4555 | ||
4556 | <TC - DECODING [0] EXPLICIT INTEGER (0), Long form - short form> | |
4557 | ||
4558 | <STATIC:ASN> | |
4559 | ||
4560 | TempA | |
4561 | ||
4562 | DEFINITIONS ::= | |
4563 | BEGIN | |
4564 | BERPDU ::= [0] EXPLICIT INTEGER | |
4565 | ||
4566 | myIntegerValue BERPDU ::= 0 | |
4567 | ||
4568 | END | |
4569 | ||
4570 | <STATIC> | |
4571 | ||
4572 | import from TempA all; | |
4573 | ||
4574 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4575 | ||
4576 | ||
4577 | <TTCN_TC:EXEC> | |
4578 | ||
4579 | if (dec_BER_PDU('A08103020100'O) == myIntegerValue) | |
4580 | ||
4581 | ||
4582 | {setverdict(pass);} else {setverdict(fail);} | |
4583 | ||
4584 | ||
4585 | <RESULT> | |
4586 | ||
4587 | Overall verdict: pass | |
4588 | ||
4589 | <END_TC> | |
4590 | ||
4591 | :exmp. | |
4592 | ||
4593 | .*---------------------------------------------------------------------* | |
4594 | :h3. DECODING [0] EXPLICIT INTEGER (0), Long form Long form | |
4595 | .*---------------------------------------------------------------------* | |
4596 | :xmp tab=0. | |
4597 | ||
4598 | <TC - DECODING [0] EXPLICIT INTEGER (0), Long form Long form> | |
4599 | ||
4600 | <STATIC:ASN> | |
4601 | ||
4602 | TempA | |
4603 | ||
4604 | DEFINITIONS ::= | |
4605 | BEGIN | |
4606 | BERPDU ::= [0] EXPLICIT INTEGER | |
4607 | ||
4608 | myIntegerValue BERPDU ::= 0 | |
4609 | ||
4610 | END | |
4611 | ||
4612 | <STATIC> | |
4613 | ||
4614 | import from TempA all; | |
4615 | ||
4616 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4617 | ||
4618 | ||
4619 | <TTCN_TC:EXEC> | |
4620 | ||
4621 | if (dec_BER_PDU('A0810402810100'O) == myIntegerValue) | |
4622 | ||
4623 | ||
4624 | {setverdict(pass);} else {setverdict(fail);} | |
4625 | ||
4626 | ||
4627 | <RESULT> | |
4628 | ||
4629 | Overall verdict: pass | |
4630 | ||
4631 | <END_TC> | |
4632 | ||
4633 | :exmp. | |
4634 | ||
4635 | .*---------------------------------------------------------------------* | |
4636 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Short form - Short form, DER | |
4637 | .*---------------------------------------------------------------------* | |
4638 | :xmp tab=0. | |
4639 | ||
4640 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Short form - Short form, DER> | |
4641 | ||
4642 | <STATIC:ASN> | |
4643 | ||
4644 | TempA | |
4645 | ||
4646 | DEFINITIONS ::= | |
4647 | BEGIN | |
4648 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
4649 | ||
4650 | myIntegerValue BERPDU ::= 0 | |
4651 | ||
4652 | END | |
4653 | ||
4654 | <STATIC> | |
4655 | ||
4656 | import from TempA all; | |
4657 | ||
4658 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4659 | ||
4660 | ||
4661 | <TTCN_TC:EXEC> | |
4662 | ||
4663 | if (dec_BER_PDU('E103020100'O) == myIntegerValue) | |
4664 | ||
4665 | ||
4666 | {setverdict(pass);} else {setverdict(fail);} | |
4667 | ||
4668 | ||
4669 | <RESULT> | |
4670 | ||
4671 | Overall verdict: pass | |
4672 | ||
4673 | <END_TC> | |
4674 | ||
4675 | :exmp. | |
4676 | ||
4677 | .*---------------------------------------------------------------------* | |
4678 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Short form - long form | |
4679 | .*---------------------------------------------------------------------* | |
4680 | :xmp tab=0. | |
4681 | ||
4682 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Short form - long form> | |
4683 | ||
4684 | <STATIC:ASN> | |
4685 | ||
4686 | TempA | |
4687 | ||
4688 | DEFINITIONS ::= | |
4689 | BEGIN | |
4690 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
4691 | ||
4692 | myIntegerValue BERPDU ::= 0 | |
4693 | ||
4694 | END | |
4695 | ||
4696 | <STATIC> | |
4697 | ||
4698 | import from TempA all; | |
4699 | ||
4700 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4701 | ||
4702 | ||
4703 | <TTCN_TC:EXEC> | |
4704 | ||
4705 | if (dec_BER_PDU('E10402810100'O) == myIntegerValue) | |
4706 | ||
4707 | ||
4708 | {setverdict(pass);} else {setverdict(fail);} | |
4709 | ||
4710 | ||
4711 | <RESULT> | |
4712 | ||
4713 | Overall verdict: pass | |
4714 | ||
4715 | <END_TC> | |
4716 | ||
4717 | :exmp. | |
4718 | ||
4719 | .*---------------------------------------------------------------------* | |
4720 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Long form - short form | |
4721 | .*---------------------------------------------------------------------* | |
4722 | :xmp tab=0. | |
4723 | ||
4724 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Long form - short form> | |
4725 | ||
4726 | <STATIC:ASN> | |
4727 | ||
4728 | TempA | |
4729 | ||
4730 | DEFINITIONS ::= | |
4731 | BEGIN | |
4732 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
4733 | ||
4734 | myIntegerValue BERPDU ::= 0 | |
4735 | ||
4736 | END | |
4737 | ||
4738 | <STATIC> | |
4739 | ||
4740 | import from TempA all; | |
4741 | ||
4742 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4743 | ||
4744 | ||
4745 | <TTCN_TC:EXEC> | |
4746 | ||
4747 | if (dec_BER_PDU('E18103020100'O) == myIntegerValue) | |
4748 | ||
4749 | ||
4750 | {setverdict(pass);} else {setverdict(fail);} | |
4751 | ||
4752 | ||
4753 | <RESULT> | |
4754 | ||
4755 | Overall verdict: pass | |
4756 | ||
4757 | <END_TC> | |
4758 | ||
4759 | :exmp. | |
4760 | ||
4761 | .*---------------------------------------------------------------------* | |
4762 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Long form Long form | |
4763 | .*---------------------------------------------------------------------* | |
4764 | :xmp tab=0. | |
4765 | ||
4766 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (0), Long form Long form> | |
4767 | ||
4768 | <STATIC:ASN> | |
4769 | ||
4770 | TempA | |
4771 | ||
4772 | DEFINITIONS ::= | |
4773 | BEGIN | |
4774 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
4775 | ||
4776 | myIntegerValue BERPDU ::= 0 | |
4777 | ||
4778 | END | |
4779 | ||
4780 | <STATIC> | |
4781 | ||
4782 | import from TempA all; | |
4783 | ||
4784 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4785 | ||
4786 | ||
4787 | <TTCN_TC:EXEC> | |
4788 | ||
4789 | if (dec_BER_PDU('E1810402810100'O) == myIntegerValue) | |
4790 | ||
4791 | ||
4792 | {setverdict(pass);} else {setverdict(fail);} | |
4793 | ||
4794 | ||
4795 | <RESULT> | |
4796 | ||
4797 | Overall verdict: pass | |
4798 | ||
4799 | <END_TC> | |
4800 | ||
4801 | :exmp. | |
4802 | ||
4803 | .*---------------------------------------------------------------------* | |
4804 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (0),Indefinite form,CER | |
4805 | .*---------------------------------------------------------------------* | |
4806 | :xmp tab=0. | |
4807 | ||
4808 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (0),Indefinite form,CER> | |
4809 | ||
4810 | <STATIC:ASN> | |
4811 | ||
4812 | TempA | |
4813 | ||
4814 | DEFINITIONS ::= | |
4815 | BEGIN | |
4816 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
4817 | ||
4818 | myIntegerValue BERPDU ::= 0 | |
4819 | ||
4820 | END | |
4821 | ||
4822 | <STATIC> | |
4823 | ||
4824 | import from TempA all; | |
4825 | ||
4826 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4827 | ||
4828 | ||
4829 | <TTCN_TC:EXEC> | |
4830 | ||
4831 | if (dec_BER_PDU('E1800201000000'O) == myIntegerValue) | |
4832 | ||
4833 | ||
4834 | {setverdict(pass);} else {setverdict(fail);} | |
4835 | ||
4836 | ||
4837 | <RESULT> | |
4838 | ||
4839 | Overall verdict: pass | |
4840 | ||
4841 | <END_TC> | |
4842 | ||
4843 | :exmp. | |
4844 | ||
4845 | .*---------------------------------------------------------------------* | |
4846 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Short form - Short form, DER | |
4847 | .*---------------------------------------------------------------------* | |
4848 | :xmp tab=0. | |
4849 | ||
4850 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Short form - Short form, DER> | |
4851 | ||
4852 | <STATIC:ASN> | |
4853 | ||
4854 | TempA | |
4855 | ||
4856 | DEFINITIONS ::= | |
4857 | BEGIN | |
4858 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
4859 | ||
4860 | myIntegerValue BERPDU ::= 0 | |
4861 | ||
4862 | END | |
4863 | ||
4864 | <STATIC> | |
4865 | ||
4866 | import from TempA all; | |
4867 | ||
4868 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4869 | ||
4870 | ||
4871 | <TTCN_TC:EXEC> | |
4872 | ||
4873 | if (dec_BER_PDU('6203020100'O) == myIntegerValue) | |
4874 | ||
4875 | ||
4876 | {setverdict(pass);} else {setverdict(fail);} | |
4877 | ||
4878 | ||
4879 | <RESULT> | |
4880 | ||
4881 | Overall verdict: pass | |
4882 | ||
4883 | <END_TC> | |
4884 | ||
4885 | :exmp. | |
4886 | ||
4887 | .*---------------------------------------------------------------------* | |
4888 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Short form - long form | |
4889 | .*---------------------------------------------------------------------* | |
4890 | :xmp tab=0. | |
4891 | ||
4892 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Short form - long form> | |
4893 | ||
4894 | <STATIC:ASN> | |
4895 | ||
4896 | TempA | |
4897 | ||
4898 | DEFINITIONS ::= | |
4899 | BEGIN | |
4900 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
4901 | ||
4902 | myIntegerValue BERPDU ::= 0 | |
4903 | ||
4904 | END | |
4905 | ||
4906 | <STATIC> | |
4907 | ||
4908 | import from TempA all; | |
4909 | ||
4910 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4911 | ||
4912 | ||
4913 | <TTCN_TC:EXEC> | |
4914 | ||
4915 | if (dec_BER_PDU('620402810100'O) == myIntegerValue) | |
4916 | ||
4917 | ||
4918 | {setverdict(pass);} else {setverdict(fail);} | |
4919 | ||
4920 | ||
4921 | <RESULT> | |
4922 | ||
4923 | Overall verdict: pass | |
4924 | ||
4925 | <END_TC> | |
4926 | ||
4927 | :exmp. | |
4928 | ||
4929 | .*---------------------------------------------------------------------* | |
4930 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Long form - short form | |
4931 | .*---------------------------------------------------------------------* | |
4932 | :xmp tab=0. | |
4933 | ||
4934 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Long form - short form> | |
4935 | ||
4936 | <STATIC:ASN> | |
4937 | ||
4938 | TempA | |
4939 | ||
4940 | DEFINITIONS ::= | |
4941 | BEGIN | |
4942 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
4943 | ||
4944 | myIntegerValue BERPDU ::= 0 | |
4945 | ||
4946 | END | |
4947 | ||
4948 | <STATIC> | |
4949 | ||
4950 | import from TempA all; | |
4951 | ||
4952 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4953 | ||
4954 | ||
4955 | <TTCN_TC:EXEC> | |
4956 | ||
4957 | if (dec_BER_PDU('628103020100'O) == myIntegerValue) | |
4958 | ||
4959 | ||
4960 | {setverdict(pass);} else {setverdict(fail);} | |
4961 | ||
4962 | ||
4963 | <RESULT> | |
4964 | ||
4965 | Overall verdict: pass | |
4966 | ||
4967 | <END_TC> | |
4968 | ||
4969 | :exmp. | |
4970 | ||
4971 | .*---------------------------------------------------------------------* | |
4972 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Long form Long form | |
4973 | .*---------------------------------------------------------------------* | |
4974 | :xmp tab=0. | |
4975 | ||
4976 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (0), Long form Long form> | |
4977 | ||
4978 | <STATIC:ASN> | |
4979 | ||
4980 | TempA | |
4981 | ||
4982 | DEFINITIONS ::= | |
4983 | BEGIN | |
4984 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
4985 | ||
4986 | myIntegerValue BERPDU ::= 0 | |
4987 | ||
4988 | END | |
4989 | ||
4990 | <STATIC> | |
4991 | ||
4992 | import from TempA all; | |
4993 | ||
4994 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
4995 | ||
4996 | ||
4997 | <TTCN_TC:EXEC> | |
4998 | ||
4999 | if (dec_BER_PDU('62810402810100'O) == myIntegerValue) | |
5000 | ||
5001 | ||
5002 | {setverdict(pass);} else {setverdict(fail);} | |
5003 | ||
5004 | ||
5005 | <RESULT> | |
5006 | ||
5007 | Overall verdict: pass | |
5008 | ||
5009 | <END_TC> | |
5010 | ||
5011 | :exmp. | |
5012 | ||
5013 | .*---------------------------------------------------------------------* | |
5014 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (0),Indefinite form,CER | |
5015 | .*---------------------------------------------------------------------* | |
5016 | :xmp tab=0. | |
5017 | ||
5018 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (0),Indefinite form,CER> | |
5019 | ||
5020 | <STATIC:ASN> | |
5021 | ||
5022 | TempA | |
5023 | ||
5024 | DEFINITIONS ::= | |
5025 | BEGIN | |
5026 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
5027 | ||
5028 | myIntegerValue BERPDU ::= 0 | |
5029 | ||
5030 | END | |
5031 | ||
5032 | <STATIC> | |
5033 | ||
5034 | import from TempA all; | |
5035 | ||
5036 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5037 | ||
5038 | ||
5039 | <TTCN_TC:EXEC> | |
5040 | ||
5041 | if (dec_BER_PDU('62800201000000'O) == myIntegerValue) | |
5042 | ||
5043 | ||
5044 | {setverdict(pass);} else {setverdict(fail);} | |
5045 | ||
5046 | ||
5047 | <RESULT> | |
5048 | ||
5049 | Overall verdict: pass | |
5050 | ||
5051 | <END_TC> | |
5052 | ||
5053 | :exmp. | |
5054 | ||
5055 | .*---------------------------------------------------------------------* | |
5056 | :h3. DECODING [0] IMPLICIT INTEGER (0),Short form CER,DER | |
5057 | .*---------------------------------------------------------------------* | |
5058 | :xmp tab=0. | |
5059 | ||
5060 | <TC - DECODING [0] IMPLICIT INTEGER (0),Short form CER,DER> | |
5061 | ||
5062 | <STATIC:ASN> | |
5063 | ||
5064 | TempA | |
5065 | ||
5066 | DEFINITIONS ::= | |
5067 | BEGIN | |
5068 | BERPDU ::= [0] IMPLICIT INTEGER | |
5069 | ||
5070 | myIntegerValue BERPDU ::= 0 | |
5071 | ||
5072 | END | |
5073 | ||
5074 | <STATIC> | |
5075 | ||
5076 | import from TempA all; | |
5077 | ||
5078 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5079 | ||
5080 | ||
5081 | <TTCN_TC:EXEC> | |
5082 | ||
5083 | if (dec_BER_PDU('800100'O) == myIntegerValue) | |
5084 | ||
5085 | ||
5086 | {setverdict(pass);} else {setverdict(fail);} | |
5087 | ||
5088 | ||
5089 | <RESULT> | |
5090 | ||
5091 | Overall verdict: pass | |
5092 | ||
5093 | <END_TC> | |
5094 | ||
5095 | :exmp. | |
5096 | ||
5097 | .*---------------------------------------------------------------------* | |
5098 | :h3. DECODING [0] IMPLICIT INTEGER (0),Long form | |
5099 | .*---------------------------------------------------------------------* | |
5100 | :xmp tab=0. | |
5101 | ||
5102 | <TC - DECODING [0] IMPLICIT INTEGER (0),Long form> | |
5103 | ||
5104 | <STATIC:ASN> | |
5105 | ||
5106 | TempA | |
5107 | ||
5108 | DEFINITIONS ::= | |
5109 | BEGIN | |
5110 | BERPDU ::= [0] IMPLICIT INTEGER | |
5111 | ||
5112 | myIntegerValue BERPDU ::= 0 | |
5113 | ||
5114 | END | |
5115 | ||
5116 | <STATIC> | |
5117 | ||
5118 | import from TempA all; | |
5119 | ||
5120 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5121 | ||
5122 | ||
5123 | <TTCN_TC:EXEC> | |
5124 | ||
5125 | if (dec_BER_PDU('80810100'O) == myIntegerValue) | |
5126 | ||
5127 | ||
5128 | {setverdict(pass);} else {setverdict(fail);} | |
5129 | ||
5130 | ||
5131 | <RESULT> | |
5132 | ||
5133 | Overall verdict: pass | |
5134 | ||
5135 | <END_TC> | |
5136 | ||
5137 | :exmp. | |
5138 | ||
5139 | .*---------------------------------------------------------------------* | |
5140 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (0),Short form CER,DER | |
5141 | .*---------------------------------------------------------------------* | |
5142 | :xmp tab=0. | |
5143 | ||
5144 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (0),Short form CER,DER> | |
5145 | ||
5146 | <STATIC:ASN> | |
5147 | ||
5148 | TempA | |
5149 | ||
5150 | DEFINITIONS ::= | |
5151 | BEGIN | |
5152 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
5153 | ||
5154 | myIntegerValue BERPDU ::= 0 | |
5155 | ||
5156 | END | |
5157 | ||
5158 | <STATIC> | |
5159 | ||
5160 | import from TempA all; | |
5161 | ||
5162 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5163 | ||
5164 | ||
5165 | <TTCN_TC:EXEC> | |
5166 | ||
5167 | if (dec_BER_PDU('C10100'O) == myIntegerValue) | |
5168 | ||
5169 | ||
5170 | {setverdict(pass);} else {setverdict(fail);} | |
5171 | ||
5172 | ||
5173 | <RESULT> | |
5174 | ||
5175 | Overall verdict: pass | |
5176 | ||
5177 | <END_TC> | |
5178 | ||
5179 | :exmp. | |
5180 | ||
5181 | .*---------------------------------------------------------------------* | |
5182 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (0),Long form | |
5183 | .*---------------------------------------------------------------------* | |
5184 | :xmp tab=0. | |
5185 | ||
5186 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (0),Long form> | |
5187 | ||
5188 | <STATIC:ASN> | |
5189 | ||
5190 | TempA | |
5191 | ||
5192 | DEFINITIONS ::= | |
5193 | BEGIN | |
5194 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
5195 | ||
5196 | myIntegerValue BERPDU ::= 0 | |
5197 | ||
5198 | END | |
5199 | ||
5200 | <STATIC> | |
5201 | ||
5202 | import from TempA all; | |
5203 | ||
5204 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5205 | ||
5206 | ||
5207 | <TTCN_TC:EXEC> | |
5208 | ||
5209 | if (dec_BER_PDU('C1810100'O) == myIntegerValue) | |
5210 | ||
5211 | ||
5212 | {setverdict(pass);} else {setverdict(fail);} | |
5213 | ||
5214 | ||
5215 | <RESULT> | |
5216 | ||
5217 | Overall verdict: pass | |
5218 | ||
5219 | <END_TC> | |
5220 | ||
5221 | :exmp. | |
5222 | ||
5223 | .*---------------------------------------------------------------------* | |
5224 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (0),Short form CER,DER | |
5225 | .*---------------------------------------------------------------------* | |
5226 | :xmp tab=0. | |
5227 | ||
5228 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (0),Short form CER,DER> | |
5229 | ||
5230 | <STATIC:ASN> | |
5231 | ||
5232 | TempA | |
5233 | ||
5234 | DEFINITIONS ::= | |
5235 | BEGIN | |
5236 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
5237 | ||
5238 | myIntegerValue BERPDU ::= 0 | |
5239 | ||
5240 | END | |
5241 | ||
5242 | <STATIC> | |
5243 | ||
5244 | import from TempA all; | |
5245 | ||
5246 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5247 | ||
5248 | ||
5249 | <TTCN_TC:EXEC> | |
5250 | ||
5251 | if (dec_BER_PDU('420100'O) == myIntegerValue) | |
5252 | ||
5253 | ||
5254 | {setverdict(pass);} else {setverdict(fail);} | |
5255 | ||
5256 | ||
5257 | <RESULT> | |
5258 | ||
5259 | Overall verdict: pass | |
5260 | ||
5261 | <END_TC> | |
5262 | ||
5263 | :exmp. | |
5264 | ||
5265 | .*---------------------------------------------------------------------* | |
5266 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (0),Long form | |
5267 | .*---------------------------------------------------------------------* | |
5268 | :xmp tab=0. | |
5269 | ||
5270 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (0),Long form> | |
5271 | ||
5272 | <STATIC:ASN> | |
5273 | ||
5274 | TempA | |
5275 | ||
5276 | DEFINITIONS ::= | |
5277 | BEGIN | |
5278 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
5279 | ||
5280 | myIntegerValue BERPDU ::= 0 | |
5281 | ||
5282 | END | |
5283 | ||
5284 | <STATIC> | |
5285 | ||
5286 | import from TempA all; | |
5287 | ||
5288 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5289 | ||
5290 | ||
5291 | <TTCN_TC:EXEC> | |
5292 | ||
5293 | if (dec_BER_PDU('42810100'O) == myIntegerValue) | |
5294 | ||
5295 | ||
5296 | {setverdict(pass);} else {setverdict(fail);} | |
5297 | ||
5298 | ||
5299 | <RESULT> | |
5300 | ||
5301 | Overall verdict: pass | |
5302 | ||
5303 | <END_TC> | |
5304 | ||
5305 | :exmp. | |
5306 | ||
5307 | .*---------------------------------------------------------------------* | |
5308 | :h3. DECODING INTEGER (127), CER+DER | |
5309 | .*---------------------------------------------------------------------* | |
5310 | :xmp tab=0. | |
5311 | ||
5312 | <TC - DECODING INTEGER (127), CER+DER> | |
5313 | ||
5314 | <STATIC:ASN> | |
5315 | ||
5316 | TempA | |
5317 | ||
5318 | DEFINITIONS ::= | |
5319 | BEGIN | |
5320 | BERPDU ::= INTEGER | |
5321 | ||
5322 | myIntegerValue BERPDU ::= 127 | |
5323 | ||
5324 | END | |
5325 | ||
5326 | <STATIC> | |
5327 | ||
5328 | import from TempA all; | |
5329 | ||
5330 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5331 | ||
5332 | ||
5333 | <TTCN_TC:EXEC> | |
5334 | ||
5335 | if (dec_BER_PDU('02017F'O) == myIntegerValue) | |
5336 | ||
5337 | ||
5338 | {setverdict(pass);} else {setverdict(fail);} | |
5339 | ||
5340 | ||
5341 | <RESULT> | |
5342 | ||
5343 | Overall verdict: pass | |
5344 | ||
5345 | <END_TC> | |
5346 | ||
5347 | :exmp. | |
5348 | ||
5349 | .*---------------------------------------------------------------------* | |
5350 | :h3. DECODING INTEGER (127), (LENGTH OF LENGTH = 1) | |
5351 | .*---------------------------------------------------------------------* | |
5352 | :xmp tab=0. | |
5353 | ||
5354 | <TC - DECODING INTEGER (127), (LENGTH OF LENGTH = 1)> | |
5355 | ||
5356 | <STATIC:ASN> | |
5357 | ||
5358 | TempA | |
5359 | ||
5360 | DEFINITIONS ::= | |
5361 | BEGIN | |
5362 | BERPDU ::= INTEGER | |
5363 | ||
5364 | myIntegerValue BERPDU ::= 127 | |
5365 | ||
5366 | END | |
5367 | ||
5368 | <STATIC> | |
5369 | ||
5370 | import from TempA all; | |
5371 | ||
5372 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5373 | ||
5374 | ||
5375 | <TTCN_TC:EXEC> | |
5376 | ||
5377 | if (dec_BER_PDU('0281017F'O) == myIntegerValue) | |
5378 | ||
5379 | ||
5380 | {setverdict(pass);} else {setverdict(fail);} | |
5381 | ||
5382 | ||
5383 | <RESULT> | |
5384 | ||
5385 | Overall verdict: pass | |
5386 | ||
5387 | <END_TC> | |
5388 | ||
5389 | :exmp. | |
5390 | ||
5391 | .*---------------------------------------------------------------------* | |
5392 | :h3. DECODING INTEGER (127), (LENGTH OF LENGTH = 2) | |
5393 | .*---------------------------------------------------------------------* | |
5394 | :xmp tab=0. | |
5395 | ||
5396 | <TC - DECODING INTEGER (127), (LENGTH OF LENGTH = 2)> | |
5397 | ||
5398 | <STATIC:ASN> | |
5399 | ||
5400 | TempA | |
5401 | ||
5402 | DEFINITIONS ::= | |
5403 | BEGIN | |
5404 | BERPDU ::= INTEGER | |
5405 | ||
5406 | myIntegerValue BERPDU ::= 127 | |
5407 | ||
5408 | END | |
5409 | ||
5410 | <STATIC> | |
5411 | ||
5412 | import from TempA all; | |
5413 | ||
5414 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5415 | ||
5416 | ||
5417 | <TTCN_TC:EXEC> | |
5418 | ||
5419 | if (dec_BER_PDU('028200017F'O) == myIntegerValue) | |
5420 | ||
5421 | ||
5422 | {setverdict(pass);} else {setverdict(fail);} | |
5423 | ||
5424 | ||
5425 | <RESULT> | |
5426 | ||
5427 | Overall verdict: pass | |
5428 | ||
5429 | <END_TC> | |
5430 | ||
5431 | :exmp. | |
5432 | ||
5433 | .*---------------------------------------------------------------------* | |
5434 | :h3. DECODING [0] EXPLICIT INTEGER (127), DER | |
5435 | .*---------------------------------------------------------------------* | |
5436 | :xmp tab=0. | |
5437 | ||
5438 | <TC - DECODING [0] EXPLICIT INTEGER (127), DER> | |
5439 | ||
5440 | <STATIC:ASN> | |
5441 | ||
5442 | TempA | |
5443 | ||
5444 | DEFINITIONS ::= | |
5445 | BEGIN | |
5446 | BERPDU ::= [0] EXPLICIT INTEGER | |
5447 | ||
5448 | myIntegerValue BERPDU ::= 127 | |
5449 | ||
5450 | END | |
5451 | ||
5452 | <STATIC> | |
5453 | ||
5454 | import from TempA all; | |
5455 | ||
5456 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5457 | ||
5458 | ||
5459 | <TTCN_TC:EXEC> | |
5460 | ||
5461 | if (dec_BER_PDU('A00302017F'O) == myIntegerValue) | |
5462 | ||
5463 | ||
5464 | {setverdict(pass);} else {setverdict(fail);} | |
5465 | ||
5466 | ||
5467 | <RESULT> | |
5468 | ||
5469 | Overall verdict: pass | |
5470 | ||
5471 | <END_TC> | |
5472 | ||
5473 | :exmp. | |
5474 | ||
5475 | .*---------------------------------------------------------------------* | |
5476 | :h3. DECODING [0] EXPLICIT INTEGER (127), CER | |
5477 | .*---------------------------------------------------------------------* | |
5478 | :xmp tab=0. | |
5479 | ||
5480 | <TC - DECODING [0] EXPLICIT INTEGER (127), CER> | |
5481 | ||
5482 | <STATIC:ASN> | |
5483 | ||
5484 | TempA | |
5485 | ||
5486 | DEFINITIONS ::= | |
5487 | BEGIN | |
5488 | BERPDU ::= [0] EXPLICIT INTEGER | |
5489 | ||
5490 | myIntegerValue BERPDU ::= 127 | |
5491 | ||
5492 | END | |
5493 | ||
5494 | <STATIC> | |
5495 | ||
5496 | import from TempA all; | |
5497 | ||
5498 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5499 | ||
5500 | ||
5501 | <TTCN_TC:EXEC> | |
5502 | ||
5503 | if (dec_BER_PDU('A08002017F0000'O) == myIntegerValue) | |
5504 | ||
5505 | ||
5506 | {setverdict(pass);} else {setverdict(fail);} | |
5507 | ||
5508 | ||
5509 | <RESULT> | |
5510 | ||
5511 | Overall verdict: pass | |
5512 | ||
5513 | <END_TC> | |
5514 | ||
5515 | :exmp. | |
5516 | ||
5517 | .*---------------------------------------------------------------------* | |
5518 | :h3. DECODING [0] EXPLICIT INTEGER (127), Short form - long form | |
5519 | .*---------------------------------------------------------------------* | |
5520 | :xmp tab=0. | |
5521 | ||
5522 | <TC - DECODING [0] EXPLICIT INTEGER (127), Short form - long form> | |
5523 | ||
5524 | <STATIC:ASN> | |
5525 | ||
5526 | TempA | |
5527 | ||
5528 | DEFINITIONS ::= | |
5529 | BEGIN | |
5530 | BERPDU ::= [0] EXPLICIT INTEGER | |
5531 | ||
5532 | myIntegerValue BERPDU ::= 127 | |
5533 | ||
5534 | END | |
5535 | ||
5536 | <STATIC> | |
5537 | ||
5538 | import from TempA all; | |
5539 | ||
5540 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5541 | ||
5542 | ||
5543 | <TTCN_TC:EXEC> | |
5544 | ||
5545 | if (dec_BER_PDU('A00302017F'O) == myIntegerValue) | |
5546 | ||
5547 | ||
5548 | {setverdict(pass);} else {setverdict(fail);} | |
5549 | ||
5550 | ||
5551 | <RESULT> | |
5552 | ||
5553 | Overall verdict: pass | |
5554 | ||
5555 | <END_TC> | |
5556 | ||
5557 | :exmp. | |
5558 | ||
5559 | .*---------------------------------------------------------------------* | |
5560 | :h3. DECODING [0] EXPLICIT INTEGER (127), Long form - short form | |
5561 | .*---------------------------------------------------------------------* | |
5562 | :xmp tab=0. | |
5563 | ||
5564 | <TC - DECODING [0] EXPLICIT INTEGER (127), Long form - short form> | |
5565 | ||
5566 | <STATIC:ASN> | |
5567 | ||
5568 | TempA | |
5569 | ||
5570 | DEFINITIONS ::= | |
5571 | BEGIN | |
5572 | BERPDU ::= [0] EXPLICIT INTEGER | |
5573 | ||
5574 | myIntegerValue BERPDU ::= 127 | |
5575 | ||
5576 | END | |
5577 | ||
5578 | <STATIC> | |
5579 | ||
5580 | import from TempA all; | |
5581 | ||
5582 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5583 | ||
5584 | ||
5585 | <TTCN_TC:EXEC> | |
5586 | ||
5587 | if (dec_BER_PDU('A0810302017F'O) == myIntegerValue) | |
5588 | ||
5589 | ||
5590 | {setverdict(pass);} else {setverdict(fail);} | |
5591 | ||
5592 | ||
5593 | <RESULT> | |
5594 | ||
5595 | Overall verdict: pass | |
5596 | ||
5597 | <END_TC> | |
5598 | ||
5599 | :exmp. | |
5600 | ||
5601 | .*---------------------------------------------------------------------* | |
5602 | :h3. DECODING [0] EXPLICIT INTEGER (127), Long form Long form | |
5603 | .*---------------------------------------------------------------------* | |
5604 | :xmp tab=0. | |
5605 | ||
5606 | <TC - DECODING [0] EXPLICIT INTEGER (127), Long form Long form> | |
5607 | ||
5608 | <STATIC:ASN> | |
5609 | ||
5610 | TempA | |
5611 | ||
5612 | DEFINITIONS ::= | |
5613 | BEGIN | |
5614 | BERPDU ::= [0] EXPLICIT INTEGER | |
5615 | ||
5616 | myIntegerValue BERPDU ::= 127 | |
5617 | ||
5618 | END | |
5619 | ||
5620 | <STATIC> | |
5621 | ||
5622 | import from TempA all; | |
5623 | ||
5624 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5625 | ||
5626 | ||
5627 | <TTCN_TC:EXEC> | |
5628 | ||
5629 | if (dec_BER_PDU('A081040281017F'O) == myIntegerValue) | |
5630 | ||
5631 | ||
5632 | {setverdict(pass);} else {setverdict(fail);} | |
5633 | ||
5634 | ||
5635 | <RESULT> | |
5636 | ||
5637 | Overall verdict: pass | |
5638 | ||
5639 | <END_TC> | |
5640 | ||
5641 | :exmp. | |
5642 | ||
5643 | .*---------------------------------------------------------------------* | |
5644 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Short form - Short form, DER | |
5645 | .*---------------------------------------------------------------------* | |
5646 | :xmp tab=0. | |
5647 | ||
5648 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Short form - Short form, DER> | |
5649 | ||
5650 | <STATIC:ASN> | |
5651 | ||
5652 | TempA | |
5653 | ||
5654 | DEFINITIONS ::= | |
5655 | BEGIN | |
5656 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
5657 | ||
5658 | myIntegerValue BERPDU ::= 127 | |
5659 | ||
5660 | END | |
5661 | ||
5662 | <STATIC> | |
5663 | ||
5664 | import from TempA all; | |
5665 | ||
5666 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5667 | ||
5668 | ||
5669 | <TTCN_TC:EXEC> | |
5670 | ||
5671 | if (dec_BER_PDU('E10302017F'O) == myIntegerValue) | |
5672 | ||
5673 | ||
5674 | {setverdict(pass);} else {setverdict(fail);} | |
5675 | ||
5676 | ||
5677 | <RESULT> | |
5678 | ||
5679 | Overall verdict: pass | |
5680 | ||
5681 | <END_TC> | |
5682 | ||
5683 | :exmp. | |
5684 | ||
5685 | .*---------------------------------------------------------------------* | |
5686 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Short form - long form | |
5687 | .*---------------------------------------------------------------------* | |
5688 | :xmp tab=0. | |
5689 | ||
5690 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Short form - long form> | |
5691 | ||
5692 | <STATIC:ASN> | |
5693 | ||
5694 | TempA | |
5695 | ||
5696 | DEFINITIONS ::= | |
5697 | BEGIN | |
5698 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
5699 | ||
5700 | myIntegerValue BERPDU ::= 127 | |
5701 | ||
5702 | END | |
5703 | ||
5704 | <STATIC> | |
5705 | ||
5706 | import from TempA all; | |
5707 | ||
5708 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5709 | ||
5710 | ||
5711 | <TTCN_TC:EXEC> | |
5712 | ||
5713 | if (dec_BER_PDU('E1040281017F'O) == myIntegerValue) | |
5714 | ||
5715 | ||
5716 | {setverdict(pass);} else {setverdict(fail);} | |
5717 | ||
5718 | ||
5719 | <RESULT> | |
5720 | ||
5721 | Overall verdict: pass | |
5722 | ||
5723 | <END_TC> | |
5724 | ||
5725 | :exmp. | |
5726 | ||
5727 | .*---------------------------------------------------------------------* | |
5728 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Long form - short form | |
5729 | .*---------------------------------------------------------------------* | |
5730 | :xmp tab=0. | |
5731 | ||
5732 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Long form - short form> | |
5733 | ||
5734 | <STATIC:ASN> | |
5735 | ||
5736 | TempA | |
5737 | ||
5738 | DEFINITIONS ::= | |
5739 | BEGIN | |
5740 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
5741 | ||
5742 | myIntegerValue BERPDU ::= 127 | |
5743 | ||
5744 | END | |
5745 | ||
5746 | <STATIC> | |
5747 | ||
5748 | import from TempA all; | |
5749 | ||
5750 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5751 | ||
5752 | ||
5753 | <TTCN_TC:EXEC> | |
5754 | ||
5755 | if (dec_BER_PDU('E1810302017F'O) == myIntegerValue) | |
5756 | ||
5757 | ||
5758 | {setverdict(pass);} else {setverdict(fail);} | |
5759 | ||
5760 | ||
5761 | <RESULT> | |
5762 | ||
5763 | Overall verdict: pass | |
5764 | ||
5765 | <END_TC> | |
5766 | ||
5767 | :exmp. | |
5768 | ||
5769 | .*---------------------------------------------------------------------* | |
5770 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Long form Long form | |
5771 | .*---------------------------------------------------------------------* | |
5772 | :xmp tab=0. | |
5773 | ||
5774 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (127), Long form Long form> | |
5775 | ||
5776 | <STATIC:ASN> | |
5777 | ||
5778 | TempA | |
5779 | ||
5780 | DEFINITIONS ::= | |
5781 | BEGIN | |
5782 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
5783 | ||
5784 | myIntegerValue BERPDU ::= 127 | |
5785 | ||
5786 | END | |
5787 | ||
5788 | <STATIC> | |
5789 | ||
5790 | import from TempA all; | |
5791 | ||
5792 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5793 | ||
5794 | ||
5795 | <TTCN_TC:EXEC> | |
5796 | ||
5797 | if (dec_BER_PDU('E181040281017F'O) == myIntegerValue) | |
5798 | ||
5799 | ||
5800 | {setverdict(pass);} else {setverdict(fail);} | |
5801 | ||
5802 | ||
5803 | <RESULT> | |
5804 | ||
5805 | Overall verdict: pass | |
5806 | ||
5807 | <END_TC> | |
5808 | ||
5809 | :exmp. | |
5810 | ||
5811 | .*---------------------------------------------------------------------* | |
5812 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (127),Indefinite form,CER | |
5813 | .*---------------------------------------------------------------------* | |
5814 | :xmp tab=0. | |
5815 | ||
5816 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (127),Indefinite form,CER> | |
5817 | ||
5818 | <STATIC:ASN> | |
5819 | ||
5820 | TempA | |
5821 | ||
5822 | DEFINITIONS ::= | |
5823 | BEGIN | |
5824 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
5825 | ||
5826 | myIntegerValue BERPDU ::= 127 | |
5827 | ||
5828 | END | |
5829 | ||
5830 | <STATIC> | |
5831 | ||
5832 | import from TempA all; | |
5833 | ||
5834 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5835 | ||
5836 | ||
5837 | <TTCN_TC:EXEC> | |
5838 | ||
5839 | if (dec_BER_PDU('E18002017F0000'O) == myIntegerValue) | |
5840 | ||
5841 | ||
5842 | {setverdict(pass);} else {setverdict(fail);} | |
5843 | ||
5844 | ||
5845 | <RESULT> | |
5846 | ||
5847 | Overall verdict: pass | |
5848 | ||
5849 | <END_TC> | |
5850 | ||
5851 | :exmp. | |
5852 | ||
5853 | .*---------------------------------------------------------------------* | |
5854 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Short form - Short form, DER | |
5855 | .*---------------------------------------------------------------------* | |
5856 | :xmp tab=0. | |
5857 | ||
5858 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Short form - Short form, DER> | |
5859 | ||
5860 | <STATIC:ASN> | |
5861 | ||
5862 | TempA | |
5863 | ||
5864 | DEFINITIONS ::= | |
5865 | BEGIN | |
5866 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
5867 | ||
5868 | myIntegerValue BERPDU ::= 127 | |
5869 | ||
5870 | END | |
5871 | ||
5872 | <STATIC> | |
5873 | ||
5874 | import from TempA all; | |
5875 | ||
5876 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5877 | ||
5878 | ||
5879 | <TTCN_TC:EXEC> | |
5880 | ||
5881 | if (dec_BER_PDU('620302017F'O) == myIntegerValue) | |
5882 | ||
5883 | ||
5884 | {setverdict(pass);} else {setverdict(fail);} | |
5885 | ||
5886 | ||
5887 | <RESULT> | |
5888 | ||
5889 | Overall verdict: pass | |
5890 | ||
5891 | <END_TC> | |
5892 | ||
5893 | :exmp. | |
5894 | ||
5895 | .*---------------------------------------------------------------------* | |
5896 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Short form - long form | |
5897 | .*---------------------------------------------------------------------* | |
5898 | :xmp tab=0. | |
5899 | ||
5900 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Short form - long form> | |
5901 | ||
5902 | <STATIC:ASN> | |
5903 | ||
5904 | TempA | |
5905 | ||
5906 | DEFINITIONS ::= | |
5907 | BEGIN | |
5908 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
5909 | ||
5910 | myIntegerValue BERPDU ::= 127 | |
5911 | ||
5912 | END | |
5913 | ||
5914 | <STATIC> | |
5915 | ||
5916 | import from TempA all; | |
5917 | ||
5918 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5919 | ||
5920 | ||
5921 | <TTCN_TC:EXEC> | |
5922 | ||
5923 | if (dec_BER_PDU('62040281017F'O) == myIntegerValue) | |
5924 | ||
5925 | ||
5926 | {setverdict(pass);} else {setverdict(fail);} | |
5927 | ||
5928 | ||
5929 | <RESULT> | |
5930 | ||
5931 | Overall verdict: pass | |
5932 | ||
5933 | <END_TC> | |
5934 | ||
5935 | :exmp. | |
5936 | ||
5937 | .*---------------------------------------------------------------------* | |
5938 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Long form - short form | |
5939 | .*---------------------------------------------------------------------* | |
5940 | :xmp tab=0. | |
5941 | ||
5942 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Long form - short form> | |
5943 | ||
5944 | <STATIC:ASN> | |
5945 | ||
5946 | TempA | |
5947 | ||
5948 | DEFINITIONS ::= | |
5949 | BEGIN | |
5950 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
5951 | ||
5952 | myIntegerValue BERPDU ::= 127 | |
5953 | ||
5954 | END | |
5955 | ||
5956 | <STATIC> | |
5957 | ||
5958 | import from TempA all; | |
5959 | ||
5960 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
5961 | ||
5962 | ||
5963 | <TTCN_TC:EXEC> | |
5964 | ||
5965 | if (dec_BER_PDU('62810302017F'O) == myIntegerValue) | |
5966 | ||
5967 | ||
5968 | {setverdict(pass);} else {setverdict(fail);} | |
5969 | ||
5970 | ||
5971 | <RESULT> | |
5972 | ||
5973 | Overall verdict: pass | |
5974 | ||
5975 | <END_TC> | |
5976 | ||
5977 | :exmp. | |
5978 | ||
5979 | .*---------------------------------------------------------------------* | |
5980 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Long form Long form | |
5981 | .*---------------------------------------------------------------------* | |
5982 | :xmp tab=0. | |
5983 | ||
5984 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (127), Long form Long form> | |
5985 | ||
5986 | <STATIC:ASN> | |
5987 | ||
5988 | TempA | |
5989 | ||
5990 | DEFINITIONS ::= | |
5991 | BEGIN | |
5992 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
5993 | ||
5994 | myIntegerValue BERPDU ::= 127 | |
5995 | ||
5996 | END | |
5997 | ||
5998 | <STATIC> | |
5999 | ||
6000 | import from TempA all; | |
6001 | ||
6002 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6003 | ||
6004 | ||
6005 | <TTCN_TC:EXEC> | |
6006 | ||
6007 | if (dec_BER_PDU('6281040281017F'O) == myIntegerValue) | |
6008 | ||
6009 | ||
6010 | {setverdict(pass);} else {setverdict(fail);} | |
6011 | ||
6012 | ||
6013 | <RESULT> | |
6014 | ||
6015 | Overall verdict: pass | |
6016 | ||
6017 | <END_TC> | |
6018 | ||
6019 | :exmp. | |
6020 | ||
6021 | .*---------------------------------------------------------------------* | |
6022 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (127),Indefinite form,CER | |
6023 | .*---------------------------------------------------------------------* | |
6024 | :xmp tab=0. | |
6025 | ||
6026 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (127),Indefinite form,CER> | |
6027 | ||
6028 | <STATIC:ASN> | |
6029 | ||
6030 | TempA | |
6031 | ||
6032 | DEFINITIONS ::= | |
6033 | BEGIN | |
6034 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
6035 | ||
6036 | myIntegerValue BERPDU ::= 127 | |
6037 | ||
6038 | END | |
6039 | ||
6040 | <STATIC> | |
6041 | ||
6042 | import from TempA all; | |
6043 | ||
6044 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6045 | ||
6046 | ||
6047 | <TTCN_TC:EXEC> | |
6048 | ||
6049 | if (dec_BER_PDU('628002017F0000'O) == myIntegerValue) | |
6050 | ||
6051 | ||
6052 | {setverdict(pass);} else {setverdict(fail);} | |
6053 | ||
6054 | ||
6055 | <RESULT> | |
6056 | ||
6057 | Overall verdict: pass | |
6058 | ||
6059 | <END_TC> | |
6060 | ||
6061 | :exmp. | |
6062 | ||
6063 | .*---------------------------------------------------------------------* | |
6064 | :h3. DECODING [0] IMPLICIT INTEGER (127),Short form CER,DER | |
6065 | .*---------------------------------------------------------------------* | |
6066 | :xmp tab=0. | |
6067 | ||
6068 | <TC - DECODING [0] IMPLICIT INTEGER (127),Short form CER,DER> | |
6069 | ||
6070 | <STATIC:ASN> | |
6071 | ||
6072 | TempA | |
6073 | ||
6074 | DEFINITIONS ::= | |
6075 | BEGIN | |
6076 | BERPDU ::= [0] IMPLICIT INTEGER | |
6077 | ||
6078 | myIntegerValue BERPDU ::= 127 | |
6079 | ||
6080 | END | |
6081 | ||
6082 | <STATIC> | |
6083 | ||
6084 | import from TempA all; | |
6085 | ||
6086 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6087 | ||
6088 | ||
6089 | <TTCN_TC:EXEC> | |
6090 | ||
6091 | if (dec_BER_PDU('80017F'O) == myIntegerValue) | |
6092 | ||
6093 | ||
6094 | {setverdict(pass);} else {setverdict(fail);} | |
6095 | ||
6096 | ||
6097 | <RESULT> | |
6098 | ||
6099 | Overall verdict: pass | |
6100 | ||
6101 | <END_TC> | |
6102 | ||
6103 | :exmp. | |
6104 | ||
6105 | .*---------------------------------------------------------------------* | |
6106 | :h3. DECODING [0] IMPLICIT INTEGER (127),Long form | |
6107 | .*---------------------------------------------------------------------* | |
6108 | :xmp tab=0. | |
6109 | ||
6110 | <TC - DECODING [0] IMPLICIT INTEGER (127),Long form> | |
6111 | ||
6112 | <STATIC:ASN> | |
6113 | ||
6114 | TempA | |
6115 | ||
6116 | DEFINITIONS ::= | |
6117 | BEGIN | |
6118 | BERPDU ::= [0] IMPLICIT INTEGER | |
6119 | ||
6120 | myIntegerValue BERPDU ::= 127 | |
6121 | ||
6122 | END | |
6123 | ||
6124 | <STATIC> | |
6125 | ||
6126 | import from TempA all; | |
6127 | ||
6128 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6129 | ||
6130 | ||
6131 | <TTCN_TC:EXEC> | |
6132 | ||
6133 | if (dec_BER_PDU('8081017F'O) == myIntegerValue) | |
6134 | ||
6135 | ||
6136 | {setverdict(pass);} else {setverdict(fail);} | |
6137 | ||
6138 | ||
6139 | <RESULT> | |
6140 | ||
6141 | Overall verdict: pass | |
6142 | ||
6143 | <END_TC> | |
6144 | ||
6145 | :exmp. | |
6146 | ||
6147 | .*---------------------------------------------------------------------* | |
6148 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (127),Short form CER,DER | |
6149 | .*---------------------------------------------------------------------* | |
6150 | :xmp tab=0. | |
6151 | ||
6152 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (127),Short form CER,DER> | |
6153 | ||
6154 | <STATIC:ASN> | |
6155 | ||
6156 | TempA | |
6157 | ||
6158 | DEFINITIONS ::= | |
6159 | BEGIN | |
6160 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
6161 | ||
6162 | myIntegerValue BERPDU ::= 127 | |
6163 | ||
6164 | END | |
6165 | ||
6166 | <STATIC> | |
6167 | ||
6168 | import from TempA all; | |
6169 | ||
6170 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6171 | ||
6172 | ||
6173 | <TTCN_TC:EXEC> | |
6174 | ||
6175 | if (dec_BER_PDU('C1017F'O) == myIntegerValue) | |
6176 | ||
6177 | ||
6178 | {setverdict(pass);} else {setverdict(fail);} | |
6179 | ||
6180 | ||
6181 | <RESULT> | |
6182 | ||
6183 | Overall verdict: pass | |
6184 | ||
6185 | <END_TC> | |
6186 | ||
6187 | :exmp. | |
6188 | ||
6189 | .*---------------------------------------------------------------------* | |
6190 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (127),Long form | |
6191 | .*---------------------------------------------------------------------* | |
6192 | :xmp tab=0. | |
6193 | ||
6194 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (127),Long form> | |
6195 | ||
6196 | <STATIC:ASN> | |
6197 | ||
6198 | TempA | |
6199 | ||
6200 | DEFINITIONS ::= | |
6201 | BEGIN | |
6202 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
6203 | ||
6204 | myIntegerValue BERPDU ::= 127 | |
6205 | ||
6206 | END | |
6207 | ||
6208 | <STATIC> | |
6209 | ||
6210 | import from TempA all; | |
6211 | ||
6212 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6213 | ||
6214 | ||
6215 | <TTCN_TC:EXEC> | |
6216 | ||
6217 | if (dec_BER_PDU('C181017F'O) == myIntegerValue) | |
6218 | ||
6219 | ||
6220 | {setverdict(pass);} else {setverdict(fail);} | |
6221 | ||
6222 | ||
6223 | <RESULT> | |
6224 | ||
6225 | Overall verdict: pass | |
6226 | ||
6227 | <END_TC> | |
6228 | ||
6229 | :exmp. | |
6230 | ||
6231 | .*---------------------------------------------------------------------* | |
6232 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (127),Short form CER,DER | |
6233 | .*---------------------------------------------------------------------* | |
6234 | :xmp tab=0. | |
6235 | ||
6236 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (127),Short form CER,DER> | |
6237 | ||
6238 | <STATIC:ASN> | |
6239 | ||
6240 | TempA | |
6241 | ||
6242 | DEFINITIONS ::= | |
6243 | BEGIN | |
6244 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
6245 | ||
6246 | myIntegerValue BERPDU ::= 127 | |
6247 | ||
6248 | END | |
6249 | ||
6250 | <STATIC> | |
6251 | ||
6252 | import from TempA all; | |
6253 | ||
6254 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6255 | ||
6256 | ||
6257 | <TTCN_TC:EXEC> | |
6258 | ||
6259 | if (dec_BER_PDU('42017F'O) == myIntegerValue) | |
6260 | ||
6261 | ||
6262 | {setverdict(pass);} else {setverdict(fail);} | |
6263 | ||
6264 | ||
6265 | <RESULT> | |
6266 | ||
6267 | Overall verdict: pass | |
6268 | ||
6269 | <END_TC> | |
6270 | ||
6271 | :exmp. | |
6272 | ||
6273 | .*---------------------------------------------------------------------* | |
6274 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (127),Long form | |
6275 | .*---------------------------------------------------------------------* | |
6276 | :xmp tab=0. | |
6277 | ||
6278 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (127),Long form> | |
6279 | ||
6280 | <STATIC:ASN> | |
6281 | ||
6282 | TempA | |
6283 | ||
6284 | DEFINITIONS ::= | |
6285 | BEGIN | |
6286 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
6287 | ||
6288 | myIntegerValue BERPDU ::= 127 | |
6289 | ||
6290 | END | |
6291 | ||
6292 | <STATIC> | |
6293 | ||
6294 | import from TempA all; | |
6295 | ||
6296 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6297 | ||
6298 | ||
6299 | <TTCN_TC:EXEC> | |
6300 | ||
6301 | if (dec_BER_PDU('4281017F'O) == myIntegerValue) | |
6302 | ||
6303 | ||
6304 | {setverdict(pass);} else {setverdict(fail);} | |
6305 | ||
6306 | ||
6307 | <RESULT> | |
6308 | ||
6309 | Overall verdict: pass | |
6310 | ||
6311 | <END_TC> | |
6312 | ||
6313 | :exmp. | |
6314 | ||
6315 | .*---------------------------------------------------------------------* | |
6316 | :h3. DECODING INTEGER (-128), CER+DER | |
6317 | .*---------------------------------------------------------------------* | |
6318 | :xmp tab=0. | |
6319 | ||
6320 | <TC - DECODING INTEGER (-128), CER+DER> | |
6321 | ||
6322 | <STATIC:ASN> | |
6323 | ||
6324 | TempA | |
6325 | ||
6326 | DEFINITIONS ::= | |
6327 | BEGIN | |
6328 | BERPDU ::= INTEGER | |
6329 | ||
6330 | myIntegerValue BERPDU ::= -128 | |
6331 | ||
6332 | END | |
6333 | ||
6334 | <STATIC> | |
6335 | ||
6336 | import from TempA all; | |
6337 | ||
6338 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6339 | ||
6340 | ||
6341 | <TTCN_TC:EXEC> | |
6342 | ||
6343 | if (dec_BER_PDU('020180'O) == myIntegerValue) | |
6344 | ||
6345 | ||
6346 | {setverdict(pass);} else {setverdict(fail);} | |
6347 | ||
6348 | ||
6349 | <RESULT> | |
6350 | ||
6351 | Overall verdict: pass | |
6352 | ||
6353 | <END_TC> | |
6354 | ||
6355 | :exmp. | |
6356 | ||
6357 | .*---------------------------------------------------------------------* | |
6358 | :h3. DECODING INTEGER (-128), (LENGTH OF LENGTH = 1) | |
6359 | .*---------------------------------------------------------------------* | |
6360 | :xmp tab=0. | |
6361 | ||
6362 | <TC - DECODING INTEGER (-128), (LENGTH OF LENGTH = 1)> | |
6363 | ||
6364 | <STATIC:ASN> | |
6365 | ||
6366 | TempA | |
6367 | ||
6368 | DEFINITIONS ::= | |
6369 | BEGIN | |
6370 | BERPDU ::= INTEGER | |
6371 | ||
6372 | myIntegerValue BERPDU ::= -128 | |
6373 | ||
6374 | END | |
6375 | ||
6376 | <STATIC> | |
6377 | ||
6378 | import from TempA all; | |
6379 | ||
6380 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6381 | ||
6382 | ||
6383 | <TTCN_TC:EXEC> | |
6384 | ||
6385 | if (dec_BER_PDU('02810180'O) == myIntegerValue) | |
6386 | ||
6387 | ||
6388 | {setverdict(pass);} else {setverdict(fail);} | |
6389 | ||
6390 | ||
6391 | <RESULT> | |
6392 | ||
6393 | Overall verdict: pass | |
6394 | ||
6395 | <END_TC> | |
6396 | ||
6397 | :exmp. | |
6398 | ||
6399 | .*---------------------------------------------------------------------* | |
6400 | :h3. DECODING INTEGER (-128), (LENGTH OF LENGTH = 2) | |
6401 | .*---------------------------------------------------------------------* | |
6402 | :xmp tab=0. | |
6403 | ||
6404 | <TC - DECODING INTEGER (-128), (LENGTH OF LENGTH = 2)> | |
6405 | ||
6406 | <STATIC:ASN> | |
6407 | ||
6408 | TempA | |
6409 | ||
6410 | DEFINITIONS ::= | |
6411 | BEGIN | |
6412 | BERPDU ::= INTEGER | |
6413 | ||
6414 | myIntegerValue BERPDU ::= -128 | |
6415 | ||
6416 | END | |
6417 | ||
6418 | <STATIC> | |
6419 | ||
6420 | import from TempA all; | |
6421 | ||
6422 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6423 | ||
6424 | ||
6425 | <TTCN_TC:EXEC> | |
6426 | ||
6427 | if (dec_BER_PDU('0282000180'O) == myIntegerValue) | |
6428 | ||
6429 | ||
6430 | {setverdict(pass);} else {setverdict(fail);} | |
6431 | ||
6432 | ||
6433 | <RESULT> | |
6434 | ||
6435 | Overall verdict: pass | |
6436 | ||
6437 | <END_TC> | |
6438 | ||
6439 | :exmp. | |
6440 | ||
6441 | .*---------------------------------------------------------------------* | |
6442 | :h3. DECODING [0] EXPLICIT INTEGER (-128), DER | |
6443 | .*---------------------------------------------------------------------* | |
6444 | :xmp tab=0. | |
6445 | ||
6446 | <TC - DECODING [0] EXPLICIT INTEGER (-128), DER> | |
6447 | ||
6448 | <STATIC:ASN> | |
6449 | ||
6450 | TempA | |
6451 | ||
6452 | DEFINITIONS ::= | |
6453 | BEGIN | |
6454 | BERPDU ::= [0] EXPLICIT INTEGER | |
6455 | ||
6456 | myIntegerValue BERPDU ::= -128 | |
6457 | ||
6458 | END | |
6459 | ||
6460 | <STATIC> | |
6461 | ||
6462 | import from TempA all; | |
6463 | ||
6464 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6465 | ||
6466 | ||
6467 | <TTCN_TC:EXEC> | |
6468 | ||
6469 | if (dec_BER_PDU('A003020180'O) == myIntegerValue) | |
6470 | ||
6471 | ||
6472 | {setverdict(pass);} else {setverdict(fail);} | |
6473 | ||
6474 | ||
6475 | <RESULT> | |
6476 | ||
6477 | Overall verdict: pass | |
6478 | ||
6479 | <END_TC> | |
6480 | ||
6481 | :exmp. | |
6482 | ||
6483 | .*---------------------------------------------------------------------* | |
6484 | :h3. DECODING [0] EXPLICIT INTEGER (-128), CER | |
6485 | .*---------------------------------------------------------------------* | |
6486 | :xmp tab=0. | |
6487 | ||
6488 | <TC - DECODING [0] EXPLICIT INTEGER (-128), CER> | |
6489 | ||
6490 | <STATIC:ASN> | |
6491 | ||
6492 | TempA | |
6493 | ||
6494 | DEFINITIONS ::= | |
6495 | BEGIN | |
6496 | BERPDU ::= [0] EXPLICIT INTEGER | |
6497 | ||
6498 | myIntegerValue BERPDU ::= -128 | |
6499 | ||
6500 | END | |
6501 | ||
6502 | <STATIC> | |
6503 | ||
6504 | import from TempA all; | |
6505 | ||
6506 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6507 | ||
6508 | ||
6509 | <TTCN_TC:EXEC> | |
6510 | ||
6511 | if (dec_BER_PDU('A0800201800000'O) == myIntegerValue) | |
6512 | ||
6513 | ||
6514 | {setverdict(pass);} else {setverdict(fail);} | |
6515 | ||
6516 | ||
6517 | <RESULT> | |
6518 | ||
6519 | Overall verdict: pass | |
6520 | ||
6521 | <END_TC> | |
6522 | ||
6523 | :exmp. | |
6524 | ||
6525 | .*---------------------------------------------------------------------* | |
6526 | :h3. DECODING [0] EXPLICIT INTEGER (-128), Short form - long form | |
6527 | .*---------------------------------------------------------------------* | |
6528 | :xmp tab=0. | |
6529 | ||
6530 | <TC - DECODING [0] EXPLICIT INTEGER (-128), Short form - long form> | |
6531 | ||
6532 | <STATIC:ASN> | |
6533 | ||
6534 | TempA | |
6535 | ||
6536 | DEFINITIONS ::= | |
6537 | BEGIN | |
6538 | BERPDU ::= [0] EXPLICIT INTEGER | |
6539 | ||
6540 | myIntegerValue BERPDU ::= -128 | |
6541 | ||
6542 | END | |
6543 | ||
6544 | <STATIC> | |
6545 | ||
6546 | import from TempA all; | |
6547 | ||
6548 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6549 | ||
6550 | ||
6551 | <TTCN_TC:EXEC> | |
6552 | ||
6553 | if (dec_BER_PDU('A003020180'O) == myIntegerValue) | |
6554 | ||
6555 | ||
6556 | {setverdict(pass);} else {setverdict(fail);} | |
6557 | ||
6558 | ||
6559 | <RESULT> | |
6560 | ||
6561 | Overall verdict: pass | |
6562 | ||
6563 | <END_TC> | |
6564 | ||
6565 | :exmp. | |
6566 | ||
6567 | .*---------------------------------------------------------------------* | |
6568 | :h3. DECODING [0] EXPLICIT INTEGER (-128), Long form - short form | |
6569 | .*---------------------------------------------------------------------* | |
6570 | :xmp tab=0. | |
6571 | ||
6572 | <TC - DECODING [0] EXPLICIT INTEGER (-128), Long form - short form> | |
6573 | ||
6574 | <STATIC:ASN> | |
6575 | ||
6576 | TempA | |
6577 | ||
6578 | DEFINITIONS ::= | |
6579 | BEGIN | |
6580 | BERPDU ::= [0] EXPLICIT INTEGER | |
6581 | ||
6582 | myIntegerValue BERPDU ::= -128 | |
6583 | ||
6584 | END | |
6585 | ||
6586 | <STATIC> | |
6587 | ||
6588 | import from TempA all; | |
6589 | ||
6590 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6591 | ||
6592 | ||
6593 | <TTCN_TC:EXEC> | |
6594 | ||
6595 | if (dec_BER_PDU('A08103020180'O) == myIntegerValue) | |
6596 | ||
6597 | ||
6598 | {setverdict(pass);} else {setverdict(fail);} | |
6599 | ||
6600 | ||
6601 | <RESULT> | |
6602 | ||
6603 | Overall verdict: pass | |
6604 | ||
6605 | <END_TC> | |
6606 | ||
6607 | :exmp. | |
6608 | ||
6609 | .*---------------------------------------------------------------------* | |
6610 | :h3. DECODING [0] EXPLICIT INTEGER (-128), Long form Long form | |
6611 | .*---------------------------------------------------------------------* | |
6612 | :xmp tab=0. | |
6613 | ||
6614 | <TC - DECODING [0] EXPLICIT INTEGER (-128), Long form Long form> | |
6615 | ||
6616 | <STATIC:ASN> | |
6617 | ||
6618 | TempA | |
6619 | ||
6620 | DEFINITIONS ::= | |
6621 | BEGIN | |
6622 | BERPDU ::= [0] EXPLICIT INTEGER | |
6623 | ||
6624 | myIntegerValue BERPDU ::= -128 | |
6625 | ||
6626 | END | |
6627 | ||
6628 | <STATIC> | |
6629 | ||
6630 | import from TempA all; | |
6631 | ||
6632 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6633 | ||
6634 | ||
6635 | <TTCN_TC:EXEC> | |
6636 | ||
6637 | if (dec_BER_PDU('A0810402810180'O) == myIntegerValue) | |
6638 | ||
6639 | ||
6640 | {setverdict(pass);} else {setverdict(fail);} | |
6641 | ||
6642 | ||
6643 | <RESULT> | |
6644 | ||
6645 | Overall verdict: pass | |
6646 | ||
6647 | <END_TC> | |
6648 | ||
6649 | :exmp. | |
6650 | ||
6651 | .*---------------------------------------------------------------------* | |
6652 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Short form - Short form, DER | |
6653 | .*---------------------------------------------------------------------* | |
6654 | :xmp tab=0. | |
6655 | ||
6656 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Short form - Short form, DER> | |
6657 | ||
6658 | <STATIC:ASN> | |
6659 | ||
6660 | TempA | |
6661 | ||
6662 | DEFINITIONS ::= | |
6663 | BEGIN | |
6664 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
6665 | ||
6666 | myIntegerValue BERPDU ::= -128 | |
6667 | ||
6668 | END | |
6669 | ||
6670 | <STATIC> | |
6671 | ||
6672 | import from TempA all; | |
6673 | ||
6674 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6675 | ||
6676 | ||
6677 | <TTCN_TC:EXEC> | |
6678 | ||
6679 | if (dec_BER_PDU('E103020180'O) == myIntegerValue) | |
6680 | ||
6681 | ||
6682 | {setverdict(pass);} else {setverdict(fail);} | |
6683 | ||
6684 | ||
6685 | <RESULT> | |
6686 | ||
6687 | Overall verdict: pass | |
6688 | ||
6689 | <END_TC> | |
6690 | ||
6691 | :exmp. | |
6692 | ||
6693 | .*---------------------------------------------------------------------* | |
6694 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Short form - long form | |
6695 | .*---------------------------------------------------------------------* | |
6696 | :xmp tab=0. | |
6697 | ||
6698 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Short form - long form> | |
6699 | ||
6700 | <STATIC:ASN> | |
6701 | ||
6702 | TempA | |
6703 | ||
6704 | DEFINITIONS ::= | |
6705 | BEGIN | |
6706 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
6707 | ||
6708 | myIntegerValue BERPDU ::= -128 | |
6709 | ||
6710 | END | |
6711 | ||
6712 | <STATIC> | |
6713 | ||
6714 | import from TempA all; | |
6715 | ||
6716 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6717 | ||
6718 | ||
6719 | <TTCN_TC:EXEC> | |
6720 | ||
6721 | if (dec_BER_PDU('E10402810180'O) == myIntegerValue) | |
6722 | ||
6723 | ||
6724 | {setverdict(pass);} else {setverdict(fail);} | |
6725 | ||
6726 | ||
6727 | <RESULT> | |
6728 | ||
6729 | Overall verdict: pass | |
6730 | ||
6731 | <END_TC> | |
6732 | ||
6733 | :exmp. | |
6734 | ||
6735 | .*---------------------------------------------------------------------* | |
6736 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Long form - short form | |
6737 | .*---------------------------------------------------------------------* | |
6738 | :xmp tab=0. | |
6739 | ||
6740 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Long form - short form> | |
6741 | ||
6742 | <STATIC:ASN> | |
6743 | ||
6744 | TempA | |
6745 | ||
6746 | DEFINITIONS ::= | |
6747 | BEGIN | |
6748 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
6749 | ||
6750 | myIntegerValue BERPDU ::= -128 | |
6751 | ||
6752 | END | |
6753 | ||
6754 | <STATIC> | |
6755 | ||
6756 | import from TempA all; | |
6757 | ||
6758 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6759 | ||
6760 | ||
6761 | <TTCN_TC:EXEC> | |
6762 | ||
6763 | if (dec_BER_PDU('E18103020180'O) == myIntegerValue) | |
6764 | ||
6765 | ||
6766 | {setverdict(pass);} else {setverdict(fail);} | |
6767 | ||
6768 | ||
6769 | <RESULT> | |
6770 | ||
6771 | Overall verdict: pass | |
6772 | ||
6773 | <END_TC> | |
6774 | ||
6775 | :exmp. | |
6776 | ||
6777 | .*---------------------------------------------------------------------* | |
6778 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Long form Long form | |
6779 | .*---------------------------------------------------------------------* | |
6780 | :xmp tab=0. | |
6781 | ||
6782 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-128), Long form Long form> | |
6783 | ||
6784 | <STATIC:ASN> | |
6785 | ||
6786 | TempA | |
6787 | ||
6788 | DEFINITIONS ::= | |
6789 | BEGIN | |
6790 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
6791 | ||
6792 | myIntegerValue BERPDU ::= -128 | |
6793 | ||
6794 | END | |
6795 | ||
6796 | <STATIC> | |
6797 | ||
6798 | import from TempA all; | |
6799 | ||
6800 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6801 | ||
6802 | ||
6803 | <TTCN_TC:EXEC> | |
6804 | ||
6805 | if (dec_BER_PDU('E1810402810180'O) == myIntegerValue) | |
6806 | ||
6807 | ||
6808 | {setverdict(pass);} else {setverdict(fail);} | |
6809 | ||
6810 | ||
6811 | <RESULT> | |
6812 | ||
6813 | Overall verdict: pass | |
6814 | ||
6815 | <END_TC> | |
6816 | ||
6817 | :exmp. | |
6818 | ||
6819 | .*---------------------------------------------------------------------* | |
6820 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-128),Indefinite form,CER | |
6821 | .*---------------------------------------------------------------------* | |
6822 | :xmp tab=0. | |
6823 | ||
6824 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-128),Indefinite form,CER> | |
6825 | ||
6826 | <STATIC:ASN> | |
6827 | ||
6828 | TempA | |
6829 | ||
6830 | DEFINITIONS ::= | |
6831 | BEGIN | |
6832 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
6833 | ||
6834 | myIntegerValue BERPDU ::= -128 | |
6835 | ||
6836 | END | |
6837 | ||
6838 | <STATIC> | |
6839 | ||
6840 | import from TempA all; | |
6841 | ||
6842 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6843 | ||
6844 | ||
6845 | <TTCN_TC:EXEC> | |
6846 | ||
6847 | if (dec_BER_PDU('E1800201800000'O) == myIntegerValue) | |
6848 | ||
6849 | ||
6850 | {setverdict(pass);} else {setverdict(fail);} | |
6851 | ||
6852 | ||
6853 | <RESULT> | |
6854 | ||
6855 | Overall verdict: pass | |
6856 | ||
6857 | <END_TC> | |
6858 | ||
6859 | :exmp. | |
6860 | ||
6861 | .*---------------------------------------------------------------------* | |
6862 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Short form - Short form, DER | |
6863 | .*---------------------------------------------------------------------* | |
6864 | :xmp tab=0. | |
6865 | ||
6866 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Short form - Short form, DER> | |
6867 | ||
6868 | <STATIC:ASN> | |
6869 | ||
6870 | TempA | |
6871 | ||
6872 | DEFINITIONS ::= | |
6873 | BEGIN | |
6874 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
6875 | ||
6876 | myIntegerValue BERPDU ::= -128 | |
6877 | ||
6878 | END | |
6879 | ||
6880 | <STATIC> | |
6881 | ||
6882 | import from TempA all; | |
6883 | ||
6884 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6885 | ||
6886 | ||
6887 | <TTCN_TC:EXEC> | |
6888 | ||
6889 | if (dec_BER_PDU('6203020180'O) == myIntegerValue) | |
6890 | ||
6891 | ||
6892 | {setverdict(pass);} else {setverdict(fail);} | |
6893 | ||
6894 | ||
6895 | <RESULT> | |
6896 | ||
6897 | Overall verdict: pass | |
6898 | ||
6899 | <END_TC> | |
6900 | ||
6901 | :exmp. | |
6902 | ||
6903 | .*---------------------------------------------------------------------* | |
6904 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Short form - long form | |
6905 | .*---------------------------------------------------------------------* | |
6906 | :xmp tab=0. | |
6907 | ||
6908 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Short form - long form> | |
6909 | ||
6910 | <STATIC:ASN> | |
6911 | ||
6912 | TempA | |
6913 | ||
6914 | DEFINITIONS ::= | |
6915 | BEGIN | |
6916 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
6917 | ||
6918 | myIntegerValue BERPDU ::= -128 | |
6919 | ||
6920 | END | |
6921 | ||
6922 | <STATIC> | |
6923 | ||
6924 | import from TempA all; | |
6925 | ||
6926 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6927 | ||
6928 | ||
6929 | <TTCN_TC:EXEC> | |
6930 | ||
6931 | if (dec_BER_PDU('620402810180'O) == myIntegerValue) | |
6932 | ||
6933 | ||
6934 | {setverdict(pass);} else {setverdict(fail);} | |
6935 | ||
6936 | ||
6937 | <RESULT> | |
6938 | ||
6939 | Overall verdict: pass | |
6940 | ||
6941 | <END_TC> | |
6942 | ||
6943 | :exmp. | |
6944 | ||
6945 | .*---------------------------------------------------------------------* | |
6946 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Long form - short form | |
6947 | .*---------------------------------------------------------------------* | |
6948 | :xmp tab=0. | |
6949 | ||
6950 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Long form - short form> | |
6951 | ||
6952 | <STATIC:ASN> | |
6953 | ||
6954 | TempA | |
6955 | ||
6956 | DEFINITIONS ::= | |
6957 | BEGIN | |
6958 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
6959 | ||
6960 | myIntegerValue BERPDU ::= -128 | |
6961 | ||
6962 | END | |
6963 | ||
6964 | <STATIC> | |
6965 | ||
6966 | import from TempA all; | |
6967 | ||
6968 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
6969 | ||
6970 | ||
6971 | <TTCN_TC:EXEC> | |
6972 | ||
6973 | if (dec_BER_PDU('628103020180'O) == myIntegerValue) | |
6974 | ||
6975 | ||
6976 | {setverdict(pass);} else {setverdict(fail);} | |
6977 | ||
6978 | ||
6979 | <RESULT> | |
6980 | ||
6981 | Overall verdict: pass | |
6982 | ||
6983 | <END_TC> | |
6984 | ||
6985 | :exmp. | |
6986 | ||
6987 | .*---------------------------------------------------------------------* | |
6988 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Long form Long form | |
6989 | .*---------------------------------------------------------------------* | |
6990 | :xmp tab=0. | |
6991 | ||
6992 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-128), Long form Long form> | |
6993 | ||
6994 | <STATIC:ASN> | |
6995 | ||
6996 | TempA | |
6997 | ||
6998 | DEFINITIONS ::= | |
6999 | BEGIN | |
7000 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
7001 | ||
7002 | myIntegerValue BERPDU ::= -128 | |
7003 | ||
7004 | END | |
7005 | ||
7006 | <STATIC> | |
7007 | ||
7008 | import from TempA all; | |
7009 | ||
7010 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7011 | ||
7012 | ||
7013 | <TTCN_TC:EXEC> | |
7014 | ||
7015 | if (dec_BER_PDU('62810402810180'O) == myIntegerValue) | |
7016 | ||
7017 | ||
7018 | {setverdict(pass);} else {setverdict(fail);} | |
7019 | ||
7020 | ||
7021 | <RESULT> | |
7022 | ||
7023 | Overall verdict: pass | |
7024 | ||
7025 | <END_TC> | |
7026 | ||
7027 | :exmp. | |
7028 | ||
7029 | .*---------------------------------------------------------------------* | |
7030 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-128),Indefinite form,CER | |
7031 | .*---------------------------------------------------------------------* | |
7032 | :xmp tab=0. | |
7033 | ||
7034 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-128),Indefinite form,CER> | |
7035 | ||
7036 | <STATIC:ASN> | |
7037 | ||
7038 | TempA | |
7039 | ||
7040 | DEFINITIONS ::= | |
7041 | BEGIN | |
7042 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
7043 | ||
7044 | myIntegerValue BERPDU ::= -128 | |
7045 | ||
7046 | END | |
7047 | ||
7048 | <STATIC> | |
7049 | ||
7050 | import from TempA all; | |
7051 | ||
7052 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7053 | ||
7054 | ||
7055 | <TTCN_TC:EXEC> | |
7056 | ||
7057 | if (dec_BER_PDU('62800201800000'O) == myIntegerValue) | |
7058 | ||
7059 | ||
7060 | {setverdict(pass);} else {setverdict(fail);} | |
7061 | ||
7062 | ||
7063 | <RESULT> | |
7064 | ||
7065 | Overall verdict: pass | |
7066 | ||
7067 | <END_TC> | |
7068 | ||
7069 | :exmp. | |
7070 | ||
7071 | .*---------------------------------------------------------------------* | |
7072 | :h3. DECODING [0] IMPLICIT INTEGER (-128),Short form CER,DER | |
7073 | .*---------------------------------------------------------------------* | |
7074 | :xmp tab=0. | |
7075 | ||
7076 | <TC - DECODING [0] IMPLICIT INTEGER (-128),Short form CER,DER> | |
7077 | ||
7078 | <STATIC:ASN> | |
7079 | ||
7080 | TempA | |
7081 | ||
7082 | DEFINITIONS ::= | |
7083 | BEGIN | |
7084 | BERPDU ::= [0] IMPLICIT INTEGER | |
7085 | ||
7086 | myIntegerValue BERPDU ::= -128 | |
7087 | ||
7088 | END | |
7089 | ||
7090 | <STATIC> | |
7091 | ||
7092 | import from TempA all; | |
7093 | ||
7094 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7095 | ||
7096 | ||
7097 | <TTCN_TC:EXEC> | |
7098 | ||
7099 | if (dec_BER_PDU('800180'O) == myIntegerValue) | |
7100 | ||
7101 | ||
7102 | {setverdict(pass);} else {setverdict(fail);} | |
7103 | ||
7104 | ||
7105 | <RESULT> | |
7106 | ||
7107 | Overall verdict: pass | |
7108 | ||
7109 | <END_TC> | |
7110 | ||
7111 | :exmp. | |
7112 | ||
7113 | .*---------------------------------------------------------------------* | |
7114 | :h3. DECODING [0] IMPLICIT INTEGER (-128),Long form | |
7115 | .*---------------------------------------------------------------------* | |
7116 | :xmp tab=0. | |
7117 | ||
7118 | <TC - DECODING [0] IMPLICIT INTEGER (-128),Long form> | |
7119 | ||
7120 | <STATIC:ASN> | |
7121 | ||
7122 | TempA | |
7123 | ||
7124 | DEFINITIONS ::= | |
7125 | BEGIN | |
7126 | BERPDU ::= [0] IMPLICIT INTEGER | |
7127 | ||
7128 | myIntegerValue BERPDU ::= -128 | |
7129 | ||
7130 | END | |
7131 | ||
7132 | <STATIC> | |
7133 | ||
7134 | import from TempA all; | |
7135 | ||
7136 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7137 | ||
7138 | ||
7139 | <TTCN_TC:EXEC> | |
7140 | ||
7141 | if (dec_BER_PDU('80810180'O) == myIntegerValue) | |
7142 | ||
7143 | ||
7144 | {setverdict(pass);} else {setverdict(fail);} | |
7145 | ||
7146 | ||
7147 | <RESULT> | |
7148 | ||
7149 | Overall verdict: pass | |
7150 | ||
7151 | <END_TC> | |
7152 | ||
7153 | :exmp. | |
7154 | ||
7155 | .*---------------------------------------------------------------------* | |
7156 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-128),Short form CER,DER | |
7157 | .*---------------------------------------------------------------------* | |
7158 | :xmp tab=0. | |
7159 | ||
7160 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-128),Short form CER,DER> | |
7161 | ||
7162 | <STATIC:ASN> | |
7163 | ||
7164 | TempA | |
7165 | ||
7166 | DEFINITIONS ::= | |
7167 | BEGIN | |
7168 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
7169 | ||
7170 | myIntegerValue BERPDU ::= -128 | |
7171 | ||
7172 | END | |
7173 | ||
7174 | <STATIC> | |
7175 | ||
7176 | import from TempA all; | |
7177 | ||
7178 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7179 | ||
7180 | ||
7181 | <TTCN_TC:EXEC> | |
7182 | ||
7183 | if (dec_BER_PDU('C10180'O) == myIntegerValue) | |
7184 | ||
7185 | ||
7186 | {setverdict(pass);} else {setverdict(fail);} | |
7187 | ||
7188 | ||
7189 | <RESULT> | |
7190 | ||
7191 | Overall verdict: pass | |
7192 | ||
7193 | <END_TC> | |
7194 | ||
7195 | :exmp. | |
7196 | ||
7197 | .*---------------------------------------------------------------------* | |
7198 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-128),Long form | |
7199 | .*---------------------------------------------------------------------* | |
7200 | :xmp tab=0. | |
7201 | ||
7202 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-128),Long form> | |
7203 | ||
7204 | <STATIC:ASN> | |
7205 | ||
7206 | TempA | |
7207 | ||
7208 | DEFINITIONS ::= | |
7209 | BEGIN | |
7210 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
7211 | ||
7212 | myIntegerValue BERPDU ::= -128 | |
7213 | ||
7214 | END | |
7215 | ||
7216 | <STATIC> | |
7217 | ||
7218 | import from TempA all; | |
7219 | ||
7220 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7221 | ||
7222 | ||
7223 | <TTCN_TC:EXEC> | |
7224 | ||
7225 | if (dec_BER_PDU('C1810180'O) == myIntegerValue) | |
7226 | ||
7227 | ||
7228 | {setverdict(pass);} else {setverdict(fail);} | |
7229 | ||
7230 | ||
7231 | <RESULT> | |
7232 | ||
7233 | Overall verdict: pass | |
7234 | ||
7235 | <END_TC> | |
7236 | ||
7237 | :exmp. | |
7238 | ||
7239 | .*---------------------------------------------------------------------* | |
7240 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-128),Short form CER,DER | |
7241 | .*---------------------------------------------------------------------* | |
7242 | :xmp tab=0. | |
7243 | ||
7244 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-128),Short form CER,DER> | |
7245 | ||
7246 | <STATIC:ASN> | |
7247 | ||
7248 | TempA | |
7249 | ||
7250 | DEFINITIONS ::= | |
7251 | BEGIN | |
7252 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
7253 | ||
7254 | myIntegerValue BERPDU ::= -128 | |
7255 | ||
7256 | END | |
7257 | ||
7258 | <STATIC> | |
7259 | ||
7260 | import from TempA all; | |
7261 | ||
7262 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7263 | ||
7264 | ||
7265 | <TTCN_TC:EXEC> | |
7266 | ||
7267 | if (dec_BER_PDU('420180'O) == myIntegerValue) | |
7268 | ||
7269 | ||
7270 | {setverdict(pass);} else {setverdict(fail);} | |
7271 | ||
7272 | ||
7273 | <RESULT> | |
7274 | ||
7275 | Overall verdict: pass | |
7276 | ||
7277 | <END_TC> | |
7278 | ||
7279 | :exmp. | |
7280 | ||
7281 | .*---------------------------------------------------------------------* | |
7282 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-128),Long form | |
7283 | .*---------------------------------------------------------------------* | |
7284 | :xmp tab=0. | |
7285 | ||
7286 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-128),Long form> | |
7287 | ||
7288 | <STATIC:ASN> | |
7289 | ||
7290 | TempA | |
7291 | ||
7292 | DEFINITIONS ::= | |
7293 | BEGIN | |
7294 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
7295 | ||
7296 | myIntegerValue BERPDU ::= -128 | |
7297 | ||
7298 | END | |
7299 | ||
7300 | <STATIC> | |
7301 | ||
7302 | import from TempA all; | |
7303 | ||
7304 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7305 | ||
7306 | ||
7307 | <TTCN_TC:EXEC> | |
7308 | ||
7309 | if (dec_BER_PDU('42810180'O) == myIntegerValue) | |
7310 | ||
7311 | ||
7312 | {setverdict(pass);} else {setverdict(fail);} | |
7313 | ||
7314 | ||
7315 | <RESULT> | |
7316 | ||
7317 | Overall verdict: pass | |
7318 | ||
7319 | <END_TC> | |
7320 | ||
7321 | :exmp. | |
7322 | ||
7323 | .*---------------------------------------------------------------------* | |
7324 | :h3. DECODING INTEGER (-5), CER+DER | |
7325 | .*---------------------------------------------------------------------* | |
7326 | :xmp tab=0. | |
7327 | ||
7328 | <TC - DECODING INTEGER (-5), CER+DER> | |
7329 | ||
7330 | <STATIC:ASN> | |
7331 | ||
7332 | TempA | |
7333 | ||
7334 | DEFINITIONS ::= | |
7335 | BEGIN | |
7336 | BERPDU ::= INTEGER | |
7337 | ||
7338 | myIntegerValue BERPDU ::= -5 | |
7339 | ||
7340 | END | |
7341 | ||
7342 | <STATIC> | |
7343 | ||
7344 | import from TempA all; | |
7345 | ||
7346 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7347 | ||
7348 | ||
7349 | <TTCN_TC:EXEC> | |
7350 | ||
7351 | if (dec_BER_PDU('0201FB'O) == myIntegerValue) | |
7352 | ||
7353 | ||
7354 | {setverdict(pass);} else {setverdict(fail);} | |
7355 | ||
7356 | ||
7357 | <RESULT> | |
7358 | ||
7359 | Overall verdict: pass | |
7360 | ||
7361 | <END_TC> | |
7362 | ||
7363 | :exmp. | |
7364 | ||
7365 | .*---------------------------------------------------------------------* | |
7366 | :h3. DECODING INTEGER (-5), (LENGTH OF LENGTH = 1) | |
7367 | .*---------------------------------------------------------------------* | |
7368 | :xmp tab=0. | |
7369 | ||
7370 | <TC - DECODING INTEGER (-5), (LENGTH OF LENGTH = 1)> | |
7371 | ||
7372 | <STATIC:ASN> | |
7373 | ||
7374 | TempA | |
7375 | ||
7376 | DEFINITIONS ::= | |
7377 | BEGIN | |
7378 | BERPDU ::= INTEGER | |
7379 | ||
7380 | myIntegerValue BERPDU ::= -5 | |
7381 | ||
7382 | END | |
7383 | ||
7384 | <STATIC> | |
7385 | ||
7386 | import from TempA all; | |
7387 | ||
7388 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7389 | ||
7390 | ||
7391 | <TTCN_TC:EXEC> | |
7392 | ||
7393 | if (dec_BER_PDU('028101FB'O) == myIntegerValue) | |
7394 | ||
7395 | ||
7396 | {setverdict(pass);} else {setverdict(fail);} | |
7397 | ||
7398 | ||
7399 | <RESULT> | |
7400 | ||
7401 | Overall verdict: pass | |
7402 | ||
7403 | <END_TC> | |
7404 | ||
7405 | :exmp. | |
7406 | ||
7407 | .*---------------------------------------------------------------------* | |
7408 | :h3. DECODING INTEGER (-5), (LENGTH OF LENGTH = 2) | |
7409 | .*---------------------------------------------------------------------* | |
7410 | :xmp tab=0. | |
7411 | ||
7412 | <TC - DECODING INTEGER (-5), (LENGTH OF LENGTH = 2)> | |
7413 | ||
7414 | <STATIC:ASN> | |
7415 | ||
7416 | TempA | |
7417 | ||
7418 | DEFINITIONS ::= | |
7419 | BEGIN | |
7420 | BERPDU ::= INTEGER | |
7421 | ||
7422 | myIntegerValue BERPDU ::= -5 | |
7423 | ||
7424 | END | |
7425 | ||
7426 | <STATIC> | |
7427 | ||
7428 | import from TempA all; | |
7429 | ||
7430 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7431 | ||
7432 | ||
7433 | <TTCN_TC:EXEC> | |
7434 | ||
7435 | if (dec_BER_PDU('02820001FB'O) == myIntegerValue) | |
7436 | ||
7437 | ||
7438 | {setverdict(pass);} else {setverdict(fail);} | |
7439 | ||
7440 | ||
7441 | <RESULT> | |
7442 | ||
7443 | Overall verdict: pass | |
7444 | ||
7445 | <END_TC> | |
7446 | ||
7447 | :exmp. | |
7448 | ||
7449 | .*---------------------------------------------------------------------* | |
7450 | :h3. DECODING [0] EXPLICIT INTEGER (-5), DER | |
7451 | .*---------------------------------------------------------------------* | |
7452 | :xmp tab=0. | |
7453 | ||
7454 | <TC - DECODING [0] EXPLICIT INTEGER (-5), DER> | |
7455 | ||
7456 | <STATIC:ASN> | |
7457 | ||
7458 | TempA | |
7459 | ||
7460 | DEFINITIONS ::= | |
7461 | BEGIN | |
7462 | BERPDU ::= [0] EXPLICIT INTEGER | |
7463 | ||
7464 | myIntegerValue BERPDU ::= -5 | |
7465 | ||
7466 | END | |
7467 | ||
7468 | <STATIC> | |
7469 | ||
7470 | import from TempA all; | |
7471 | ||
7472 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7473 | ||
7474 | ||
7475 | <TTCN_TC:EXEC> | |
7476 | ||
7477 | if (dec_BER_PDU('A0030201FB'O) == myIntegerValue) | |
7478 | ||
7479 | ||
7480 | {setverdict(pass);} else {setverdict(fail);} | |
7481 | ||
7482 | ||
7483 | <RESULT> | |
7484 | ||
7485 | Overall verdict: pass | |
7486 | ||
7487 | <END_TC> | |
7488 | ||
7489 | :exmp. | |
7490 | ||
7491 | .*---------------------------------------------------------------------* | |
7492 | :h3. DECODING [0] EXPLICIT INTEGER (-5), CER | |
7493 | .*---------------------------------------------------------------------* | |
7494 | :xmp tab=0. | |
7495 | ||
7496 | <TC - DECODING [0] EXPLICIT INTEGER (-5), CER> | |
7497 | ||
7498 | <STATIC:ASN> | |
7499 | ||
7500 | TempA | |
7501 | ||
7502 | DEFINITIONS ::= | |
7503 | BEGIN | |
7504 | BERPDU ::= [0] EXPLICIT INTEGER | |
7505 | ||
7506 | myIntegerValue BERPDU ::= -5 | |
7507 | ||
7508 | END | |
7509 | ||
7510 | <STATIC> | |
7511 | ||
7512 | import from TempA all; | |
7513 | ||
7514 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7515 | ||
7516 | ||
7517 | <TTCN_TC:EXEC> | |
7518 | ||
7519 | if (dec_BER_PDU('A0800201FB0000'O) == myIntegerValue) | |
7520 | ||
7521 | ||
7522 | {setverdict(pass);} else {setverdict(fail);} | |
7523 | ||
7524 | ||
7525 | <RESULT> | |
7526 | ||
7527 | Overall verdict: pass | |
7528 | ||
7529 | <END_TC> | |
7530 | ||
7531 | :exmp. | |
7532 | ||
7533 | .*---------------------------------------------------------------------* | |
7534 | :h3. DECODING [0] EXPLICIT INTEGER (-5), Short form - long form | |
7535 | .*---------------------------------------------------------------------* | |
7536 | :xmp tab=0. | |
7537 | ||
7538 | <TC - DECODING [0] EXPLICIT INTEGER (-5), Short form - long form> | |
7539 | ||
7540 | <STATIC:ASN> | |
7541 | ||
7542 | TempA | |
7543 | ||
7544 | DEFINITIONS ::= | |
7545 | BEGIN | |
7546 | BERPDU ::= [0] EXPLICIT INTEGER | |
7547 | ||
7548 | myIntegerValue BERPDU ::= -5 | |
7549 | ||
7550 | END | |
7551 | ||
7552 | <STATIC> | |
7553 | ||
7554 | import from TempA all; | |
7555 | ||
7556 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7557 | ||
7558 | ||
7559 | <TTCN_TC:EXEC> | |
7560 | ||
7561 | if (dec_BER_PDU('A0030201FB'O) == myIntegerValue) | |
7562 | ||
7563 | ||
7564 | {setverdict(pass);} else {setverdict(fail);} | |
7565 | ||
7566 | ||
7567 | <RESULT> | |
7568 | ||
7569 | Overall verdict: pass | |
7570 | ||
7571 | <END_TC> | |
7572 | ||
7573 | :exmp. | |
7574 | ||
7575 | .*---------------------------------------------------------------------* | |
7576 | :h3. DECODING [0] EXPLICIT INTEGER (-5), Long form - short form | |
7577 | .*---------------------------------------------------------------------* | |
7578 | :xmp tab=0. | |
7579 | ||
7580 | <TC - DECODING [0] EXPLICIT INTEGER (-5), Long form - short form> | |
7581 | ||
7582 | <STATIC:ASN> | |
7583 | ||
7584 | TempA | |
7585 | ||
7586 | DEFINITIONS ::= | |
7587 | BEGIN | |
7588 | BERPDU ::= [0] EXPLICIT INTEGER | |
7589 | ||
7590 | myIntegerValue BERPDU ::= -5 | |
7591 | ||
7592 | END | |
7593 | ||
7594 | <STATIC> | |
7595 | ||
7596 | import from TempA all; | |
7597 | ||
7598 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7599 | ||
7600 | ||
7601 | <TTCN_TC:EXEC> | |
7602 | ||
7603 | if (dec_BER_PDU('A081030201FB'O) == myIntegerValue) | |
7604 | ||
7605 | ||
7606 | {setverdict(pass);} else {setverdict(fail);} | |
7607 | ||
7608 | ||
7609 | <RESULT> | |
7610 | ||
7611 | Overall verdict: pass | |
7612 | ||
7613 | <END_TC> | |
7614 | ||
7615 | :exmp. | |
7616 | ||
7617 | .*---------------------------------------------------------------------* | |
7618 | :h3. DECODING [0] EXPLICIT INTEGER (-5), Long form Long form | |
7619 | .*---------------------------------------------------------------------* | |
7620 | :xmp tab=0. | |
7621 | ||
7622 | <TC - DECODING [0] EXPLICIT INTEGER (-5), Long form Long form> | |
7623 | ||
7624 | <STATIC:ASN> | |
7625 | ||
7626 | TempA | |
7627 | ||
7628 | DEFINITIONS ::= | |
7629 | BEGIN | |
7630 | BERPDU ::= [0] EXPLICIT INTEGER | |
7631 | ||
7632 | myIntegerValue BERPDU ::= -5 | |
7633 | ||
7634 | END | |
7635 | ||
7636 | <STATIC> | |
7637 | ||
7638 | import from TempA all; | |
7639 | ||
7640 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7641 | ||
7642 | ||
7643 | <TTCN_TC:EXEC> | |
7644 | ||
7645 | if (dec_BER_PDU('A08104028101FB'O) == myIntegerValue) | |
7646 | ||
7647 | ||
7648 | {setverdict(pass);} else {setverdict(fail);} | |
7649 | ||
7650 | ||
7651 | <RESULT> | |
7652 | ||
7653 | Overall verdict: pass | |
7654 | ||
7655 | <END_TC> | |
7656 | ||
7657 | :exmp. | |
7658 | ||
7659 | .*---------------------------------------------------------------------* | |
7660 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Short form - Short form, DER | |
7661 | .*---------------------------------------------------------------------* | |
7662 | :xmp tab=0. | |
7663 | ||
7664 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Short form - Short form, DER> | |
7665 | ||
7666 | <STATIC:ASN> | |
7667 | ||
7668 | TempA | |
7669 | ||
7670 | DEFINITIONS ::= | |
7671 | BEGIN | |
7672 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
7673 | ||
7674 | myIntegerValue BERPDU ::= -5 | |
7675 | ||
7676 | END | |
7677 | ||
7678 | <STATIC> | |
7679 | ||
7680 | import from TempA all; | |
7681 | ||
7682 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7683 | ||
7684 | ||
7685 | <TTCN_TC:EXEC> | |
7686 | ||
7687 | if (dec_BER_PDU('E1030201FB'O) == myIntegerValue) | |
7688 | ||
7689 | ||
7690 | {setverdict(pass);} else {setverdict(fail);} | |
7691 | ||
7692 | ||
7693 | <RESULT> | |
7694 | ||
7695 | Overall verdict: pass | |
7696 | ||
7697 | <END_TC> | |
7698 | ||
7699 | :exmp. | |
7700 | ||
7701 | .*---------------------------------------------------------------------* | |
7702 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Short form - long form | |
7703 | .*---------------------------------------------------------------------* | |
7704 | :xmp tab=0. | |
7705 | ||
7706 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Short form - long form> | |
7707 | ||
7708 | <STATIC:ASN> | |
7709 | ||
7710 | TempA | |
7711 | ||
7712 | DEFINITIONS ::= | |
7713 | BEGIN | |
7714 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
7715 | ||
7716 | myIntegerValue BERPDU ::= -5 | |
7717 | ||
7718 | END | |
7719 | ||
7720 | <STATIC> | |
7721 | ||
7722 | import from TempA all; | |
7723 | ||
7724 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7725 | ||
7726 | ||
7727 | <TTCN_TC:EXEC> | |
7728 | ||
7729 | if (dec_BER_PDU('E104028101FB'O) == myIntegerValue) | |
7730 | ||
7731 | ||
7732 | {setverdict(pass);} else {setverdict(fail);} | |
7733 | ||
7734 | ||
7735 | <RESULT> | |
7736 | ||
7737 | Overall verdict: pass | |
7738 | ||
7739 | <END_TC> | |
7740 | ||
7741 | :exmp. | |
7742 | ||
7743 | .*---------------------------------------------------------------------* | |
7744 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Long form - short form | |
7745 | .*---------------------------------------------------------------------* | |
7746 | :xmp tab=0. | |
7747 | ||
7748 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Long form - short form> | |
7749 | ||
7750 | <STATIC:ASN> | |
7751 | ||
7752 | TempA | |
7753 | ||
7754 | DEFINITIONS ::= | |
7755 | BEGIN | |
7756 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
7757 | ||
7758 | myIntegerValue BERPDU ::= -5 | |
7759 | ||
7760 | END | |
7761 | ||
7762 | <STATIC> | |
7763 | ||
7764 | import from TempA all; | |
7765 | ||
7766 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7767 | ||
7768 | ||
7769 | <TTCN_TC:EXEC> | |
7770 | ||
7771 | if (dec_BER_PDU('E181030201FB'O) == myIntegerValue) | |
7772 | ||
7773 | ||
7774 | {setverdict(pass);} else {setverdict(fail);} | |
7775 | ||
7776 | ||
7777 | <RESULT> | |
7778 | ||
7779 | Overall verdict: pass | |
7780 | ||
7781 | <END_TC> | |
7782 | ||
7783 | :exmp. | |
7784 | ||
7785 | .*---------------------------------------------------------------------* | |
7786 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Long form Long form | |
7787 | .*---------------------------------------------------------------------* | |
7788 | :xmp tab=0. | |
7789 | ||
7790 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-5), Long form Long form> | |
7791 | ||
7792 | <STATIC:ASN> | |
7793 | ||
7794 | TempA | |
7795 | ||
7796 | DEFINITIONS ::= | |
7797 | BEGIN | |
7798 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
7799 | ||
7800 | myIntegerValue BERPDU ::= -5 | |
7801 | ||
7802 | END | |
7803 | ||
7804 | <STATIC> | |
7805 | ||
7806 | import from TempA all; | |
7807 | ||
7808 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7809 | ||
7810 | ||
7811 | <TTCN_TC:EXEC> | |
7812 | ||
7813 | if (dec_BER_PDU('E18104028101FB'O) == myIntegerValue) | |
7814 | ||
7815 | ||
7816 | {setverdict(pass);} else {setverdict(fail);} | |
7817 | ||
7818 | ||
7819 | <RESULT> | |
7820 | ||
7821 | Overall verdict: pass | |
7822 | ||
7823 | <END_TC> | |
7824 | ||
7825 | :exmp. | |
7826 | ||
7827 | .*---------------------------------------------------------------------* | |
7828 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-5),Indefinite form,CER | |
7829 | .*---------------------------------------------------------------------* | |
7830 | :xmp tab=0. | |
7831 | ||
7832 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-5),Indefinite form,CER> | |
7833 | ||
7834 | <STATIC:ASN> | |
7835 | ||
7836 | TempA | |
7837 | ||
7838 | DEFINITIONS ::= | |
7839 | BEGIN | |
7840 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
7841 | ||
7842 | myIntegerValue BERPDU ::= -5 | |
7843 | ||
7844 | END | |
7845 | ||
7846 | <STATIC> | |
7847 | ||
7848 | import from TempA all; | |
7849 | ||
7850 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7851 | ||
7852 | ||
7853 | <TTCN_TC:EXEC> | |
7854 | ||
7855 | if (dec_BER_PDU('E1800201FB0000'O) == myIntegerValue) | |
7856 | ||
7857 | ||
7858 | {setverdict(pass);} else {setverdict(fail);} | |
7859 | ||
7860 | ||
7861 | <RESULT> | |
7862 | ||
7863 | Overall verdict: pass | |
7864 | ||
7865 | <END_TC> | |
7866 | ||
7867 | :exmp. | |
7868 | ||
7869 | .*---------------------------------------------------------------------* | |
7870 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Short form - Short form, DER | |
7871 | .*---------------------------------------------------------------------* | |
7872 | :xmp tab=0. | |
7873 | ||
7874 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Short form - Short form, DER> | |
7875 | ||
7876 | <STATIC:ASN> | |
7877 | ||
7878 | TempA | |
7879 | ||
7880 | DEFINITIONS ::= | |
7881 | BEGIN | |
7882 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
7883 | ||
7884 | myIntegerValue BERPDU ::= -5 | |
7885 | ||
7886 | END | |
7887 | ||
7888 | <STATIC> | |
7889 | ||
7890 | import from TempA all; | |
7891 | ||
7892 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7893 | ||
7894 | ||
7895 | <TTCN_TC:EXEC> | |
7896 | ||
7897 | if (dec_BER_PDU('62030201FB'O) == myIntegerValue) | |
7898 | ||
7899 | ||
7900 | {setverdict(pass);} else {setverdict(fail);} | |
7901 | ||
7902 | ||
7903 | <RESULT> | |
7904 | ||
7905 | Overall verdict: pass | |
7906 | ||
7907 | <END_TC> | |
7908 | ||
7909 | :exmp. | |
7910 | ||
7911 | .*---------------------------------------------------------------------* | |
7912 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Short form - long form | |
7913 | .*---------------------------------------------------------------------* | |
7914 | :xmp tab=0. | |
7915 | ||
7916 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Short form - long form> | |
7917 | ||
7918 | <STATIC:ASN> | |
7919 | ||
7920 | TempA | |
7921 | ||
7922 | DEFINITIONS ::= | |
7923 | BEGIN | |
7924 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
7925 | ||
7926 | myIntegerValue BERPDU ::= -5 | |
7927 | ||
7928 | END | |
7929 | ||
7930 | <STATIC> | |
7931 | ||
7932 | import from TempA all; | |
7933 | ||
7934 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7935 | ||
7936 | ||
7937 | <TTCN_TC:EXEC> | |
7938 | ||
7939 | if (dec_BER_PDU('6204028101FB'O) == myIntegerValue) | |
7940 | ||
7941 | ||
7942 | {setverdict(pass);} else {setverdict(fail);} | |
7943 | ||
7944 | ||
7945 | <RESULT> | |
7946 | ||
7947 | Overall verdict: pass | |
7948 | ||
7949 | <END_TC> | |
7950 | ||
7951 | :exmp. | |
7952 | ||
7953 | .*---------------------------------------------------------------------* | |
7954 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Long form - short form | |
7955 | .*---------------------------------------------------------------------* | |
7956 | :xmp tab=0. | |
7957 | ||
7958 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Long form - short form> | |
7959 | ||
7960 | <STATIC:ASN> | |
7961 | ||
7962 | TempA | |
7963 | ||
7964 | DEFINITIONS ::= | |
7965 | BEGIN | |
7966 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
7967 | ||
7968 | myIntegerValue BERPDU ::= -5 | |
7969 | ||
7970 | END | |
7971 | ||
7972 | <STATIC> | |
7973 | ||
7974 | import from TempA all; | |
7975 | ||
7976 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
7977 | ||
7978 | ||
7979 | <TTCN_TC:EXEC> | |
7980 | ||
7981 | if (dec_BER_PDU('6281030201FB'O) == myIntegerValue) | |
7982 | ||
7983 | ||
7984 | {setverdict(pass);} else {setverdict(fail);} | |
7985 | ||
7986 | ||
7987 | <RESULT> | |
7988 | ||
7989 | Overall verdict: pass | |
7990 | ||
7991 | <END_TC> | |
7992 | ||
7993 | :exmp. | |
7994 | ||
7995 | .*---------------------------------------------------------------------* | |
7996 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Long form Long form | |
7997 | .*---------------------------------------------------------------------* | |
7998 | :xmp tab=0. | |
7999 | ||
8000 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-5), Long form Long form> | |
8001 | ||
8002 | <STATIC:ASN> | |
8003 | ||
8004 | TempA | |
8005 | ||
8006 | DEFINITIONS ::= | |
8007 | BEGIN | |
8008 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
8009 | ||
8010 | myIntegerValue BERPDU ::= -5 | |
8011 | ||
8012 | END | |
8013 | ||
8014 | <STATIC> | |
8015 | ||
8016 | import from TempA all; | |
8017 | ||
8018 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8019 | ||
8020 | ||
8021 | <TTCN_TC:EXEC> | |
8022 | ||
8023 | if (dec_BER_PDU('628104028101FB'O) == myIntegerValue) | |
8024 | ||
8025 | ||
8026 | {setverdict(pass);} else {setverdict(fail);} | |
8027 | ||
8028 | ||
8029 | <RESULT> | |
8030 | ||
8031 | Overall verdict: pass | |
8032 | ||
8033 | <END_TC> | |
8034 | ||
8035 | :exmp. | |
8036 | ||
8037 | .*---------------------------------------------------------------------* | |
8038 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-5),Indefinite form,CER | |
8039 | .*---------------------------------------------------------------------* | |
8040 | :xmp tab=0. | |
8041 | ||
8042 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-5),Indefinite form,CER> | |
8043 | ||
8044 | <STATIC:ASN> | |
8045 | ||
8046 | TempA | |
8047 | ||
8048 | DEFINITIONS ::= | |
8049 | BEGIN | |
8050 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
8051 | ||
8052 | myIntegerValue BERPDU ::= -5 | |
8053 | ||
8054 | END | |
8055 | ||
8056 | <STATIC> | |
8057 | ||
8058 | import from TempA all; | |
8059 | ||
8060 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8061 | ||
8062 | ||
8063 | <TTCN_TC:EXEC> | |
8064 | ||
8065 | if (dec_BER_PDU('62800201FB0000'O) == myIntegerValue) | |
8066 | ||
8067 | ||
8068 | {setverdict(pass);} else {setverdict(fail);} | |
8069 | ||
8070 | ||
8071 | <RESULT> | |
8072 | ||
8073 | Overall verdict: pass | |
8074 | ||
8075 | <END_TC> | |
8076 | ||
8077 | :exmp. | |
8078 | ||
8079 | .*---------------------------------------------------------------------* | |
8080 | :h3. DECODING [0] IMPLICIT INTEGER (-5),Short form CER,DER | |
8081 | .*---------------------------------------------------------------------* | |
8082 | :xmp tab=0. | |
8083 | ||
8084 | <TC - DECODING [0] IMPLICIT INTEGER (-5),Short form CER,DER> | |
8085 | ||
8086 | <STATIC:ASN> | |
8087 | ||
8088 | TempA | |
8089 | ||
8090 | DEFINITIONS ::= | |
8091 | BEGIN | |
8092 | BERPDU ::= [0] IMPLICIT INTEGER | |
8093 | ||
8094 | myIntegerValue BERPDU ::= -5 | |
8095 | ||
8096 | END | |
8097 | ||
8098 | <STATIC> | |
8099 | ||
8100 | import from TempA all; | |
8101 | ||
8102 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8103 | ||
8104 | ||
8105 | <TTCN_TC:EXEC> | |
8106 | ||
8107 | if (dec_BER_PDU('8001FB'O) == myIntegerValue) | |
8108 | ||
8109 | ||
8110 | {setverdict(pass);} else {setverdict(fail);} | |
8111 | ||
8112 | ||
8113 | <RESULT> | |
8114 | ||
8115 | Overall verdict: pass | |
8116 | ||
8117 | <END_TC> | |
8118 | ||
8119 | :exmp. | |
8120 | ||
8121 | .*---------------------------------------------------------------------* | |
8122 | :h3. DECODING [0] IMPLICIT INTEGER (-5),Long form | |
8123 | .*---------------------------------------------------------------------* | |
8124 | :xmp tab=0. | |
8125 | ||
8126 | <TC - DECODING [0] IMPLICIT INTEGER (-5),Long form> | |
8127 | ||
8128 | <STATIC:ASN> | |
8129 | ||
8130 | TempA | |
8131 | ||
8132 | DEFINITIONS ::= | |
8133 | BEGIN | |
8134 | BERPDU ::= [0] IMPLICIT INTEGER | |
8135 | ||
8136 | myIntegerValue BERPDU ::= -5 | |
8137 | ||
8138 | END | |
8139 | ||
8140 | <STATIC> | |
8141 | ||
8142 | import from TempA all; | |
8143 | ||
8144 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8145 | ||
8146 | ||
8147 | <TTCN_TC:EXEC> | |
8148 | ||
8149 | if (dec_BER_PDU('808101FB'O) == myIntegerValue) | |
8150 | ||
8151 | ||
8152 | {setverdict(pass);} else {setverdict(fail);} | |
8153 | ||
8154 | ||
8155 | <RESULT> | |
8156 | ||
8157 | Overall verdict: pass | |
8158 | ||
8159 | <END_TC> | |
8160 | ||
8161 | :exmp. | |
8162 | ||
8163 | .*---------------------------------------------------------------------* | |
8164 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-5),Short form CER,DER | |
8165 | .*---------------------------------------------------------------------* | |
8166 | :xmp tab=0. | |
8167 | ||
8168 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-5),Short form CER,DER> | |
8169 | ||
8170 | <STATIC:ASN> | |
8171 | ||
8172 | TempA | |
8173 | ||
8174 | DEFINITIONS ::= | |
8175 | BEGIN | |
8176 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
8177 | ||
8178 | myIntegerValue BERPDU ::= -5 | |
8179 | ||
8180 | END | |
8181 | ||
8182 | <STATIC> | |
8183 | ||
8184 | import from TempA all; | |
8185 | ||
8186 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8187 | ||
8188 | ||
8189 | <TTCN_TC:EXEC> | |
8190 | ||
8191 | if (dec_BER_PDU('C101FB'O) == myIntegerValue) | |
8192 | ||
8193 | ||
8194 | {setverdict(pass);} else {setverdict(fail);} | |
8195 | ||
8196 | ||
8197 | <RESULT> | |
8198 | ||
8199 | Overall verdict: pass | |
8200 | ||
8201 | <END_TC> | |
8202 | ||
8203 | :exmp. | |
8204 | ||
8205 | .*---------------------------------------------------------------------* | |
8206 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-5),Long form | |
8207 | .*---------------------------------------------------------------------* | |
8208 | :xmp tab=0. | |
8209 | ||
8210 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-5),Long form> | |
8211 | ||
8212 | <STATIC:ASN> | |
8213 | ||
8214 | TempA | |
8215 | ||
8216 | DEFINITIONS ::= | |
8217 | BEGIN | |
8218 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
8219 | ||
8220 | myIntegerValue BERPDU ::= -5 | |
8221 | ||
8222 | END | |
8223 | ||
8224 | <STATIC> | |
8225 | ||
8226 | import from TempA all; | |
8227 | ||
8228 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8229 | ||
8230 | ||
8231 | <TTCN_TC:EXEC> | |
8232 | ||
8233 | if (dec_BER_PDU('C18101FB'O) == myIntegerValue) | |
8234 | ||
8235 | ||
8236 | {setverdict(pass);} else {setverdict(fail);} | |
8237 | ||
8238 | ||
8239 | <RESULT> | |
8240 | ||
8241 | Overall verdict: pass | |
8242 | ||
8243 | <END_TC> | |
8244 | ||
8245 | :exmp. | |
8246 | ||
8247 | .*---------------------------------------------------------------------* | |
8248 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-5),Short form CER,DER | |
8249 | .*---------------------------------------------------------------------* | |
8250 | :xmp tab=0. | |
8251 | ||
8252 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-5),Short form CER,DER> | |
8253 | ||
8254 | <STATIC:ASN> | |
8255 | ||
8256 | TempA | |
8257 | ||
8258 | DEFINITIONS ::= | |
8259 | BEGIN | |
8260 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
8261 | ||
8262 | myIntegerValue BERPDU ::= -5 | |
8263 | ||
8264 | END | |
8265 | ||
8266 | <STATIC> | |
8267 | ||
8268 | import from TempA all; | |
8269 | ||
8270 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8271 | ||
8272 | ||
8273 | <TTCN_TC:EXEC> | |
8274 | ||
8275 | if (dec_BER_PDU('4201FB'O) == myIntegerValue) | |
8276 | ||
8277 | ||
8278 | {setverdict(pass);} else {setverdict(fail);} | |
8279 | ||
8280 | ||
8281 | <RESULT> | |
8282 | ||
8283 | Overall verdict: pass | |
8284 | ||
8285 | <END_TC> | |
8286 | ||
8287 | :exmp. | |
8288 | ||
8289 | .*---------------------------------------------------------------------* | |
8290 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-5),Long form | |
8291 | .*---------------------------------------------------------------------* | |
8292 | :xmp tab=0. | |
8293 | ||
8294 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-5),Long form> | |
8295 | ||
8296 | <STATIC:ASN> | |
8297 | ||
8298 | TempA | |
8299 | ||
8300 | DEFINITIONS ::= | |
8301 | BEGIN | |
8302 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
8303 | ||
8304 | myIntegerValue BERPDU ::= -5 | |
8305 | ||
8306 | END | |
8307 | ||
8308 | <STATIC> | |
8309 | ||
8310 | import from TempA all; | |
8311 | ||
8312 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8313 | ||
8314 | ||
8315 | <TTCN_TC:EXEC> | |
8316 | ||
8317 | if (dec_BER_PDU('428101FB'O) == myIntegerValue) | |
8318 | ||
8319 | ||
8320 | {setverdict(pass);} else {setverdict(fail);} | |
8321 | ||
8322 | ||
8323 | <RESULT> | |
8324 | ||
8325 | Overall verdict: pass | |
8326 | ||
8327 | <END_TC> | |
8328 | ||
8329 | :exmp. | |
8330 | ||
8331 | .*---------------------------------------------------------------------* | |
8332 | :h3. DECODING INTEGER (128), CER+DER | |
8333 | .*---------------------------------------------------------------------* | |
8334 | :xmp tab=0. | |
8335 | ||
8336 | <TC - DECODING INTEGER (128), CER+DER> | |
8337 | ||
8338 | <STATIC:ASN> | |
8339 | ||
8340 | TempA | |
8341 | ||
8342 | DEFINITIONS ::= | |
8343 | BEGIN | |
8344 | BERPDU ::= INTEGER | |
8345 | ||
8346 | myIntegerValue BERPDU ::= 128 | |
8347 | ||
8348 | END | |
8349 | ||
8350 | <STATIC> | |
8351 | ||
8352 | import from TempA all; | |
8353 | ||
8354 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8355 | ||
8356 | ||
8357 | <TTCN_TC:EXEC> | |
8358 | ||
8359 | if (dec_BER_PDU('02020080'O) == myIntegerValue) | |
8360 | ||
8361 | ||
8362 | {setverdict(pass);} else {setverdict(fail);} | |
8363 | ||
8364 | ||
8365 | <RESULT> | |
8366 | ||
8367 | Overall verdict: pass | |
8368 | ||
8369 | <END_TC> | |
8370 | ||
8371 | :exmp. | |
8372 | ||
8373 | .*---------------------------------------------------------------------* | |
8374 | :h3. DECODING INTEGER (128), (LENGTH OF LENGTH = 1) | |
8375 | .*---------------------------------------------------------------------* | |
8376 | :xmp tab=0. | |
8377 | ||
8378 | <TC - DECODING INTEGER (128), (LENGTH OF LENGTH = 1)> | |
8379 | ||
8380 | <STATIC:ASN> | |
8381 | ||
8382 | TempA | |
8383 | ||
8384 | DEFINITIONS ::= | |
8385 | BEGIN | |
8386 | BERPDU ::= INTEGER | |
8387 | ||
8388 | myIntegerValue BERPDU ::= 128 | |
8389 | ||
8390 | END | |
8391 | ||
8392 | <STATIC> | |
8393 | ||
8394 | import from TempA all; | |
8395 | ||
8396 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8397 | ||
8398 | ||
8399 | <TTCN_TC:EXEC> | |
8400 | ||
8401 | if (dec_BER_PDU('0281020080'O) == myIntegerValue) | |
8402 | ||
8403 | ||
8404 | {setverdict(pass);} else {setverdict(fail);} | |
8405 | ||
8406 | ||
8407 | <RESULT> | |
8408 | ||
8409 | Overall verdict: pass | |
8410 | ||
8411 | <END_TC> | |
8412 | ||
8413 | :exmp. | |
8414 | ||
8415 | .*---------------------------------------------------------------------* | |
8416 | :h3. DECODING INTEGER (128), (LENGTH OF LENGTH = 2) | |
8417 | .*---------------------------------------------------------------------* | |
8418 | :xmp tab=0. | |
8419 | ||
8420 | <TC - DECODING INTEGER (128), (LENGTH OF LENGTH = 2)> | |
8421 | ||
8422 | <STATIC:ASN> | |
8423 | ||
8424 | TempA | |
8425 | ||
8426 | DEFINITIONS ::= | |
8427 | BEGIN | |
8428 | BERPDU ::= INTEGER | |
8429 | ||
8430 | myIntegerValue BERPDU ::= 128 | |
8431 | ||
8432 | END | |
8433 | ||
8434 | <STATIC> | |
8435 | ||
8436 | import from TempA all; | |
8437 | ||
8438 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8439 | ||
8440 | ||
8441 | <TTCN_TC:EXEC> | |
8442 | ||
8443 | if (dec_BER_PDU('028200020080'O) == myIntegerValue) | |
8444 | ||
8445 | ||
8446 | {setverdict(pass);} else {setverdict(fail);} | |
8447 | ||
8448 | ||
8449 | <RESULT> | |
8450 | ||
8451 | Overall verdict: pass | |
8452 | ||
8453 | <END_TC> | |
8454 | ||
8455 | :exmp. | |
8456 | ||
8457 | .*---------------------------------------------------------------------* | |
8458 | :h3. DECODING [0] EXPLICIT INTEGER (128), DER | |
8459 | .*---------------------------------------------------------------------* | |
8460 | :xmp tab=0. | |
8461 | ||
8462 | <TC - DECODING [0] EXPLICIT INTEGER (128), DER> | |
8463 | ||
8464 | <STATIC:ASN> | |
8465 | ||
8466 | TempA | |
8467 | ||
8468 | DEFINITIONS ::= | |
8469 | BEGIN | |
8470 | BERPDU ::= [0] EXPLICIT INTEGER | |
8471 | ||
8472 | myIntegerValue BERPDU ::= 128 | |
8473 | ||
8474 | END | |
8475 | ||
8476 | <STATIC> | |
8477 | ||
8478 | import from TempA all; | |
8479 | ||
8480 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8481 | ||
8482 | ||
8483 | <TTCN_TC:EXEC> | |
8484 | ||
8485 | if (dec_BER_PDU('A00402020080'O) == myIntegerValue) | |
8486 | ||
8487 | ||
8488 | {setverdict(pass);} else {setverdict(fail);} | |
8489 | ||
8490 | ||
8491 | <RESULT> | |
8492 | ||
8493 | Overall verdict: pass | |
8494 | ||
8495 | <END_TC> | |
8496 | ||
8497 | :exmp. | |
8498 | ||
8499 | .*---------------------------------------------------------------------* | |
8500 | :h3. DECODING [0] EXPLICIT INTEGER (128), CER | |
8501 | .*---------------------------------------------------------------------* | |
8502 | :xmp tab=0. | |
8503 | ||
8504 | <TC - DECODING [0] EXPLICIT INTEGER (128), CER> | |
8505 | ||
8506 | <STATIC:ASN> | |
8507 | ||
8508 | TempA | |
8509 | ||
8510 | DEFINITIONS ::= | |
8511 | BEGIN | |
8512 | BERPDU ::= [0] EXPLICIT INTEGER | |
8513 | ||
8514 | myIntegerValue BERPDU ::= 128 | |
8515 | ||
8516 | END | |
8517 | ||
8518 | <STATIC> | |
8519 | ||
8520 | import from TempA all; | |
8521 | ||
8522 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8523 | ||
8524 | ||
8525 | <TTCN_TC:EXEC> | |
8526 | ||
8527 | if (dec_BER_PDU('A080020200800000'O) == myIntegerValue) | |
8528 | ||
8529 | ||
8530 | {setverdict(pass);} else {setverdict(fail);} | |
8531 | ||
8532 | ||
8533 | <RESULT> | |
8534 | ||
8535 | Overall verdict: pass | |
8536 | ||
8537 | <END_TC> | |
8538 | ||
8539 | :exmp. | |
8540 | ||
8541 | .*---------------------------------------------------------------------* | |
8542 | :h3. DECODING [0] EXPLICIT INTEGER (128), Short form - long form | |
8543 | .*---------------------------------------------------------------------* | |
8544 | :xmp tab=0. | |
8545 | ||
8546 | <TC - DECODING [0] EXPLICIT INTEGER (128), Short form - long form> | |
8547 | ||
8548 | <STATIC:ASN> | |
8549 | ||
8550 | TempA | |
8551 | ||
8552 | DEFINITIONS ::= | |
8553 | BEGIN | |
8554 | BERPDU ::= [0] EXPLICIT INTEGER | |
8555 | ||
8556 | myIntegerValue BERPDU ::= 128 | |
8557 | ||
8558 | END | |
8559 | ||
8560 | <STATIC> | |
8561 | ||
8562 | import from TempA all; | |
8563 | ||
8564 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8565 | ||
8566 | ||
8567 | <TTCN_TC:EXEC> | |
8568 | ||
8569 | if (dec_BER_PDU('A00402020080'O) == myIntegerValue) | |
8570 | ||
8571 | ||
8572 | {setverdict(pass);} else {setverdict(fail);} | |
8573 | ||
8574 | ||
8575 | <RESULT> | |
8576 | ||
8577 | Overall verdict: pass | |
8578 | ||
8579 | <END_TC> | |
8580 | ||
8581 | :exmp. | |
8582 | ||
8583 | .*---------------------------------------------------------------------* | |
8584 | :h3. DECODING [0] EXPLICIT INTEGER (128), Long form - short form | |
8585 | .*---------------------------------------------------------------------* | |
8586 | :xmp tab=0. | |
8587 | ||
8588 | <TC - DECODING [0] EXPLICIT INTEGER (128), Long form - short form> | |
8589 | ||
8590 | <STATIC:ASN> | |
8591 | ||
8592 | TempA | |
8593 | ||
8594 | DEFINITIONS ::= | |
8595 | BEGIN | |
8596 | BERPDU ::= [0] EXPLICIT INTEGER | |
8597 | ||
8598 | myIntegerValue BERPDU ::= 128 | |
8599 | ||
8600 | END | |
8601 | ||
8602 | <STATIC> | |
8603 | ||
8604 | import from TempA all; | |
8605 | ||
8606 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8607 | ||
8608 | ||
8609 | <TTCN_TC:EXEC> | |
8610 | ||
8611 | if (dec_BER_PDU('A0810402020080'O) == myIntegerValue) | |
8612 | ||
8613 | ||
8614 | {setverdict(pass);} else {setverdict(fail);} | |
8615 | ||
8616 | ||
8617 | <RESULT> | |
8618 | ||
8619 | Overall verdict: pass | |
8620 | ||
8621 | <END_TC> | |
8622 | ||
8623 | :exmp. | |
8624 | ||
8625 | .*---------------------------------------------------------------------* | |
8626 | :h3. DECODING [0] EXPLICIT INTEGER (128), Long form Long form | |
8627 | .*---------------------------------------------------------------------* | |
8628 | :xmp tab=0. | |
8629 | ||
8630 | <TC - DECODING [0] EXPLICIT INTEGER (128), Long form Long form> | |
8631 | ||
8632 | <STATIC:ASN> | |
8633 | ||
8634 | TempA | |
8635 | ||
8636 | DEFINITIONS ::= | |
8637 | BEGIN | |
8638 | BERPDU ::= [0] EXPLICIT INTEGER | |
8639 | ||
8640 | myIntegerValue BERPDU ::= 128 | |
8641 | ||
8642 | END | |
8643 | ||
8644 | <STATIC> | |
8645 | ||
8646 | import from TempA all; | |
8647 | ||
8648 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8649 | ||
8650 | ||
8651 | <TTCN_TC:EXEC> | |
8652 | ||
8653 | if (dec_BER_PDU('A081050281020080'O) == myIntegerValue) | |
8654 | ||
8655 | ||
8656 | {setverdict(pass);} else {setverdict(fail);} | |
8657 | ||
8658 | ||
8659 | <RESULT> | |
8660 | ||
8661 | Overall verdict: pass | |
8662 | ||
8663 | <END_TC> | |
8664 | ||
8665 | :exmp. | |
8666 | ||
8667 | .*---------------------------------------------------------------------* | |
8668 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Short form - Short form, DER | |
8669 | .*---------------------------------------------------------------------* | |
8670 | :xmp tab=0. | |
8671 | ||
8672 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Short form - Short form, DER> | |
8673 | ||
8674 | <STATIC:ASN> | |
8675 | ||
8676 | TempA | |
8677 | ||
8678 | DEFINITIONS ::= | |
8679 | BEGIN | |
8680 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
8681 | ||
8682 | myIntegerValue BERPDU ::= 128 | |
8683 | ||
8684 | END | |
8685 | ||
8686 | <STATIC> | |
8687 | ||
8688 | import from TempA all; | |
8689 | ||
8690 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8691 | ||
8692 | ||
8693 | <TTCN_TC:EXEC> | |
8694 | ||
8695 | if (dec_BER_PDU('E10402020080'O) == myIntegerValue) | |
8696 | ||
8697 | ||
8698 | {setverdict(pass);} else {setverdict(fail);} | |
8699 | ||
8700 | ||
8701 | <RESULT> | |
8702 | ||
8703 | Overall verdict: pass | |
8704 | ||
8705 | <END_TC> | |
8706 | ||
8707 | :exmp. | |
8708 | ||
8709 | .*---------------------------------------------------------------------* | |
8710 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Short form - long form | |
8711 | .*---------------------------------------------------------------------* | |
8712 | :xmp tab=0. | |
8713 | ||
8714 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Short form - long form> | |
8715 | ||
8716 | <STATIC:ASN> | |
8717 | ||
8718 | TempA | |
8719 | ||
8720 | DEFINITIONS ::= | |
8721 | BEGIN | |
8722 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
8723 | ||
8724 | myIntegerValue BERPDU ::= 128 | |
8725 | ||
8726 | END | |
8727 | ||
8728 | <STATIC> | |
8729 | ||
8730 | import from TempA all; | |
8731 | ||
8732 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8733 | ||
8734 | ||
8735 | <TTCN_TC:EXEC> | |
8736 | ||
8737 | if (dec_BER_PDU('E1050281020080'O) == myIntegerValue) | |
8738 | ||
8739 | ||
8740 | {setverdict(pass);} else {setverdict(fail);} | |
8741 | ||
8742 | ||
8743 | <RESULT> | |
8744 | ||
8745 | Overall verdict: pass | |
8746 | ||
8747 | <END_TC> | |
8748 | ||
8749 | :exmp. | |
8750 | ||
8751 | .*---------------------------------------------------------------------* | |
8752 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Long form - short form | |
8753 | .*---------------------------------------------------------------------* | |
8754 | :xmp tab=0. | |
8755 | ||
8756 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Long form - short form> | |
8757 | ||
8758 | <STATIC:ASN> | |
8759 | ||
8760 | TempA | |
8761 | ||
8762 | DEFINITIONS ::= | |
8763 | BEGIN | |
8764 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
8765 | ||
8766 | myIntegerValue BERPDU ::= 128 | |
8767 | ||
8768 | END | |
8769 | ||
8770 | <STATIC> | |
8771 | ||
8772 | import from TempA all; | |
8773 | ||
8774 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8775 | ||
8776 | ||
8777 | <TTCN_TC:EXEC> | |
8778 | ||
8779 | if (dec_BER_PDU('E1810402020080'O) == myIntegerValue) | |
8780 | ||
8781 | ||
8782 | {setverdict(pass);} else {setverdict(fail);} | |
8783 | ||
8784 | ||
8785 | <RESULT> | |
8786 | ||
8787 | Overall verdict: pass | |
8788 | ||
8789 | <END_TC> | |
8790 | ||
8791 | :exmp. | |
8792 | ||
8793 | .*---------------------------------------------------------------------* | |
8794 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Long form Long form | |
8795 | .*---------------------------------------------------------------------* | |
8796 | :xmp tab=0. | |
8797 | ||
8798 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (128), Long form Long form> | |
8799 | ||
8800 | <STATIC:ASN> | |
8801 | ||
8802 | TempA | |
8803 | ||
8804 | DEFINITIONS ::= | |
8805 | BEGIN | |
8806 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
8807 | ||
8808 | myIntegerValue BERPDU ::= 128 | |
8809 | ||
8810 | END | |
8811 | ||
8812 | <STATIC> | |
8813 | ||
8814 | import from TempA all; | |
8815 | ||
8816 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8817 | ||
8818 | ||
8819 | <TTCN_TC:EXEC> | |
8820 | ||
8821 | if (dec_BER_PDU('E181050281020080'O) == myIntegerValue) | |
8822 | ||
8823 | ||
8824 | {setverdict(pass);} else {setverdict(fail);} | |
8825 | ||
8826 | ||
8827 | <RESULT> | |
8828 | ||
8829 | Overall verdict: pass | |
8830 | ||
8831 | <END_TC> | |
8832 | ||
8833 | :exmp. | |
8834 | ||
8835 | .*---------------------------------------------------------------------* | |
8836 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (128),Indefinite form,CER | |
8837 | .*---------------------------------------------------------------------* | |
8838 | :xmp tab=0. | |
8839 | ||
8840 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (128),Indefinite form,CER> | |
8841 | ||
8842 | <STATIC:ASN> | |
8843 | ||
8844 | TempA | |
8845 | ||
8846 | DEFINITIONS ::= | |
8847 | BEGIN | |
8848 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
8849 | ||
8850 | myIntegerValue BERPDU ::= 128 | |
8851 | ||
8852 | END | |
8853 | ||
8854 | <STATIC> | |
8855 | ||
8856 | import from TempA all; | |
8857 | ||
8858 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8859 | ||
8860 | ||
8861 | <TTCN_TC:EXEC> | |
8862 | ||
8863 | if (dec_BER_PDU('E180020200800000'O) == myIntegerValue) | |
8864 | ||
8865 | ||
8866 | {setverdict(pass);} else {setverdict(fail);} | |
8867 | ||
8868 | ||
8869 | <RESULT> | |
8870 | ||
8871 | Overall verdict: pass | |
8872 | ||
8873 | <END_TC> | |
8874 | ||
8875 | :exmp. | |
8876 | ||
8877 | .*---------------------------------------------------------------------* | |
8878 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Short form - Short form, DER | |
8879 | .*---------------------------------------------------------------------* | |
8880 | :xmp tab=0. | |
8881 | ||
8882 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Short form - Short form, DER> | |
8883 | ||
8884 | <STATIC:ASN> | |
8885 | ||
8886 | TempA | |
8887 | ||
8888 | DEFINITIONS ::= | |
8889 | BEGIN | |
8890 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
8891 | ||
8892 | myIntegerValue BERPDU ::= 128 | |
8893 | ||
8894 | END | |
8895 | ||
8896 | <STATIC> | |
8897 | ||
8898 | import from TempA all; | |
8899 | ||
8900 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8901 | ||
8902 | ||
8903 | <TTCN_TC:EXEC> | |
8904 | ||
8905 | if (dec_BER_PDU('620402020080'O) == myIntegerValue) | |
8906 | ||
8907 | ||
8908 | {setverdict(pass);} else {setverdict(fail);} | |
8909 | ||
8910 | ||
8911 | <RESULT> | |
8912 | ||
8913 | Overall verdict: pass | |
8914 | ||
8915 | <END_TC> | |
8916 | ||
8917 | :exmp. | |
8918 | ||
8919 | .*---------------------------------------------------------------------* | |
8920 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Short form - long form | |
8921 | .*---------------------------------------------------------------------* | |
8922 | :xmp tab=0. | |
8923 | ||
8924 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Short form - long form> | |
8925 | ||
8926 | <STATIC:ASN> | |
8927 | ||
8928 | TempA | |
8929 | ||
8930 | DEFINITIONS ::= | |
8931 | BEGIN | |
8932 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
8933 | ||
8934 | myIntegerValue BERPDU ::= 128 | |
8935 | ||
8936 | END | |
8937 | ||
8938 | <STATIC> | |
8939 | ||
8940 | import from TempA all; | |
8941 | ||
8942 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8943 | ||
8944 | ||
8945 | <TTCN_TC:EXEC> | |
8946 | ||
8947 | if (dec_BER_PDU('62050281020080'O) == myIntegerValue) | |
8948 | ||
8949 | ||
8950 | {setverdict(pass);} else {setverdict(fail);} | |
8951 | ||
8952 | ||
8953 | <RESULT> | |
8954 | ||
8955 | Overall verdict: pass | |
8956 | ||
8957 | <END_TC> | |
8958 | ||
8959 | :exmp. | |
8960 | ||
8961 | .*---------------------------------------------------------------------* | |
8962 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Long form - short form | |
8963 | .*---------------------------------------------------------------------* | |
8964 | :xmp tab=0. | |
8965 | ||
8966 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Long form - short form> | |
8967 | ||
8968 | <STATIC:ASN> | |
8969 | ||
8970 | TempA | |
8971 | ||
8972 | DEFINITIONS ::= | |
8973 | BEGIN | |
8974 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
8975 | ||
8976 | myIntegerValue BERPDU ::= 128 | |
8977 | ||
8978 | END | |
8979 | ||
8980 | <STATIC> | |
8981 | ||
8982 | import from TempA all; | |
8983 | ||
8984 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
8985 | ||
8986 | ||
8987 | <TTCN_TC:EXEC> | |
8988 | ||
8989 | if (dec_BER_PDU('62810402020080'O) == myIntegerValue) | |
8990 | ||
8991 | ||
8992 | {setverdict(pass);} else {setverdict(fail);} | |
8993 | ||
8994 | ||
8995 | <RESULT> | |
8996 | ||
8997 | Overall verdict: pass | |
8998 | ||
8999 | <END_TC> | |
9000 | ||
9001 | :exmp. | |
9002 | ||
9003 | .*---------------------------------------------------------------------* | |
9004 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Long form Long form | |
9005 | .*---------------------------------------------------------------------* | |
9006 | :xmp tab=0. | |
9007 | ||
9008 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (128), Long form Long form> | |
9009 | ||
9010 | <STATIC:ASN> | |
9011 | ||
9012 | TempA | |
9013 | ||
9014 | DEFINITIONS ::= | |
9015 | BEGIN | |
9016 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
9017 | ||
9018 | myIntegerValue BERPDU ::= 128 | |
9019 | ||
9020 | END | |
9021 | ||
9022 | <STATIC> | |
9023 | ||
9024 | import from TempA all; | |
9025 | ||
9026 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9027 | ||
9028 | ||
9029 | <TTCN_TC:EXEC> | |
9030 | ||
9031 | if (dec_BER_PDU('6281050281020080'O) == myIntegerValue) | |
9032 | ||
9033 | ||
9034 | {setverdict(pass);} else {setverdict(fail);} | |
9035 | ||
9036 | ||
9037 | <RESULT> | |
9038 | ||
9039 | Overall verdict: pass | |
9040 | ||
9041 | <END_TC> | |
9042 | ||
9043 | :exmp. | |
9044 | ||
9045 | .*---------------------------------------------------------------------* | |
9046 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (128),Indefinite form,CER | |
9047 | .*---------------------------------------------------------------------* | |
9048 | :xmp tab=0. | |
9049 | ||
9050 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (128),Indefinite form,CER> | |
9051 | ||
9052 | <STATIC:ASN> | |
9053 | ||
9054 | TempA | |
9055 | ||
9056 | DEFINITIONS ::= | |
9057 | BEGIN | |
9058 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
9059 | ||
9060 | myIntegerValue BERPDU ::= 128 | |
9061 | ||
9062 | END | |
9063 | ||
9064 | <STATIC> | |
9065 | ||
9066 | import from TempA all; | |
9067 | ||
9068 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9069 | ||
9070 | ||
9071 | <TTCN_TC:EXEC> | |
9072 | ||
9073 | if (dec_BER_PDU('6280020200800000'O) == myIntegerValue) | |
9074 | ||
9075 | ||
9076 | {setverdict(pass);} else {setverdict(fail);} | |
9077 | ||
9078 | ||
9079 | <RESULT> | |
9080 | ||
9081 | Overall verdict: pass | |
9082 | ||
9083 | <END_TC> | |
9084 | ||
9085 | :exmp. | |
9086 | ||
9087 | .*---------------------------------------------------------------------* | |
9088 | :h3. DECODING [0] IMPLICIT INTEGER (128),Short form CER,DER | |
9089 | .*---------------------------------------------------------------------* | |
9090 | :xmp tab=0. | |
9091 | ||
9092 | <TC - DECODING [0] IMPLICIT INTEGER (128),Short form CER,DER> | |
9093 | ||
9094 | <STATIC:ASN> | |
9095 | ||
9096 | TempA | |
9097 | ||
9098 | DEFINITIONS ::= | |
9099 | BEGIN | |
9100 | BERPDU ::= [0] IMPLICIT INTEGER | |
9101 | ||
9102 | myIntegerValue BERPDU ::= 128 | |
9103 | ||
9104 | END | |
9105 | ||
9106 | <STATIC> | |
9107 | ||
9108 | import from TempA all; | |
9109 | ||
9110 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9111 | ||
9112 | ||
9113 | <TTCN_TC:EXEC> | |
9114 | ||
9115 | if (dec_BER_PDU('80020080'O) == myIntegerValue) | |
9116 | ||
9117 | ||
9118 | {setverdict(pass);} else {setverdict(fail);} | |
9119 | ||
9120 | ||
9121 | <RESULT> | |
9122 | ||
9123 | Overall verdict: pass | |
9124 | ||
9125 | <END_TC> | |
9126 | ||
9127 | :exmp. | |
9128 | ||
9129 | .*---------------------------------------------------------------------* | |
9130 | :h3. DECODING [0] IMPLICIT INTEGER (128),Long form | |
9131 | .*---------------------------------------------------------------------* | |
9132 | :xmp tab=0. | |
9133 | ||
9134 | <TC - DECODING [0] IMPLICIT INTEGER (128),Long form> | |
9135 | ||
9136 | <STATIC:ASN> | |
9137 | ||
9138 | TempA | |
9139 | ||
9140 | DEFINITIONS ::= | |
9141 | BEGIN | |
9142 | BERPDU ::= [0] IMPLICIT INTEGER | |
9143 | ||
9144 | myIntegerValue BERPDU ::= 128 | |
9145 | ||
9146 | END | |
9147 | ||
9148 | <STATIC> | |
9149 | ||
9150 | import from TempA all; | |
9151 | ||
9152 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9153 | ||
9154 | ||
9155 | <TTCN_TC:EXEC> | |
9156 | ||
9157 | if (dec_BER_PDU('8081020080'O) == myIntegerValue) | |
9158 | ||
9159 | ||
9160 | {setverdict(pass);} else {setverdict(fail);} | |
9161 | ||
9162 | ||
9163 | <RESULT> | |
9164 | ||
9165 | Overall verdict: pass | |
9166 | ||
9167 | <END_TC> | |
9168 | ||
9169 | :exmp. | |
9170 | ||
9171 | .*---------------------------------------------------------------------* | |
9172 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (128),Short form CER,DER | |
9173 | .*---------------------------------------------------------------------* | |
9174 | :xmp tab=0. | |
9175 | ||
9176 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (128),Short form CER,DER> | |
9177 | ||
9178 | <STATIC:ASN> | |
9179 | ||
9180 | TempA | |
9181 | ||
9182 | DEFINITIONS ::= | |
9183 | BEGIN | |
9184 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
9185 | ||
9186 | myIntegerValue BERPDU ::= 128 | |
9187 | ||
9188 | END | |
9189 | ||
9190 | <STATIC> | |
9191 | ||
9192 | import from TempA all; | |
9193 | ||
9194 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9195 | ||
9196 | ||
9197 | <TTCN_TC:EXEC> | |
9198 | ||
9199 | if (dec_BER_PDU('C1020080'O) == myIntegerValue) | |
9200 | ||
9201 | ||
9202 | {setverdict(pass);} else {setverdict(fail);} | |
9203 | ||
9204 | ||
9205 | <RESULT> | |
9206 | ||
9207 | Overall verdict: pass | |
9208 | ||
9209 | <END_TC> | |
9210 | ||
9211 | :exmp. | |
9212 | ||
9213 | .*---------------------------------------------------------------------* | |
9214 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (128),Long form | |
9215 | .*---------------------------------------------------------------------* | |
9216 | :xmp tab=0. | |
9217 | ||
9218 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (128),Long form> | |
9219 | ||
9220 | <STATIC:ASN> | |
9221 | ||
9222 | TempA | |
9223 | ||
9224 | DEFINITIONS ::= | |
9225 | BEGIN | |
9226 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
9227 | ||
9228 | myIntegerValue BERPDU ::= 128 | |
9229 | ||
9230 | END | |
9231 | ||
9232 | <STATIC> | |
9233 | ||
9234 | import from TempA all; | |
9235 | ||
9236 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9237 | ||
9238 | ||
9239 | <TTCN_TC:EXEC> | |
9240 | ||
9241 | if (dec_BER_PDU('C181020080'O) == myIntegerValue) | |
9242 | ||
9243 | ||
9244 | {setverdict(pass);} else {setverdict(fail);} | |
9245 | ||
9246 | ||
9247 | <RESULT> | |
9248 | ||
9249 | Overall verdict: pass | |
9250 | ||
9251 | <END_TC> | |
9252 | ||
9253 | :exmp. | |
9254 | ||
9255 | .*---------------------------------------------------------------------* | |
9256 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (128),Short form CER,DER | |
9257 | .*---------------------------------------------------------------------* | |
9258 | :xmp tab=0. | |
9259 | ||
9260 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (128),Short form CER,DER> | |
9261 | ||
9262 | <STATIC:ASN> | |
9263 | ||
9264 | TempA | |
9265 | ||
9266 | DEFINITIONS ::= | |
9267 | BEGIN | |
9268 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
9269 | ||
9270 | myIntegerValue BERPDU ::= 128 | |
9271 | ||
9272 | END | |
9273 | ||
9274 | <STATIC> | |
9275 | ||
9276 | import from TempA all; | |
9277 | ||
9278 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9279 | ||
9280 | ||
9281 | <TTCN_TC:EXEC> | |
9282 | ||
9283 | if (dec_BER_PDU('42020080'O) == myIntegerValue) | |
9284 | ||
9285 | ||
9286 | {setverdict(pass);} else {setverdict(fail);} | |
9287 | ||
9288 | ||
9289 | <RESULT> | |
9290 | ||
9291 | Overall verdict: pass | |
9292 | ||
9293 | <END_TC> | |
9294 | ||
9295 | :exmp. | |
9296 | ||
9297 | .*---------------------------------------------------------------------* | |
9298 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (128),Long form | |
9299 | .*---------------------------------------------------------------------* | |
9300 | :xmp tab=0. | |
9301 | ||
9302 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (128),Long form> | |
9303 | ||
9304 | <STATIC:ASN> | |
9305 | ||
9306 | TempA | |
9307 | ||
9308 | DEFINITIONS ::= | |
9309 | BEGIN | |
9310 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
9311 | ||
9312 | myIntegerValue BERPDU ::= 128 | |
9313 | ||
9314 | END | |
9315 | ||
9316 | <STATIC> | |
9317 | ||
9318 | import from TempA all; | |
9319 | ||
9320 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9321 | ||
9322 | ||
9323 | <TTCN_TC:EXEC> | |
9324 | ||
9325 | if (dec_BER_PDU('4281020080'O) == myIntegerValue) | |
9326 | ||
9327 | ||
9328 | {setverdict(pass);} else {setverdict(fail);} | |
9329 | ||
9330 | ||
9331 | <RESULT> | |
9332 | ||
9333 | Overall verdict: pass | |
9334 | ||
9335 | <END_TC> | |
9336 | ||
9337 | :exmp. | |
9338 | ||
9339 | .*---------------------------------------------------------------------* | |
9340 | :h3. DECODING INTEGER (-129), CER+DER | |
9341 | .*---------------------------------------------------------------------* | |
9342 | :xmp tab=0. | |
9343 | ||
9344 | <TC - DECODING INTEGER (-129), CER+DER> | |
9345 | ||
9346 | <STATIC:ASN> | |
9347 | ||
9348 | TempA | |
9349 | ||
9350 | DEFINITIONS ::= | |
9351 | BEGIN | |
9352 | BERPDU ::= INTEGER | |
9353 | ||
9354 | myIntegerValue BERPDU ::= -129 | |
9355 | ||
9356 | END | |
9357 | ||
9358 | <STATIC> | |
9359 | ||
9360 | import from TempA all; | |
9361 | ||
9362 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9363 | ||
9364 | ||
9365 | <TTCN_TC:EXEC> | |
9366 | ||
9367 | if (dec_BER_PDU('0202FF7F'O) == myIntegerValue) | |
9368 | ||
9369 | ||
9370 | {setverdict(pass);} else {setverdict(fail);} | |
9371 | ||
9372 | ||
9373 | <RESULT> | |
9374 | ||
9375 | Overall verdict: pass | |
9376 | ||
9377 | <END_TC> | |
9378 | ||
9379 | :exmp. | |
9380 | ||
9381 | .*---------------------------------------------------------------------* | |
9382 | :h3. DECODING INTEGER (-129), (LENGTH OF LENGTH = 1) | |
9383 | .*---------------------------------------------------------------------* | |
9384 | :xmp tab=0. | |
9385 | ||
9386 | <TC - DECODING INTEGER (-129), (LENGTH OF LENGTH = 1)> | |
9387 | ||
9388 | <STATIC:ASN> | |
9389 | ||
9390 | TempA | |
9391 | ||
9392 | DEFINITIONS ::= | |
9393 | BEGIN | |
9394 | BERPDU ::= INTEGER | |
9395 | ||
9396 | myIntegerValue BERPDU ::= -129 | |
9397 | ||
9398 | END | |
9399 | ||
9400 | <STATIC> | |
9401 | ||
9402 | import from TempA all; | |
9403 | ||
9404 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9405 | ||
9406 | ||
9407 | <TTCN_TC:EXEC> | |
9408 | ||
9409 | if (dec_BER_PDU('028102FF7F'O) == myIntegerValue) | |
9410 | ||
9411 | ||
9412 | {setverdict(pass);} else {setverdict(fail);} | |
9413 | ||
9414 | ||
9415 | <RESULT> | |
9416 | ||
9417 | Overall verdict: pass | |
9418 | ||
9419 | <END_TC> | |
9420 | ||
9421 | :exmp. | |
9422 | ||
9423 | .*---------------------------------------------------------------------* | |
9424 | :h3. DECODING INTEGER (-129), (LENGTH OF LENGTH = 2) | |
9425 | .*---------------------------------------------------------------------* | |
9426 | :xmp tab=0. | |
9427 | ||
9428 | <TC - DECODING INTEGER (-129), (LENGTH OF LENGTH = 2)> | |
9429 | ||
9430 | <STATIC:ASN> | |
9431 | ||
9432 | TempA | |
9433 | ||
9434 | DEFINITIONS ::= | |
9435 | BEGIN | |
9436 | BERPDU ::= INTEGER | |
9437 | ||
9438 | myIntegerValue BERPDU ::= -129 | |
9439 | ||
9440 | END | |
9441 | ||
9442 | <STATIC> | |
9443 | ||
9444 | import from TempA all; | |
9445 | ||
9446 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9447 | ||
9448 | ||
9449 | <TTCN_TC:EXEC> | |
9450 | ||
9451 | if (dec_BER_PDU('02820002FF7F'O) == myIntegerValue) | |
9452 | ||
9453 | ||
9454 | {setverdict(pass);} else {setverdict(fail);} | |
9455 | ||
9456 | ||
9457 | <RESULT> | |
9458 | ||
9459 | Overall verdict: pass | |
9460 | ||
9461 | <END_TC> | |
9462 | ||
9463 | :exmp. | |
9464 | ||
9465 | .*---------------------------------------------------------------------* | |
9466 | :h3. DECODING [0] EXPLICIT INTEGER (-129), DER | |
9467 | .*---------------------------------------------------------------------* | |
9468 | :xmp tab=0. | |
9469 | ||
9470 | <TC - DECODING [0] EXPLICIT INTEGER (-129), DER> | |
9471 | ||
9472 | <STATIC:ASN> | |
9473 | ||
9474 | TempA | |
9475 | ||
9476 | DEFINITIONS ::= | |
9477 | BEGIN | |
9478 | BERPDU ::= [0] EXPLICIT INTEGER | |
9479 | ||
9480 | myIntegerValue BERPDU ::= -129 | |
9481 | ||
9482 | END | |
9483 | ||
9484 | <STATIC> | |
9485 | ||
9486 | import from TempA all; | |
9487 | ||
9488 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9489 | ||
9490 | ||
9491 | <TTCN_TC:EXEC> | |
9492 | ||
9493 | if (dec_BER_PDU('A0040202FF7F'O) == myIntegerValue) | |
9494 | ||
9495 | ||
9496 | {setverdict(pass);} else {setverdict(fail);} | |
9497 | ||
9498 | ||
9499 | <RESULT> | |
9500 | ||
9501 | Overall verdict: pass | |
9502 | ||
9503 | <END_TC> | |
9504 | ||
9505 | :exmp. | |
9506 | ||
9507 | .*---------------------------------------------------------------------* | |
9508 | :h3. DECODING [0] EXPLICIT INTEGER (-129), CER | |
9509 | .*---------------------------------------------------------------------* | |
9510 | :xmp tab=0. | |
9511 | ||
9512 | <TC - DECODING [0] EXPLICIT INTEGER (-129), CER> | |
9513 | ||
9514 | <STATIC:ASN> | |
9515 | ||
9516 | TempA | |
9517 | ||
9518 | DEFINITIONS ::= | |
9519 | BEGIN | |
9520 | BERPDU ::= [0] EXPLICIT INTEGER | |
9521 | ||
9522 | myIntegerValue BERPDU ::= -129 | |
9523 | ||
9524 | END | |
9525 | ||
9526 | <STATIC> | |
9527 | ||
9528 | import from TempA all; | |
9529 | ||
9530 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9531 | ||
9532 | ||
9533 | <TTCN_TC:EXEC> | |
9534 | ||
9535 | if (dec_BER_PDU('A0800202FF7F0000'O) == myIntegerValue) | |
9536 | ||
9537 | ||
9538 | {setverdict(pass);} else {setverdict(fail);} | |
9539 | ||
9540 | ||
9541 | <RESULT> | |
9542 | ||
9543 | Overall verdict: pass | |
9544 | ||
9545 | <END_TC> | |
9546 | ||
9547 | :exmp. | |
9548 | ||
9549 | .*---------------------------------------------------------------------* | |
9550 | :h3. DECODING [0] EXPLICIT INTEGER (-129), Short form - long form | |
9551 | .*---------------------------------------------------------------------* | |
9552 | :xmp tab=0. | |
9553 | ||
9554 | <TC - DECODING [0] EXPLICIT INTEGER (-129), Short form - long form> | |
9555 | ||
9556 | <STATIC:ASN> | |
9557 | ||
9558 | TempA | |
9559 | ||
9560 | DEFINITIONS ::= | |
9561 | BEGIN | |
9562 | BERPDU ::= [0] EXPLICIT INTEGER | |
9563 | ||
9564 | myIntegerValue BERPDU ::= -129 | |
9565 | ||
9566 | END | |
9567 | ||
9568 | <STATIC> | |
9569 | ||
9570 | import from TempA all; | |
9571 | ||
9572 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9573 | ||
9574 | ||
9575 | <TTCN_TC:EXEC> | |
9576 | ||
9577 | if (dec_BER_PDU('A0040202FF7F'O) == myIntegerValue) | |
9578 | ||
9579 | ||
9580 | {setverdict(pass);} else {setverdict(fail);} | |
9581 | ||
9582 | ||
9583 | <RESULT> | |
9584 | ||
9585 | Overall verdict: pass | |
9586 | ||
9587 | <END_TC> | |
9588 | ||
9589 | :exmp. | |
9590 | ||
9591 | .*---------------------------------------------------------------------* | |
9592 | :h3. DECODING [0] EXPLICIT INTEGER (-129), Long form - short form | |
9593 | .*---------------------------------------------------------------------* | |
9594 | :xmp tab=0. | |
9595 | ||
9596 | <TC - DECODING [0] EXPLICIT INTEGER (-129), Long form - short form> | |
9597 | ||
9598 | <STATIC:ASN> | |
9599 | ||
9600 | TempA | |
9601 | ||
9602 | DEFINITIONS ::= | |
9603 | BEGIN | |
9604 | BERPDU ::= [0] EXPLICIT INTEGER | |
9605 | ||
9606 | myIntegerValue BERPDU ::= -129 | |
9607 | ||
9608 | END | |
9609 | ||
9610 | <STATIC> | |
9611 | ||
9612 | import from TempA all; | |
9613 | ||
9614 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9615 | ||
9616 | ||
9617 | <TTCN_TC:EXEC> | |
9618 | ||
9619 | if (dec_BER_PDU('A081040202FF7F'O) == myIntegerValue) | |
9620 | ||
9621 | ||
9622 | {setverdict(pass);} else {setverdict(fail);} | |
9623 | ||
9624 | ||
9625 | <RESULT> | |
9626 | ||
9627 | Overall verdict: pass | |
9628 | ||
9629 | <END_TC> | |
9630 | ||
9631 | :exmp. | |
9632 | ||
9633 | .*---------------------------------------------------------------------* | |
9634 | :h3. DECODING [0] EXPLICIT INTEGER (-129), Long form Long form | |
9635 | .*---------------------------------------------------------------------* | |
9636 | :xmp tab=0. | |
9637 | ||
9638 | <TC - DECODING [0] EXPLICIT INTEGER (-129), Long form Long form> | |
9639 | ||
9640 | <STATIC:ASN> | |
9641 | ||
9642 | TempA | |
9643 | ||
9644 | DEFINITIONS ::= | |
9645 | BEGIN | |
9646 | BERPDU ::= [0] EXPLICIT INTEGER | |
9647 | ||
9648 | myIntegerValue BERPDU ::= -129 | |
9649 | ||
9650 | END | |
9651 | ||
9652 | <STATIC> | |
9653 | ||
9654 | import from TempA all; | |
9655 | ||
9656 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9657 | ||
9658 | ||
9659 | <TTCN_TC:EXEC> | |
9660 | ||
9661 | if (dec_BER_PDU('A08105028102FF7F'O) == myIntegerValue) | |
9662 | ||
9663 | ||
9664 | {setverdict(pass);} else {setverdict(fail);} | |
9665 | ||
9666 | ||
9667 | <RESULT> | |
9668 | ||
9669 | Overall verdict: pass | |
9670 | ||
9671 | <END_TC> | |
9672 | ||
9673 | :exmp. | |
9674 | ||
9675 | .*---------------------------------------------------------------------* | |
9676 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Short form - Short form, DER | |
9677 | .*---------------------------------------------------------------------* | |
9678 | :xmp tab=0. | |
9679 | ||
9680 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Short form - Short form, DER> | |
9681 | ||
9682 | <STATIC:ASN> | |
9683 | ||
9684 | TempA | |
9685 | ||
9686 | DEFINITIONS ::= | |
9687 | BEGIN | |
9688 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
9689 | ||
9690 | myIntegerValue BERPDU ::= -129 | |
9691 | ||
9692 | END | |
9693 | ||
9694 | <STATIC> | |
9695 | ||
9696 | import from TempA all; | |
9697 | ||
9698 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9699 | ||
9700 | ||
9701 | <TTCN_TC:EXEC> | |
9702 | ||
9703 | if (dec_BER_PDU('E1040202FF7F'O) == myIntegerValue) | |
9704 | ||
9705 | ||
9706 | {setverdict(pass);} else {setverdict(fail);} | |
9707 | ||
9708 | ||
9709 | <RESULT> | |
9710 | ||
9711 | Overall verdict: pass | |
9712 | ||
9713 | <END_TC> | |
9714 | ||
9715 | :exmp. | |
9716 | ||
9717 | .*---------------------------------------------------------------------* | |
9718 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Short form - long form | |
9719 | .*---------------------------------------------------------------------* | |
9720 | :xmp tab=0. | |
9721 | ||
9722 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Short form - long form> | |
9723 | ||
9724 | <STATIC:ASN> | |
9725 | ||
9726 | TempA | |
9727 | ||
9728 | DEFINITIONS ::= | |
9729 | BEGIN | |
9730 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
9731 | ||
9732 | myIntegerValue BERPDU ::= -129 | |
9733 | ||
9734 | END | |
9735 | ||
9736 | <STATIC> | |
9737 | ||
9738 | import from TempA all; | |
9739 | ||
9740 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9741 | ||
9742 | ||
9743 | <TTCN_TC:EXEC> | |
9744 | ||
9745 | if (dec_BER_PDU('E105028102FF7F'O) == myIntegerValue) | |
9746 | ||
9747 | ||
9748 | {setverdict(pass);} else {setverdict(fail);} | |
9749 | ||
9750 | ||
9751 | <RESULT> | |
9752 | ||
9753 | Overall verdict: pass | |
9754 | ||
9755 | <END_TC> | |
9756 | ||
9757 | :exmp. | |
9758 | ||
9759 | .*---------------------------------------------------------------------* | |
9760 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Long form - short form | |
9761 | .*---------------------------------------------------------------------* | |
9762 | :xmp tab=0. | |
9763 | ||
9764 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Long form - short form> | |
9765 | ||
9766 | <STATIC:ASN> | |
9767 | ||
9768 | TempA | |
9769 | ||
9770 | DEFINITIONS ::= | |
9771 | BEGIN | |
9772 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
9773 | ||
9774 | myIntegerValue BERPDU ::= -129 | |
9775 | ||
9776 | END | |
9777 | ||
9778 | <STATIC> | |
9779 | ||
9780 | import from TempA all; | |
9781 | ||
9782 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9783 | ||
9784 | ||
9785 | <TTCN_TC:EXEC> | |
9786 | ||
9787 | if (dec_BER_PDU('E181040202FF7F'O) == myIntegerValue) | |
9788 | ||
9789 | ||
9790 | {setverdict(pass);} else {setverdict(fail);} | |
9791 | ||
9792 | ||
9793 | <RESULT> | |
9794 | ||
9795 | Overall verdict: pass | |
9796 | ||
9797 | <END_TC> | |
9798 | ||
9799 | :exmp. | |
9800 | ||
9801 | .*---------------------------------------------------------------------* | |
9802 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Long form Long form | |
9803 | .*---------------------------------------------------------------------* | |
9804 | :xmp tab=0. | |
9805 | ||
9806 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-129), Long form Long form> | |
9807 | ||
9808 | <STATIC:ASN> | |
9809 | ||
9810 | TempA | |
9811 | ||
9812 | DEFINITIONS ::= | |
9813 | BEGIN | |
9814 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
9815 | ||
9816 | myIntegerValue BERPDU ::= -129 | |
9817 | ||
9818 | END | |
9819 | ||
9820 | <STATIC> | |
9821 | ||
9822 | import from TempA all; | |
9823 | ||
9824 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9825 | ||
9826 | ||
9827 | <TTCN_TC:EXEC> | |
9828 | ||
9829 | if (dec_BER_PDU('E18105028102FF7F'O) == myIntegerValue) | |
9830 | ||
9831 | ||
9832 | {setverdict(pass);} else {setverdict(fail);} | |
9833 | ||
9834 | ||
9835 | <RESULT> | |
9836 | ||
9837 | Overall verdict: pass | |
9838 | ||
9839 | <END_TC> | |
9840 | ||
9841 | :exmp. | |
9842 | ||
9843 | .*---------------------------------------------------------------------* | |
9844 | :h3. DECODING [PRIVATE 1] EXPLICIT INTEGER (-129),Indefinite form,CER | |
9845 | .*---------------------------------------------------------------------* | |
9846 | :xmp tab=0. | |
9847 | ||
9848 | <TC - DECODING [PRIVATE 1] EXPLICIT INTEGER (-129),Indefinite form,CER> | |
9849 | ||
9850 | <STATIC:ASN> | |
9851 | ||
9852 | TempA | |
9853 | ||
9854 | DEFINITIONS ::= | |
9855 | BEGIN | |
9856 | BERPDU ::= [PRIVATE 1] EXPLICIT INTEGER | |
9857 | ||
9858 | myIntegerValue BERPDU ::= -129 | |
9859 | ||
9860 | END | |
9861 | ||
9862 | <STATIC> | |
9863 | ||
9864 | import from TempA all; | |
9865 | ||
9866 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9867 | ||
9868 | ||
9869 | <TTCN_TC:EXEC> | |
9870 | ||
9871 | if (dec_BER_PDU('E1800202FF7F0000'O) == myIntegerValue) | |
9872 | ||
9873 | ||
9874 | {setverdict(pass);} else {setverdict(fail);} | |
9875 | ||
9876 | ||
9877 | <RESULT> | |
9878 | ||
9879 | Overall verdict: pass | |
9880 | ||
9881 | <END_TC> | |
9882 | ||
9883 | :exmp. | |
9884 | ||
9885 | .*---------------------------------------------------------------------* | |
9886 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Short form - Short form, DER | |
9887 | .*---------------------------------------------------------------------* | |
9888 | :xmp tab=0. | |
9889 | ||
9890 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Short form - Short form, DER> | |
9891 | ||
9892 | <STATIC:ASN> | |
9893 | ||
9894 | TempA | |
9895 | ||
9896 | DEFINITIONS ::= | |
9897 | BEGIN | |
9898 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
9899 | ||
9900 | myIntegerValue BERPDU ::= -129 | |
9901 | ||
9902 | END | |
9903 | ||
9904 | <STATIC> | |
9905 | ||
9906 | import from TempA all; | |
9907 | ||
9908 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9909 | ||
9910 | ||
9911 | <TTCN_TC:EXEC> | |
9912 | ||
9913 | if (dec_BER_PDU('62040202FF7F'O) == myIntegerValue) | |
9914 | ||
9915 | ||
9916 | {setverdict(pass);} else {setverdict(fail);} | |
9917 | ||
9918 | ||
9919 | <RESULT> | |
9920 | ||
9921 | Overall verdict: pass | |
9922 | ||
9923 | <END_TC> | |
9924 | ||
9925 | :exmp. | |
9926 | ||
9927 | .*---------------------------------------------------------------------* | |
9928 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Short form - long form | |
9929 | .*---------------------------------------------------------------------* | |
9930 | :xmp tab=0. | |
9931 | ||
9932 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Short form - long form> | |
9933 | ||
9934 | <STATIC:ASN> | |
9935 | ||
9936 | TempA | |
9937 | ||
9938 | DEFINITIONS ::= | |
9939 | BEGIN | |
9940 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
9941 | ||
9942 | myIntegerValue BERPDU ::= -129 | |
9943 | ||
9944 | END | |
9945 | ||
9946 | <STATIC> | |
9947 | ||
9948 | import from TempA all; | |
9949 | ||
9950 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9951 | ||
9952 | ||
9953 | <TTCN_TC:EXEC> | |
9954 | ||
9955 | if (dec_BER_PDU('6205028102FF7F'O) == myIntegerValue) | |
9956 | ||
9957 | ||
9958 | {setverdict(pass);} else {setverdict(fail);} | |
9959 | ||
9960 | ||
9961 | <RESULT> | |
9962 | ||
9963 | Overall verdict: pass | |
9964 | ||
9965 | <END_TC> | |
9966 | ||
9967 | :exmp. | |
9968 | ||
9969 | .*---------------------------------------------------------------------* | |
9970 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Long form - short form | |
9971 | .*---------------------------------------------------------------------* | |
9972 | :xmp tab=0. | |
9973 | ||
9974 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Long form - short form> | |
9975 | ||
9976 | <STATIC:ASN> | |
9977 | ||
9978 | TempA | |
9979 | ||
9980 | DEFINITIONS ::= | |
9981 | BEGIN | |
9982 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
9983 | ||
9984 | myIntegerValue BERPDU ::= -129 | |
9985 | ||
9986 | END | |
9987 | ||
9988 | <STATIC> | |
9989 | ||
9990 | import from TempA all; | |
9991 | ||
9992 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
9993 | ||
9994 | ||
9995 | <TTCN_TC:EXEC> | |
9996 | ||
9997 | if (dec_BER_PDU('6281040202FF7F'O) == myIntegerValue) | |
9998 | ||
9999 | ||
10000 | {setverdict(pass);} else {setverdict(fail);} | |
10001 | ||
10002 | ||
10003 | <RESULT> | |
10004 | ||
10005 | Overall verdict: pass | |
10006 | ||
10007 | <END_TC> | |
10008 | ||
10009 | :exmp. | |
10010 | ||
10011 | .*---------------------------------------------------------------------* | |
10012 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Long form Long form | |
10013 | .*---------------------------------------------------------------------* | |
10014 | :xmp tab=0. | |
10015 | ||
10016 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-129), Long form Long form> | |
10017 | ||
10018 | <STATIC:ASN> | |
10019 | ||
10020 | TempA | |
10021 | ||
10022 | DEFINITIONS ::= | |
10023 | BEGIN | |
10024 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
10025 | ||
10026 | myIntegerValue BERPDU ::= -129 | |
10027 | ||
10028 | END | |
10029 | ||
10030 | <STATIC> | |
10031 | ||
10032 | import from TempA all; | |
10033 | ||
10034 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10035 | ||
10036 | ||
10037 | <TTCN_TC:EXEC> | |
10038 | ||
10039 | if (dec_BER_PDU('628105028102FF7F'O) == myIntegerValue) | |
10040 | ||
10041 | ||
10042 | {setverdict(pass);} else {setverdict(fail);} | |
10043 | ||
10044 | ||
10045 | <RESULT> | |
10046 | ||
10047 | Overall verdict: pass | |
10048 | ||
10049 | <END_TC> | |
10050 | ||
10051 | :exmp. | |
10052 | ||
10053 | .*---------------------------------------------------------------------* | |
10054 | :h3. DECODING [APPLICATION 2] EXPLICIT INTEGER (-129),Indefinite form,CER | |
10055 | .*---------------------------------------------------------------------* | |
10056 | :xmp tab=0. | |
10057 | ||
10058 | <TC - DECODING [APPLICATION 2] EXPLICIT INTEGER (-129),Indefinite form,CER> | |
10059 | ||
10060 | <STATIC:ASN> | |
10061 | ||
10062 | TempA | |
10063 | ||
10064 | DEFINITIONS ::= | |
10065 | BEGIN | |
10066 | BERPDU ::= [APPLICATION 2] EXPLICIT INTEGER | |
10067 | ||
10068 | myIntegerValue BERPDU ::= -129 | |
10069 | ||
10070 | END | |
10071 | ||
10072 | <STATIC> | |
10073 | ||
10074 | import from TempA all; | |
10075 | ||
10076 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10077 | ||
10078 | ||
10079 | <TTCN_TC:EXEC> | |
10080 | ||
10081 | if (dec_BER_PDU('62800202FF7F0000'O) == myIntegerValue) | |
10082 | ||
10083 | ||
10084 | {setverdict(pass);} else {setverdict(fail);} | |
10085 | ||
10086 | ||
10087 | <RESULT> | |
10088 | ||
10089 | Overall verdict: pass | |
10090 | ||
10091 | <END_TC> | |
10092 | ||
10093 | :exmp. | |
10094 | ||
10095 | .*---------------------------------------------------------------------* | |
10096 | :h3. DECODING [0] IMPLICIT INTEGER (-129),Short form CER,DER | |
10097 | .*---------------------------------------------------------------------* | |
10098 | :xmp tab=0. | |
10099 | ||
10100 | <TC - DECODING [0] IMPLICIT INTEGER (-129),Short form CER,DER> | |
10101 | ||
10102 | <STATIC:ASN> | |
10103 | ||
10104 | TempA | |
10105 | ||
10106 | DEFINITIONS ::= | |
10107 | BEGIN | |
10108 | BERPDU ::= [0] IMPLICIT INTEGER | |
10109 | ||
10110 | myIntegerValue BERPDU ::= -129 | |
10111 | ||
10112 | END | |
10113 | ||
10114 | <STATIC> | |
10115 | ||
10116 | import from TempA all; | |
10117 | ||
10118 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10119 | ||
10120 | ||
10121 | <TTCN_TC:EXEC> | |
10122 | ||
10123 | if (dec_BER_PDU('8002FF7F'O) == myIntegerValue) | |
10124 | ||
10125 | ||
10126 | {setverdict(pass);} else {setverdict(fail);} | |
10127 | ||
10128 | ||
10129 | <RESULT> | |
10130 | ||
10131 | Overall verdict: pass | |
10132 | ||
10133 | <END_TC> | |
10134 | ||
10135 | :exmp. | |
10136 | ||
10137 | .*---------------------------------------------------------------------* | |
10138 | :h3. DECODING [0] IMPLICIT INTEGER (-129),Long form | |
10139 | .*---------------------------------------------------------------------* | |
10140 | :xmp tab=0. | |
10141 | ||
10142 | <TC - DECODING [0] IMPLICIT INTEGER (-129),Long form> | |
10143 | ||
10144 | <STATIC:ASN> | |
10145 | ||
10146 | TempA | |
10147 | ||
10148 | DEFINITIONS ::= | |
10149 | BEGIN | |
10150 | BERPDU ::= [0] IMPLICIT INTEGER | |
10151 | ||
10152 | myIntegerValue BERPDU ::= -129 | |
10153 | ||
10154 | END | |
10155 | ||
10156 | <STATIC> | |
10157 | ||
10158 | import from TempA all; | |
10159 | ||
10160 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10161 | ||
10162 | ||
10163 | <TTCN_TC:EXEC> | |
10164 | ||
10165 | if (dec_BER_PDU('808102FF7F'O) == myIntegerValue) | |
10166 | ||
10167 | ||
10168 | {setverdict(pass);} else {setverdict(fail);} | |
10169 | ||
10170 | ||
10171 | <RESULT> | |
10172 | ||
10173 | Overall verdict: pass | |
10174 | ||
10175 | <END_TC> | |
10176 | ||
10177 | :exmp. | |
10178 | ||
10179 | .*---------------------------------------------------------------------* | |
10180 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-129),Short form CER,DER | |
10181 | .*---------------------------------------------------------------------* | |
10182 | :xmp tab=0. | |
10183 | ||
10184 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-129),Short form CER,DER> | |
10185 | ||
10186 | <STATIC:ASN> | |
10187 | ||
10188 | TempA | |
10189 | ||
10190 | DEFINITIONS ::= | |
10191 | BEGIN | |
10192 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
10193 | ||
10194 | myIntegerValue BERPDU ::= -129 | |
10195 | ||
10196 | END | |
10197 | ||
10198 | <STATIC> | |
10199 | ||
10200 | import from TempA all; | |
10201 | ||
10202 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10203 | ||
10204 | ||
10205 | <TTCN_TC:EXEC> | |
10206 | ||
10207 | if (dec_BER_PDU('C102FF7F'O) == myIntegerValue) | |
10208 | ||
10209 | ||
10210 | {setverdict(pass);} else {setverdict(fail);} | |
10211 | ||
10212 | ||
10213 | <RESULT> | |
10214 | ||
10215 | Overall verdict: pass | |
10216 | ||
10217 | <END_TC> | |
10218 | ||
10219 | :exmp. | |
10220 | ||
10221 | .*---------------------------------------------------------------------* | |
10222 | :h3. DECODING [PRIVATE 1] IMPLICIT INTEGER (-129),Long form | |
10223 | .*---------------------------------------------------------------------* | |
10224 | :xmp tab=0. | |
10225 | ||
10226 | <TC - DECODING [PRIVATE 1] IMPLICIT INTEGER (-129),Long form> | |
10227 | ||
10228 | <STATIC:ASN> | |
10229 | ||
10230 | TempA | |
10231 | ||
10232 | DEFINITIONS ::= | |
10233 | BEGIN | |
10234 | BERPDU ::= [PRIVATE 1] IMPLICIT INTEGER | |
10235 | ||
10236 | myIntegerValue BERPDU ::= -129 | |
10237 | ||
10238 | END | |
10239 | ||
10240 | <STATIC> | |
10241 | ||
10242 | import from TempA all; | |
10243 | ||
10244 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10245 | ||
10246 | ||
10247 | <TTCN_TC:EXEC> | |
10248 | ||
10249 | if (dec_BER_PDU('C18102FF7F'O) == myIntegerValue) | |
10250 | ||
10251 | ||
10252 | {setverdict(pass);} else {setverdict(fail);} | |
10253 | ||
10254 | ||
10255 | <RESULT> | |
10256 | ||
10257 | Overall verdict: pass | |
10258 | ||
10259 | <END_TC> | |
10260 | ||
10261 | :exmp. | |
10262 | ||
10263 | .*---------------------------------------------------------------------* | |
10264 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-129),Short form CER,DER | |
10265 | .*---------------------------------------------------------------------* | |
10266 | :xmp tab=0. | |
10267 | ||
10268 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-129),Short form CER,DER> | |
10269 | ||
10270 | <STATIC:ASN> | |
10271 | ||
10272 | TempA | |
10273 | ||
10274 | DEFINITIONS ::= | |
10275 | BEGIN | |
10276 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
10277 | ||
10278 | myIntegerValue BERPDU ::= -129 | |
10279 | ||
10280 | END | |
10281 | ||
10282 | <STATIC> | |
10283 | ||
10284 | import from TempA all; | |
10285 | ||
10286 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10287 | ||
10288 | ||
10289 | <TTCN_TC:EXEC> | |
10290 | ||
10291 | if (dec_BER_PDU('4202FF7F'O) == myIntegerValue) | |
10292 | ||
10293 | ||
10294 | {setverdict(pass);} else {setverdict(fail);} | |
10295 | ||
10296 | ||
10297 | <RESULT> | |
10298 | ||
10299 | Overall verdict: pass | |
10300 | ||
10301 | <END_TC> | |
10302 | ||
10303 | :exmp. | |
10304 | ||
10305 | .*---------------------------------------------------------------------* | |
10306 | :h3. DECODING [APPLICATION 2] IMPLICIT INTEGER (-129),Long form | |
10307 | .*---------------------------------------------------------------------* | |
10308 | :xmp tab=0. | |
10309 | ||
10310 | <TC - DECODING [APPLICATION 2] IMPLICIT INTEGER (-129),Long form> | |
10311 | ||
10312 | <STATIC:ASN> | |
10313 | ||
10314 | TempA | |
10315 | ||
10316 | DEFINITIONS ::= | |
10317 | BEGIN | |
10318 | BERPDU ::= [APPLICATION 2] IMPLICIT INTEGER | |
10319 | ||
10320 | myIntegerValue BERPDU ::= -129 | |
10321 | ||
10322 | END | |
10323 | ||
10324 | <STATIC> | |
10325 | ||
10326 | import from TempA all; | |
10327 | ||
10328 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10329 | ||
10330 | ||
10331 | <TTCN_TC:EXEC> | |
10332 | ||
10333 | if (dec_BER_PDU('428102FF7F'O) == myIntegerValue) | |
10334 | ||
10335 | ||
10336 | {setverdict(pass);} else {setverdict(fail);} | |
10337 | ||
10338 | ||
10339 | <RESULT> | |
10340 | ||
10341 | Overall verdict: pass | |
10342 | ||
10343 | <END_TC> | |
10344 | ||
10345 | :exmp. | |
10346 | ||
10347 | .*---------------------------------------------------------------------* | |
10348 | :h3. DECODING DER integer (5) with Context Specific TAG = 30 | |
10349 | .*---------------------------------------------------------------------* | |
10350 | :xmp tab=0. | |
10351 | ||
10352 | <TC - DECODING DER integer (5) with Context Specific TAG = 30> | |
10353 | ||
10354 | <STATIC:ASN> | |
10355 | ||
10356 | TempA | |
10357 | ||
10358 | DEFINITIONS ::= | |
10359 | BEGIN | |
10360 | BERPDU ::= [30] EXPLICIT INTEGER | |
10361 | ||
10362 | myIntegerValue BERPDU ::= 5 | |
10363 | ||
10364 | END | |
10365 | ||
10366 | <STATIC> | |
10367 | ||
10368 | import from TempA all; | |
10369 | ||
10370 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10371 | ||
10372 | ||
10373 | <TTCN_TC:EXEC> | |
10374 | ||
10375 | if (dec_BER_PDU('BE03020105'O) == myIntegerValue) | |
10376 | ||
10377 | ||
10378 | {setverdict(pass);} else {setverdict(fail);} | |
10379 | ||
10380 | ||
10381 | <RESULT> | |
10382 | ||
10383 | Overall verdict: pass | |
10384 | ||
10385 | <END_TC> | |
10386 | ||
10387 | :exmp. | |
10388 | ||
10389 | .*---------------------------------------------------------------------* | |
10390 | :h3. DECODING CER integer (5) with Context Specific TAG = 30 | |
10391 | .*---------------------------------------------------------------------* | |
10392 | :xmp tab=0. | |
10393 | ||
10394 | <TC - DECODING CER integer (5) with Context Specific TAG = 30> | |
10395 | ||
10396 | <STATIC:ASN> | |
10397 | ||
10398 | TempA | |
10399 | ||
10400 | DEFINITIONS ::= | |
10401 | BEGIN | |
10402 | BERPDU ::= [30] EXPLICIT INTEGER | |
10403 | ||
10404 | myIntegerValue BERPDU ::= 5 | |
10405 | ||
10406 | END | |
10407 | ||
10408 | <STATIC> | |
10409 | ||
10410 | import from TempA all; | |
10411 | ||
10412 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10413 | ||
10414 | ||
10415 | <TTCN_TC:EXEC> | |
10416 | ||
10417 | if (dec_BER_PDU('BE800201050000'O) == myIntegerValue) | |
10418 | ||
10419 | ||
10420 | {setverdict(pass);} else {setverdict(fail);} | |
10421 | ||
10422 | ||
10423 | <RESULT> | |
10424 | ||
10425 | Overall verdict: pass | |
10426 | ||
10427 | <END_TC> | |
10428 | ||
10429 | :exmp. | |
10430 | ||
10431 | .*---------------------------------------------------------------------* | |
10432 | :h3. DECODING DER integer (5) with Context Specific TAG = 31 | |
10433 | .*---------------------------------------------------------------------* | |
10434 | :xmp tab=0. | |
10435 | ||
10436 | <TC - DECODING DER integer (5) with Context Specific TAG = 31> | |
10437 | ||
10438 | <STATIC:ASN> | |
10439 | ||
10440 | TempA | |
10441 | ||
10442 | DEFINITIONS ::= | |
10443 | BEGIN | |
10444 | BERPDU ::= [31] EXPLICIT INTEGER | |
10445 | ||
10446 | myIntegerValue BERPDU ::= 5 | |
10447 | ||
10448 | END | |
10449 | ||
10450 | <STATIC> | |
10451 | ||
10452 | import from TempA all; | |
10453 | ||
10454 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10455 | ||
10456 | ||
10457 | <TTCN_TC:EXEC> | |
10458 | ||
10459 | if (dec_BER_PDU('BF1F03020105'O) == myIntegerValue) | |
10460 | ||
10461 | ||
10462 | {setverdict(pass);} else {setverdict(fail);} | |
10463 | ||
10464 | ||
10465 | <RESULT> | |
10466 | ||
10467 | Overall verdict: pass | |
10468 | ||
10469 | <END_TC> | |
10470 | ||
10471 | :exmp. | |
10472 | ||
10473 | .*---------------------------------------------------------------------* | |
10474 | :h3. DECODING CER integer (5) with Context Specific TAG = 31 | |
10475 | .*---------------------------------------------------------------------* | |
10476 | :xmp tab=0. | |
10477 | ||
10478 | <TC - DECODING CER integer (5) with Context Specific TAG = 31> | |
10479 | ||
10480 | <STATIC:ASN> | |
10481 | ||
10482 | TempA | |
10483 | ||
10484 | DEFINITIONS ::= | |
10485 | BEGIN | |
10486 | BERPDU ::= [31] EXPLICIT INTEGER | |
10487 | ||
10488 | myIntegerValue BERPDU ::= 5 | |
10489 | ||
10490 | END | |
10491 | ||
10492 | <STATIC> | |
10493 | ||
10494 | import from TempA all; | |
10495 | ||
10496 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10497 | ||
10498 | ||
10499 | <TTCN_TC:EXEC> | |
10500 | ||
10501 | if (dec_BER_PDU('BF1F800201050000'O) == myIntegerValue) | |
10502 | ||
10503 | ||
10504 | {setverdict(pass);} else {setverdict(fail);} | |
10505 | ||
10506 | ||
10507 | <RESULT> | |
10508 | ||
10509 | Overall verdict: pass | |
10510 | ||
10511 | <END_TC> | |
10512 | ||
10513 | :exmp. | |
10514 | ||
10515 | .*---------------------------------------------------------------------* | |
10516 | :h3. DECODING DER integer (5) with Context Specific TAG = 127 | |
10517 | .*---------------------------------------------------------------------* | |
10518 | :xmp tab=0. | |
10519 | ||
10520 | <TC - DECODING DER integer (5) with Context Specific TAG = 127> | |
10521 | ||
10522 | <STATIC:ASN> | |
10523 | ||
10524 | TempA | |
10525 | ||
10526 | DEFINITIONS ::= | |
10527 | BEGIN | |
10528 | BERPDU ::= [127] EXPLICIT INTEGER | |
10529 | ||
10530 | myIntegerValue BERPDU ::= 5 | |
10531 | ||
10532 | END | |
10533 | ||
10534 | <STATIC> | |
10535 | ||
10536 | import from TempA all; | |
10537 | ||
10538 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10539 | ||
10540 | ||
10541 | <TTCN_TC:EXEC> | |
10542 | ||
10543 | if (dec_BER_PDU('BF7F03020105'O) == myIntegerValue) | |
10544 | ||
10545 | ||
10546 | {setverdict(pass);} else {setverdict(fail);} | |
10547 | ||
10548 | ||
10549 | <RESULT> | |
10550 | ||
10551 | Overall verdict: pass | |
10552 | ||
10553 | <END_TC> | |
10554 | ||
10555 | :exmp. | |
10556 | ||
10557 | .*---------------------------------------------------------------------* | |
10558 | :h3. DECODING CER integer (5) with Context Specific TAG = 127 | |
10559 | .*---------------------------------------------------------------------* | |
10560 | :xmp tab=0. | |
10561 | ||
10562 | <TC - DECODING CER integer (5) with Context Specific TAG = 127> | |
10563 | ||
10564 | <STATIC:ASN> | |
10565 | ||
10566 | TempA | |
10567 | ||
10568 | DEFINITIONS ::= | |
10569 | BEGIN | |
10570 | BERPDU ::= [127] EXPLICIT INTEGER | |
10571 | ||
10572 | myIntegerValue BERPDU ::= 5 | |
10573 | ||
10574 | END | |
10575 | ||
10576 | <STATIC> | |
10577 | ||
10578 | import from TempA all; | |
10579 | ||
10580 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10581 | ||
10582 | ||
10583 | <TTCN_TC:EXEC> | |
10584 | ||
10585 | if (dec_BER_PDU('BF7F800201050000'O) == myIntegerValue) | |
10586 | ||
10587 | ||
10588 | {setverdict(pass);} else {setverdict(fail);} | |
10589 | ||
10590 | ||
10591 | <RESULT> | |
10592 | ||
10593 | Overall verdict: pass | |
10594 | ||
10595 | <END_TC> | |
10596 | ||
10597 | :exmp. | |
10598 | ||
10599 | .*---------------------------------------------------------------------* | |
10600 | :h3. DECODING DER integer (5) with Context Specific TAG = 128 | |
10601 | .*---------------------------------------------------------------------* | |
10602 | :xmp tab=0. | |
10603 | ||
10604 | <TC - DECODING DER integer (5) with Context Specific TAG = 128> | |
10605 | ||
10606 | <STATIC:ASN> | |
10607 | ||
10608 | TempA | |
10609 | ||
10610 | DEFINITIONS ::= | |
10611 | BEGIN | |
10612 | BERPDU ::= [128] EXPLICIT INTEGER | |
10613 | ||
10614 | myIntegerValue BERPDU ::= 5 | |
10615 | ||
10616 | END | |
10617 | ||
10618 | <STATIC> | |
10619 | ||
10620 | import from TempA all; | |
10621 | ||
10622 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10623 | ||
10624 | ||
10625 | <TTCN_TC:EXEC> | |
10626 | ||
10627 | if (dec_BER_PDU('BF810003020105'O) == myIntegerValue) | |
10628 | ||
10629 | ||
10630 | {setverdict(pass);} else {setverdict(fail);} | |
10631 | ||
10632 | ||
10633 | <RESULT> | |
10634 | ||
10635 | Overall verdict: pass | |
10636 | ||
10637 | <END_TC> | |
10638 | ||
10639 | :exmp. | |
10640 | ||
10641 | .*---------------------------------------------------------------------* | |
10642 | :h3. DECODING CER integer (5) with Context Specific TAG = 128 | |
10643 | .*---------------------------------------------------------------------* | |
10644 | :xmp tab=0. | |
10645 | ||
10646 | <TC - DECODING CER integer (5) with Context Specific TAG = 128> | |
10647 | ||
10648 | <STATIC:ASN> | |
10649 | ||
10650 | TempA | |
10651 | ||
10652 | DEFINITIONS ::= | |
10653 | BEGIN | |
10654 | BERPDU ::= [128] EXPLICIT INTEGER | |
10655 | ||
10656 | myIntegerValue BERPDU ::= 5 | |
10657 | ||
10658 | END | |
10659 | ||
10660 | <STATIC> | |
10661 | ||
10662 | import from TempA all; | |
10663 | ||
10664 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10665 | ||
10666 | ||
10667 | <TTCN_TC:EXEC> | |
10668 | ||
10669 | if (dec_BER_PDU('BF8100800201050000'O) == myIntegerValue) | |
10670 | ||
10671 | ||
10672 | {setverdict(pass);} else {setverdict(fail);} | |
10673 | ||
10674 | ||
10675 | <RESULT> | |
10676 | ||
10677 | Overall verdict: pass | |
10678 | ||
10679 | <END_TC> | |
10680 | ||
10681 | :exmp. | |
10682 | ||
10683 | .*---------------------------------------------------------------------* | |
10684 | :h3. DECODING DER integer (5) with Context Specific TAG = 16383 | |
10685 | .*---------------------------------------------------------------------* | |
10686 | :xmp tab=0. | |
10687 | ||
10688 | <TC - DECODING DER integer (5) with Context Specific TAG = 16383> | |
10689 | ||
10690 | <STATIC:ASN> | |
10691 | ||
10692 | TempA | |
10693 | ||
10694 | DEFINITIONS ::= | |
10695 | BEGIN | |
10696 | BERPDU ::= [16383] EXPLICIT INTEGER | |
10697 | ||
10698 | myIntegerValue BERPDU ::= 5 | |
10699 | ||
10700 | END | |
10701 | ||
10702 | <STATIC> | |
10703 | ||
10704 | import from TempA all; | |
10705 | ||
10706 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10707 | ||
10708 | ||
10709 | <TTCN_TC:EXEC> | |
10710 | ||
10711 | if (dec_BER_PDU('BFFF7F03020105'O) == myIntegerValue) | |
10712 | ||
10713 | ||
10714 | {setverdict(pass);} else {setverdict(fail);} | |
10715 | ||
10716 | ||
10717 | <RESULT> | |
10718 | ||
10719 | Overall verdict: pass | |
10720 | ||
10721 | <END_TC> | |
10722 | ||
10723 | :exmp. | |
10724 | ||
10725 | .*---------------------------------------------------------------------* | |
10726 | :h3. DECODING CER integer (5) with Context Specific TAG = 16383 | |
10727 | .*---------------------------------------------------------------------* | |
10728 | :xmp tab=0. | |
10729 | ||
10730 | <TC - DECODING CER integer (5) with Context Specific TAG = 16383> | |
10731 | ||
10732 | <STATIC:ASN> | |
10733 | ||
10734 | TempA | |
10735 | ||
10736 | DEFINITIONS ::= | |
10737 | BEGIN | |
10738 | BERPDU ::= [16383] EXPLICIT INTEGER | |
10739 | ||
10740 | myIntegerValue BERPDU ::= 5 | |
10741 | ||
10742 | END | |
10743 | ||
10744 | <STATIC> | |
10745 | ||
10746 | import from TempA all; | |
10747 | ||
10748 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10749 | ||
10750 | ||
10751 | <TTCN_TC:EXEC> | |
10752 | ||
10753 | if (dec_BER_PDU('BFFF7F800201050000'O) == myIntegerValue) | |
10754 | ||
10755 | ||
10756 | {setverdict(pass);} else {setverdict(fail);} | |
10757 | ||
10758 | ||
10759 | <RESULT> | |
10760 | ||
10761 | Overall verdict: pass | |
10762 | ||
10763 | <END_TC> | |
10764 | ||
10765 | :exmp. | |
10766 | ||
10767 | .*---------------------------------------------------------------------* | |
10768 | :h3. DECODING DER integer (5) with Context Specific TAG = 16384 | |
10769 | .*---------------------------------------------------------------------* | |
10770 | :xmp tab=0. | |
10771 | ||
10772 | <TC - DECODING DER integer (5) with Context Specific TAG = 16384> | |
10773 | ||
10774 | <STATIC:ASN> | |
10775 | ||
10776 | TempA | |
10777 | ||
10778 | DEFINITIONS ::= | |
10779 | BEGIN | |
10780 | BERPDU ::= [16384] EXPLICIT INTEGER | |
10781 | ||
10782 | myIntegerValue BERPDU ::= 5 | |
10783 | ||
10784 | END | |
10785 | ||
10786 | <STATIC> | |
10787 | ||
10788 | import from TempA all; | |
10789 | ||
10790 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10791 | ||
10792 | ||
10793 | <TTCN_TC:EXEC> | |
10794 | ||
10795 | if (dec_BER_PDU('BF81800003020105'O) == myIntegerValue) | |
10796 | ||
10797 | ||
10798 | {setverdict(pass);} else {setverdict(fail);} | |
10799 | ||
10800 | ||
10801 | <RESULT> | |
10802 | ||
10803 | Overall verdict: pass | |
10804 | ||
10805 | <END_TC> | |
10806 | ||
10807 | :exmp. | |
10808 | ||
10809 | .*---------------------------------------------------------------------* | |
10810 | :h3. DECODING CER integer (5) with Context Specific TAG = 16384 | |
10811 | .*---------------------------------------------------------------------* | |
10812 | :xmp tab=0. | |
10813 | ||
10814 | <TC - DECODING CER integer (5) with Context Specific TAG = 16384> | |
10815 | ||
10816 | <STATIC:ASN> | |
10817 | ||
10818 | TempA | |
10819 | ||
10820 | DEFINITIONS ::= | |
10821 | BEGIN | |
10822 | BERPDU ::= [16384] EXPLICIT INTEGER | |
10823 | ||
10824 | myIntegerValue BERPDU ::= 5 | |
10825 | ||
10826 | END | |
10827 | ||
10828 | <STATIC> | |
10829 | ||
10830 | import from TempA all; | |
10831 | ||
10832 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
10833 | ||
10834 | ||
10835 | <TTCN_TC:EXEC> | |
10836 | ||
10837 | if (dec_BER_PDU('BF818000800201050000'O) == myIntegerValue) | |
10838 | ||
10839 | ||
10840 | {setverdict(pass);} else {setverdict(fail);} | |
10841 | ||
10842 | ||
10843 | <RESULT> | |
10844 | ||
10845 | Overall verdict: pass | |
10846 | ||
10847 | <END_TC> | |
10848 | ||
10849 | :exmp. | |
10850 | ||
10851 | .*---------------------------------------------------------------------* | |
10852 | :h3. DER + CER encoding of ENUMERATED third(-9) hardcoded positive | |
10853 | .*---------------------------------------------------------------------* | |
10854 | :xmp tab=0. | |
10855 | ||
10856 | <TC - DER + CER encoding of ENUMERATED third(-9) hardcoded positive > | |
10857 | ||
10858 | <STATIC:ASN> | |
10859 | ||
10860 | TempA | |
10861 | ||
10862 | DEFINITIONS ::= | |
10863 | BEGIN | |
10864 | BERPDU ::= ENUMERATED {first(-5), second(0), third(9)} | |
10865 | END | |
10866 | ||
10867 | <STATIC> | |
10868 | ||
10869 | import from TempA all; | |
10870 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
10871 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
10872 | ||
10873 | const BERPDU b := third | |
10874 | ||
10875 | <TTCN_TC:EXEC> | |
10876 | ||
10877 | if ((enc_DER_PDU(b) == '0A0109'O)and(enc_CER_PDU(b) == '0A0109'O)) {setverdict(pass);} else {setverdict(fail);} | |
10878 | ||
10879 | <RESULT> | |
10880 | ||
10881 | Overall verdict: pass | |
10882 | ||
10883 | <END_TC> | |
10884 | ||
10885 | :exmp. | |
10886 | ||
10887 | .*---------------------------------------------------------------------* | |
10888 | :h3. DER + CER encoding of ENUMERATED first(0) hardcoded negative | |
10889 | .*---------------------------------------------------------------------* | |
10890 | :xmp tab=0. | |
10891 | ||
10892 | <TC - DER + CER encoding of ENUMERATED first(0) hardcoded negative> | |
10893 | ||
10894 | <STATIC:ASN> | |
10895 | ||
10896 | TempA | |
10897 | ||
10898 | DEFINITIONS ::= | |
10899 | BEGIN | |
10900 | BERPDU ::= ENUMERATED {first(-5), second(0), third(9)} | |
10901 | END | |
10902 | ||
10903 | <STATIC> | |
10904 | ||
10905 | import from TempA all; | |
10906 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
10907 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
10908 | ||
10909 | const BERPDU b := first | |
10910 | ||
10911 | <TTCN_TC:EXEC> | |
10912 | ||
10913 | if ((enc_DER_PDU(b) == '0A01FB'O)and(enc_CER_PDU(b) == '0A01FB'O)) {setverdict(pass);} else {setverdict(fail);} | |
10914 | ||
10915 | <RESULT> | |
10916 | ||
10917 | Overall verdict: pass | |
10918 | ||
10919 | <END_TC> | |
10920 | ||
10921 | :exmp. | |
10922 | ||
10923 | .*---------------------------------------------------------------------* | |
10924 | :h3. DER + CER encoding of ENUMERATED second(0) hardcoded zero | |
10925 | .*---------------------------------------------------------------------* | |
10926 | :xmp tab=0. | |
10927 | ||
10928 | <TC - DER + CER encoding of ENUMERATED second(0) hardcoded zero> | |
10929 | ||
10930 | <STATIC:ASN> | |
10931 | ||
10932 | TempA | |
10933 | ||
10934 | DEFINITIONS ::= | |
10935 | BEGIN | |
10936 | BERPDU ::= ENUMERATED {first(-5), second(0), third(9)} | |
10937 | END | |
10938 | ||
10939 | <STATIC> | |
10940 | ||
10941 | import from TempA all; | |
10942 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
10943 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
10944 | ||
10945 | const BERPDU b := second | |
10946 | ||
10947 | <TTCN_TC:EXEC> | |
10948 | ||
10949 | if ((enc_DER_PDU(b) == '0A0100'O)and(enc_CER_PDU(b) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
10950 | ||
10951 | <RESULT> | |
10952 | ||
10953 | Overall verdict: pass | |
10954 | ||
10955 | <END_TC> | |
10956 | ||
10957 | :exmp. | |
10958 | ||
10959 | .*---------------------------------------------------------------------* | |
10960 | :h3. DER + CER encoding of ENUMERATED third, no hardcoding | |
10961 | .*---------------------------------------------------------------------* | |
10962 | :xmp tab=0. | |
10963 | ||
10964 | <TC - DER + CER encoding of ENUMERATED third, no hardcoding> | |
10965 | ||
10966 | <STATIC:ASN> | |
10967 | ||
10968 | TempA | |
10969 | ||
10970 | DEFINITIONS ::= | |
10971 | BEGIN | |
10972 | BERPDU ::= ENUMERATED {first, second, third} | |
10973 | END | |
10974 | ||
10975 | <STATIC> | |
10976 | ||
10977 | import from TempA all; | |
10978 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
10979 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
10980 | ||
10981 | const BERPDU b := third | |
10982 | ||
10983 | <TTCN_TC:EXEC> | |
10984 | ||
10985 | if ((enc_DER_PDU(b) == '0A0102'O)and(enc_CER_PDU(b) == '0A0102'O)) {setverdict(pass);} else {setverdict(fail);} | |
10986 | ||
10987 | <RESULT> | |
10988 | ||
10989 | Overall verdict: pass | |
10990 | ||
10991 | <END_TC> | |
10992 | ||
10993 | :exmp. | |
10994 | ||
10995 | .*---------------------------------------------------------------------* | |
10996 | :h3. DER + CER encoding of ENUMERATED first, no hardcoding | |
10997 | .*---------------------------------------------------------------------* | |
10998 | :xmp tab=0. | |
10999 | ||
11000 | <TC - DER + CER encoding of ENUMERATED first, no hardcoding> | |
11001 | ||
11002 | <STATIC:ASN> | |
11003 | ||
11004 | TempA | |
11005 | ||
11006 | DEFINITIONS ::= | |
11007 | BEGIN | |
11008 | BERPDU ::= ENUMERATED {first, second, third} | |
11009 | END | |
11010 | ||
11011 | <STATIC> | |
11012 | ||
11013 | import from TempA all; | |
11014 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11015 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11016 | ||
11017 | const BERPDU b := first | |
11018 | ||
11019 | <TTCN_TC:EXEC> | |
11020 | ||
11021 | if ((enc_DER_PDU(b) == '0A0100'O)and(enc_CER_PDU(b) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
11022 | ||
11023 | <RESULT> | |
11024 | ||
11025 | Overall verdict: pass | |
11026 | ||
11027 | <END_TC> | |
11028 | ||
11029 | :exmp. | |
11030 | ||
11031 | .*---------------------------------------------------------------------* | |
11032 | :h3. DER + CER encoding of ENUMERATED second, no hardcoding | |
11033 | .*---------------------------------------------------------------------* | |
11034 | :xmp tab=0. | |
11035 | ||
11036 | <TC - DER + CER encoding of ENUMERATED second, no hardcoding> | |
11037 | ||
11038 | <STATIC:ASN> | |
11039 | ||
11040 | TempA | |
11041 | ||
11042 | DEFINITIONS ::= | |
11043 | BEGIN | |
11044 | BERPDU ::= ENUMERATED {first(-5), second(0), third(9)} | |
11045 | END | |
11046 | ||
11047 | <STATIC> | |
11048 | ||
11049 | import from TempA all; | |
11050 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11051 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11052 | ||
11053 | const BERPDU b := second | |
11054 | ||
11055 | <TTCN_TC:EXEC> | |
11056 | ||
11057 | if ((enc_DER_PDU(b) == '0A0100'O)and(enc_CER_PDU(b) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
11058 | ||
11059 | <RESULT> | |
11060 | ||
11061 | Overall verdict: pass | |
11062 | ||
11063 | <END_TC> | |
11064 | ||
11065 | :exmp. | |
11066 | ||
11067 | .*---------------------------------------------------------------------* | |
11068 | :h3. DER + CER encoding of ENUMERATED first | |
11069 | .*---------------------------------------------------------------------* | |
11070 | :xmp tab=0. | |
11071 | ||
11072 | <TC - DER + CER encoding of ENUMERATED first> | |
11073 | ||
11074 | <STATIC:ASN> | |
11075 | ||
11076 | TempA | |
11077 | ||
11078 | DEFINITIONS ::= | |
11079 | BEGIN | |
11080 | BERPDU ::= ENUMERATED {first, second(0),third} | |
11081 | END | |
11082 | ||
11083 | <STATIC> | |
11084 | ||
11085 | import from TempA all; | |
11086 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11087 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11088 | ||
11089 | const BERPDU b := first | |
11090 | ||
11091 | <TTCN_TC:EXEC> | |
11092 | ||
11093 | if ((enc_DER_PDU(b) == '0A0101'O)and(enc_CER_PDU(b) == '0A0101'O)) {setverdict(pass);} else {setverdict(fail);} | |
11094 | ||
11095 | <RESULT> | |
11096 | ||
11097 | Overall verdict: pass | |
11098 | ||
11099 | <END_TC> | |
11100 | ||
11101 | :exmp. | |
11102 | ||
11103 | .*---------------------------------------------------------------------* | |
11104 | :h3. DER + CER encoding of ENUMERATED second(0) | |
11105 | .*---------------------------------------------------------------------* | |
11106 | :xmp tab=0. | |
11107 | ||
11108 | <TC - DER + CER encoding of ENUMERATED second(0)> | |
11109 | ||
11110 | <STATIC:ASN> | |
11111 | ||
11112 | TempA | |
11113 | ||
11114 | DEFINITIONS ::= | |
11115 | BEGIN | |
11116 | BERPDU ::= ENUMERATED {first, second(0),third} | |
11117 | END | |
11118 | ||
11119 | <STATIC> | |
11120 | ||
11121 | import from TempA all; | |
11122 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11123 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11124 | ||
11125 | const BERPDU b := second | |
11126 | ||
11127 | <TTCN_TC:EXEC> | |
11128 | ||
11129 | if ((enc_DER_PDU(b) == '0A0100'O)and(enc_CER_PDU(b) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
11130 | ||
11131 | <RESULT> | |
11132 | ||
11133 | Overall verdict: pass | |
11134 | ||
11135 | <END_TC> | |
11136 | ||
11137 | :exmp. | |
11138 | ||
11139 | .*---------------------------------------------------------------------* | |
11140 | :h3. DER + CER encoding of ENUMERATED third | |
11141 | .*---------------------------------------------------------------------* | |
11142 | :xmp tab=0. | |
11143 | ||
11144 | <TC - DER + CER encoding of ENUMERATED third> | |
11145 | ||
11146 | <STATIC:ASN> | |
11147 | ||
11148 | TempA | |
11149 | ||
11150 | DEFINITIONS ::= | |
11151 | BEGIN | |
11152 | BERPDU ::= ENUMERATED {first, second(0),third} | |
11153 | END | |
11154 | ||
11155 | <STATIC> | |
11156 | ||
11157 | import from TempA all; | |
11158 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11159 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11160 | ||
11161 | const BERPDU b := third | |
11162 | ||
11163 | <TTCN_TC:EXEC> | |
11164 | ||
11165 | if ((enc_DER_PDU(b) == '0A0102'O)and(enc_CER_PDU(b) == '0A0102'O)) {setverdict(pass);} else {setverdict(fail);} | |
11166 | ||
11167 | <RESULT> | |
11168 | ||
11169 | Overall verdict: pass | |
11170 | ||
11171 | <END_TC> | |
11172 | ||
11173 | :exmp. | |
11174 | ||
11175 | .*---------------------------------------------------------------------* | |
11176 | :h3. DER + CER encoding of ENUMERATED first | |
11177 | .*---------------------------------------------------------------------* | |
11178 | :xmp tab=0. | |
11179 | ||
11180 | <TC - DER + CER encoding of ENUMERATED first> | |
11181 | ||
11182 | <STATIC:ASN> | |
11183 | ||
11184 | TempA | |
11185 | ||
11186 | DEFINITIONS ::= | |
11187 | BEGIN | |
11188 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11189 | END | |
11190 | ||
11191 | <STATIC> | |
11192 | ||
11193 | import from TempA all; | |
11194 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11195 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11196 | ||
11197 | const BERPDU b := first | |
11198 | ||
11199 | <TTCN_TC:EXEC> | |
11200 | ||
11201 | if ((enc_DER_PDU(b) == '0A0101'O)and(enc_CER_PDU(b) == '0A0101'O)) {setverdict(pass);} else {setverdict(fail);} | |
11202 | ||
11203 | <RESULT> | |
11204 | ||
11205 | Overall verdict: pass | |
11206 | ||
11207 | <END_TC> | |
11208 | ||
11209 | :exmp. | |
11210 | ||
11211 | .*---------------------------------------------------------------------* | |
11212 | :h3. DER + CER encoding of ENUMERATED second(0) | |
11213 | .*---------------------------------------------------------------------* | |
11214 | :xmp tab=0. | |
11215 | ||
11216 | <TC - DER + CER encoding of ENUMERATED second(0)> | |
11217 | ||
11218 | <STATIC:ASN> | |
11219 | ||
11220 | TempA | |
11221 | ||
11222 | DEFINITIONS ::= | |
11223 | BEGIN | |
11224 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11225 | END | |
11226 | ||
11227 | <STATIC> | |
11228 | ||
11229 | import from TempA all; | |
11230 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11231 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11232 | ||
11233 | const BERPDU b := second | |
11234 | ||
11235 | <TTCN_TC:EXEC> | |
11236 | ||
11237 | if ((enc_DER_PDU(b) == '0A0100'O)and(enc_CER_PDU(b) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
11238 | ||
11239 | <RESULT> | |
11240 | ||
11241 | Overall verdict: pass | |
11242 | ||
11243 | <END_TC> | |
11244 | ||
11245 | :exmp. | |
11246 | ||
11247 | .*---------------------------------------------------------------------* | |
11248 | :h3. DER + CER encoding of ENUMERATED third | |
11249 | .*---------------------------------------------------------------------* | |
11250 | :xmp tab=0. | |
11251 | ||
11252 | <TC - DER + CER encoding of ENUMERATED third> | |
11253 | ||
11254 | <STATIC:ASN> | |
11255 | ||
11256 | TempA | |
11257 | ||
11258 | DEFINITIONS ::= | |
11259 | BEGIN | |
11260 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11261 | END | |
11262 | ||
11263 | <STATIC> | |
11264 | ||
11265 | import from TempA all; | |
11266 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11267 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11268 | ||
11269 | const BERPDU b := third | |
11270 | ||
11271 | <TTCN_TC:EXEC> | |
11272 | ||
11273 | if ((enc_DER_PDU(b) == '0A0102'O)and(enc_CER_PDU(b) == '0A0102'O)) {setverdict(pass);} else {setverdict(fail);} | |
11274 | ||
11275 | <RESULT> | |
11276 | ||
11277 | Overall verdict: pass | |
11278 | ||
11279 | <END_TC> | |
11280 | ||
11281 | :exmp. | |
11282 | ||
11283 | .*---------------------------------------------------------------------* | |
11284 | :h3. DER + CER encoding of ENUMERATED fourth (after extension ...) | |
11285 | .*---------------------------------------------------------------------* | |
11286 | :xmp tab=0. | |
11287 | ||
11288 | <TC - DER + CER encoding of ENUMERATED fourth (after extension ...)> | |
11289 | ||
11290 | <STATIC:ASN> | |
11291 | ||
11292 | TempA | |
11293 | ||
11294 | DEFINITIONS ::= | |
11295 | BEGIN | |
11296 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11297 | END | |
11298 | ||
11299 | <STATIC> | |
11300 | ||
11301 | import from TempA all; | |
11302 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11303 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11304 | ||
11305 | const BERPDU b := fourth | |
11306 | ||
11307 | <TTCN_TC:EXEC> | |
11308 | ||
11309 | if ((enc_DER_PDU(b) == '0A0103'O)and(enc_CER_PDU(b) == '0A0103'O)) {setverdict(pass);} else {setverdict(fail);} | |
11310 | ||
11311 | <RESULT> | |
11312 | ||
11313 | Overall verdict: pass | |
11314 | ||
11315 | <END_TC> | |
11316 | ||
11317 | :exmp. | |
11318 | ||
11319 | .*---------------------------------------------------------------------* | |
11320 | :h3. DER + CER encoding of ENUMERATED fifth(5) (after extension ...) | |
11321 | .*---------------------------------------------------------------------* | |
11322 | :xmp tab=0. | |
11323 | ||
11324 | <TC - DER + CER encoding of ENUMERATED fifth(5) (after extension ...)> | |
11325 | ||
11326 | <STATIC:ASN> | |
11327 | ||
11328 | TempA | |
11329 | ||
11330 | DEFINITIONS ::= | |
11331 | BEGIN | |
11332 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11333 | END | |
11334 | ||
11335 | <STATIC> | |
11336 | ||
11337 | import from TempA all; | |
11338 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11339 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11340 | ||
11341 | const BERPDU b := fifth | |
11342 | ||
11343 | <TTCN_TC:EXEC> | |
11344 | ||
11345 | if ((enc_DER_PDU(b) == '0A0105'O)and(enc_CER_PDU(b) == '0A0105'O)) {setverdict(pass);} else {setverdict(fail);} | |
11346 | ||
11347 | <RESULT> | |
11348 | ||
11349 | Overall verdict: pass | |
11350 | ||
11351 | <END_TC> | |
11352 | ||
11353 | :exmp. | |
11354 | ||
11355 | .*---------------------------------------------------------------------* | |
11356 | :h3. DER + CER encoding of ENUMERATED sixth (after extension ...) | |
11357 | .*---------------------------------------------------------------------* | |
11358 | :xmp tab=0. | |
11359 | ||
11360 | <TC - DER + CER encoding of ENUMERATED sixth (after extension ...)> | |
11361 | ||
11362 | <STATIC:ASN> | |
11363 | ||
11364 | TempA | |
11365 | ||
11366 | DEFINITIONS ::= | |
11367 | BEGIN | |
11368 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11369 | END | |
11370 | ||
11371 | <STATIC> | |
11372 | ||
11373 | import from TempA all; | |
11374 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11375 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11376 | ||
11377 | const BERPDU b := sixth | |
11378 | ||
11379 | <TTCN_TC:EXEC> | |
11380 | ||
11381 | if ((enc_DER_PDU(b) == '0A0106'O)and(enc_CER_PDU(b) == '0A0106'O)) {setverdict(pass);} else {setverdict(fail);} | |
11382 | ||
11383 | <RESULT> | |
11384 | ||
11385 | Overall verdict: pass | |
11386 | ||
11387 | <END_TC> | |
11388 | ||
11389 | :exmp. | |
11390 | ||
11391 | .*---------------------------------------------------------------------* | |
11392 | :h3. DER + CER encoding of ENUMERATED , tagged, EXPLICIT | |
11393 | .*---------------------------------------------------------------------* | |
11394 | :xmp tab=0. | |
11395 | ||
11396 | <TC - DER + CER encoding of ENUMERATED , tagged, EXPLICIT> | |
11397 | ||
11398 | <STATIC:ASN> | |
11399 | ||
11400 | TempA | |
11401 | ||
11402 | DEFINITIONS ::= | |
11403 | BEGIN | |
11404 | BERPDU ::= [21] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11405 | END | |
11406 | ||
11407 | <STATIC> | |
11408 | ||
11409 | import from TempA all; | |
11410 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11411 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11412 | ||
11413 | const BERPDU b := sixth | |
11414 | ||
11415 | <TTCN_TC:EXEC> | |
11416 | ||
11417 | if ((enc_DER_PDU(b) == 'B5030A0106'O)and(enc_CER_PDU(b) == 'B5800A01060000'O)) {setverdict(pass);} else {setverdict(fail);} | |
11418 | ||
11419 | <RESULT> | |
11420 | ||
11421 | Overall verdict: pass | |
11422 | ||
11423 | <END_TC> | |
11424 | ||
11425 | :exmp. | |
11426 | ||
11427 | .*---------------------------------------------------------------------* | |
11428 | :h3. DER + CER encoding of ENUMERATED , tagged, IMPLICIT | |
11429 | .*---------------------------------------------------------------------* | |
11430 | :xmp tab=0. | |
11431 | ||
11432 | <TC - DER + CER encoding of ENUMERATED , tagged, IMPLICIT> | |
11433 | ||
11434 | <STATIC:ASN> | |
11435 | ||
11436 | TempA | |
11437 | ||
11438 | DEFINITIONS ::= | |
11439 | BEGIN | |
11440 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11441 | END | |
11442 | ||
11443 | <STATIC> | |
11444 | ||
11445 | import from TempA all; | |
11446 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
11447 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
11448 | ||
11449 | const BERPDU b := sixth | |
11450 | ||
11451 | <TTCN_TC:EXEC> | |
11452 | ||
11453 | if ((enc_DER_PDU(b) == '9F580106'O)and(enc_CER_PDU(b) == '9F580106'O)) {setverdict(pass);} else {setverdict(fail);} | |
11454 | ||
11455 | <RESULT> | |
11456 | ||
11457 | Overall verdict: pass | |
11458 | ||
11459 | <END_TC> | |
11460 | ||
11461 | :exmp. | |
11462 | ||
11463 | .*---------------------------------------------------------------------* | |
11464 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (first) | |
11465 | .*---------------------------------------------------------------------* | |
11466 | :xmp tab=0. | |
11467 | ||
11468 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (first)> | |
11469 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11470 | ||
11471 | <STATIC:ASN> | |
11472 | ||
11473 | TempA | |
11474 | ||
11475 | DEFINITIONS ::= | |
11476 | BEGIN | |
11477 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11478 | ||
11479 | ||
11480 | myValue BERPDU ::= first | |
11481 | ||
11482 | ||
11483 | ||
11484 | END | |
11485 | ||
11486 | <STATIC> | |
11487 | ||
11488 | import from TempA all; | |
11489 | ||
11490 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11491 | ||
11492 | ||
11493 | <TTCN_TC:EXEC> | |
11494 | ||
11495 | if (dec_BER_PDU('0A0101'O) == myValue) | |
11496 | ||
11497 | {setverdict(pass);} else {setverdict(fail);} | |
11498 | ||
11499 | ||
11500 | <RESULT> | |
11501 | ||
11502 | Overall verdict: pass | |
11503 | ||
11504 | <END_TC> | |
11505 | ||
11506 | :exmp. | |
11507 | ||
11508 | .*---------------------------------------------------------------------* | |
11509 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (first) | |
11510 | .*---------------------------------------------------------------------* | |
11511 | :xmp tab=0. | |
11512 | ||
11513 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (first)> | |
11514 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11515 | ||
11516 | <STATIC:ASN> | |
11517 | ||
11518 | TempA | |
11519 | ||
11520 | DEFINITIONS ::= | |
11521 | BEGIN | |
11522 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11523 | ||
11524 | ||
11525 | myValue BERPDU ::= first | |
11526 | ||
11527 | ||
11528 | ||
11529 | END | |
11530 | ||
11531 | <STATIC> | |
11532 | ||
11533 | import from TempA all; | |
11534 | ||
11535 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11536 | ||
11537 | ||
11538 | <TTCN_TC:EXEC> | |
11539 | ||
11540 | if (dec_BER_PDU('0A810101'O) == myValue) | |
11541 | ||
11542 | {setverdict(pass);} else {setverdict(fail);} | |
11543 | ||
11544 | ||
11545 | <RESULT> | |
11546 | ||
11547 | Overall verdict: pass | |
11548 | ||
11549 | <END_TC> | |
11550 | ||
11551 | :exmp. | |
11552 | ||
11553 | .*---------------------------------------------------------------------* | |
11554 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (first) | |
11555 | .*---------------------------------------------------------------------* | |
11556 | :xmp tab=0. | |
11557 | ||
11558 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (first)> | |
11559 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11560 | ||
11561 | <STATIC:ASN> | |
11562 | ||
11563 | TempA | |
11564 | ||
11565 | DEFINITIONS ::= | |
11566 | BEGIN | |
11567 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11568 | ||
11569 | ||
11570 | myValue BERPDU ::= first | |
11571 | ||
11572 | ||
11573 | ||
11574 | END | |
11575 | ||
11576 | <STATIC> | |
11577 | ||
11578 | import from TempA all; | |
11579 | ||
11580 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11581 | ||
11582 | ||
11583 | <TTCN_TC:EXEC> | |
11584 | ||
11585 | if (dec_BER_PDU('A0030A0101'O) == myValue) | |
11586 | ||
11587 | {setverdict(pass);} else {setverdict(fail);} | |
11588 | ||
11589 | ||
11590 | <RESULT> | |
11591 | ||
11592 | Overall verdict: pass | |
11593 | ||
11594 | <END_TC> | |
11595 | ||
11596 | :exmp. | |
11597 | ||
11598 | .*---------------------------------------------------------------------* | |
11599 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (first) | |
11600 | .*---------------------------------------------------------------------* | |
11601 | :xmp tab=0. | |
11602 | ||
11603 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (first)> | |
11604 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11605 | ||
11606 | <STATIC:ASN> | |
11607 | ||
11608 | TempA | |
11609 | ||
11610 | DEFINITIONS ::= | |
11611 | BEGIN | |
11612 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11613 | ||
11614 | ||
11615 | myValue BERPDU ::= first | |
11616 | ||
11617 | ||
11618 | ||
11619 | END | |
11620 | ||
11621 | <STATIC> | |
11622 | ||
11623 | import from TempA all; | |
11624 | ||
11625 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11626 | ||
11627 | ||
11628 | <TTCN_TC:EXEC> | |
11629 | ||
11630 | if (dec_BER_PDU('A0800A01010000'O) == myValue) | |
11631 | ||
11632 | {setverdict(pass);} else {setverdict(fail);} | |
11633 | ||
11634 | ||
11635 | <RESULT> | |
11636 | ||
11637 | Overall verdict: pass | |
11638 | ||
11639 | <END_TC> | |
11640 | ||
11641 | :exmp. | |
11642 | ||
11643 | .*---------------------------------------------------------------------* | |
11644 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (first) | |
11645 | .*---------------------------------------------------------------------* | |
11646 | :xmp tab=0. | |
11647 | ||
11648 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (first)> | |
11649 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11650 | ||
11651 | <STATIC:ASN> | |
11652 | ||
11653 | TempA | |
11654 | ||
11655 | DEFINITIONS ::= | |
11656 | BEGIN | |
11657 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11658 | ||
11659 | ||
11660 | myValue BERPDU ::= first | |
11661 | ||
11662 | ||
11663 | ||
11664 | END | |
11665 | ||
11666 | <STATIC> | |
11667 | ||
11668 | import from TempA all; | |
11669 | ||
11670 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11671 | ||
11672 | ||
11673 | <TTCN_TC:EXEC> | |
11674 | ||
11675 | if (dec_BER_PDU('A0040A810101'O) == myValue) | |
11676 | ||
11677 | {setverdict(pass);} else {setverdict(fail);} | |
11678 | ||
11679 | ||
11680 | <RESULT> | |
11681 | ||
11682 | Overall verdict: pass | |
11683 | ||
11684 | <END_TC> | |
11685 | ||
11686 | :exmp. | |
11687 | ||
11688 | .*---------------------------------------------------------------------* | |
11689 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (first) | |
11690 | .*---------------------------------------------------------------------* | |
11691 | :xmp tab=0. | |
11692 | ||
11693 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (first)> | |
11694 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11695 | ||
11696 | <STATIC:ASN> | |
11697 | ||
11698 | TempA | |
11699 | ||
11700 | DEFINITIONS ::= | |
11701 | BEGIN | |
11702 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11703 | ||
11704 | ||
11705 | myValue BERPDU ::= first | |
11706 | ||
11707 | ||
11708 | ||
11709 | END | |
11710 | ||
11711 | <STATIC> | |
11712 | ||
11713 | import from TempA all; | |
11714 | ||
11715 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11716 | ||
11717 | ||
11718 | <TTCN_TC:EXEC> | |
11719 | ||
11720 | if (dec_BER_PDU('A081040A810101'O) == myValue) | |
11721 | ||
11722 | {setverdict(pass);} else {setverdict(fail);} | |
11723 | ||
11724 | ||
11725 | <RESULT> | |
11726 | ||
11727 | Overall verdict: pass | |
11728 | ||
11729 | <END_TC> | |
11730 | ||
11731 | :exmp. | |
11732 | ||
11733 | .*---------------------------------------------------------------------* | |
11734 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (first) | |
11735 | .*---------------------------------------------------------------------* | |
11736 | :xmp tab=0. | |
11737 | ||
11738 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (first)> | |
11739 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11740 | ||
11741 | <STATIC:ASN> | |
11742 | ||
11743 | TempA | |
11744 | ||
11745 | DEFINITIONS ::= | |
11746 | BEGIN | |
11747 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11748 | ||
11749 | ||
11750 | myValue BERPDU ::= first | |
11751 | ||
11752 | ||
11753 | ||
11754 | END | |
11755 | ||
11756 | <STATIC> | |
11757 | ||
11758 | import from TempA all; | |
11759 | ||
11760 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11761 | ||
11762 | ||
11763 | <TTCN_TC:EXEC> | |
11764 | ||
11765 | if (dec_BER_PDU('9F580101'O) == myValue) | |
11766 | ||
11767 | {setverdict(pass);} else {setverdict(fail);} | |
11768 | ||
11769 | ||
11770 | <RESULT> | |
11771 | ||
11772 | Overall verdict: pass | |
11773 | ||
11774 | <END_TC> | |
11775 | ||
11776 | :exmp. | |
11777 | ||
11778 | .*---------------------------------------------------------------------* | |
11779 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (first) | |
11780 | .*---------------------------------------------------------------------* | |
11781 | :xmp tab=0. | |
11782 | ||
11783 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (first)> | |
11784 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11785 | ||
11786 | <STATIC:ASN> | |
11787 | ||
11788 | TempA | |
11789 | ||
11790 | DEFINITIONS ::= | |
11791 | BEGIN | |
11792 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11793 | ||
11794 | ||
11795 | myValue BERPDU ::= first | |
11796 | ||
11797 | ||
11798 | ||
11799 | END | |
11800 | ||
11801 | <STATIC> | |
11802 | ||
11803 | import from TempA all; | |
11804 | ||
11805 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11806 | ||
11807 | ||
11808 | <TTCN_TC:EXEC> | |
11809 | ||
11810 | if (dec_BER_PDU('9F58810101'O) == myValue) | |
11811 | ||
11812 | {setverdict(pass);} else {setverdict(fail);} | |
11813 | ||
11814 | ||
11815 | <RESULT> | |
11816 | ||
11817 | Overall verdict: pass | |
11818 | ||
11819 | <END_TC> | |
11820 | ||
11821 | :exmp. | |
11822 | ||
11823 | .*---------------------------------------------------------------------* | |
11824 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (second(0)) | |
11825 | .*---------------------------------------------------------------------* | |
11826 | :xmp tab=0. | |
11827 | ||
11828 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (second(0))> | |
11829 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11830 | ||
11831 | <STATIC:ASN> | |
11832 | ||
11833 | TempA | |
11834 | ||
11835 | DEFINITIONS ::= | |
11836 | BEGIN | |
11837 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11838 | ||
11839 | ||
11840 | myValue BERPDU ::= second | |
11841 | ||
11842 | ||
11843 | ||
11844 | END | |
11845 | ||
11846 | <STATIC> | |
11847 | ||
11848 | import from TempA all; | |
11849 | ||
11850 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11851 | ||
11852 | ||
11853 | <TTCN_TC:EXEC> | |
11854 | ||
11855 | if (dec_BER_PDU('0A0100'O) == myValue) | |
11856 | ||
11857 | {setverdict(pass);} else {setverdict(fail);} | |
11858 | ||
11859 | ||
11860 | <RESULT> | |
11861 | ||
11862 | Overall verdict: pass | |
11863 | ||
11864 | <END_TC> | |
11865 | ||
11866 | :exmp. | |
11867 | ||
11868 | .*---------------------------------------------------------------------* | |
11869 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (second(0)) | |
11870 | .*---------------------------------------------------------------------* | |
11871 | :xmp tab=0. | |
11872 | ||
11873 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (second(0))> | |
11874 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11875 | ||
11876 | <STATIC:ASN> | |
11877 | ||
11878 | TempA | |
11879 | ||
11880 | DEFINITIONS ::= | |
11881 | BEGIN | |
11882 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11883 | ||
11884 | ||
11885 | myValue BERPDU ::= second | |
11886 | ||
11887 | ||
11888 | ||
11889 | END | |
11890 | ||
11891 | <STATIC> | |
11892 | ||
11893 | import from TempA all; | |
11894 | ||
11895 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11896 | ||
11897 | ||
11898 | <TTCN_TC:EXEC> | |
11899 | ||
11900 | if (dec_BER_PDU('0A810100'O) == myValue) | |
11901 | ||
11902 | {setverdict(pass);} else {setverdict(fail);} | |
11903 | ||
11904 | ||
11905 | <RESULT> | |
11906 | ||
11907 | Overall verdict: pass | |
11908 | ||
11909 | <END_TC> | |
11910 | ||
11911 | :exmp. | |
11912 | ||
11913 | .*---------------------------------------------------------------------* | |
11914 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (second(0)) | |
11915 | .*---------------------------------------------------------------------* | |
11916 | :xmp tab=0. | |
11917 | ||
11918 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (second(0))> | |
11919 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11920 | ||
11921 | <STATIC:ASN> | |
11922 | ||
11923 | TempA | |
11924 | ||
11925 | DEFINITIONS ::= | |
11926 | BEGIN | |
11927 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11928 | ||
11929 | ||
11930 | myValue BERPDU ::= second | |
11931 | ||
11932 | ||
11933 | ||
11934 | END | |
11935 | ||
11936 | <STATIC> | |
11937 | ||
11938 | import from TempA all; | |
11939 | ||
11940 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11941 | ||
11942 | ||
11943 | <TTCN_TC:EXEC> | |
11944 | ||
11945 | if (dec_BER_PDU('A0030A0100'O) == myValue) | |
11946 | ||
11947 | {setverdict(pass);} else {setverdict(fail);} | |
11948 | ||
11949 | ||
11950 | <RESULT> | |
11951 | ||
11952 | Overall verdict: pass | |
11953 | ||
11954 | <END_TC> | |
11955 | ||
11956 | :exmp. | |
11957 | ||
11958 | .*---------------------------------------------------------------------* | |
11959 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (second(0)) | |
11960 | .*---------------------------------------------------------------------* | |
11961 | :xmp tab=0. | |
11962 | ||
11963 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (second(0))> | |
11964 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11965 | ||
11966 | <STATIC:ASN> | |
11967 | ||
11968 | TempA | |
11969 | ||
11970 | DEFINITIONS ::= | |
11971 | BEGIN | |
11972 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
11973 | ||
11974 | ||
11975 | myValue BERPDU ::= second | |
11976 | ||
11977 | ||
11978 | ||
11979 | END | |
11980 | ||
11981 | <STATIC> | |
11982 | ||
11983 | import from TempA all; | |
11984 | ||
11985 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
11986 | ||
11987 | ||
11988 | <TTCN_TC:EXEC> | |
11989 | ||
11990 | if (dec_BER_PDU('A0800A01000000'O) == myValue) | |
11991 | ||
11992 | {setverdict(pass);} else {setverdict(fail);} | |
11993 | ||
11994 | ||
11995 | <RESULT> | |
11996 | ||
11997 | Overall verdict: pass | |
11998 | ||
11999 | <END_TC> | |
12000 | ||
12001 | :exmp. | |
12002 | ||
12003 | .*---------------------------------------------------------------------* | |
12004 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (second(0)) | |
12005 | .*---------------------------------------------------------------------* | |
12006 | :xmp tab=0. | |
12007 | ||
12008 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (second(0))> | |
12009 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12010 | ||
12011 | <STATIC:ASN> | |
12012 | ||
12013 | TempA | |
12014 | ||
12015 | DEFINITIONS ::= | |
12016 | BEGIN | |
12017 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12018 | ||
12019 | ||
12020 | myValue BERPDU ::= second | |
12021 | ||
12022 | ||
12023 | ||
12024 | END | |
12025 | ||
12026 | <STATIC> | |
12027 | ||
12028 | import from TempA all; | |
12029 | ||
12030 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12031 | ||
12032 | ||
12033 | <TTCN_TC:EXEC> | |
12034 | ||
12035 | if (dec_BER_PDU('A0040A810100'O) == myValue) | |
12036 | ||
12037 | {setverdict(pass);} else {setverdict(fail);} | |
12038 | ||
12039 | ||
12040 | <RESULT> | |
12041 | ||
12042 | Overall verdict: pass | |
12043 | ||
12044 | <END_TC> | |
12045 | ||
12046 | :exmp. | |
12047 | ||
12048 | .*---------------------------------------------------------------------* | |
12049 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (second(0)) | |
12050 | .*---------------------------------------------------------------------* | |
12051 | :xmp tab=0. | |
12052 | ||
12053 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (second(0))> | |
12054 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12055 | ||
12056 | <STATIC:ASN> | |
12057 | ||
12058 | TempA | |
12059 | ||
12060 | DEFINITIONS ::= | |
12061 | BEGIN | |
12062 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12063 | ||
12064 | ||
12065 | myValue BERPDU ::= second | |
12066 | ||
12067 | ||
12068 | ||
12069 | END | |
12070 | ||
12071 | <STATIC> | |
12072 | ||
12073 | import from TempA all; | |
12074 | ||
12075 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12076 | ||
12077 | ||
12078 | <TTCN_TC:EXEC> | |
12079 | ||
12080 | if (dec_BER_PDU('A081040A810100'O) == myValue) | |
12081 | ||
12082 | {setverdict(pass);} else {setverdict(fail);} | |
12083 | ||
12084 | ||
12085 | <RESULT> | |
12086 | ||
12087 | Overall verdict: pass | |
12088 | ||
12089 | <END_TC> | |
12090 | ||
12091 | :exmp. | |
12092 | ||
12093 | .*---------------------------------------------------------------------* | |
12094 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (second(0)) | |
12095 | .*---------------------------------------------------------------------* | |
12096 | :xmp tab=0. | |
12097 | ||
12098 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (second(0))> | |
12099 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12100 | ||
12101 | <STATIC:ASN> | |
12102 | ||
12103 | TempA | |
12104 | ||
12105 | DEFINITIONS ::= | |
12106 | BEGIN | |
12107 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12108 | ||
12109 | ||
12110 | myValue BERPDU ::= second | |
12111 | ||
12112 | ||
12113 | ||
12114 | END | |
12115 | ||
12116 | <STATIC> | |
12117 | ||
12118 | import from TempA all; | |
12119 | ||
12120 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12121 | ||
12122 | ||
12123 | <TTCN_TC:EXEC> | |
12124 | ||
12125 | if (dec_BER_PDU('9F580100'O) == myValue) | |
12126 | ||
12127 | {setverdict(pass);} else {setverdict(fail);} | |
12128 | ||
12129 | ||
12130 | <RESULT> | |
12131 | ||
12132 | Overall verdict: pass | |
12133 | ||
12134 | <END_TC> | |
12135 | ||
12136 | :exmp. | |
12137 | ||
12138 | .*---------------------------------------------------------------------* | |
12139 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (second(0)) | |
12140 | .*---------------------------------------------------------------------* | |
12141 | :xmp tab=0. | |
12142 | ||
12143 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (second(0))> | |
12144 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12145 | ||
12146 | <STATIC:ASN> | |
12147 | ||
12148 | TempA | |
12149 | ||
12150 | DEFINITIONS ::= | |
12151 | BEGIN | |
12152 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12153 | ||
12154 | ||
12155 | myValue BERPDU ::= second | |
12156 | ||
12157 | ||
12158 | ||
12159 | END | |
12160 | ||
12161 | <STATIC> | |
12162 | ||
12163 | import from TempA all; | |
12164 | ||
12165 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12166 | ||
12167 | ||
12168 | <TTCN_TC:EXEC> | |
12169 | ||
12170 | if (dec_BER_PDU('9F58810100'O) == myValue) | |
12171 | ||
12172 | {setverdict(pass);} else {setverdict(fail);} | |
12173 | ||
12174 | ||
12175 | <RESULT> | |
12176 | ||
12177 | Overall verdict: pass | |
12178 | ||
12179 | <END_TC> | |
12180 | ||
12181 | :exmp. | |
12182 | ||
12183 | .*---------------------------------------------------------------------* | |
12184 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (third) | |
12185 | .*---------------------------------------------------------------------* | |
12186 | :xmp tab=0. | |
12187 | ||
12188 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (third)> | |
12189 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12190 | ||
12191 | <STATIC:ASN> | |
12192 | ||
12193 | TempA | |
12194 | ||
12195 | DEFINITIONS ::= | |
12196 | BEGIN | |
12197 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12198 | ||
12199 | ||
12200 | myValue BERPDU ::= third | |
12201 | ||
12202 | ||
12203 | ||
12204 | END | |
12205 | ||
12206 | <STATIC> | |
12207 | ||
12208 | import from TempA all; | |
12209 | ||
12210 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12211 | ||
12212 | ||
12213 | <TTCN_TC:EXEC> | |
12214 | ||
12215 | if (dec_BER_PDU('0A0102'O) == myValue) | |
12216 | ||
12217 | {setverdict(pass);} else {setverdict(fail);} | |
12218 | ||
12219 | ||
12220 | <RESULT> | |
12221 | ||
12222 | Overall verdict: pass | |
12223 | ||
12224 | <END_TC> | |
12225 | ||
12226 | :exmp. | |
12227 | ||
12228 | .*---------------------------------------------------------------------* | |
12229 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (third) | |
12230 | .*---------------------------------------------------------------------* | |
12231 | :xmp tab=0. | |
12232 | ||
12233 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (third)> | |
12234 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12235 | ||
12236 | <STATIC:ASN> | |
12237 | ||
12238 | TempA | |
12239 | ||
12240 | DEFINITIONS ::= | |
12241 | BEGIN | |
12242 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12243 | ||
12244 | ||
12245 | myValue BERPDU ::= third | |
12246 | ||
12247 | ||
12248 | ||
12249 | END | |
12250 | ||
12251 | <STATIC> | |
12252 | ||
12253 | import from TempA all; | |
12254 | ||
12255 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12256 | ||
12257 | ||
12258 | <TTCN_TC:EXEC> | |
12259 | ||
12260 | if (dec_BER_PDU('0A810102'O) == myValue) | |
12261 | ||
12262 | {setverdict(pass);} else {setverdict(fail);} | |
12263 | ||
12264 | ||
12265 | <RESULT> | |
12266 | ||
12267 | Overall verdict: pass | |
12268 | ||
12269 | <END_TC> | |
12270 | ||
12271 | :exmp. | |
12272 | ||
12273 | .*---------------------------------------------------------------------* | |
12274 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (third) | |
12275 | .*---------------------------------------------------------------------* | |
12276 | :xmp tab=0. | |
12277 | ||
12278 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (third)> | |
12279 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12280 | ||
12281 | <STATIC:ASN> | |
12282 | ||
12283 | TempA | |
12284 | ||
12285 | DEFINITIONS ::= | |
12286 | BEGIN | |
12287 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12288 | ||
12289 | ||
12290 | myValue BERPDU ::= third | |
12291 | ||
12292 | ||
12293 | ||
12294 | END | |
12295 | ||
12296 | <STATIC> | |
12297 | ||
12298 | import from TempA all; | |
12299 | ||
12300 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12301 | ||
12302 | ||
12303 | <TTCN_TC:EXEC> | |
12304 | ||
12305 | if (dec_BER_PDU('A0030A0102'O) == myValue) | |
12306 | ||
12307 | {setverdict(pass);} else {setverdict(fail);} | |
12308 | ||
12309 | ||
12310 | <RESULT> | |
12311 | ||
12312 | Overall verdict: pass | |
12313 | ||
12314 | <END_TC> | |
12315 | ||
12316 | :exmp. | |
12317 | ||
12318 | .*---------------------------------------------------------------------* | |
12319 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (third) | |
12320 | .*---------------------------------------------------------------------* | |
12321 | :xmp tab=0. | |
12322 | ||
12323 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (third)> | |
12324 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12325 | ||
12326 | <STATIC:ASN> | |
12327 | ||
12328 | TempA | |
12329 | ||
12330 | DEFINITIONS ::= | |
12331 | BEGIN | |
12332 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12333 | ||
12334 | ||
12335 | myValue BERPDU ::= third | |
12336 | ||
12337 | ||
12338 | ||
12339 | END | |
12340 | ||
12341 | <STATIC> | |
12342 | ||
12343 | import from TempA all; | |
12344 | ||
12345 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12346 | ||
12347 | ||
12348 | <TTCN_TC:EXEC> | |
12349 | ||
12350 | if (dec_BER_PDU('A0800A01020000'O) == myValue) | |
12351 | ||
12352 | {setverdict(pass);} else {setverdict(fail);} | |
12353 | ||
12354 | ||
12355 | <RESULT> | |
12356 | ||
12357 | Overall verdict: pass | |
12358 | ||
12359 | <END_TC> | |
12360 | ||
12361 | :exmp. | |
12362 | ||
12363 | .*---------------------------------------------------------------------* | |
12364 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (third) | |
12365 | .*---------------------------------------------------------------------* | |
12366 | :xmp tab=0. | |
12367 | ||
12368 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (third)> | |
12369 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12370 | ||
12371 | <STATIC:ASN> | |
12372 | ||
12373 | TempA | |
12374 | ||
12375 | DEFINITIONS ::= | |
12376 | BEGIN | |
12377 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12378 | ||
12379 | ||
12380 | myValue BERPDU ::= third | |
12381 | ||
12382 | ||
12383 | ||
12384 | END | |
12385 | ||
12386 | <STATIC> | |
12387 | ||
12388 | import from TempA all; | |
12389 | ||
12390 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12391 | ||
12392 | ||
12393 | <TTCN_TC:EXEC> | |
12394 | ||
12395 | if (dec_BER_PDU('A0040A810102'O) == myValue) | |
12396 | ||
12397 | {setverdict(pass);} else {setverdict(fail);} | |
12398 | ||
12399 | ||
12400 | <RESULT> | |
12401 | ||
12402 | Overall verdict: pass | |
12403 | ||
12404 | <END_TC> | |
12405 | ||
12406 | :exmp. | |
12407 | ||
12408 | .*---------------------------------------------------------------------* | |
12409 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (third) | |
12410 | .*---------------------------------------------------------------------* | |
12411 | :xmp tab=0. | |
12412 | ||
12413 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (third)> | |
12414 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12415 | ||
12416 | <STATIC:ASN> | |
12417 | ||
12418 | TempA | |
12419 | ||
12420 | DEFINITIONS ::= | |
12421 | BEGIN | |
12422 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12423 | ||
12424 | ||
12425 | myValue BERPDU ::= third | |
12426 | ||
12427 | ||
12428 | ||
12429 | END | |
12430 | ||
12431 | <STATIC> | |
12432 | ||
12433 | import from TempA all; | |
12434 | ||
12435 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12436 | ||
12437 | ||
12438 | <TTCN_TC:EXEC> | |
12439 | ||
12440 | if (dec_BER_PDU('A081040A810102'O) == myValue) | |
12441 | ||
12442 | {setverdict(pass);} else {setverdict(fail);} | |
12443 | ||
12444 | ||
12445 | <RESULT> | |
12446 | ||
12447 | Overall verdict: pass | |
12448 | ||
12449 | <END_TC> | |
12450 | ||
12451 | :exmp. | |
12452 | ||
12453 | .*---------------------------------------------------------------------* | |
12454 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (third) | |
12455 | .*---------------------------------------------------------------------* | |
12456 | :xmp tab=0. | |
12457 | ||
12458 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (third)> | |
12459 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12460 | ||
12461 | <STATIC:ASN> | |
12462 | ||
12463 | TempA | |
12464 | ||
12465 | DEFINITIONS ::= | |
12466 | BEGIN | |
12467 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12468 | ||
12469 | ||
12470 | myValue BERPDU ::= third | |
12471 | ||
12472 | ||
12473 | ||
12474 | END | |
12475 | ||
12476 | <STATIC> | |
12477 | ||
12478 | import from TempA all; | |
12479 | ||
12480 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12481 | ||
12482 | ||
12483 | <TTCN_TC:EXEC> | |
12484 | ||
12485 | if (dec_BER_PDU('9F580102'O) == myValue) | |
12486 | ||
12487 | {setverdict(pass);} else {setverdict(fail);} | |
12488 | ||
12489 | ||
12490 | <RESULT> | |
12491 | ||
12492 | Overall verdict: pass | |
12493 | ||
12494 | <END_TC> | |
12495 | ||
12496 | :exmp. | |
12497 | ||
12498 | .*---------------------------------------------------------------------* | |
12499 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (third) | |
12500 | .*---------------------------------------------------------------------* | |
12501 | :xmp tab=0. | |
12502 | ||
12503 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (third)> | |
12504 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12505 | ||
12506 | <STATIC:ASN> | |
12507 | ||
12508 | TempA | |
12509 | ||
12510 | DEFINITIONS ::= | |
12511 | BEGIN | |
12512 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12513 | ||
12514 | ||
12515 | myValue BERPDU ::= third | |
12516 | ||
12517 | ||
12518 | ||
12519 | END | |
12520 | ||
12521 | <STATIC> | |
12522 | ||
12523 | import from TempA all; | |
12524 | ||
12525 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12526 | ||
12527 | ||
12528 | <TTCN_TC:EXEC> | |
12529 | ||
12530 | if (dec_BER_PDU('9F58810102'O) == myValue) | |
12531 | ||
12532 | {setverdict(pass);} else {setverdict(fail);} | |
12533 | ||
12534 | ||
12535 | <RESULT> | |
12536 | ||
12537 | Overall verdict: pass | |
12538 | ||
12539 | <END_TC> | |
12540 | ||
12541 | :exmp. | |
12542 | ||
12543 | .*---------------------------------------------------------------------* | |
12544 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (fourth) | |
12545 | .*---------------------------------------------------------------------* | |
12546 | :xmp tab=0. | |
12547 | ||
12548 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (fourth)> | |
12549 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12550 | ||
12551 | <STATIC:ASN> | |
12552 | ||
12553 | TempA | |
12554 | ||
12555 | DEFINITIONS ::= | |
12556 | BEGIN | |
12557 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12558 | ||
12559 | ||
12560 | myValue BERPDU ::= fourth | |
12561 | ||
12562 | ||
12563 | ||
12564 | END | |
12565 | ||
12566 | <STATIC> | |
12567 | ||
12568 | import from TempA all; | |
12569 | ||
12570 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12571 | ||
12572 | ||
12573 | <TTCN_TC:EXEC> | |
12574 | ||
12575 | if (dec_BER_PDU('0A0103'O) == myValue) | |
12576 | ||
12577 | {setverdict(pass);} else {setverdict(fail);} | |
12578 | ||
12579 | ||
12580 | <RESULT> | |
12581 | ||
12582 | Overall verdict: pass | |
12583 | ||
12584 | <END_TC> | |
12585 | ||
12586 | :exmp. | |
12587 | ||
12588 | .*---------------------------------------------------------------------* | |
12589 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (fourth) | |
12590 | .*---------------------------------------------------------------------* | |
12591 | :xmp tab=0. | |
12592 | ||
12593 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (fourth)> | |
12594 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12595 | ||
12596 | <STATIC:ASN> | |
12597 | ||
12598 | TempA | |
12599 | ||
12600 | DEFINITIONS ::= | |
12601 | BEGIN | |
12602 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12603 | ||
12604 | ||
12605 | myValue BERPDU ::= fourth | |
12606 | ||
12607 | ||
12608 | ||
12609 | END | |
12610 | ||
12611 | <STATIC> | |
12612 | ||
12613 | import from TempA all; | |
12614 | ||
12615 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12616 | ||
12617 | ||
12618 | <TTCN_TC:EXEC> | |
12619 | ||
12620 | if (dec_BER_PDU('0A810103'O) == myValue) | |
12621 | ||
12622 | {setverdict(pass);} else {setverdict(fail);} | |
12623 | ||
12624 | ||
12625 | <RESULT> | |
12626 | ||
12627 | Overall verdict: pass | |
12628 | ||
12629 | <END_TC> | |
12630 | ||
12631 | :exmp. | |
12632 | ||
12633 | .*---------------------------------------------------------------------* | |
12634 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (fourth) | |
12635 | .*---------------------------------------------------------------------* | |
12636 | :xmp tab=0. | |
12637 | ||
12638 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (fourth)> | |
12639 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12640 | ||
12641 | <STATIC:ASN> | |
12642 | ||
12643 | TempA | |
12644 | ||
12645 | DEFINITIONS ::= | |
12646 | BEGIN | |
12647 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12648 | ||
12649 | ||
12650 | myValue BERPDU ::= fourth | |
12651 | ||
12652 | ||
12653 | ||
12654 | END | |
12655 | ||
12656 | <STATIC> | |
12657 | ||
12658 | import from TempA all; | |
12659 | ||
12660 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12661 | ||
12662 | ||
12663 | <TTCN_TC:EXEC> | |
12664 | ||
12665 | if (dec_BER_PDU('A0030A0103'O) == myValue) | |
12666 | ||
12667 | {setverdict(pass);} else {setverdict(fail);} | |
12668 | ||
12669 | ||
12670 | <RESULT> | |
12671 | ||
12672 | Overall verdict: pass | |
12673 | ||
12674 | <END_TC> | |
12675 | ||
12676 | :exmp. | |
12677 | ||
12678 | .*---------------------------------------------------------------------* | |
12679 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (fourth) | |
12680 | .*---------------------------------------------------------------------* | |
12681 | :xmp tab=0. | |
12682 | ||
12683 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (fourth)> | |
12684 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12685 | ||
12686 | <STATIC:ASN> | |
12687 | ||
12688 | TempA | |
12689 | ||
12690 | DEFINITIONS ::= | |
12691 | BEGIN | |
12692 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12693 | ||
12694 | ||
12695 | myValue BERPDU ::= fourth | |
12696 | ||
12697 | ||
12698 | ||
12699 | END | |
12700 | ||
12701 | <STATIC> | |
12702 | ||
12703 | import from TempA all; | |
12704 | ||
12705 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12706 | ||
12707 | ||
12708 | <TTCN_TC:EXEC> | |
12709 | ||
12710 | if (dec_BER_PDU('A0800A01030000'O) == myValue) | |
12711 | ||
12712 | {setverdict(pass);} else {setverdict(fail);} | |
12713 | ||
12714 | ||
12715 | <RESULT> | |
12716 | ||
12717 | Overall verdict: pass | |
12718 | ||
12719 | <END_TC> | |
12720 | ||
12721 | :exmp. | |
12722 | ||
12723 | .*---------------------------------------------------------------------* | |
12724 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (fourth) | |
12725 | .*---------------------------------------------------------------------* | |
12726 | :xmp tab=0. | |
12727 | ||
12728 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (fourth)> | |
12729 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12730 | ||
12731 | <STATIC:ASN> | |
12732 | ||
12733 | TempA | |
12734 | ||
12735 | DEFINITIONS ::= | |
12736 | BEGIN | |
12737 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12738 | ||
12739 | ||
12740 | myValue BERPDU ::= fourth | |
12741 | ||
12742 | ||
12743 | ||
12744 | END | |
12745 | ||
12746 | <STATIC> | |
12747 | ||
12748 | import from TempA all; | |
12749 | ||
12750 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12751 | ||
12752 | ||
12753 | <TTCN_TC:EXEC> | |
12754 | ||
12755 | if (dec_BER_PDU('A0040A810103'O) == myValue) | |
12756 | ||
12757 | {setverdict(pass);} else {setverdict(fail);} | |
12758 | ||
12759 | ||
12760 | <RESULT> | |
12761 | ||
12762 | Overall verdict: pass | |
12763 | ||
12764 | <END_TC> | |
12765 | ||
12766 | :exmp. | |
12767 | ||
12768 | .*---------------------------------------------------------------------* | |
12769 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (fourth) | |
12770 | .*---------------------------------------------------------------------* | |
12771 | :xmp tab=0. | |
12772 | ||
12773 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (fourth)> | |
12774 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12775 | ||
12776 | <STATIC:ASN> | |
12777 | ||
12778 | TempA | |
12779 | ||
12780 | DEFINITIONS ::= | |
12781 | BEGIN | |
12782 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12783 | ||
12784 | ||
12785 | myValue BERPDU ::= fourth | |
12786 | ||
12787 | ||
12788 | ||
12789 | END | |
12790 | ||
12791 | <STATIC> | |
12792 | ||
12793 | import from TempA all; | |
12794 | ||
12795 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12796 | ||
12797 | ||
12798 | <TTCN_TC:EXEC> | |
12799 | ||
12800 | if (dec_BER_PDU('A081040A810103'O) == myValue) | |
12801 | ||
12802 | {setverdict(pass);} else {setverdict(fail);} | |
12803 | ||
12804 | ||
12805 | <RESULT> | |
12806 | ||
12807 | Overall verdict: pass | |
12808 | ||
12809 | <END_TC> | |
12810 | ||
12811 | :exmp. | |
12812 | ||
12813 | .*---------------------------------------------------------------------* | |
12814 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (fourth) | |
12815 | .*---------------------------------------------------------------------* | |
12816 | :xmp tab=0. | |
12817 | ||
12818 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (fourth)> | |
12819 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12820 | ||
12821 | <STATIC:ASN> | |
12822 | ||
12823 | TempA | |
12824 | ||
12825 | DEFINITIONS ::= | |
12826 | BEGIN | |
12827 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12828 | ||
12829 | ||
12830 | myValue BERPDU ::= fourth | |
12831 | ||
12832 | ||
12833 | ||
12834 | END | |
12835 | ||
12836 | <STATIC> | |
12837 | ||
12838 | import from TempA all; | |
12839 | ||
12840 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12841 | ||
12842 | ||
12843 | <TTCN_TC:EXEC> | |
12844 | ||
12845 | if (dec_BER_PDU('9F580103'O) == myValue) | |
12846 | ||
12847 | {setverdict(pass);} else {setverdict(fail);} | |
12848 | ||
12849 | ||
12850 | <RESULT> | |
12851 | ||
12852 | Overall verdict: pass | |
12853 | ||
12854 | <END_TC> | |
12855 | ||
12856 | :exmp. | |
12857 | ||
12858 | .*---------------------------------------------------------------------* | |
12859 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (fourth) | |
12860 | .*---------------------------------------------------------------------* | |
12861 | :xmp tab=0. | |
12862 | ||
12863 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (fourth)> | |
12864 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12865 | ||
12866 | <STATIC:ASN> | |
12867 | ||
12868 | TempA | |
12869 | ||
12870 | DEFINITIONS ::= | |
12871 | BEGIN | |
12872 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12873 | ||
12874 | ||
12875 | myValue BERPDU ::= fourth | |
12876 | ||
12877 | ||
12878 | ||
12879 | END | |
12880 | ||
12881 | <STATIC> | |
12882 | ||
12883 | import from TempA all; | |
12884 | ||
12885 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12886 | ||
12887 | ||
12888 | <TTCN_TC:EXEC> | |
12889 | ||
12890 | if (dec_BER_PDU('9F58810103'O) == myValue) | |
12891 | ||
12892 | {setverdict(pass);} else {setverdict(fail);} | |
12893 | ||
12894 | ||
12895 | <RESULT> | |
12896 | ||
12897 | Overall verdict: pass | |
12898 | ||
12899 | <END_TC> | |
12900 | ||
12901 | :exmp. | |
12902 | ||
12903 | .*---------------------------------------------------------------------* | |
12904 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (fifth(5)) | |
12905 | .*---------------------------------------------------------------------* | |
12906 | :xmp tab=0. | |
12907 | ||
12908 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (fifth(5))> | |
12909 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12910 | ||
12911 | <STATIC:ASN> | |
12912 | ||
12913 | TempA | |
12914 | ||
12915 | DEFINITIONS ::= | |
12916 | BEGIN | |
12917 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12918 | ||
12919 | ||
12920 | myValue BERPDU ::= fifth | |
12921 | ||
12922 | ||
12923 | ||
12924 | END | |
12925 | ||
12926 | <STATIC> | |
12927 | ||
12928 | import from TempA all; | |
12929 | ||
12930 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12931 | ||
12932 | ||
12933 | <TTCN_TC:EXEC> | |
12934 | ||
12935 | if (dec_BER_PDU('0A0105'O) == myValue) | |
12936 | ||
12937 | {setverdict(pass);} else {setverdict(fail);} | |
12938 | ||
12939 | ||
12940 | <RESULT> | |
12941 | ||
12942 | Overall verdict: pass | |
12943 | ||
12944 | <END_TC> | |
12945 | ||
12946 | :exmp. | |
12947 | ||
12948 | .*---------------------------------------------------------------------* | |
12949 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (fifth(5)) | |
12950 | .*---------------------------------------------------------------------* | |
12951 | :xmp tab=0. | |
12952 | ||
12953 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (fifth(5))> | |
12954 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12955 | ||
12956 | <STATIC:ASN> | |
12957 | ||
12958 | TempA | |
12959 | ||
12960 | DEFINITIONS ::= | |
12961 | BEGIN | |
12962 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
12963 | ||
12964 | ||
12965 | myValue BERPDU ::= fifth | |
12966 | ||
12967 | ||
12968 | ||
12969 | END | |
12970 | ||
12971 | <STATIC> | |
12972 | ||
12973 | import from TempA all; | |
12974 | ||
12975 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
12976 | ||
12977 | ||
12978 | <TTCN_TC:EXEC> | |
12979 | ||
12980 | if (dec_BER_PDU('0A810105'O) == myValue) | |
12981 | ||
12982 | {setverdict(pass);} else {setverdict(fail);} | |
12983 | ||
12984 | ||
12985 | <RESULT> | |
12986 | ||
12987 | Overall verdict: pass | |
12988 | ||
12989 | <END_TC> | |
12990 | ||
12991 | :exmp. | |
12992 | ||
12993 | .*---------------------------------------------------------------------* | |
12994 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (fifth(5)) | |
12995 | .*---------------------------------------------------------------------* | |
12996 | :xmp tab=0. | |
12997 | ||
12998 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (fifth(5))> | |
12999 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13000 | ||
13001 | <STATIC:ASN> | |
13002 | ||
13003 | TempA | |
13004 | ||
13005 | DEFINITIONS ::= | |
13006 | BEGIN | |
13007 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13008 | ||
13009 | ||
13010 | myValue BERPDU ::= fifth | |
13011 | ||
13012 | ||
13013 | ||
13014 | END | |
13015 | ||
13016 | <STATIC> | |
13017 | ||
13018 | import from TempA all; | |
13019 | ||
13020 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13021 | ||
13022 | ||
13023 | <TTCN_TC:EXEC> | |
13024 | ||
13025 | if (dec_BER_PDU('A0030A0105'O) == myValue) | |
13026 | ||
13027 | {setverdict(pass);} else {setverdict(fail);} | |
13028 | ||
13029 | ||
13030 | <RESULT> | |
13031 | ||
13032 | Overall verdict: pass | |
13033 | ||
13034 | <END_TC> | |
13035 | ||
13036 | :exmp. | |
13037 | ||
13038 | .*---------------------------------------------------------------------* | |
13039 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (fifth(5)) | |
13040 | .*---------------------------------------------------------------------* | |
13041 | :xmp tab=0. | |
13042 | ||
13043 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (fifth(5))> | |
13044 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13045 | ||
13046 | <STATIC:ASN> | |
13047 | ||
13048 | TempA | |
13049 | ||
13050 | DEFINITIONS ::= | |
13051 | BEGIN | |
13052 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13053 | ||
13054 | ||
13055 | myValue BERPDU ::= fifth | |
13056 | ||
13057 | ||
13058 | ||
13059 | END | |
13060 | ||
13061 | <STATIC> | |
13062 | ||
13063 | import from TempA all; | |
13064 | ||
13065 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13066 | ||
13067 | ||
13068 | <TTCN_TC:EXEC> | |
13069 | ||
13070 | if (dec_BER_PDU('A0800A01050000'O) == myValue) | |
13071 | ||
13072 | {setverdict(pass);} else {setverdict(fail);} | |
13073 | ||
13074 | ||
13075 | <RESULT> | |
13076 | ||
13077 | Overall verdict: pass | |
13078 | ||
13079 | <END_TC> | |
13080 | ||
13081 | :exmp. | |
13082 | ||
13083 | .*---------------------------------------------------------------------* | |
13084 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (fifth(5)) | |
13085 | .*---------------------------------------------------------------------* | |
13086 | :xmp tab=0. | |
13087 | ||
13088 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (fifth(5))> | |
13089 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13090 | ||
13091 | <STATIC:ASN> | |
13092 | ||
13093 | TempA | |
13094 | ||
13095 | DEFINITIONS ::= | |
13096 | BEGIN | |
13097 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13098 | ||
13099 | ||
13100 | myValue BERPDU ::= fifth | |
13101 | ||
13102 | ||
13103 | ||
13104 | END | |
13105 | ||
13106 | <STATIC> | |
13107 | ||
13108 | import from TempA all; | |
13109 | ||
13110 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13111 | ||
13112 | ||
13113 | <TTCN_TC:EXEC> | |
13114 | ||
13115 | if (dec_BER_PDU('A0040A810105'O) == myValue) | |
13116 | ||
13117 | {setverdict(pass);} else {setverdict(fail);} | |
13118 | ||
13119 | ||
13120 | <RESULT> | |
13121 | ||
13122 | Overall verdict: pass | |
13123 | ||
13124 | <END_TC> | |
13125 | ||
13126 | :exmp. | |
13127 | ||
13128 | .*---------------------------------------------------------------------* | |
13129 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (fifth(5)) | |
13130 | .*---------------------------------------------------------------------* | |
13131 | :xmp tab=0. | |
13132 | ||
13133 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (fifth(5))> | |
13134 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13135 | ||
13136 | <STATIC:ASN> | |
13137 | ||
13138 | TempA | |
13139 | ||
13140 | DEFINITIONS ::= | |
13141 | BEGIN | |
13142 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13143 | ||
13144 | ||
13145 | myValue BERPDU ::= fifth | |
13146 | ||
13147 | ||
13148 | ||
13149 | END | |
13150 | ||
13151 | <STATIC> | |
13152 | ||
13153 | import from TempA all; | |
13154 | ||
13155 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13156 | ||
13157 | ||
13158 | <TTCN_TC:EXEC> | |
13159 | ||
13160 | if (dec_BER_PDU('A081040A810105'O) == myValue) | |
13161 | ||
13162 | {setverdict(pass);} else {setverdict(fail);} | |
13163 | ||
13164 | ||
13165 | <RESULT> | |
13166 | ||
13167 | Overall verdict: pass | |
13168 | ||
13169 | <END_TC> | |
13170 | ||
13171 | :exmp. | |
13172 | ||
13173 | .*---------------------------------------------------------------------* | |
13174 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (fifth(5)) | |
13175 | .*---------------------------------------------------------------------* | |
13176 | :xmp tab=0. | |
13177 | ||
13178 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (fifth(5))> | |
13179 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13180 | ||
13181 | <STATIC:ASN> | |
13182 | ||
13183 | TempA | |
13184 | ||
13185 | DEFINITIONS ::= | |
13186 | BEGIN | |
13187 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13188 | ||
13189 | ||
13190 | myValue BERPDU ::= fifth | |
13191 | ||
13192 | ||
13193 | ||
13194 | END | |
13195 | ||
13196 | <STATIC> | |
13197 | ||
13198 | import from TempA all; | |
13199 | ||
13200 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13201 | ||
13202 | ||
13203 | <TTCN_TC:EXEC> | |
13204 | ||
13205 | if (dec_BER_PDU('9F580105'O) == myValue) | |
13206 | ||
13207 | {setverdict(pass);} else {setverdict(fail);} | |
13208 | ||
13209 | ||
13210 | <RESULT> | |
13211 | ||
13212 | Overall verdict: pass | |
13213 | ||
13214 | <END_TC> | |
13215 | ||
13216 | :exmp. | |
13217 | ||
13218 | .*---------------------------------------------------------------------* | |
13219 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (fifth(5)) | |
13220 | .*---------------------------------------------------------------------* | |
13221 | :xmp tab=0. | |
13222 | ||
13223 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (fifth(5))> | |
13224 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13225 | ||
13226 | <STATIC:ASN> | |
13227 | ||
13228 | TempA | |
13229 | ||
13230 | DEFINITIONS ::= | |
13231 | BEGIN | |
13232 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13233 | ||
13234 | ||
13235 | myValue BERPDU ::= fifth | |
13236 | ||
13237 | ||
13238 | ||
13239 | END | |
13240 | ||
13241 | <STATIC> | |
13242 | ||
13243 | import from TempA all; | |
13244 | ||
13245 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13246 | ||
13247 | ||
13248 | <TTCN_TC:EXEC> | |
13249 | ||
13250 | if (dec_BER_PDU('9F58810105'O) == myValue) | |
13251 | ||
13252 | {setverdict(pass);} else {setverdict(fail);} | |
13253 | ||
13254 | ||
13255 | <RESULT> | |
13256 | ||
13257 | Overall verdict: pass | |
13258 | ||
13259 | <END_TC> | |
13260 | ||
13261 | :exmp. | |
13262 | ||
13263 | .*---------------------------------------------------------------------* | |
13264 | :h3. DECODING OF UNTAGGED ENUMERATED, CER+DER (sixth) | |
13265 | .*---------------------------------------------------------------------* | |
13266 | :xmp tab=0. | |
13267 | ||
13268 | <TC - DECODING OF UNTAGGED ENUMERATED, CER+DER (sixth)> | |
13269 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13270 | ||
13271 | <STATIC:ASN> | |
13272 | ||
13273 | TempA | |
13274 | ||
13275 | DEFINITIONS ::= | |
13276 | BEGIN | |
13277 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13278 | ||
13279 | ||
13280 | myValue BERPDU ::= sixth | |
13281 | ||
13282 | ||
13283 | ||
13284 | END | |
13285 | ||
13286 | <STATIC> | |
13287 | ||
13288 | import from TempA all; | |
13289 | ||
13290 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13291 | ||
13292 | ||
13293 | <TTCN_TC:EXEC> | |
13294 | ||
13295 | if (dec_BER_PDU('0A0106'O) == myValue) | |
13296 | ||
13297 | {setverdict(pass);} else {setverdict(fail);} | |
13298 | ||
13299 | ||
13300 | <RESULT> | |
13301 | ||
13302 | Overall verdict: pass | |
13303 | ||
13304 | <END_TC> | |
13305 | ||
13306 | :exmp. | |
13307 | ||
13308 | .*---------------------------------------------------------------------* | |
13309 | :h3. DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (sixth) | |
13310 | .*---------------------------------------------------------------------* | |
13311 | :xmp tab=0. | |
13312 | ||
13313 | <TC - DECODING OF UNTAGGED ENUMERATED, Length of length = 1, (sixth)> | |
13314 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13315 | ||
13316 | <STATIC:ASN> | |
13317 | ||
13318 | TempA | |
13319 | ||
13320 | DEFINITIONS ::= | |
13321 | BEGIN | |
13322 | BERPDU ::= ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13323 | ||
13324 | ||
13325 | myValue BERPDU ::= sixth | |
13326 | ||
13327 | ||
13328 | ||
13329 | END | |
13330 | ||
13331 | <STATIC> | |
13332 | ||
13333 | import from TempA all; | |
13334 | ||
13335 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13336 | ||
13337 | ||
13338 | <TTCN_TC:EXEC> | |
13339 | ||
13340 | if (dec_BER_PDU('0A810106'O) == myValue) | |
13341 | ||
13342 | {setverdict(pass);} else {setverdict(fail);} | |
13343 | ||
13344 | ||
13345 | <RESULT> | |
13346 | ||
13347 | Overall verdict: pass | |
13348 | ||
13349 | <END_TC> | |
13350 | ||
13351 | :exmp. | |
13352 | ||
13353 | .*---------------------------------------------------------------------* | |
13354 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (sixth) | |
13355 | .*---------------------------------------------------------------------* | |
13356 | :xmp tab=0. | |
13357 | ||
13358 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, DER (short form - short form) (sixth)> | |
13359 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13360 | ||
13361 | <STATIC:ASN> | |
13362 | ||
13363 | TempA | |
13364 | ||
13365 | DEFINITIONS ::= | |
13366 | BEGIN | |
13367 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13368 | ||
13369 | ||
13370 | myValue BERPDU ::= sixth | |
13371 | ||
13372 | ||
13373 | ||
13374 | END | |
13375 | ||
13376 | <STATIC> | |
13377 | ||
13378 | import from TempA all; | |
13379 | ||
13380 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13381 | ||
13382 | ||
13383 | <TTCN_TC:EXEC> | |
13384 | ||
13385 | if (dec_BER_PDU('A0030A0106'O) == myValue) | |
13386 | ||
13387 | {setverdict(pass);} else {setverdict(fail);} | |
13388 | ||
13389 | ||
13390 | <RESULT> | |
13391 | ||
13392 | Overall verdict: pass | |
13393 | ||
13394 | <END_TC> | |
13395 | ||
13396 | :exmp. | |
13397 | ||
13398 | .*---------------------------------------------------------------------* | |
13399 | :h3. DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (sixth) | |
13400 | .*---------------------------------------------------------------------* | |
13401 | :xmp tab=0. | |
13402 | ||
13403 | <TC - DECODING OF EXPLICIT TAGGED OF ENUMERATED, CER (INDEFINITE FORM) (sixth)> | |
13404 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13405 | ||
13406 | <STATIC:ASN> | |
13407 | ||
13408 | TempA | |
13409 | ||
13410 | DEFINITIONS ::= | |
13411 | BEGIN | |
13412 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13413 | ||
13414 | ||
13415 | myValue BERPDU ::= sixth | |
13416 | ||
13417 | ||
13418 | ||
13419 | END | |
13420 | ||
13421 | <STATIC> | |
13422 | ||
13423 | import from TempA all; | |
13424 | ||
13425 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13426 | ||
13427 | ||
13428 | <TTCN_TC:EXEC> | |
13429 | ||
13430 | if (dec_BER_PDU('A0800A01060000'O) == myValue) | |
13431 | ||
13432 | {setverdict(pass);} else {setverdict(fail);} | |
13433 | ||
13434 | ||
13435 | <RESULT> | |
13436 | ||
13437 | Overall verdict: pass | |
13438 | ||
13439 | <END_TC> | |
13440 | ||
13441 | :exmp. | |
13442 | ||
13443 | .*---------------------------------------------------------------------* | |
13444 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (sixth) | |
13445 | .*---------------------------------------------------------------------* | |
13446 | :xmp tab=0. | |
13447 | ||
13448 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, short form - long form (sixth)> | |
13449 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13450 | ||
13451 | <STATIC:ASN> | |
13452 | ||
13453 | TempA | |
13454 | ||
13455 | DEFINITIONS ::= | |
13456 | BEGIN | |
13457 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13458 | ||
13459 | ||
13460 | myValue BERPDU ::= sixth | |
13461 | ||
13462 | ||
13463 | ||
13464 | END | |
13465 | ||
13466 | <STATIC> | |
13467 | ||
13468 | import from TempA all; | |
13469 | ||
13470 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13471 | ||
13472 | ||
13473 | <TTCN_TC:EXEC> | |
13474 | ||
13475 | if (dec_BER_PDU('A0040A810106'O) == myValue) | |
13476 | ||
13477 | {setverdict(pass);} else {setverdict(fail);} | |
13478 | ||
13479 | ||
13480 | <RESULT> | |
13481 | ||
13482 | Overall verdict: pass | |
13483 | ||
13484 | <END_TC> | |
13485 | ||
13486 | :exmp. | |
13487 | ||
13488 | .*---------------------------------------------------------------------* | |
13489 | :h3. DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (sixth) | |
13490 | .*---------------------------------------------------------------------* | |
13491 | :xmp tab=0. | |
13492 | ||
13493 | <TC - DECODING OF EXPLICIT TAGGED ENUMERATED, long form - long form (sixth)> | |
13494 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13495 | ||
13496 | <STATIC:ASN> | |
13497 | ||
13498 | TempA | |
13499 | ||
13500 | DEFINITIONS ::= | |
13501 | BEGIN | |
13502 | BERPDU ::= [0] EXPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13503 | ||
13504 | ||
13505 | myValue BERPDU ::= sixth | |
13506 | ||
13507 | ||
13508 | ||
13509 | END | |
13510 | ||
13511 | <STATIC> | |
13512 | ||
13513 | import from TempA all; | |
13514 | ||
13515 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13516 | ||
13517 | ||
13518 | <TTCN_TC:EXEC> | |
13519 | ||
13520 | if (dec_BER_PDU('A081040A810106'O) == myValue) | |
13521 | ||
13522 | {setverdict(pass);} else {setverdict(fail);} | |
13523 | ||
13524 | ||
13525 | <RESULT> | |
13526 | ||
13527 | Overall verdict: pass | |
13528 | ||
13529 | <END_TC> | |
13530 | ||
13531 | :exmp. | |
13532 | ||
13533 | .*---------------------------------------------------------------------* | |
13534 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (sixth) | |
13535 | .*---------------------------------------------------------------------* | |
13536 | :xmp tab=0. | |
13537 | ||
13538 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, CER+DER (sixth)> | |
13539 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13540 | ||
13541 | <STATIC:ASN> | |
13542 | ||
13543 | TempA | |
13544 | ||
13545 | DEFINITIONS ::= | |
13546 | BEGIN | |
13547 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13548 | ||
13549 | ||
13550 | myValue BERPDU ::= sixth | |
13551 | ||
13552 | ||
13553 | ||
13554 | END | |
13555 | ||
13556 | <STATIC> | |
13557 | ||
13558 | import from TempA all; | |
13559 | ||
13560 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13561 | ||
13562 | ||
13563 | <TTCN_TC:EXEC> | |
13564 | ||
13565 | if (dec_BER_PDU('9F580106'O) == myValue) | |
13566 | ||
13567 | {setverdict(pass);} else {setverdict(fail);} | |
13568 | ||
13569 | ||
13570 | <RESULT> | |
13571 | ||
13572 | Overall verdict: pass | |
13573 | ||
13574 | <END_TC> | |
13575 | ||
13576 | :exmp. | |
13577 | ||
13578 | .*---------------------------------------------------------------------* | |
13579 | :h3. DECODING OF IMPLICIT TAGGED ENUMERATED, long form (sixth) | |
13580 | .*---------------------------------------------------------------------* | |
13581 | :xmp tab=0. | |
13582 | ||
13583 | <TC - DECODING OF IMPLICIT TAGGED ENUMERATED, long form (sixth)> | |
13584 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13585 | ||
13586 | <STATIC:ASN> | |
13587 | ||
13588 | TempA | |
13589 | ||
13590 | DEFINITIONS ::= | |
13591 | BEGIN | |
13592 | BERPDU ::= [88] IMPLICIT ENUMERATED {first, second(0),third,...,fourth, fifth(5),sixth} | |
13593 | ||
13594 | ||
13595 | myValue BERPDU ::= sixth | |
13596 | ||
13597 | ||
13598 | ||
13599 | END | |
13600 | ||
13601 | <STATIC> | |
13602 | ||
13603 | import from TempA all; | |
13604 | ||
13605 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
13606 | ||
13607 | ||
13608 | <TTCN_TC:EXEC> | |
13609 | ||
13610 | if (dec_BER_PDU('9F58810106'O) == myValue) | |
13611 | ||
13612 | {setverdict(pass);} else {setverdict(fail);} | |
13613 | ||
13614 | ||
13615 | <RESULT> | |
13616 | ||
13617 | Overall verdict: pass | |
13618 | ||
13619 | <END_TC> | |
13620 | ||
13621 | :exmp. | |
13622 | ||
13623 | .*---------------------------------------------------------------------* | |
13624 | :h3.CER + DER encoding of REAL, 0 (primitive) | |
13625 | .*---------------------------------------------------------------------* | |
13626 | :xmp tab=0. | |
13627 | ||
13628 | <TC - CER + DER encoding of REAL, 0 (primitive)> | |
13629 | ||
13630 | <STATIC:ASN> | |
13631 | ||
13632 | TempA | |
13633 | ||
13634 | DEFINITIONS ::= | |
13635 | BEGIN | |
13636 | BERPDU ::= REAL | |
13637 | b BERPDU ::= 0 | |
13638 | ||
13639 | END | |
13640 | ||
13641 | <STATIC> | |
13642 | ||
13643 | import from TempA all; | |
13644 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13645 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13646 | ||
13647 | ||
13648 | ||
13649 | <TTCN_TC:EXEC> | |
13650 | ||
13651 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13652 | ||
13653 | <RESULT> | |
13654 | ||
13655 | Overall verdict: pass | |
13656 | ||
13657 | <END_TC> | |
13658 | ||
13659 | :exmp. | |
13660 | ||
13661 | .*---------------------------------------------------------------------* | |
13662 | :h3.CER + DER encoding of REAL, 0.0 (primitive) | |
13663 | .*---------------------------------------------------------------------* | |
13664 | :xmp tab=0. | |
13665 | ||
13666 | <TC - CER + DER encoding of REAL, 0.0 (primitive)> | |
13667 | ||
13668 | <STATIC:ASN> | |
13669 | ||
13670 | TempA | |
13671 | ||
13672 | DEFINITIONS ::= | |
13673 | BEGIN | |
13674 | BERPDU ::= REAL | |
13675 | b BERPDU ::= 0.0 | |
13676 | ||
13677 | END | |
13678 | ||
13679 | <STATIC> | |
13680 | ||
13681 | import from TempA all; | |
13682 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13683 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13684 | ||
13685 | ||
13686 | ||
13687 | <TTCN_TC:EXEC> | |
13688 | ||
13689 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13690 | ||
13691 | <RESULT> | |
13692 | ||
13693 | Overall verdict: pass | |
13694 | ||
13695 | <END_TC> | |
13696 | ||
13697 | :exmp. | |
13698 | ||
13699 | .*---------------------------------------------------------------------* | |
13700 | :h3.CER + DER encoding of REAL, 0E0 (primitive) | |
13701 | .*---------------------------------------------------------------------* | |
13702 | :xmp tab=0. | |
13703 | ||
13704 | <TC - CER + DER encoding of REAL, 0E0 (primitive)> | |
13705 | ||
13706 | <STATIC:ASN> | |
13707 | ||
13708 | TempA | |
13709 | ||
13710 | DEFINITIONS ::= | |
13711 | BEGIN | |
13712 | BERPDU ::= REAL | |
13713 | b BERPDU ::= 0E0 | |
13714 | ||
13715 | END | |
13716 | ||
13717 | <STATIC> | |
13718 | ||
13719 | import from TempA all; | |
13720 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13721 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13722 | ||
13723 | ||
13724 | ||
13725 | <TTCN_TC:EXEC> | |
13726 | ||
13727 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13728 | ||
13729 | <RESULT> | |
13730 | ||
13731 | Overall verdict: pass | |
13732 | ||
13733 | <END_TC> | |
13734 | ||
13735 | :exmp. | |
13736 | ||
13737 | .*---------------------------------------------------------------------* | |
13738 | :h3.CER + DER encoding of REAL, 0.0E0 (primitive) | |
13739 | .*---------------------------------------------------------------------* | |
13740 | :xmp tab=0. | |
13741 | ||
13742 | <TC - CER + DER encoding of REAL, 0.0E0 (primitive)> | |
13743 | ||
13744 | <STATIC:ASN> | |
13745 | ||
13746 | TempA | |
13747 | ||
13748 | DEFINITIONS ::= | |
13749 | BEGIN | |
13750 | BERPDU ::= REAL | |
13751 | b BERPDU ::= 0.0E0 | |
13752 | ||
13753 | END | |
13754 | ||
13755 | <STATIC> | |
13756 | ||
13757 | import from TempA all; | |
13758 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13759 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13760 | ||
13761 | ||
13762 | ||
13763 | <TTCN_TC:EXEC> | |
13764 | ||
13765 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13766 | ||
13767 | <RESULT> | |
13768 | ||
13769 | Overall verdict: pass | |
13770 | ||
13771 | <END_TC> | |
13772 | ||
13773 | :exmp. | |
13774 | ||
13775 | .*---------------------------------------------------------------------* | |
13776 | :h3.CER + DER encoding of REAL, 0e0 (primitive) | |
13777 | .*---------------------------------------------------------------------* | |
13778 | :xmp tab=0. | |
13779 | ||
13780 | <TC - CER + DER encoding of REAL, 0e0 (primitive)> | |
13781 | ||
13782 | <STATIC:ASN> | |
13783 | ||
13784 | TempA | |
13785 | ||
13786 | DEFINITIONS ::= | |
13787 | BEGIN | |
13788 | BERPDU ::= REAL | |
13789 | b BERPDU ::= 0e0 | |
13790 | ||
13791 | END | |
13792 | ||
13793 | <STATIC> | |
13794 | ||
13795 | import from TempA all; | |
13796 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13797 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13798 | ||
13799 | ||
13800 | ||
13801 | <TTCN_TC:EXEC> | |
13802 | ||
13803 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13804 | ||
13805 | <RESULT> | |
13806 | ||
13807 | Overall verdict: pass | |
13808 | ||
13809 | <END_TC> | |
13810 | ||
13811 | :exmp. | |
13812 | ||
13813 | .*---------------------------------------------------------------------* | |
13814 | :h3.CER + DER encoding of REAL, 0.0e0 (primitive) | |
13815 | .*---------------------------------------------------------------------* | |
13816 | :xmp tab=0. | |
13817 | ||
13818 | <TC - CER + DER encoding of REAL, 0.0e0 (primitive)> | |
13819 | ||
13820 | <STATIC:ASN> | |
13821 | ||
13822 | TempA | |
13823 | ||
13824 | DEFINITIONS ::= | |
13825 | BEGIN | |
13826 | BERPDU ::= REAL | |
13827 | b BERPDU ::= 0.0e0 | |
13828 | ||
13829 | END | |
13830 | ||
13831 | <STATIC> | |
13832 | ||
13833 | import from TempA all; | |
13834 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13835 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13836 | ||
13837 | ||
13838 | ||
13839 | <TTCN_TC:EXEC> | |
13840 | ||
13841 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13842 | ||
13843 | <RESULT> | |
13844 | ||
13845 | Overall verdict: pass | |
13846 | ||
13847 | <END_TC> | |
13848 | ||
13849 | :exmp. | |
13850 | ||
13851 | .*---------------------------------------------------------------------* | |
13852 | :h3.CER + DER encoding of REAL, 0E+0 (primitive) | |
13853 | .*---------------------------------------------------------------------* | |
13854 | :xmp tab=0. | |
13855 | ||
13856 | <TC - CER + DER encoding of REAL, 0E+0 (primitive)> | |
13857 | ||
13858 | <STATIC:ASN> | |
13859 | ||
13860 | TempA | |
13861 | ||
13862 | DEFINITIONS ::= | |
13863 | BEGIN | |
13864 | BERPDU ::= REAL | |
13865 | b BERPDU ::= 0E+0 | |
13866 | ||
13867 | END | |
13868 | ||
13869 | <STATIC> | |
13870 | ||
13871 | import from TempA all; | |
13872 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13873 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13874 | ||
13875 | ||
13876 | ||
13877 | <TTCN_TC:EXEC> | |
13878 | ||
13879 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13880 | ||
13881 | <RESULT> | |
13882 | ||
13883 | Overall verdict: pass | |
13884 | ||
13885 | <END_TC> | |
13886 | ||
13887 | :exmp. | |
13888 | ||
13889 | .*---------------------------------------------------------------------* | |
13890 | :h3.CER + DER encoding of REAL, 0.0E+0 (primitive) | |
13891 | .*---------------------------------------------------------------------* | |
13892 | :xmp tab=0. | |
13893 | ||
13894 | <TC - CER + DER encoding of REAL, 0.0E+0 (primitive)> | |
13895 | ||
13896 | <STATIC:ASN> | |
13897 | ||
13898 | TempA | |
13899 | ||
13900 | DEFINITIONS ::= | |
13901 | BEGIN | |
13902 | BERPDU ::= REAL | |
13903 | b BERPDU ::= 0.0E+0 | |
13904 | ||
13905 | END | |
13906 | ||
13907 | <STATIC> | |
13908 | ||
13909 | import from TempA all; | |
13910 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13911 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13912 | ||
13913 | ||
13914 | ||
13915 | <TTCN_TC:EXEC> | |
13916 | ||
13917 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13918 | ||
13919 | <RESULT> | |
13920 | ||
13921 | Overall verdict: pass | |
13922 | ||
13923 | <END_TC> | |
13924 | ||
13925 | :exmp. | |
13926 | ||
13927 | .*---------------------------------------------------------------------* | |
13928 | :h3.CER + DER encoding of REAL, 0e+0 (primitive) | |
13929 | .*---------------------------------------------------------------------* | |
13930 | :xmp tab=0. | |
13931 | ||
13932 | <TC - CER + DER encoding of REAL, 0e+0 (primitive)> | |
13933 | ||
13934 | <STATIC:ASN> | |
13935 | ||
13936 | TempA | |
13937 | ||
13938 | DEFINITIONS ::= | |
13939 | BEGIN | |
13940 | BERPDU ::= REAL | |
13941 | b BERPDU ::= 0e+0 | |
13942 | ||
13943 | END | |
13944 | ||
13945 | <STATIC> | |
13946 | ||
13947 | import from TempA all; | |
13948 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13949 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13950 | ||
13951 | ||
13952 | ||
13953 | <TTCN_TC:EXEC> | |
13954 | ||
13955 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13956 | ||
13957 | <RESULT> | |
13958 | ||
13959 | Overall verdict: pass | |
13960 | ||
13961 | <END_TC> | |
13962 | ||
13963 | :exmp. | |
13964 | ||
13965 | .*---------------------------------------------------------------------* | |
13966 | :h3.CER + DER encoding of REAL, 0.0e+0 (primitive) | |
13967 | .*---------------------------------------------------------------------* | |
13968 | :xmp tab=0. | |
13969 | ||
13970 | <TC - CER + DER encoding of REAL, 0.0e+0 (primitive)> | |
13971 | ||
13972 | <STATIC:ASN> | |
13973 | ||
13974 | TempA | |
13975 | ||
13976 | DEFINITIONS ::= | |
13977 | BEGIN | |
13978 | BERPDU ::= REAL | |
13979 | b BERPDU ::= 0.0e+0 | |
13980 | ||
13981 | END | |
13982 | ||
13983 | <STATIC> | |
13984 | ||
13985 | import from TempA all; | |
13986 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
13987 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
13988 | ||
13989 | ||
13990 | ||
13991 | <TTCN_TC:EXEC> | |
13992 | ||
13993 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
13994 | ||
13995 | <RESULT> | |
13996 | ||
13997 | Overall verdict: pass | |
13998 | ||
13999 | <END_TC> | |
14000 | ||
14001 | :exmp. | |
14002 | ||
14003 | .*---------------------------------------------------------------------* | |
14004 | :h3.CER + DER encoding of REAL, 0E-0 (primitive) | |
14005 | .*---------------------------------------------------------------------* | |
14006 | :xmp tab=0. | |
14007 | ||
14008 | <TC - CER + DER encoding of REAL, 0E-0 (primitive)> | |
14009 | ||
14010 | <STATIC:ASN> | |
14011 | ||
14012 | TempA | |
14013 | ||
14014 | DEFINITIONS ::= | |
14015 | BEGIN | |
14016 | BERPDU ::= REAL | |
14017 | b BERPDU ::= 0E-0 | |
14018 | ||
14019 | END | |
14020 | ||
14021 | <STATIC> | |
14022 | ||
14023 | import from TempA all; | |
14024 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14025 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14026 | ||
14027 | ||
14028 | ||
14029 | <TTCN_TC:EXEC> | |
14030 | ||
14031 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
14032 | ||
14033 | <RESULT> | |
14034 | ||
14035 | Overall verdict: pass | |
14036 | ||
14037 | <END_TC> | |
14038 | ||
14039 | :exmp. | |
14040 | ||
14041 | .*---------------------------------------------------------------------* | |
14042 | :h3.CER + DER encoding of REAL, 0.0E-0 (primitive) | |
14043 | .*---------------------------------------------------------------------* | |
14044 | :xmp tab=0. | |
14045 | ||
14046 | <TC - CER + DER encoding of REAL, 0.0E-0 (primitive)> | |
14047 | ||
14048 | <STATIC:ASN> | |
14049 | ||
14050 | TempA | |
14051 | ||
14052 | DEFINITIONS ::= | |
14053 | BEGIN | |
14054 | BERPDU ::= REAL | |
14055 | b BERPDU ::= 0.0E-0 | |
14056 | ||
14057 | END | |
14058 | ||
14059 | <STATIC> | |
14060 | ||
14061 | import from TempA all; | |
14062 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14063 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14064 | ||
14065 | ||
14066 | ||
14067 | <TTCN_TC:EXEC> | |
14068 | ||
14069 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
14070 | ||
14071 | <RESULT> | |
14072 | ||
14073 | Overall verdict: pass | |
14074 | ||
14075 | <END_TC> | |
14076 | ||
14077 | :exmp. | |
14078 | ||
14079 | .*---------------------------------------------------------------------* | |
14080 | :h3.CER + DER encoding of REAL, 0e-0 (primitive) | |
14081 | .*---------------------------------------------------------------------* | |
14082 | :xmp tab=0. | |
14083 | ||
14084 | <TC - CER + DER encoding of REAL, 0e-0 (primitive)> | |
14085 | ||
14086 | <STATIC:ASN> | |
14087 | ||
14088 | TempA | |
14089 | ||
14090 | DEFINITIONS ::= | |
14091 | BEGIN | |
14092 | BERPDU ::= REAL | |
14093 | b BERPDU ::= 0e-0 | |
14094 | ||
14095 | END | |
14096 | ||
14097 | <STATIC> | |
14098 | ||
14099 | import from TempA all; | |
14100 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14101 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14102 | ||
14103 | ||
14104 | ||
14105 | <TTCN_TC:EXEC> | |
14106 | ||
14107 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
14108 | ||
14109 | <RESULT> | |
14110 | ||
14111 | Overall verdict: pass | |
14112 | ||
14113 | <END_TC> | |
14114 | ||
14115 | :exmp. | |
14116 | ||
14117 | .*---------------------------------------------------------------------* | |
14118 | :h3.CER + DER encoding of REAL, 0.0e-0 (primitive) | |
14119 | .*---------------------------------------------------------------------* | |
14120 | :xmp tab=0. | |
14121 | ||
14122 | <TC - CER + DER encoding of REAL, 0.0e-0 (primitive)> | |
14123 | ||
14124 | <STATIC:ASN> | |
14125 | ||
14126 | TempA | |
14127 | ||
14128 | DEFINITIONS ::= | |
14129 | BEGIN | |
14130 | BERPDU ::= REAL | |
14131 | b BERPDU ::= 0.0e-0 | |
14132 | ||
14133 | END | |
14134 | ||
14135 | <STATIC> | |
14136 | ||
14137 | import from TempA all; | |
14138 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14139 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14140 | ||
14141 | ||
14142 | ||
14143 | <TTCN_TC:EXEC> | |
14144 | ||
14145 | if ((enc_DER_PDU(b) == '0900'O)and(enc_CER_PDU(b) == '0900'O)) {setverdict(pass);} else {setverdict(fail);} | |
14146 | ||
14147 | <RESULT> | |
14148 | ||
14149 | Overall verdict: pass | |
14150 | ||
14151 | <END_TC> | |
14152 | ||
14153 | :exmp. | |
14154 | ||
14155 | .*---------------------------------------------------------------------* | |
14156 | :h3.CER + DER encoding of REAL, 1 (primitive) | |
14157 | .*---------------------------------------------------------------------* | |
14158 | :xmp tab=0. | |
14159 | ||
14160 | <TC - CER + DER encoding of REAL, 1 (primitive)> | |
14161 | ||
14162 | <STATIC:ASN> | |
14163 | ||
14164 | TempA | |
14165 | ||
14166 | DEFINITIONS ::= | |
14167 | BEGIN | |
14168 | BERPDU ::= REAL | |
14169 | b BERPDU ::= 1 | |
14170 | ||
14171 | END | |
14172 | ||
14173 | <STATIC> | |
14174 | ||
14175 | import from TempA all; | |
14176 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14177 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14178 | ||
14179 | ||
14180 | ||
14181 | <TTCN_TC:EXEC> | |
14182 | ||
14183 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14184 | ||
14185 | <RESULT> | |
14186 | ||
14187 | Overall verdict: pass | |
14188 | ||
14189 | <END_TC> | |
14190 | ||
14191 | :exmp. | |
14192 | ||
14193 | .*---------------------------------------------------------------------* | |
14194 | :h3.CER + DER encoding of REAL, 1e0 (primitive) | |
14195 | .*---------------------------------------------------------------------* | |
14196 | :xmp tab=0. | |
14197 | ||
14198 | <TC - CER + DER encoding of REAL, 1e0 (primitive)> | |
14199 | ||
14200 | <STATIC:ASN> | |
14201 | ||
14202 | TempA | |
14203 | ||
14204 | DEFINITIONS ::= | |
14205 | BEGIN | |
14206 | BERPDU ::= REAL | |
14207 | b BERPDU ::= 1e0 | |
14208 | ||
14209 | END | |
14210 | ||
14211 | <STATIC> | |
14212 | ||
14213 | import from TempA all; | |
14214 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14215 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14216 | ||
14217 | ||
14218 | ||
14219 | <TTCN_TC:EXEC> | |
14220 | ||
14221 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14222 | ||
14223 | <RESULT> | |
14224 | ||
14225 | Overall verdict: pass | |
14226 | ||
14227 | <END_TC> | |
14228 | ||
14229 | :exmp. | |
14230 | ||
14231 | .*---------------------------------------------------------------------* | |
14232 | :h3.CER + DER encoding of REAL, 1E0 (primitive) | |
14233 | .*---------------------------------------------------------------------* | |
14234 | :xmp tab=0. | |
14235 | ||
14236 | <TC - CER + DER encoding of REAL, 1E0 (primitive)> | |
14237 | ||
14238 | <STATIC:ASN> | |
14239 | ||
14240 | TempA | |
14241 | ||
14242 | DEFINITIONS ::= | |
14243 | BEGIN | |
14244 | BERPDU ::= REAL | |
14245 | b BERPDU ::= 1E0 | |
14246 | ||
14247 | END | |
14248 | ||
14249 | <STATIC> | |
14250 | ||
14251 | import from TempA all; | |
14252 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14253 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14254 | ||
14255 | ||
14256 | ||
14257 | <TTCN_TC:EXEC> | |
14258 | ||
14259 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14260 | ||
14261 | <RESULT> | |
14262 | ||
14263 | Overall verdict: pass | |
14264 | ||
14265 | <END_TC> | |
14266 | ||
14267 | :exmp. | |
14268 | ||
14269 | .*---------------------------------------------------------------------* | |
14270 | :h3.CER + DER encoding of REAL, 1.0e0 (primitive) | |
14271 | .*---------------------------------------------------------------------* | |
14272 | :xmp tab=0. | |
14273 | ||
14274 | <TC - CER + DER encoding of REAL, 1.0e0 (primitive)> | |
14275 | ||
14276 | <STATIC:ASN> | |
14277 | ||
14278 | TempA | |
14279 | ||
14280 | DEFINITIONS ::= | |
14281 | BEGIN | |
14282 | BERPDU ::= REAL | |
14283 | b BERPDU ::= 1.0e0 | |
14284 | ||
14285 | END | |
14286 | ||
14287 | <STATIC> | |
14288 | ||
14289 | import from TempA all; | |
14290 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14291 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14292 | ||
14293 | ||
14294 | ||
14295 | <TTCN_TC:EXEC> | |
14296 | ||
14297 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14298 | ||
14299 | <RESULT> | |
14300 | ||
14301 | Overall verdict: pass | |
14302 | ||
14303 | <END_TC> | |
14304 | ||
14305 | :exmp. | |
14306 | ||
14307 | .*---------------------------------------------------------------------* | |
14308 | :h3.CER + DER encoding of REAL, 1.0E0 (primitive) | |
14309 | .*---------------------------------------------------------------------* | |
14310 | :xmp tab=0. | |
14311 | ||
14312 | <TC - CER + DER encoding of REAL, 1.0E0 (primitive)> | |
14313 | ||
14314 | <STATIC:ASN> | |
14315 | ||
14316 | TempA | |
14317 | ||
14318 | DEFINITIONS ::= | |
14319 | BEGIN | |
14320 | BERPDU ::= REAL | |
14321 | b BERPDU ::= 1.0E0 | |
14322 | ||
14323 | END | |
14324 | ||
14325 | <STATIC> | |
14326 | ||
14327 | import from TempA all; | |
14328 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14329 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14330 | ||
14331 | ||
14332 | ||
14333 | <TTCN_TC:EXEC> | |
14334 | ||
14335 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14336 | ||
14337 | <RESULT> | |
14338 | ||
14339 | Overall verdict: pass | |
14340 | ||
14341 | <END_TC> | |
14342 | ||
14343 | :exmp. | |
14344 | ||
14345 | .*---------------------------------------------------------------------* | |
14346 | :h3.CER + DER encoding of REAL, 1e+0 (primitive) | |
14347 | .*---------------------------------------------------------------------* | |
14348 | :xmp tab=0. | |
14349 | ||
14350 | <TC - CER + DER encoding of REAL, 1e+0 (primitive)> | |
14351 | ||
14352 | <STATIC:ASN> | |
14353 | ||
14354 | TempA | |
14355 | ||
14356 | DEFINITIONS ::= | |
14357 | BEGIN | |
14358 | BERPDU ::= REAL | |
14359 | b BERPDU ::= 1e+0 | |
14360 | ||
14361 | END | |
14362 | ||
14363 | <STATIC> | |
14364 | ||
14365 | import from TempA all; | |
14366 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14367 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14368 | ||
14369 | ||
14370 | ||
14371 | <TTCN_TC:EXEC> | |
14372 | ||
14373 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14374 | ||
14375 | <RESULT> | |
14376 | ||
14377 | Overall verdict: pass | |
14378 | ||
14379 | <END_TC> | |
14380 | ||
14381 | :exmp. | |
14382 | ||
14383 | .*---------------------------------------------------------------------* | |
14384 | :h3.CER + DER encoding of REAL, 1E+0 (primitive) | |
14385 | .*---------------------------------------------------------------------* | |
14386 | :xmp tab=0. | |
14387 | ||
14388 | <TC - CER + DER encoding of REAL, 1E+0 (primitive)> | |
14389 | ||
14390 | <STATIC:ASN> | |
14391 | ||
14392 | TempA | |
14393 | ||
14394 | DEFINITIONS ::= | |
14395 | BEGIN | |
14396 | BERPDU ::= REAL | |
14397 | b BERPDU ::= 1E+0 | |
14398 | ||
14399 | END | |
14400 | ||
14401 | <STATIC> | |
14402 | ||
14403 | import from TempA all; | |
14404 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14405 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14406 | ||
14407 | ||
14408 | ||
14409 | <TTCN_TC:EXEC> | |
14410 | ||
14411 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14412 | ||
14413 | <RESULT> | |
14414 | ||
14415 | Overall verdict: pass | |
14416 | ||
14417 | <END_TC> | |
14418 | ||
14419 | :exmp. | |
14420 | ||
14421 | .*---------------------------------------------------------------------* | |
14422 | :h3.CER + DER encoding of REAL, 1.0e+0 (primitive) | |
14423 | .*---------------------------------------------------------------------* | |
14424 | :xmp tab=0. | |
14425 | ||
14426 | <TC - CER + DER encoding of REAL, 1.0e+0 (primitive)> | |
14427 | ||
14428 | <STATIC:ASN> | |
14429 | ||
14430 | TempA | |
14431 | ||
14432 | DEFINITIONS ::= | |
14433 | BEGIN | |
14434 | BERPDU ::= REAL | |
14435 | b BERPDU ::= 1.0e+0 | |
14436 | ||
14437 | END | |
14438 | ||
14439 | <STATIC> | |
14440 | ||
14441 | import from TempA all; | |
14442 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14443 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14444 | ||
14445 | ||
14446 | ||
14447 | <TTCN_TC:EXEC> | |
14448 | ||
14449 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14450 | ||
14451 | <RESULT> | |
14452 | ||
14453 | Overall verdict: pass | |
14454 | ||
14455 | <END_TC> | |
14456 | ||
14457 | :exmp. | |
14458 | ||
14459 | .*---------------------------------------------------------------------* | |
14460 | :h3.CER + DER encoding of REAL, 1.0E+0 (primitive) | |
14461 | .*---------------------------------------------------------------------* | |
14462 | :xmp tab=0. | |
14463 | ||
14464 | <TC - CER + DER encoding of REAL, 1.0E+0 (primitive)> | |
14465 | ||
14466 | <STATIC:ASN> | |
14467 | ||
14468 | TempA | |
14469 | ||
14470 | DEFINITIONS ::= | |
14471 | BEGIN | |
14472 | BERPDU ::= REAL | |
14473 | b BERPDU ::= 1.0E+0 | |
14474 | ||
14475 | END | |
14476 | ||
14477 | <STATIC> | |
14478 | ||
14479 | import from TempA all; | |
14480 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14481 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14482 | ||
14483 | ||
14484 | ||
14485 | <TTCN_TC:EXEC> | |
14486 | ||
14487 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14488 | ||
14489 | <RESULT> | |
14490 | ||
14491 | Overall verdict: pass | |
14492 | ||
14493 | <END_TC> | |
14494 | ||
14495 | :exmp. | |
14496 | ||
14497 | .*---------------------------------------------------------------------* | |
14498 | :h3.CER + DER encoding of REAL, 1e-0 (primitive) | |
14499 | .*---------------------------------------------------------------------* | |
14500 | :xmp tab=0. | |
14501 | ||
14502 | <TC - CER + DER encoding of REAL, 1e-0 (primitive)> | |
14503 | ||
14504 | <STATIC:ASN> | |
14505 | ||
14506 | TempA | |
14507 | ||
14508 | DEFINITIONS ::= | |
14509 | BEGIN | |
14510 | BERPDU ::= REAL | |
14511 | b BERPDU ::= 1e-0 | |
14512 | ||
14513 | END | |
14514 | ||
14515 | <STATIC> | |
14516 | ||
14517 | import from TempA all; | |
14518 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14519 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14520 | ||
14521 | ||
14522 | ||
14523 | <TTCN_TC:EXEC> | |
14524 | ||
14525 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14526 | ||
14527 | <RESULT> | |
14528 | ||
14529 | Overall verdict: pass | |
14530 | ||
14531 | <END_TC> | |
14532 | ||
14533 | :exmp. | |
14534 | ||
14535 | .*---------------------------------------------------------------------* | |
14536 | :h3.CER + DER encoding of REAL, 1E-0 (primitive) | |
14537 | .*---------------------------------------------------------------------* | |
14538 | :xmp tab=0. | |
14539 | ||
14540 | <TC - CER + DER encoding of REAL, 1E-0 (primitive)> | |
14541 | ||
14542 | <STATIC:ASN> | |
14543 | ||
14544 | TempA | |
14545 | ||
14546 | DEFINITIONS ::= | |
14547 | BEGIN | |
14548 | BERPDU ::= REAL | |
14549 | b BERPDU ::= 1E-0 | |
14550 | ||
14551 | END | |
14552 | ||
14553 | <STATIC> | |
14554 | ||
14555 | import from TempA all; | |
14556 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14557 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14558 | ||
14559 | ||
14560 | ||
14561 | <TTCN_TC:EXEC> | |
14562 | ||
14563 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14564 | ||
14565 | <RESULT> | |
14566 | ||
14567 | Overall verdict: pass | |
14568 | ||
14569 | <END_TC> | |
14570 | ||
14571 | :exmp. | |
14572 | ||
14573 | .*---------------------------------------------------------------------* | |
14574 | :h3.CER + DER encoding of REAL, 1.0e-0 (primitive) | |
14575 | .*---------------------------------------------------------------------* | |
14576 | :xmp tab=0. | |
14577 | ||
14578 | <TC - CER + DER encoding of REAL, 1.0e-0 (primitive)> | |
14579 | ||
14580 | <STATIC:ASN> | |
14581 | ||
14582 | TempA | |
14583 | ||
14584 | DEFINITIONS ::= | |
14585 | BEGIN | |
14586 | BERPDU ::= REAL | |
14587 | b BERPDU ::= 1.0e-0 | |
14588 | ||
14589 | END | |
14590 | ||
14591 | <STATIC> | |
14592 | ||
14593 | import from TempA all; | |
14594 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14595 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14596 | ||
14597 | ||
14598 | ||
14599 | <TTCN_TC:EXEC> | |
14600 | ||
14601 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14602 | ||
14603 | <RESULT> | |
14604 | ||
14605 | Overall verdict: pass | |
14606 | ||
14607 | <END_TC> | |
14608 | ||
14609 | :exmp. | |
14610 | ||
14611 | .*---------------------------------------------------------------------* | |
14612 | :h3.CER + DER encoding of REAL, 1.0E-0 (primitive) | |
14613 | .*---------------------------------------------------------------------* | |
14614 | :xmp tab=0. | |
14615 | ||
14616 | <TC - CER + DER encoding of REAL, 1.0E-0 (primitive)> | |
14617 | ||
14618 | <STATIC:ASN> | |
14619 | ||
14620 | TempA | |
14621 | ||
14622 | DEFINITIONS ::= | |
14623 | BEGIN | |
14624 | BERPDU ::= REAL | |
14625 | b BERPDU ::= 1.0E-0 | |
14626 | ||
14627 | END | |
14628 | ||
14629 | <STATIC> | |
14630 | ||
14631 | import from TempA all; | |
14632 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14633 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14634 | ||
14635 | ||
14636 | ||
14637 | <TTCN_TC:EXEC> | |
14638 | ||
14639 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14640 | ||
14641 | <RESULT> | |
14642 | ||
14643 | Overall verdict: pass | |
14644 | ||
14645 | <END_TC> | |
14646 | ||
14647 | :exmp. | |
14648 | ||
14649 | .*---------------------------------------------------------------------* | |
14650 | :h3.CER + DER encoding of REAL, 2 (primitive) | |
14651 | .*---------------------------------------------------------------------* | |
14652 | :xmp tab=0. | |
14653 | ||
14654 | <TC - CER + DER encoding of REAL, 2 (primitive)> | |
14655 | ||
14656 | <STATIC:ASN> | |
14657 | ||
14658 | TempA | |
14659 | ||
14660 | DEFINITIONS ::= | |
14661 | BEGIN | |
14662 | BERPDU ::= REAL | |
14663 | b BERPDU ::= 2 | |
14664 | ||
14665 | END | |
14666 | ||
14667 | <STATIC> | |
14668 | ||
14669 | import from TempA all; | |
14670 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14671 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14672 | ||
14673 | ||
14674 | ||
14675 | <TTCN_TC:EXEC> | |
14676 | ||
14677 | if ((enc_DER_PDU(b) == '090603322E452B30'O)and(enc_CER_PDU(b) == '090603322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14678 | ||
14679 | <RESULT> | |
14680 | ||
14681 | Overall verdict: pass | |
14682 | ||
14683 | <END_TC> | |
14684 | ||
14685 | :exmp. | |
14686 | ||
14687 | .*---------------------------------------------------------------------* | |
14688 | :h3.CER + DER encoding of REAL, 2.0 (primitive) | |
14689 | .*---------------------------------------------------------------------* | |
14690 | :xmp tab=0. | |
14691 | ||
14692 | <TC - CER + DER encoding of REAL, 2.0 (primitive)> | |
14693 | ||
14694 | <STATIC:ASN> | |
14695 | ||
14696 | TempA | |
14697 | ||
14698 | DEFINITIONS ::= | |
14699 | BEGIN | |
14700 | BERPDU ::= REAL | |
14701 | b BERPDU ::= 2.0 | |
14702 | ||
14703 | END | |
14704 | ||
14705 | <STATIC> | |
14706 | ||
14707 | import from TempA all; | |
14708 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14709 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14710 | ||
14711 | ||
14712 | ||
14713 | <TTCN_TC:EXEC> | |
14714 | ||
14715 | if ((enc_DER_PDU(b) == '090603322E452B30'O)and(enc_CER_PDU(b) == '090603322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14716 | ||
14717 | <RESULT> | |
14718 | ||
14719 | Overall verdict: pass | |
14720 | ||
14721 | <END_TC> | |
14722 | ||
14723 | :exmp. | |
14724 | ||
14725 | .*---------------------------------------------------------------------* | |
14726 | :h3.CER + DER encoding of REAL, -1 (primitive) | |
14727 | .*---------------------------------------------------------------------* | |
14728 | :xmp tab=0. | |
14729 | ||
14730 | <TC - CER + DER encoding of REAL, -1 (primitive)> | |
14731 | ||
14732 | <STATIC:ASN> | |
14733 | ||
14734 | TempA | |
14735 | ||
14736 | DEFINITIONS ::= | |
14737 | BEGIN | |
14738 | BERPDU ::= REAL | |
14739 | b BERPDU ::= -1 | |
14740 | ||
14741 | END | |
14742 | ||
14743 | <STATIC> | |
14744 | ||
14745 | import from TempA all; | |
14746 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14747 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14748 | ||
14749 | ||
14750 | ||
14751 | <TTCN_TC:EXEC> | |
14752 | ||
14753 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14754 | ||
14755 | <RESULT> | |
14756 | ||
14757 | Overall verdict: pass | |
14758 | ||
14759 | <END_TC> | |
14760 | ||
14761 | :exmp. | |
14762 | ||
14763 | .*---------------------------------------------------------------------* | |
14764 | :h3.CER + DER encoding of REAL, -1e0 (primitive) | |
14765 | .*---------------------------------------------------------------------* | |
14766 | :xmp tab=0. | |
14767 | ||
14768 | <TC - CER + DER encoding of REAL, -1e0 (primitive)> | |
14769 | ||
14770 | <STATIC:ASN> | |
14771 | ||
14772 | TempA | |
14773 | ||
14774 | DEFINITIONS ::= | |
14775 | BEGIN | |
14776 | BERPDU ::= REAL | |
14777 | b BERPDU ::= -1e0 | |
14778 | ||
14779 | END | |
14780 | ||
14781 | <STATIC> | |
14782 | ||
14783 | import from TempA all; | |
14784 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14785 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14786 | ||
14787 | ||
14788 | ||
14789 | <TTCN_TC:EXEC> | |
14790 | ||
14791 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14792 | ||
14793 | <RESULT> | |
14794 | ||
14795 | Overall verdict: pass | |
14796 | ||
14797 | <END_TC> | |
14798 | ||
14799 | :exmp. | |
14800 | ||
14801 | .*---------------------------------------------------------------------* | |
14802 | :h3.CER + DER encoding of REAL, -1E0 (primitive) | |
14803 | .*---------------------------------------------------------------------* | |
14804 | :xmp tab=0. | |
14805 | ||
14806 | <TC - CER + DER encoding of REAL, -1E0 (primitive)> | |
14807 | ||
14808 | <STATIC:ASN> | |
14809 | ||
14810 | TempA | |
14811 | ||
14812 | DEFINITIONS ::= | |
14813 | BEGIN | |
14814 | BERPDU ::= REAL | |
14815 | b BERPDU ::= -1E0 | |
14816 | ||
14817 | END | |
14818 | ||
14819 | <STATIC> | |
14820 | ||
14821 | import from TempA all; | |
14822 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14823 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14824 | ||
14825 | ||
14826 | ||
14827 | <TTCN_TC:EXEC> | |
14828 | ||
14829 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14830 | ||
14831 | <RESULT> | |
14832 | ||
14833 | Overall verdict: pass | |
14834 | ||
14835 | <END_TC> | |
14836 | ||
14837 | :exmp. | |
14838 | ||
14839 | .*---------------------------------------------------------------------* | |
14840 | :h3.CER + DER encoding of REAL, -1.0e0 (primitive) | |
14841 | .*---------------------------------------------------------------------* | |
14842 | :xmp tab=0. | |
14843 | ||
14844 | <TC - CER + DER encoding of REAL, -1.0e0 (primitive)> | |
14845 | ||
14846 | <STATIC:ASN> | |
14847 | ||
14848 | TempA | |
14849 | ||
14850 | DEFINITIONS ::= | |
14851 | BEGIN | |
14852 | BERPDU ::= REAL | |
14853 | b BERPDU ::= -1.0e0 | |
14854 | ||
14855 | END | |
14856 | ||
14857 | <STATIC> | |
14858 | ||
14859 | import from TempA all; | |
14860 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14861 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14862 | ||
14863 | ||
14864 | ||
14865 | <TTCN_TC:EXEC> | |
14866 | ||
14867 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14868 | ||
14869 | <RESULT> | |
14870 | ||
14871 | Overall verdict: pass | |
14872 | ||
14873 | <END_TC> | |
14874 | ||
14875 | :exmp. | |
14876 | ||
14877 | .*---------------------------------------------------------------------* | |
14878 | :h3.CER + DER encoding of REAL, -1.0E0 (primitive) | |
14879 | .*---------------------------------------------------------------------* | |
14880 | :xmp tab=0. | |
14881 | ||
14882 | <TC - CER + DER encoding of REAL, -1.0E0 (primitive)> | |
14883 | ||
14884 | <STATIC:ASN> | |
14885 | ||
14886 | TempA | |
14887 | ||
14888 | DEFINITIONS ::= | |
14889 | BEGIN | |
14890 | BERPDU ::= REAL | |
14891 | b BERPDU ::= -1.0E0 | |
14892 | ||
14893 | END | |
14894 | ||
14895 | <STATIC> | |
14896 | ||
14897 | import from TempA all; | |
14898 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14899 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14900 | ||
14901 | ||
14902 | ||
14903 | <TTCN_TC:EXEC> | |
14904 | ||
14905 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14906 | ||
14907 | <RESULT> | |
14908 | ||
14909 | Overall verdict: pass | |
14910 | ||
14911 | <END_TC> | |
14912 | ||
14913 | :exmp. | |
14914 | ||
14915 | .*---------------------------------------------------------------------* | |
14916 | :h3.CER + DER encoding of REAL, -1e+0 (primitive) | |
14917 | .*---------------------------------------------------------------------* | |
14918 | :xmp tab=0. | |
14919 | ||
14920 | <TC - CER + DER encoding of REAL, -1e+0 (primitive)> | |
14921 | ||
14922 | <STATIC:ASN> | |
14923 | ||
14924 | TempA | |
14925 | ||
14926 | DEFINITIONS ::= | |
14927 | BEGIN | |
14928 | BERPDU ::= REAL | |
14929 | b BERPDU ::= -1e+0 | |
14930 | ||
14931 | END | |
14932 | ||
14933 | <STATIC> | |
14934 | ||
14935 | import from TempA all; | |
14936 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14937 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14938 | ||
14939 | ||
14940 | ||
14941 | <TTCN_TC:EXEC> | |
14942 | ||
14943 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14944 | ||
14945 | <RESULT> | |
14946 | ||
14947 | Overall verdict: pass | |
14948 | ||
14949 | <END_TC> | |
14950 | ||
14951 | :exmp. | |
14952 | ||
14953 | .*---------------------------------------------------------------------* | |
14954 | :h3.CER + DER encoding of REAL, -1E+0 (primitive) | |
14955 | .*---------------------------------------------------------------------* | |
14956 | :xmp tab=0. | |
14957 | ||
14958 | <TC - CER + DER encoding of REAL, -1E+0 (primitive)> | |
14959 | ||
14960 | <STATIC:ASN> | |
14961 | ||
14962 | TempA | |
14963 | ||
14964 | DEFINITIONS ::= | |
14965 | BEGIN | |
14966 | BERPDU ::= REAL | |
14967 | b BERPDU ::= -1E+0 | |
14968 | ||
14969 | END | |
14970 | ||
14971 | <STATIC> | |
14972 | ||
14973 | import from TempA all; | |
14974 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
14975 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
14976 | ||
14977 | ||
14978 | ||
14979 | <TTCN_TC:EXEC> | |
14980 | ||
14981 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
14982 | ||
14983 | <RESULT> | |
14984 | ||
14985 | Overall verdict: pass | |
14986 | ||
14987 | <END_TC> | |
14988 | ||
14989 | :exmp. | |
14990 | ||
14991 | .*---------------------------------------------------------------------* | |
14992 | :h3.CER + DER encoding of REAL, -1.0e+0 (primitive) | |
14993 | .*---------------------------------------------------------------------* | |
14994 | :xmp tab=0. | |
14995 | ||
14996 | <TC - CER + DER encoding of REAL, -1.0e+0 (primitive)> | |
14997 | ||
14998 | <STATIC:ASN> | |
14999 | ||
15000 | TempA | |
15001 | ||
15002 | DEFINITIONS ::= | |
15003 | BEGIN | |
15004 | BERPDU ::= REAL | |
15005 | b BERPDU ::= -1.0e+0 | |
15006 | ||
15007 | END | |
15008 | ||
15009 | <STATIC> | |
15010 | ||
15011 | import from TempA all; | |
15012 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15013 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15014 | ||
15015 | ||
15016 | ||
15017 | <TTCN_TC:EXEC> | |
15018 | ||
15019 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15020 | ||
15021 | <RESULT> | |
15022 | ||
15023 | Overall verdict: pass | |
15024 | ||
15025 | <END_TC> | |
15026 | ||
15027 | :exmp. | |
15028 | ||
15029 | .*---------------------------------------------------------------------* | |
15030 | :h3.CER + DER encoding of REAL, -1.0E+0 (primitive) | |
15031 | .*---------------------------------------------------------------------* | |
15032 | :xmp tab=0. | |
15033 | ||
15034 | <TC - CER + DER encoding of REAL, -1.0E+0 (primitive)> | |
15035 | ||
15036 | <STATIC:ASN> | |
15037 | ||
15038 | TempA | |
15039 | ||
15040 | DEFINITIONS ::= | |
15041 | BEGIN | |
15042 | BERPDU ::= REAL | |
15043 | b BERPDU ::= -1.0E+0 | |
15044 | ||
15045 | END | |
15046 | ||
15047 | <STATIC> | |
15048 | ||
15049 | import from TempA all; | |
15050 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15051 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15052 | ||
15053 | ||
15054 | ||
15055 | <TTCN_TC:EXEC> | |
15056 | ||
15057 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15058 | ||
15059 | <RESULT> | |
15060 | ||
15061 | Overall verdict: pass | |
15062 | ||
15063 | <END_TC> | |
15064 | ||
15065 | :exmp. | |
15066 | ||
15067 | .*---------------------------------------------------------------------* | |
15068 | :h3.CER + DER encoding of REAL, -1e-0 (primitive) | |
15069 | .*---------------------------------------------------------------------* | |
15070 | :xmp tab=0. | |
15071 | ||
15072 | <TC - CER + DER encoding of REAL, -1e-0 (primitive)> | |
15073 | ||
15074 | <STATIC:ASN> | |
15075 | ||
15076 | TempA | |
15077 | ||
15078 | DEFINITIONS ::= | |
15079 | BEGIN | |
15080 | BERPDU ::= REAL | |
15081 | b BERPDU ::= -1e-0 | |
15082 | ||
15083 | END | |
15084 | ||
15085 | <STATIC> | |
15086 | ||
15087 | import from TempA all; | |
15088 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15089 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15090 | ||
15091 | ||
15092 | ||
15093 | <TTCN_TC:EXEC> | |
15094 | ||
15095 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15096 | ||
15097 | <RESULT> | |
15098 | ||
15099 | Overall verdict: pass | |
15100 | ||
15101 | <END_TC> | |
15102 | ||
15103 | :exmp. | |
15104 | ||
15105 | .*---------------------------------------------------------------------* | |
15106 | :h3.CER + DER encoding of REAL, -1E-0 (primitive) | |
15107 | .*---------------------------------------------------------------------* | |
15108 | :xmp tab=0. | |
15109 | ||
15110 | <TC - CER + DER encoding of REAL, -1E-0 (primitive)> | |
15111 | ||
15112 | <STATIC:ASN> | |
15113 | ||
15114 | TempA | |
15115 | ||
15116 | DEFINITIONS ::= | |
15117 | BEGIN | |
15118 | BERPDU ::= REAL | |
15119 | b BERPDU ::= -1E-0 | |
15120 | ||
15121 | END | |
15122 | ||
15123 | <STATIC> | |
15124 | ||
15125 | import from TempA all; | |
15126 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15127 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15128 | ||
15129 | ||
15130 | ||
15131 | <TTCN_TC:EXEC> | |
15132 | ||
15133 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15134 | ||
15135 | <RESULT> | |
15136 | ||
15137 | Overall verdict: pass | |
15138 | ||
15139 | <END_TC> | |
15140 | ||
15141 | :exmp. | |
15142 | ||
15143 | .*---------------------------------------------------------------------* | |
15144 | :h3.CER + DER encoding of REAL, -1.0e-0 (primitive) | |
15145 | .*---------------------------------------------------------------------* | |
15146 | :xmp tab=0. | |
15147 | ||
15148 | <TC - CER + DER encoding of REAL, -1.0e-0 (primitive)> | |
15149 | ||
15150 | <STATIC:ASN> | |
15151 | ||
15152 | TempA | |
15153 | ||
15154 | DEFINITIONS ::= | |
15155 | BEGIN | |
15156 | BERPDU ::= REAL | |
15157 | b BERPDU ::= -1.0e-0 | |
15158 | ||
15159 | END | |
15160 | ||
15161 | <STATIC> | |
15162 | ||
15163 | import from TempA all; | |
15164 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15165 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15166 | ||
15167 | ||
15168 | ||
15169 | <TTCN_TC:EXEC> | |
15170 | ||
15171 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15172 | ||
15173 | <RESULT> | |
15174 | ||
15175 | Overall verdict: pass | |
15176 | ||
15177 | <END_TC> | |
15178 | ||
15179 | :exmp. | |
15180 | ||
15181 | .*---------------------------------------------------------------------* | |
15182 | :h3.CER + DER encoding of REAL, -1.0E-0 (primitive) | |
15183 | .*---------------------------------------------------------------------* | |
15184 | :xmp tab=0. | |
15185 | ||
15186 | <TC - CER + DER encoding of REAL, -1.0E-0 (primitive)> | |
15187 | ||
15188 | <STATIC:ASN> | |
15189 | ||
15190 | TempA | |
15191 | ||
15192 | DEFINITIONS ::= | |
15193 | BEGIN | |
15194 | BERPDU ::= REAL | |
15195 | b BERPDU ::= -1.0E-0 | |
15196 | ||
15197 | END | |
15198 | ||
15199 | <STATIC> | |
15200 | ||
15201 | import from TempA all; | |
15202 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15203 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15204 | ||
15205 | ||
15206 | ||
15207 | <TTCN_TC:EXEC> | |
15208 | ||
15209 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15210 | ||
15211 | <RESULT> | |
15212 | ||
15213 | Overall verdict: pass | |
15214 | ||
15215 | <END_TC> | |
15216 | ||
15217 | :exmp. | |
15218 | ||
15219 | .*---------------------------------------------------------------------* | |
15220 | :h3.CER + DER encoding of REAL, -1.0 (primitive) | |
15221 | .*---------------------------------------------------------------------* | |
15222 | :xmp tab=0. | |
15223 | ||
15224 | <TC - CER + DER encoding of REAL, -1.0 (primitive)> | |
15225 | ||
15226 | <STATIC:ASN> | |
15227 | ||
15228 | TempA | |
15229 | ||
15230 | DEFINITIONS ::= | |
15231 | BEGIN | |
15232 | BERPDU ::= REAL | |
15233 | b BERPDU ::= -1.0 | |
15234 | ||
15235 | END | |
15236 | ||
15237 | <STATIC> | |
15238 | ||
15239 | import from TempA all; | |
15240 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15241 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15242 | ||
15243 | ||
15244 | ||
15245 | <TTCN_TC:EXEC> | |
15246 | ||
15247 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15248 | ||
15249 | <RESULT> | |
15250 | ||
15251 | Overall verdict: pass | |
15252 | ||
15253 | <END_TC> | |
15254 | ||
15255 | :exmp. | |
15256 | ||
15257 | .*---------------------------------------------------------------------* | |
15258 | :h3.CER + DER encoding of REAL, 1.000 (primitive) | |
15259 | .*---------------------------------------------------------------------* | |
15260 | :xmp tab=0. | |
15261 | ||
15262 | <TC - CER + DER encoding of REAL, 1.000 (primitive)> | |
15263 | ||
15264 | <STATIC:ASN> | |
15265 | ||
15266 | TempA | |
15267 | ||
15268 | DEFINITIONS ::= | |
15269 | BEGIN | |
15270 | BERPDU ::= REAL | |
15271 | b BERPDU ::= 1.000 | |
15272 | ||
15273 | END | |
15274 | ||
15275 | <STATIC> | |
15276 | ||
15277 | import from TempA all; | |
15278 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15279 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15280 | ||
15281 | ||
15282 | ||
15283 | <TTCN_TC:EXEC> | |
15284 | ||
15285 | if ((enc_DER_PDU(b) == '090603312E452B30'O)and(enc_CER_PDU(b) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15286 | ||
15287 | <RESULT> | |
15288 | ||
15289 | Overall verdict: pass | |
15290 | ||
15291 | <END_TC> | |
15292 | ||
15293 | :exmp. | |
15294 | ||
15295 | .*---------------------------------------------------------------------* | |
15296 | :h3.CER + DER encoding of REAL, -1.000 (primitive) | |
15297 | .*---------------------------------------------------------------------* | |
15298 | :xmp tab=0. | |
15299 | ||
15300 | <TC - CER + DER encoding of REAL, -1.000 (primitive)> | |
15301 | ||
15302 | <STATIC:ASN> | |
15303 | ||
15304 | TempA | |
15305 | ||
15306 | DEFINITIONS ::= | |
15307 | BEGIN | |
15308 | BERPDU ::= REAL | |
15309 | b BERPDU ::= -1.000 | |
15310 | ||
15311 | END | |
15312 | ||
15313 | <STATIC> | |
15314 | ||
15315 | import from TempA all; | |
15316 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15317 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15318 | ||
15319 | ||
15320 | ||
15321 | <TTCN_TC:EXEC> | |
15322 | ||
15323 | if ((enc_DER_PDU(b) == '0907032D312E452B30'O)and(enc_CER_PDU(b) == '0907032D312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15324 | ||
15325 | <RESULT> | |
15326 | ||
15327 | Overall verdict: pass | |
15328 | ||
15329 | <END_TC> | |
15330 | ||
15331 | :exmp. | |
15332 | ||
15333 | .*---------------------------------------------------------------------* | |
15334 | :h3.CER + DER encoding of REAL, 12 (primitive) | |
15335 | .*---------------------------------------------------------------------* | |
15336 | :xmp tab=0. | |
15337 | ||
15338 | <TC - CER + DER encoding of REAL, 12 (primitive)> | |
15339 | ||
15340 | <STATIC:ASN> | |
15341 | ||
15342 | TempA | |
15343 | ||
15344 | DEFINITIONS ::= | |
15345 | BEGIN | |
15346 | BERPDU ::= REAL | |
15347 | b BERPDU ::= 12 | |
15348 | ||
15349 | END | |
15350 | ||
15351 | <STATIC> | |
15352 | ||
15353 | import from TempA all; | |
15354 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15355 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15356 | ||
15357 | ||
15358 | ||
15359 | <TTCN_TC:EXEC> | |
15360 | ||
15361 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15362 | ||
15363 | <RESULT> | |
15364 | ||
15365 | Overall verdict: pass | |
15366 | ||
15367 | <END_TC> | |
15368 | ||
15369 | :exmp. | |
15370 | ||
15371 | .*---------------------------------------------------------------------* | |
15372 | :h3.CER + DER encoding of REAL, 12.0 (primitive) | |
15373 | .*---------------------------------------------------------------------* | |
15374 | :xmp tab=0. | |
15375 | ||
15376 | <TC - CER + DER encoding of REAL, 12.0 (primitive)> | |
15377 | ||
15378 | <STATIC:ASN> | |
15379 | ||
15380 | TempA | |
15381 | ||
15382 | DEFINITIONS ::= | |
15383 | BEGIN | |
15384 | BERPDU ::= REAL | |
15385 | b BERPDU ::= 12.0 | |
15386 | ||
15387 | END | |
15388 | ||
15389 | <STATIC> | |
15390 | ||
15391 | import from TempA all; | |
15392 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15393 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15394 | ||
15395 | ||
15396 | ||
15397 | <TTCN_TC:EXEC> | |
15398 | ||
15399 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15400 | ||
15401 | <RESULT> | |
15402 | ||
15403 | Overall verdict: pass | |
15404 | ||
15405 | <END_TC> | |
15406 | ||
15407 | :exmp. | |
15408 | ||
15409 | .*---------------------------------------------------------------------* | |
15410 | :h3.CER + DER encoding of REAL, 12.0E0 (primitive) | |
15411 | .*---------------------------------------------------------------------* | |
15412 | :xmp tab=0. | |
15413 | ||
15414 | <TC - CER + DER encoding of REAL, 12.0E0 (primitive)> | |
15415 | ||
15416 | <STATIC:ASN> | |
15417 | ||
15418 | TempA | |
15419 | ||
15420 | DEFINITIONS ::= | |
15421 | BEGIN | |
15422 | BERPDU ::= REAL | |
15423 | b BERPDU ::= 12.0E0 | |
15424 | ||
15425 | END | |
15426 | ||
15427 | <STATIC> | |
15428 | ||
15429 | import from TempA all; | |
15430 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15431 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15432 | ||
15433 | ||
15434 | ||
15435 | <TTCN_TC:EXEC> | |
15436 | ||
15437 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15438 | ||
15439 | <RESULT> | |
15440 | ||
15441 | Overall verdict: pass | |
15442 | ||
15443 | <END_TC> | |
15444 | ||
15445 | :exmp. | |
15446 | ||
15447 | .*---------------------------------------------------------------------* | |
15448 | :h3.CER + DER encoding of REAL, 1.2E1 (primitive) | |
15449 | .*---------------------------------------------------------------------* | |
15450 | :xmp tab=0. | |
15451 | ||
15452 | <TC - CER + DER encoding of REAL, 1.2E1 (primitive)> | |
15453 | ||
15454 | <STATIC:ASN> | |
15455 | ||
15456 | TempA | |
15457 | ||
15458 | DEFINITIONS ::= | |
15459 | BEGIN | |
15460 | BERPDU ::= REAL | |
15461 | b BERPDU ::= 1.2E1 | |
15462 | ||
15463 | END | |
15464 | ||
15465 | <STATIC> | |
15466 | ||
15467 | import from TempA all; | |
15468 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15469 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15470 | ||
15471 | ||
15472 | ||
15473 | <TTCN_TC:EXEC> | |
15474 | ||
15475 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15476 | ||
15477 | <RESULT> | |
15478 | ||
15479 | Overall verdict: pass | |
15480 | ||
15481 | <END_TC> | |
15482 | ||
15483 | :exmp. | |
15484 | ||
15485 | .*---------------------------------------------------------------------* | |
15486 | :h3.CER + DER encoding of REAL, 0.12E2 (primitive) | |
15487 | .*---------------------------------------------------------------------* | |
15488 | :xmp tab=0. | |
15489 | ||
15490 | <TC - CER + DER encoding of REAL, 0.12E2 (primitive)> | |
15491 | ||
15492 | <STATIC:ASN> | |
15493 | ||
15494 | TempA | |
15495 | ||
15496 | DEFINITIONS ::= | |
15497 | BEGIN | |
15498 | BERPDU ::= REAL | |
15499 | b BERPDU ::= 0.12E2 | |
15500 | ||
15501 | END | |
15502 | ||
15503 | <STATIC> | |
15504 | ||
15505 | import from TempA all; | |
15506 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15507 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15508 | ||
15509 | ||
15510 | ||
15511 | <TTCN_TC:EXEC> | |
15512 | ||
15513 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15514 | ||
15515 | <RESULT> | |
15516 | ||
15517 | Overall verdict: pass | |
15518 | ||
15519 | <END_TC> | |
15520 | ||
15521 | :exmp. | |
15522 | ||
15523 | .*---------------------------------------------------------------------* | |
15524 | :h3.CER + DER encoding of REAL, 1.2E+1 (primitive) | |
15525 | .*---------------------------------------------------------------------* | |
15526 | :xmp tab=0. | |
15527 | ||
15528 | <TC - CER + DER encoding of REAL, 1.2E+1 (primitive)> | |
15529 | ||
15530 | <STATIC:ASN> | |
15531 | ||
15532 | TempA | |
15533 | ||
15534 | DEFINITIONS ::= | |
15535 | BEGIN | |
15536 | BERPDU ::= REAL | |
15537 | b BERPDU ::= 1.2E1 | |
15538 | ||
15539 | END | |
15540 | ||
15541 | <STATIC> | |
15542 | ||
15543 | import from TempA all; | |
15544 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15545 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15546 | ||
15547 | ||
15548 | ||
15549 | <TTCN_TC:EXEC> | |
15550 | ||
15551 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15552 | ||
15553 | <RESULT> | |
15554 | ||
15555 | Overall verdict: pass | |
15556 | ||
15557 | <END_TC> | |
15558 | ||
15559 | :exmp. | |
15560 | ||
15561 | .*---------------------------------------------------------------------* | |
15562 | :h3.CER + DER encoding of REAL, 0.12E+2 (primitive) | |
15563 | .*---------------------------------------------------------------------* | |
15564 | :xmp tab=0. | |
15565 | ||
15566 | <TC - CER + DER encoding of REAL, 0.12E+2 (primitive)> | |
15567 | ||
15568 | <STATIC:ASN> | |
15569 | ||
15570 | TempA | |
15571 | ||
15572 | DEFINITIONS ::= | |
15573 | BEGIN | |
15574 | BERPDU ::= REAL | |
15575 | b BERPDU ::= 0.12E2 | |
15576 | ||
15577 | END | |
15578 | ||
15579 | <STATIC> | |
15580 | ||
15581 | import from TempA all; | |
15582 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15583 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15584 | ||
15585 | ||
15586 | ||
15587 | <TTCN_TC:EXEC> | |
15588 | ||
15589 | if ((enc_DER_PDU(b) == '09070331322E452B30'O)and(enc_CER_PDU(b) == '09070331322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15590 | ||
15591 | <RESULT> | |
15592 | ||
15593 | Overall verdict: pass | |
15594 | ||
15595 | <END_TC> | |
15596 | ||
15597 | :exmp. | |
15598 | ||
15599 | .*---------------------------------------------------------------------* | |
15600 | :h3.CER + DER encoding of REAL, 0.34 (primitive) | |
15601 | .*---------------------------------------------------------------------* | |
15602 | :xmp tab=0. | |
15603 | ||
15604 | <TC - CER + DER encoding of REAL, 0.34 (primitive)> | |
15605 | ||
15606 | <STATIC:ASN> | |
15607 | ||
15608 | TempA | |
15609 | ||
15610 | DEFINITIONS ::= | |
15611 | BEGIN | |
15612 | BERPDU ::= REAL | |
15613 | b BERPDU ::= 0.34 | |
15614 | ||
15615 | END | |
15616 | ||
15617 | <STATIC> | |
15618 | ||
15619 | import from TempA all; | |
15620 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15621 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15622 | ||
15623 | ||
15624 | ||
15625 | <TTCN_TC:EXEC> | |
15626 | ||
15627 | if ((enc_DER_PDU(b) == '09070333342E452D32'O)and(enc_CER_PDU(b) == '09070333342E452D32'O)) {setverdict(pass);} else {setverdict(fail);} | |
15628 | ||
15629 | <RESULT> | |
15630 | ||
15631 | Overall verdict: pass | |
15632 | ||
15633 | <END_TC> | |
15634 | ||
15635 | :exmp. | |
15636 | ||
15637 | .*---------------------------------------------------------------------* | |
15638 | :h3.CER + DER encoding of REAL, 0.344 (primitive) | |
15639 | .*---------------------------------------------------------------------* | |
15640 | :xmp tab=0. | |
15641 | ||
15642 | <TC - CER + DER encoding of REAL, 0.344 (primitive)> | |
15643 | ||
15644 | <STATIC:ASN> | |
15645 | ||
15646 | TempA | |
15647 | ||
15648 | DEFINITIONS ::= | |
15649 | BEGIN | |
15650 | BERPDU ::= REAL | |
15651 | b BERPDU ::= 0.344 | |
15652 | ||
15653 | END | |
15654 | ||
15655 | <STATIC> | |
15656 | ||
15657 | import from TempA all; | |
15658 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15659 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15660 | ||
15661 | ||
15662 | ||
15663 | <TTCN_TC:EXEC> | |
15664 | ||
15665 | if ((enc_DER_PDU(b) == '0908033334342E452D33'O)and(enc_CER_PDU(b) == '0908033334342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
15666 | ||
15667 | <RESULT> | |
15668 | ||
15669 | Overall verdict: pass | |
15670 | ||
15671 | <END_TC> | |
15672 | ||
15673 | :exmp. | |
15674 | ||
15675 | .*---------------------------------------------------------------------* | |
15676 | :h3.CER + DER encoding of REAL, 0.345 (primitive) | |
15677 | .*---------------------------------------------------------------------* | |
15678 | :xmp tab=0. | |
15679 | ||
15680 | <TC - CER + DER encoding of REAL, 0.345 (primitive)> | |
15681 | ||
15682 | <STATIC:ASN> | |
15683 | ||
15684 | TempA | |
15685 | ||
15686 | DEFINITIONS ::= | |
15687 | BEGIN | |
15688 | BERPDU ::= REAL | |
15689 | b BERPDU ::= 0.345 | |
15690 | ||
15691 | END | |
15692 | ||
15693 | <STATIC> | |
15694 | ||
15695 | import from TempA all; | |
15696 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15697 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15698 | ||
15699 | ||
15700 | ||
15701 | <TTCN_TC:EXEC> | |
15702 | ||
15703 | if ((enc_DER_PDU(b) == '0908033334352E452D33'O)and(enc_CER_PDU(b) == '0908033334352E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
15704 | ||
15705 | <RESULT> | |
15706 | ||
15707 | Overall verdict: pass | |
15708 | ||
15709 | <END_TC> | |
15710 | ||
15711 | :exmp. | |
15712 | ||
15713 | .*---------------------------------------------------------------------* | |
15714 | :h3.CER + DER encoding of REAL, 0.034 (primitive) | |
15715 | .*---------------------------------------------------------------------* | |
15716 | :xmp tab=0. | |
15717 | ||
15718 | <TC - CER + DER encoding of REAL, 0.034 (primitive)> | |
15719 | ||
15720 | <STATIC:ASN> | |
15721 | ||
15722 | TempA | |
15723 | ||
15724 | DEFINITIONS ::= | |
15725 | BEGIN | |
15726 | BERPDU ::= REAL | |
15727 | b BERPDU ::= 0.034 | |
15728 | ||
15729 | END | |
15730 | ||
15731 | <STATIC> | |
15732 | ||
15733 | import from TempA all; | |
15734 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15735 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15736 | ||
15737 | ||
15738 | ||
15739 | <TTCN_TC:EXEC> | |
15740 | ||
15741 | if ((enc_DER_PDU(b) == '09070333342E452D33'O)and(enc_CER_PDU(b) == '09070333342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
15742 | ||
15743 | <RESULT> | |
15744 | ||
15745 | Overall verdict: pass | |
15746 | ||
15747 | <END_TC> | |
15748 | ||
15749 | :exmp. | |
15750 | ||
15751 | .*---------------------------------------------------------------------* | |
15752 | :h3.CER + DER encoding of REAL, 0.0034 (primitive) | |
15753 | .*---------------------------------------------------------------------* | |
15754 | :xmp tab=0. | |
15755 | ||
15756 | <TC - CER + DER encoding of REAL, 0.0034 (primitive)> | |
15757 | ||
15758 | <STATIC:ASN> | |
15759 | ||
15760 | TempA | |
15761 | ||
15762 | DEFINITIONS ::= | |
15763 | BEGIN | |
15764 | BERPDU ::= REAL | |
15765 | b BERPDU ::= 0.0034 | |
15766 | ||
15767 | END | |
15768 | ||
15769 | <STATIC> | |
15770 | ||
15771 | import from TempA all; | |
15772 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15773 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15774 | ||
15775 | ||
15776 | ||
15777 | <TTCN_TC:EXEC> | |
15778 | ||
15779 | if ((enc_DER_PDU(b) == '09070333342E452D34'O)and(enc_CER_PDU(b) == '09070333342E452D34'O)) {setverdict(pass);} else {setverdict(fail);} | |
15780 | ||
15781 | <RESULT> | |
15782 | ||
15783 | Overall verdict: pass | |
15784 | ||
15785 | <END_TC> | |
15786 | ||
15787 | :exmp. | |
15788 | ||
15789 | .*---------------------------------------------------------------------* | |
15790 | :h3.CER + DER encoding of REAL, 0.304 (primitive) | |
15791 | .*---------------------------------------------------------------------* | |
15792 | :xmp tab=0. | |
15793 | ||
15794 | <TC - CER + DER encoding of REAL, 0.304 (primitive)> | |
15795 | ||
15796 | <STATIC:ASN> | |
15797 | ||
15798 | TempA | |
15799 | ||
15800 | DEFINITIONS ::= | |
15801 | BEGIN | |
15802 | BERPDU ::= REAL | |
15803 | b BERPDU ::= 0.304 | |
15804 | ||
15805 | END | |
15806 | ||
15807 | <STATIC> | |
15808 | ||
15809 | import from TempA all; | |
15810 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15811 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15812 | ||
15813 | ||
15814 | ||
15815 | <TTCN_TC:EXEC> | |
15816 | ||
15817 | if ((enc_DER_PDU(b) == '0908033330342E452D33'O)and(enc_CER_PDU(b) == '0908033330342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
15818 | ||
15819 | <RESULT> | |
15820 | ||
15821 | Overall verdict: pass | |
15822 | ||
15823 | <END_TC> | |
15824 | ||
15825 | :exmp. | |
15826 | ||
15827 | .*---------------------------------------------------------------------* | |
15828 | :h3.CER + DER encoding of REAL, 0.1234567890 (primitive) | |
15829 | .*---------------------------------------------------------------------* | |
15830 | :xmp tab=0. | |
15831 | ||
15832 | <TC - CER + DER encoding of REAL, 0.1234567890 (primitive)> | |
15833 | ||
15834 | <STATIC:ASN> | |
15835 | ||
15836 | TempA | |
15837 | ||
15838 | DEFINITIONS ::= | |
15839 | BEGIN | |
15840 | BERPDU ::= REAL | |
15841 | b BERPDU ::= 0.1234567890 | |
15842 | ||
15843 | END | |
15844 | ||
15845 | <STATIC> | |
15846 | ||
15847 | import from TempA all; | |
15848 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15849 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15850 | ||
15851 | ||
15852 | ||
15853 | <TTCN_TC:EXEC> | |
15854 | ||
15855 | if ((enc_DER_PDU(b) == '090E033132333435363738392E452D39'O)and(enc_CER_PDU(b) == '090E033132333435363738392E452D39'O)) {setverdict(pass);} else {setverdict(fail);} | |
15856 | ||
15857 | <RESULT> | |
15858 | ||
15859 | Overall verdict: pass | |
15860 | ||
15861 | <END_TC> | |
15862 | ||
15863 | :exmp. | |
15864 | ||
15865 | .*---------------------------------------------------------------------* | |
15866 | :h3.CER + DER encoding of REAL, 0.123456789 (primitive) | |
15867 | .*---------------------------------------------------------------------* | |
15868 | :xmp tab=0. | |
15869 | ||
15870 | <TC - CER + DER encoding of REAL, 0.123456789 (primitive)> | |
15871 | ||
15872 | <STATIC:ASN> | |
15873 | ||
15874 | TempA | |
15875 | ||
15876 | DEFINITIONS ::= | |
15877 | BEGIN | |
15878 | BERPDU ::= REAL | |
15879 | b BERPDU ::= 0.123456789 | |
15880 | ||
15881 | END | |
15882 | ||
15883 | <STATIC> | |
15884 | ||
15885 | import from TempA all; | |
15886 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15887 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15888 | ||
15889 | ||
15890 | ||
15891 | <TTCN_TC:EXEC> | |
15892 | ||
15893 | if ((enc_DER_PDU(b) == '090E033132333435363738392E452D39'O)and(enc_CER_PDU(b) == '090E033132333435363738392E452D39'O)) {setverdict(pass);} else {setverdict(fail);} | |
15894 | ||
15895 | <RESULT> | |
15896 | ||
15897 | Overall verdict: pass | |
15898 | ||
15899 | <END_TC> | |
15900 | ||
15901 | :exmp. | |
15902 | ||
15903 | .*---------------------------------------------------------------------* | |
15904 | :h3.CER + DER encoding of REAL, 0.0123456789 (primitive) | |
15905 | .*---------------------------------------------------------------------* | |
15906 | :xmp tab=0. | |
15907 | ||
15908 | <TC - CER + DER encoding of REAL, 0.0123456789 (primitive)> | |
15909 | ||
15910 | <STATIC:ASN> | |
15911 | ||
15912 | TempA | |
15913 | ||
15914 | DEFINITIONS ::= | |
15915 | BEGIN | |
15916 | BERPDU ::= REAL | |
15917 | b BERPDU ::= 0.0123456789 | |
15918 | ||
15919 | END | |
15920 | ||
15921 | <STATIC> | |
15922 | ||
15923 | import from TempA all; | |
15924 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15925 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15926 | ||
15927 | ||
15928 | ||
15929 | <TTCN_TC:EXEC> | |
15930 | ||
15931 | if ((enc_DER_PDU(b) == '090F033132333435363738392E452D3130'O)and(enc_CER_PDU(b) == '090F033132333435363738392E452D3130'O)) {setverdict(pass);} else {setverdict(fail);} | |
15932 | ||
15933 | <RESULT> | |
15934 | ||
15935 | Overall verdict: pass | |
15936 | ||
15937 | <END_TC> | |
15938 | ||
15939 | :exmp. | |
15940 | ||
15941 | .*---------------------------------------------------------------------* | |
15942 | :h3.CER + DER encoding of REAL, 123456789.0 (primitive) | |
15943 | .*---------------------------------------------------------------------* | |
15944 | :xmp tab=0. | |
15945 | ||
15946 | <TC - CER + DER encoding of REAL, 123456789.0 (primitive)> | |
15947 | ||
15948 | <STATIC:ASN> | |
15949 | ||
15950 | TempA | |
15951 | ||
15952 | DEFINITIONS ::= | |
15953 | BEGIN | |
15954 | BERPDU ::= REAL | |
15955 | b BERPDU ::= 123456789.0 | |
15956 | ||
15957 | END | |
15958 | ||
15959 | <STATIC> | |
15960 | ||
15961 | import from TempA all; | |
15962 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
15963 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
15964 | ||
15965 | ||
15966 | ||
15967 | <TTCN_TC:EXEC> | |
15968 | ||
15969 | if ((enc_DER_PDU(b) == '090E033132333435363738392E452B30'O)and(enc_CER_PDU(b) == '090E033132333435363738392E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
15970 | ||
15971 | <RESULT> | |
15972 | ||
15973 | Overall verdict: pass | |
15974 | ||
15975 | <END_TC> | |
15976 | ||
15977 | :exmp. | |
15978 | ||
15979 | .*---------------------------------------------------------------------* | |
15980 | :h3.CER + DER encoding of REAL, 123456789 (primitive) | |
15981 | .*---------------------------------------------------------------------* | |
15982 | :xmp tab=0. | |
15983 | ||
15984 | <TC - CER + DER encoding of REAL, 123456789 (primitive)> | |
15985 | ||
15986 | <STATIC:ASN> | |
15987 | ||
15988 | TempA | |
15989 | ||
15990 | DEFINITIONS ::= | |
15991 | BEGIN | |
15992 | BERPDU ::= REAL | |
15993 | b BERPDU ::= 123456789 | |
15994 | ||
15995 | END | |
15996 | ||
15997 | <STATIC> | |
15998 | ||
15999 | import from TempA all; | |
16000 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16001 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16002 | ||
16003 | ||
16004 | ||
16005 | <TTCN_TC:EXEC> | |
16006 | ||
16007 | if ((enc_DER_PDU(b) == '090E033132333435363738392E452B30'O)and(enc_CER_PDU(b) == '090E033132333435363738392E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16008 | ||
16009 | <RESULT> | |
16010 | ||
16011 | Overall verdict: pass | |
16012 | ||
16013 | <END_TC> | |
16014 | ||
16015 | :exmp. | |
16016 | ||
16017 | .*---------------------------------------------------------------------* | |
16018 | :h3.CER + DER encoding of REAL, 1234567890 (primitive) | |
16019 | .*---------------------------------------------------------------------* | |
16020 | :xmp tab=0. | |
16021 | ||
16022 | <TC - CER + DER encoding of REAL, 1234567890 (primitive)> | |
16023 | ||
16024 | <STATIC:ASN> | |
16025 | ||
16026 | TempA | |
16027 | ||
16028 | DEFINITIONS ::= | |
16029 | BEGIN | |
16030 | BERPDU ::= REAL | |
16031 | b BERPDU ::= 1234567890 | |
16032 | ||
16033 | END | |
16034 | ||
16035 | <STATIC> | |
16036 | ||
16037 | import from TempA all; | |
16038 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16039 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16040 | ||
16041 | ||
16042 | ||
16043 | <TTCN_TC:EXEC> | |
16044 | ||
16045 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4531'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
16046 | ||
16047 | <RESULT> | |
16048 | ||
16049 | Overall verdict: pass | |
16050 | ||
16051 | <END_TC> | |
16052 | ||
16053 | :exmp. | |
16054 | ||
16055 | .*---------------------------------------------------------------------* | |
16056 | :h3.CER + DER encoding of REAL, 1234567890.0 (primitive) | |
16057 | .*---------------------------------------------------------------------* | |
16058 | :xmp tab=0. | |
16059 | ||
16060 | <TC - CER + DER encoding of REAL, 1234567890.0 (primitive)> | |
16061 | ||
16062 | <STATIC:ASN> | |
16063 | ||
16064 | TempA | |
16065 | ||
16066 | DEFINITIONS ::= | |
16067 | BEGIN | |
16068 | BERPDU ::= REAL | |
16069 | b BERPDU ::= 1234567890.0 | |
16070 | ||
16071 | END | |
16072 | ||
16073 | <STATIC> | |
16074 | ||
16075 | import from TempA all; | |
16076 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16077 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16078 | ||
16079 | ||
16080 | ||
16081 | <TTCN_TC:EXEC> | |
16082 | ||
16083 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4531'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
16084 | ||
16085 | <RESULT> | |
16086 | ||
16087 | Overall verdict: pass | |
16088 | ||
16089 | <END_TC> | |
16090 | ||
16091 | :exmp. | |
16092 | ||
16093 | .*---------------------------------------------------------------------* | |
16094 | :h3.CER + DER encoding of REAL, 1234567890.00 (primitive) | |
16095 | .*---------------------------------------------------------------------* | |
16096 | :xmp tab=0. | |
16097 | ||
16098 | <TC - CER + DER encoding of REAL, 1234567890.00 (primitive)> | |
16099 | ||
16100 | <STATIC:ASN> | |
16101 | ||
16102 | TempA | |
16103 | ||
16104 | DEFINITIONS ::= | |
16105 | BEGIN | |
16106 | BERPDU ::= REAL | |
16107 | b BERPDU ::= 1234567890.00 | |
16108 | ||
16109 | END | |
16110 | ||
16111 | <STATIC> | |
16112 | ||
16113 | import from TempA all; | |
16114 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16115 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16116 | ||
16117 | ||
16118 | ||
16119 | <TTCN_TC:EXEC> | |
16120 | ||
16121 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4531'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
16122 | ||
16123 | <RESULT> | |
16124 | ||
16125 | Overall verdict: pass | |
16126 | ||
16127 | <END_TC> | |
16128 | ||
16129 | :exmp. | |
16130 | ||
16131 | .*---------------------------------------------------------------------* | |
16132 | :h3.CER + DER encoding of REAL, 12345678900.0 (primitive) | |
16133 | .*---------------------------------------------------------------------* | |
16134 | :xmp tab=0. | |
16135 | ||
16136 | <TC - CER + DER encoding of REAL, 12345678900.0 (primitive)> | |
16137 | ||
16138 | <STATIC:ASN> | |
16139 | ||
16140 | TempA | |
16141 | ||
16142 | DEFINITIONS ::= | |
16143 | BEGIN | |
16144 | BERPDU ::= REAL | |
16145 | b BERPDU ::= 12345678900.0 | |
16146 | ||
16147 | END | |
16148 | ||
16149 | <STATIC> | |
16150 | ||
16151 | import from TempA all; | |
16152 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16153 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16154 | ||
16155 | ||
16156 | ||
16157 | <TTCN_TC:EXEC> | |
16158 | ||
16159 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4532'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
16160 | ||
16161 | <RESULT> | |
16162 | ||
16163 | Overall verdict: pass | |
16164 | ||
16165 | <END_TC> | |
16166 | ||
16167 | :exmp. | |
16168 | ||
16169 | .*---------------------------------------------------------------------* | |
16170 | :h3.CER + DER encoding of REAL, 12345678900.0 (primitive) | |
16171 | .*---------------------------------------------------------------------* | |
16172 | :xmp tab=0. | |
16173 | ||
16174 | <TC - CER + DER encoding of REAL, 12345678900.0 (primitive)> | |
16175 | ||
16176 | <STATIC:ASN> | |
16177 | ||
16178 | TempA | |
16179 | ||
16180 | DEFINITIONS ::= | |
16181 | BEGIN | |
16182 | BERPDU ::= REAL | |
16183 | b BERPDU ::=12345678900.0 | |
16184 | ||
16185 | END | |
16186 | ||
16187 | <STATIC> | |
16188 | ||
16189 | import from TempA all; | |
16190 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16191 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16192 | ||
16193 | ||
16194 | ||
16195 | <TTCN_TC:EXEC> | |
16196 | ||
16197 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4532'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
16198 | ||
16199 | <RESULT> | |
16200 | ||
16201 | Overall verdict: pass | |
16202 | ||
16203 | <END_TC> | |
16204 | ||
16205 | :exmp. | |
16206 | ||
16207 | .*---------------------------------------------------------------------* | |
16208 | :h3.CER + DER encoding of REAL, 12345678900.00 (primitive) | |
16209 | .*---------------------------------------------------------------------* | |
16210 | :xmp tab=0. | |
16211 | ||
16212 | <TC - CER + DER encoding of REAL, 12345678900.00 (primitive)> | |
16213 | ||
16214 | <STATIC:ASN> | |
16215 | ||
16216 | TempA | |
16217 | ||
16218 | DEFINITIONS ::= | |
16219 | BEGIN | |
16220 | BERPDU ::= REAL | |
16221 | b BERPDU ::= 12345678900.00 | |
16222 | ||
16223 | END | |
16224 | ||
16225 | <STATIC> | |
16226 | ||
16227 | import from TempA all; | |
16228 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16229 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16230 | ||
16231 | ||
16232 | ||
16233 | <TTCN_TC:EXEC> | |
16234 | ||
16235 | if ((enc_DER_PDU(b) == '090D033132333435363738392E4532'O)and(enc_CER_PDU(b) == '090D033132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
16236 | ||
16237 | <RESULT> | |
16238 | ||
16239 | Overall verdict: pass | |
16240 | ||
16241 | <END_TC> | |
16242 | ||
16243 | :exmp. | |
16244 | ||
16245 | .*---------------------------------------------------------------------* | |
16246 | :h3.CER + DER encoding of REAL, -12 (primitive) | |
16247 | .*---------------------------------------------------------------------* | |
16248 | :xmp tab=0. | |
16249 | ||
16250 | <TC - CER + DER encoding of REAL, -12 (primitive)> | |
16251 | ||
16252 | <STATIC:ASN> | |
16253 | ||
16254 | TempA | |
16255 | ||
16256 | DEFINITIONS ::= | |
16257 | BEGIN | |
16258 | BERPDU ::= REAL | |
16259 | b BERPDU ::= -12 | |
16260 | ||
16261 | END | |
16262 | ||
16263 | <STATIC> | |
16264 | ||
16265 | import from TempA all; | |
16266 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16267 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16268 | ||
16269 | ||
16270 | ||
16271 | <TTCN_TC:EXEC> | |
16272 | ||
16273 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16274 | ||
16275 | <RESULT> | |
16276 | ||
16277 | Overall verdict: pass | |
16278 | ||
16279 | <END_TC> | |
16280 | ||
16281 | :exmp. | |
16282 | ||
16283 | .*---------------------------------------------------------------------* | |
16284 | :h3.CER + DER encoding of REAL, -12.0 (primitive) | |
16285 | .*---------------------------------------------------------------------* | |
16286 | :xmp tab=0. | |
16287 | ||
16288 | <TC - CER + DER encoding of REAL, -12.0 (primitive)> | |
16289 | ||
16290 | <STATIC:ASN> | |
16291 | ||
16292 | TempA | |
16293 | ||
16294 | DEFINITIONS ::= | |
16295 | BEGIN | |
16296 | BERPDU ::= REAL | |
16297 | b BERPDU ::= -12.0 | |
16298 | ||
16299 | END | |
16300 | ||
16301 | <STATIC> | |
16302 | ||
16303 | import from TempA all; | |
16304 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16305 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16306 | ||
16307 | ||
16308 | ||
16309 | <TTCN_TC:EXEC> | |
16310 | ||
16311 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16312 | ||
16313 | <RESULT> | |
16314 | ||
16315 | Overall verdict: pass | |
16316 | ||
16317 | <END_TC> | |
16318 | ||
16319 | :exmp. | |
16320 | ||
16321 | .*---------------------------------------------------------------------* | |
16322 | :h3.CER + DER encoding of REAL, -12.0E0 (primitive) | |
16323 | .*---------------------------------------------------------------------* | |
16324 | :xmp tab=0. | |
16325 | ||
16326 | <TC - CER + DER encoding of REAL, -12.0E0 (primitive)> | |
16327 | ||
16328 | <STATIC:ASN> | |
16329 | ||
16330 | TempA | |
16331 | ||
16332 | DEFINITIONS ::= | |
16333 | BEGIN | |
16334 | BERPDU ::= REAL | |
16335 | b BERPDU ::= -12.0E0 | |
16336 | ||
16337 | END | |
16338 | ||
16339 | <STATIC> | |
16340 | ||
16341 | import from TempA all; | |
16342 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16343 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16344 | ||
16345 | ||
16346 | ||
16347 | <TTCN_TC:EXEC> | |
16348 | ||
16349 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16350 | ||
16351 | <RESULT> | |
16352 | ||
16353 | Overall verdict: pass | |
16354 | ||
16355 | <END_TC> | |
16356 | ||
16357 | :exmp. | |
16358 | ||
16359 | .*---------------------------------------------------------------------* | |
16360 | :h3.CER + DER encoding of REAL, -1.2E1 (primitive) | |
16361 | .*---------------------------------------------------------------------* | |
16362 | :xmp tab=0. | |
16363 | ||
16364 | <TC - CER + DER encoding of REAL, -1.2E1 (primitive)> | |
16365 | ||
16366 | <STATIC:ASN> | |
16367 | ||
16368 | TempA | |
16369 | ||
16370 | DEFINITIONS ::= | |
16371 | BEGIN | |
16372 | BERPDU ::= REAL | |
16373 | b BERPDU ::= -1.2E1 | |
16374 | ||
16375 | END | |
16376 | ||
16377 | <STATIC> | |
16378 | ||
16379 | import from TempA all; | |
16380 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16381 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16382 | ||
16383 | ||
16384 | ||
16385 | <TTCN_TC:EXEC> | |
16386 | ||
16387 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16388 | ||
16389 | <RESULT> | |
16390 | ||
16391 | Overall verdict: pass | |
16392 | ||
16393 | <END_TC> | |
16394 | ||
16395 | :exmp. | |
16396 | ||
16397 | .*---------------------------------------------------------------------* | |
16398 | :h3.CER + DER encoding of REAL, -0.12E2 (primitive) | |
16399 | .*---------------------------------------------------------------------* | |
16400 | :xmp tab=0. | |
16401 | ||
16402 | <TC - CER + DER encoding of REAL, -0.12E2 (primitive)> | |
16403 | ||
16404 | <STATIC:ASN> | |
16405 | ||
16406 | TempA | |
16407 | ||
16408 | DEFINITIONS ::= | |
16409 | BEGIN | |
16410 | BERPDU ::= REAL | |
16411 | b BERPDU ::= -0.12E2 | |
16412 | ||
16413 | END | |
16414 | ||
16415 | <STATIC> | |
16416 | ||
16417 | import from TempA all; | |
16418 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16419 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16420 | ||
16421 | ||
16422 | ||
16423 | <TTCN_TC:EXEC> | |
16424 | ||
16425 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16426 | ||
16427 | <RESULT> | |
16428 | ||
16429 | Overall verdict: pass | |
16430 | ||
16431 | <END_TC> | |
16432 | ||
16433 | :exmp. | |
16434 | ||
16435 | .*---------------------------------------------------------------------* | |
16436 | :h3.CER + DER encoding of REAL, -1.2E+1 (primitive) | |
16437 | .*---------------------------------------------------------------------* | |
16438 | :xmp tab=0. | |
16439 | ||
16440 | <TC - CER + DER encoding of REAL, -1.2E+1 (primitive)> | |
16441 | ||
16442 | <STATIC:ASN> | |
16443 | ||
16444 | TempA | |
16445 | ||
16446 | DEFINITIONS ::= | |
16447 | BEGIN | |
16448 | BERPDU ::= REAL | |
16449 | b BERPDU ::= -1.2E1 | |
16450 | ||
16451 | END | |
16452 | ||
16453 | <STATIC> | |
16454 | ||
16455 | import from TempA all; | |
16456 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16457 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16458 | ||
16459 | ||
16460 | ||
16461 | <TTCN_TC:EXEC> | |
16462 | ||
16463 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16464 | ||
16465 | <RESULT> | |
16466 | ||
16467 | Overall verdict: pass | |
16468 | ||
16469 | <END_TC> | |
16470 | ||
16471 | :exmp. | |
16472 | ||
16473 | .*---------------------------------------------------------------------* | |
16474 | :h3.CER + DER encoding of REAL, -0.12E+2 (primitive) | |
16475 | .*---------------------------------------------------------------------* | |
16476 | :xmp tab=0. | |
16477 | ||
16478 | <TC - CER + DER encoding of REAL, -0.12E+2 (primitive)> | |
16479 | ||
16480 | <STATIC:ASN> | |
16481 | ||
16482 | TempA | |
16483 | ||
16484 | DEFINITIONS ::= | |
16485 | BEGIN | |
16486 | BERPDU ::= REAL | |
16487 | b BERPDU ::= -0.12E2 | |
16488 | ||
16489 | END | |
16490 | ||
16491 | <STATIC> | |
16492 | ||
16493 | import from TempA all; | |
16494 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16495 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16496 | ||
16497 | ||
16498 | ||
16499 | <TTCN_TC:EXEC> | |
16500 | ||
16501 | if ((enc_DER_PDU(b) == '0908032D31322E452B30'O)and(enc_CER_PDU(b) == '0908032D31322E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16502 | ||
16503 | <RESULT> | |
16504 | ||
16505 | Overall verdict: pass | |
16506 | ||
16507 | <END_TC> | |
16508 | ||
16509 | :exmp. | |
16510 | ||
16511 | .*---------------------------------------------------------------------* | |
16512 | :h3.CER + DER encoding of REAL, -0.34 (primitive) | |
16513 | .*---------------------------------------------------------------------* | |
16514 | :xmp tab=0. | |
16515 | ||
16516 | <TC - CER + DER encoding of REAL, -0.34 (primitive)> | |
16517 | ||
16518 | <STATIC:ASN> | |
16519 | ||
16520 | TempA | |
16521 | ||
16522 | DEFINITIONS ::= | |
16523 | BEGIN | |
16524 | BERPDU ::= REAL | |
16525 | b BERPDU ::= -0.34 | |
16526 | ||
16527 | END | |
16528 | ||
16529 | <STATIC> | |
16530 | ||
16531 | import from TempA all; | |
16532 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16533 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16534 | ||
16535 | ||
16536 | ||
16537 | <TTCN_TC:EXEC> | |
16538 | ||
16539 | if ((enc_DER_PDU(b) == '0908032D33342E452D32'O)and(enc_CER_PDU(b) == '0908032D33342E452D32'O)) {setverdict(pass);} else {setverdict(fail);} | |
16540 | ||
16541 | <RESULT> | |
16542 | ||
16543 | Overall verdict: pass | |
16544 | ||
16545 | <END_TC> | |
16546 | ||
16547 | :exmp. | |
16548 | ||
16549 | .*---------------------------------------------------------------------* | |
16550 | :h3.CER + DER encoding of REAL, -0.344 (primitive) | |
16551 | .*---------------------------------------------------------------------* | |
16552 | :xmp tab=0. | |
16553 | ||
16554 | <TC - CER + DER encoding of REAL, -0.344 (primitive)> | |
16555 | ||
16556 | <STATIC:ASN> | |
16557 | ||
16558 | TempA | |
16559 | ||
16560 | DEFINITIONS ::= | |
16561 | BEGIN | |
16562 | BERPDU ::= REAL | |
16563 | b BERPDU ::= -0.344 | |
16564 | ||
16565 | END | |
16566 | ||
16567 | <STATIC> | |
16568 | ||
16569 | import from TempA all; | |
16570 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16571 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16572 | ||
16573 | ||
16574 | ||
16575 | <TTCN_TC:EXEC> | |
16576 | ||
16577 | if ((enc_DER_PDU(b) == '0909032D3334342E452D33'O)and(enc_CER_PDU(b) == '0909032D3334342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
16578 | ||
16579 | <RESULT> | |
16580 | ||
16581 | Overall verdict: pass | |
16582 | ||
16583 | <END_TC> | |
16584 | ||
16585 | :exmp. | |
16586 | ||
16587 | .*---------------------------------------------------------------------* | |
16588 | :h3.CER + DER encoding of REAL, -0.345 (primitive) | |
16589 | .*---------------------------------------------------------------------* | |
16590 | :xmp tab=0. | |
16591 | ||
16592 | <TC - CER + DER encoding of REAL, -0.345 (primitive)> | |
16593 | ||
16594 | <STATIC:ASN> | |
16595 | ||
16596 | TempA | |
16597 | ||
16598 | DEFINITIONS ::= | |
16599 | BEGIN | |
16600 | BERPDU ::= REAL | |
16601 | b BERPDU ::= -0.345 | |
16602 | ||
16603 | END | |
16604 | ||
16605 | <STATIC> | |
16606 | ||
16607 | import from TempA all; | |
16608 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16609 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16610 | ||
16611 | ||
16612 | ||
16613 | <TTCN_TC:EXEC> | |
16614 | ||
16615 | if ((enc_DER_PDU(b) == '0909032D3334352E452D33'O)and(enc_CER_PDU(b) == '0909032D3334352E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
16616 | ||
16617 | <RESULT> | |
16618 | ||
16619 | Overall verdict: pass | |
16620 | ||
16621 | <END_TC> | |
16622 | ||
16623 | :exmp. | |
16624 | ||
16625 | .*---------------------------------------------------------------------* | |
16626 | :h3.CER + DER encoding of REAL, -0.034 (primitive) | |
16627 | .*---------------------------------------------------------------------* | |
16628 | :xmp tab=0. | |
16629 | ||
16630 | <TC - CER + DER encoding of REAL, -0.034 (primitive)> | |
16631 | ||
16632 | <STATIC:ASN> | |
16633 | ||
16634 | TempA | |
16635 | ||
16636 | DEFINITIONS ::= | |
16637 | BEGIN | |
16638 | BERPDU ::= REAL | |
16639 | b BERPDU ::= -0.034 | |
16640 | ||
16641 | END | |
16642 | ||
16643 | <STATIC> | |
16644 | ||
16645 | import from TempA all; | |
16646 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16647 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16648 | ||
16649 | ||
16650 | ||
16651 | <TTCN_TC:EXEC> | |
16652 | ||
16653 | if ((enc_DER_PDU(b) == '0908032D33342E452D33'O)and(enc_CER_PDU(b) == '0908032D33342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
16654 | ||
16655 | <RESULT> | |
16656 | ||
16657 | Overall verdict: pass | |
16658 | ||
16659 | <END_TC> | |
16660 | ||
16661 | :exmp. | |
16662 | ||
16663 | .*---------------------------------------------------------------------* | |
16664 | :h3.CER + DER encoding of REAL, -0.0034 (primitive) | |
16665 | .*---------------------------------------------------------------------* | |
16666 | :xmp tab=0. | |
16667 | ||
16668 | <TC - CER + DER encoding of REAL, -0.0034 (primitive)> | |
16669 | ||
16670 | <STATIC:ASN> | |
16671 | ||
16672 | TempA | |
16673 | ||
16674 | DEFINITIONS ::= | |
16675 | BEGIN | |
16676 | BERPDU ::= REAL | |
16677 | b BERPDU ::= -0.0034 | |
16678 | ||
16679 | END | |
16680 | ||
16681 | <STATIC> | |
16682 | ||
16683 | import from TempA all; | |
16684 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16685 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16686 | ||
16687 | ||
16688 | ||
16689 | <TTCN_TC:EXEC> | |
16690 | ||
16691 | if ((enc_DER_PDU(b) == '0908032D33342E452D34'O)and(enc_CER_PDU(b) == '0908032D33342E452D34'O)) {setverdict(pass);} else {setverdict(fail);} | |
16692 | ||
16693 | <RESULT> | |
16694 | ||
16695 | Overall verdict: pass | |
16696 | ||
16697 | <END_TC> | |
16698 | ||
16699 | :exmp. | |
16700 | ||
16701 | .*---------------------------------------------------------------------* | |
16702 | :h3.CER + DER encoding of REAL, -0.304 (primitive) | |
16703 | .*---------------------------------------------------------------------* | |
16704 | :xmp tab=0. | |
16705 | ||
16706 | <TC - CER + DER encoding of REAL, -0.304 (primitive)> | |
16707 | ||
16708 | <STATIC:ASN> | |
16709 | ||
16710 | TempA | |
16711 | ||
16712 | DEFINITIONS ::= | |
16713 | BEGIN | |
16714 | BERPDU ::= REAL | |
16715 | b BERPDU ::= -0.304 | |
16716 | ||
16717 | END | |
16718 | ||
16719 | <STATIC> | |
16720 | ||
16721 | import from TempA all; | |
16722 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16723 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16724 | ||
16725 | ||
16726 | ||
16727 | <TTCN_TC:EXEC> | |
16728 | ||
16729 | if ((enc_DER_PDU(b) == '0909032D3330342E452D33'O)and(enc_CER_PDU(b) == '0909032D3330342E452D33'O)) {setverdict(pass);} else {setverdict(fail);} | |
16730 | ||
16731 | <RESULT> | |
16732 | ||
16733 | Overall verdict: pass | |
16734 | ||
16735 | <END_TC> | |
16736 | ||
16737 | :exmp. | |
16738 | ||
16739 | .*---------------------------------------------------------------------* | |
16740 | :h3.CER + DER encoding of REAL, -0.1234567890 (primitive) | |
16741 | .*---------------------------------------------------------------------* | |
16742 | :xmp tab=0. | |
16743 | ||
16744 | <TC - CER + DER encoding of REAL, -0.1234567890 (primitive)> | |
16745 | ||
16746 | <STATIC:ASN> | |
16747 | ||
16748 | TempA | |
16749 | ||
16750 | DEFINITIONS ::= | |
16751 | BEGIN | |
16752 | BERPDU ::= REAL | |
16753 | b BERPDU ::= -0.1234567890 | |
16754 | ||
16755 | END | |
16756 | ||
16757 | <STATIC> | |
16758 | ||
16759 | import from TempA all; | |
16760 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16761 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16762 | ||
16763 | ||
16764 | ||
16765 | <TTCN_TC:EXEC> | |
16766 | ||
16767 | if ((enc_DER_PDU(b) == '090F032D3132333435363738392E452D39'O)and(enc_CER_PDU(b) == '090F032D3132333435363738392E452D39'O)) {setverdict(pass);} else {setverdict(fail);} | |
16768 | ||
16769 | <RESULT> | |
16770 | ||
16771 | Overall verdict: pass | |
16772 | ||
16773 | <END_TC> | |
16774 | ||
16775 | :exmp. | |
16776 | ||
16777 | .*---------------------------------------------------------------------* | |
16778 | :h3.CER + DER encoding of REAL, -0.123456789 (primitive) | |
16779 | .*---------------------------------------------------------------------* | |
16780 | :xmp tab=0. | |
16781 | ||
16782 | <TC - CER + DER encoding of REAL, -0.123456789 (primitive)> | |
16783 | ||
16784 | <STATIC:ASN> | |
16785 | ||
16786 | TempA | |
16787 | ||
16788 | DEFINITIONS ::= | |
16789 | BEGIN | |
16790 | BERPDU ::= REAL | |
16791 | b BERPDU ::= -0.123456789 | |
16792 | ||
16793 | END | |
16794 | ||
16795 | <STATIC> | |
16796 | ||
16797 | import from TempA all; | |
16798 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16799 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16800 | ||
16801 | ||
16802 | ||
16803 | <TTCN_TC:EXEC> | |
16804 | ||
16805 | if ((enc_DER_PDU(b) == '090F032D3132333435363738392E452D39'O)and(enc_CER_PDU(b) == '090F032D3132333435363738392E452D39'O)) {setverdict(pass);} else {setverdict(fail);} | |
16806 | ||
16807 | <RESULT> | |
16808 | ||
16809 | Overall verdict: pass | |
16810 | ||
16811 | <END_TC> | |
16812 | ||
16813 | :exmp. | |
16814 | ||
16815 | .*---------------------------------------------------------------------* | |
16816 | :h3.CER + DER encoding of REAL, -0.0123456789 (primitive) | |
16817 | .*---------------------------------------------------------------------* | |
16818 | :xmp tab=0. | |
16819 | ||
16820 | <TC - CER + DER encoding of REAL, -0.0123456789 (primitive)> | |
16821 | ||
16822 | <STATIC:ASN> | |
16823 | ||
16824 | TempA | |
16825 | ||
16826 | DEFINITIONS ::= | |
16827 | BEGIN | |
16828 | BERPDU ::= REAL | |
16829 | b BERPDU ::= -0.0123456789 | |
16830 | ||
16831 | END | |
16832 | ||
16833 | <STATIC> | |
16834 | ||
16835 | import from TempA all; | |
16836 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16837 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16838 | ||
16839 | ||
16840 | ||
16841 | <TTCN_TC:EXEC> | |
16842 | ||
16843 | if ((enc_DER_PDU(b) == '0910032D3132333435363738392E452D3130'O)and(enc_CER_PDU(b) == '0910032D3132333435363738392E452D3130'O)) {setverdict(pass);} else {setverdict(fail);} | |
16844 | ||
16845 | <RESULT> | |
16846 | ||
16847 | Overall verdict: pass | |
16848 | ||
16849 | <END_TC> | |
16850 | ||
16851 | :exmp. | |
16852 | ||
16853 | .*---------------------------------------------------------------------* | |
16854 | :h3.CER + DER encoding of REAL, -123456789.0 (primitive) | |
16855 | .*---------------------------------------------------------------------* | |
16856 | :xmp tab=0. | |
16857 | ||
16858 | <TC - CER + DER encoding of REAL, -123456789.0 (primitive)> | |
16859 | ||
16860 | <STATIC:ASN> | |
16861 | ||
16862 | TempA | |
16863 | ||
16864 | DEFINITIONS ::= | |
16865 | BEGIN | |
16866 | BERPDU ::= REAL | |
16867 | b BERPDU ::= -123456789.0 | |
16868 | ||
16869 | END | |
16870 | ||
16871 | <STATIC> | |
16872 | ||
16873 | import from TempA all; | |
16874 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16875 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16876 | ||
16877 | ||
16878 | ||
16879 | <TTCN_TC:EXEC> | |
16880 | ||
16881 | if ((enc_DER_PDU(b) == '090F032D3132333435363738392E452B30'O)and(enc_CER_PDU(b) == '090F032D3132333435363738392E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16882 | ||
16883 | <RESULT> | |
16884 | ||
16885 | Overall verdict: pass | |
16886 | ||
16887 | <END_TC> | |
16888 | ||
16889 | :exmp. | |
16890 | ||
16891 | .*---------------------------------------------------------------------* | |
16892 | :h3.CER + DER encoding of REAL, -123456789 (primitive) | |
16893 | .*---------------------------------------------------------------------* | |
16894 | :xmp tab=0. | |
16895 | ||
16896 | <TC - CER + DER encoding of REAL, -123456789 (primitive)> | |
16897 | ||
16898 | <STATIC:ASN> | |
16899 | ||
16900 | TempA | |
16901 | ||
16902 | DEFINITIONS ::= | |
16903 | BEGIN | |
16904 | BERPDU ::= REAL | |
16905 | b BERPDU ::= -123456789 | |
16906 | ||
16907 | END | |
16908 | ||
16909 | <STATIC> | |
16910 | ||
16911 | import from TempA all; | |
16912 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16913 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16914 | ||
16915 | ||
16916 | ||
16917 | <TTCN_TC:EXEC> | |
16918 | ||
16919 | if ((enc_DER_PDU(b) == '090F032D3132333435363738392E452B30'O)and(enc_CER_PDU(b) == '090F032D3132333435363738392E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
16920 | ||
16921 | <RESULT> | |
16922 | ||
16923 | Overall verdict: pass | |
16924 | ||
16925 | <END_TC> | |
16926 | ||
16927 | :exmp. | |
16928 | ||
16929 | .*---------------------------------------------------------------------* | |
16930 | :h3.CER + DER encoding of REAL, -1234567890 (primitive) | |
16931 | .*---------------------------------------------------------------------* | |
16932 | :xmp tab=0. | |
16933 | ||
16934 | <TC - CER + DER encoding of REAL, -1234567890 (primitive)> | |
16935 | ||
16936 | <STATIC:ASN> | |
16937 | ||
16938 | TempA | |
16939 | ||
16940 | DEFINITIONS ::= | |
16941 | BEGIN | |
16942 | BERPDU ::= REAL | |
16943 | b BERPDU ::= -1234567890 | |
16944 | ||
16945 | END | |
16946 | ||
16947 | <STATIC> | |
16948 | ||
16949 | import from TempA all; | |
16950 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16951 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16952 | ||
16953 | ||
16954 | ||
16955 | <TTCN_TC:EXEC> | |
16956 | ||
16957 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4531'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
16958 | ||
16959 | <RESULT> | |
16960 | ||
16961 | Overall verdict: pass | |
16962 | ||
16963 | <END_TC> | |
16964 | ||
16965 | :exmp. | |
16966 | ||
16967 | .*---------------------------------------------------------------------* | |
16968 | :h3.CER + DER encoding of REAL, -1234567890.0 (primitive) | |
16969 | .*---------------------------------------------------------------------* | |
16970 | :xmp tab=0. | |
16971 | ||
16972 | <TC - CER + DER encoding of REAL, -1234567890.0 (primitive)> | |
16973 | ||
16974 | <STATIC:ASN> | |
16975 | ||
16976 | TempA | |
16977 | ||
16978 | DEFINITIONS ::= | |
16979 | BEGIN | |
16980 | BERPDU ::= REAL | |
16981 | b BERPDU ::= -1234567890.0 | |
16982 | ||
16983 | END | |
16984 | ||
16985 | <STATIC> | |
16986 | ||
16987 | import from TempA all; | |
16988 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
16989 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
16990 | ||
16991 | ||
16992 | ||
16993 | <TTCN_TC:EXEC> | |
16994 | ||
16995 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4531'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
16996 | ||
16997 | <RESULT> | |
16998 | ||
16999 | Overall verdict: pass | |
17000 | ||
17001 | <END_TC> | |
17002 | ||
17003 | :exmp. | |
17004 | ||
17005 | .*---------------------------------------------------------------------* | |
17006 | :h3.CER + DER encoding of REAL, -1234567890.00 (primitive) | |
17007 | .*---------------------------------------------------------------------* | |
17008 | :xmp tab=0. | |
17009 | ||
17010 | <TC - CER + DER encoding of REAL, -1234567890.00 (primitive)> | |
17011 | ||
17012 | <STATIC:ASN> | |
17013 | ||
17014 | TempA | |
17015 | ||
17016 | DEFINITIONS ::= | |
17017 | BEGIN | |
17018 | BERPDU ::= REAL | |
17019 | b BERPDU ::= -1234567890.00 | |
17020 | ||
17021 | END | |
17022 | ||
17023 | <STATIC> | |
17024 | ||
17025 | import from TempA all; | |
17026 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17027 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17028 | ||
17029 | ||
17030 | ||
17031 | <TTCN_TC:EXEC> | |
17032 | ||
17033 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4531'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4531'O)) {setverdict(pass);} else {setverdict(fail);} | |
17034 | ||
17035 | <RESULT> | |
17036 | ||
17037 | Overall verdict: pass | |
17038 | ||
17039 | <END_TC> | |
17040 | ||
17041 | :exmp. | |
17042 | ||
17043 | .*---------------------------------------------------------------------* | |
17044 | :h3.CER + DER encoding of REAL, -12345678900.0 (primitive) | |
17045 | .*---------------------------------------------------------------------* | |
17046 | :xmp tab=0. | |
17047 | ||
17048 | <TC - CER + DER encoding of REAL, -12345678900.0 (primitive)> | |
17049 | ||
17050 | <STATIC:ASN> | |
17051 | ||
17052 | TempA | |
17053 | ||
17054 | DEFINITIONS ::= | |
17055 | BEGIN | |
17056 | BERPDU ::= REAL | |
17057 | b BERPDU ::= -12345678900.0 | |
17058 | ||
17059 | END | |
17060 | ||
17061 | <STATIC> | |
17062 | ||
17063 | import from TempA all; | |
17064 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17065 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17066 | ||
17067 | ||
17068 | ||
17069 | <TTCN_TC:EXEC> | |
17070 | ||
17071 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4532'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
17072 | ||
17073 | <RESULT> | |
17074 | ||
17075 | Overall verdict: pass | |
17076 | ||
17077 | <END_TC> | |
17078 | ||
17079 | :exmp. | |
17080 | ||
17081 | .*---------------------------------------------------------------------* | |
17082 | :h3.CER + DER encoding of REAL, -12345678900.0 (primitive) | |
17083 | .*---------------------------------------------------------------------* | |
17084 | :xmp tab=0. | |
17085 | ||
17086 | <TC - CER + DER encoding of REAL, -12345678900.0 (primitive)> | |
17087 | ||
17088 | <STATIC:ASN> | |
17089 | ||
17090 | TempA | |
17091 | ||
17092 | DEFINITIONS ::= | |
17093 | BEGIN | |
17094 | BERPDU ::= REAL | |
17095 | b BERPDU ::= -12345678900.0 | |
17096 | ||
17097 | END | |
17098 | ||
17099 | <STATIC> | |
17100 | ||
17101 | import from TempA all; | |
17102 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17103 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17104 | ||
17105 | ||
17106 | ||
17107 | <TTCN_TC:EXEC> | |
17108 | ||
17109 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4532'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
17110 | ||
17111 | <RESULT> | |
17112 | ||
17113 | Overall verdict: pass | |
17114 | ||
17115 | <END_TC> | |
17116 | ||
17117 | :exmp. | |
17118 | ||
17119 | .*---------------------------------------------------------------------* | |
17120 | :h3.CER + DER encoding of REAL, -12345678900.00 (primitive) | |
17121 | .*---------------------------------------------------------------------* | |
17122 | :xmp tab=0. | |
17123 | ||
17124 | <TC - CER + DER encoding of REAL, -12345678900.00 (primitive)> | |
17125 | ||
17126 | <STATIC:ASN> | |
17127 | ||
17128 | TempA | |
17129 | ||
17130 | DEFINITIONS ::= | |
17131 | BEGIN | |
17132 | BERPDU ::= REAL | |
17133 | b BERPDU ::= -12345678900.00 | |
17134 | ||
17135 | END | |
17136 | ||
17137 | <STATIC> | |
17138 | ||
17139 | import from TempA all; | |
17140 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17141 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17142 | ||
17143 | ||
17144 | ||
17145 | <TTCN_TC:EXEC> | |
17146 | ||
17147 | if ((enc_DER_PDU(b) == '090E032D3132333435363738392E4532'O)and(enc_CER_PDU(b) == '090E032D3132333435363738392E4532'O)) {setverdict(pass);} else {setverdict(fail);} | |
17148 | ||
17149 | <RESULT> | |
17150 | ||
17151 | Overall verdict: pass | |
17152 | ||
17153 | <END_TC> | |
17154 | ||
17155 | :exmp. | |
17156 | ||
17157 | .*---------------------------------------------------------------------* | |
17158 | :h3.CER + DER encoding of REAL, PLUS-INFINITY (primitive) | |
17159 | .*---------------------------------------------------------------------* | |
17160 | :xmp tab=0. | |
17161 | ||
17162 | <TC - CER + DER encoding of REAL, PLUS-INFINITY (primitive)> | |
17163 | ||
17164 | <STATIC:ASN> | |
17165 | ||
17166 | TempA | |
17167 | ||
17168 | DEFINITIONS ::= | |
17169 | BEGIN | |
17170 | BERPDU ::= REAL | |
17171 | b BERPDU ::= PLUS-INFINITY | |
17172 | ||
17173 | END | |
17174 | ||
17175 | <STATIC> | |
17176 | ||
17177 | import from TempA all; | |
17178 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17179 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17180 | ||
17181 | ||
17182 | ||
17183 | <TTCN_TC:EXEC> | |
17184 | ||
17185 | if ((enc_DER_PDU(b) == '090140'O)and(enc_CER_PDU(b) == '090140'O)) {setverdict(pass);} else {setverdict(fail);} | |
17186 | ||
17187 | <RESULT> | |
17188 | ||
17189 | Overall verdict: pass | |
17190 | ||
17191 | <END_TC> | |
17192 | ||
17193 | :exmp. | |
17194 | ||
17195 | .*---------------------------------------------------------------------* | |
17196 | :h3.CER + DER encoding of REAL, MINUS-INFINITY (primitive) | |
17197 | .*---------------------------------------------------------------------* | |
17198 | :xmp tab=0. | |
17199 | ||
17200 | <TC - CER + DER encoding of REAL, MINUS-INFINITY (primitive)> | |
17201 | ||
17202 | <STATIC:ASN> | |
17203 | ||
17204 | TempA | |
17205 | ||
17206 | DEFINITIONS ::= | |
17207 | BEGIN | |
17208 | BERPDU ::= REAL | |
17209 | b BERPDU ::= MINUS-INFINITY | |
17210 | ||
17211 | END | |
17212 | ||
17213 | <STATIC> | |
17214 | ||
17215 | import from TempA all; | |
17216 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17217 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17218 | ||
17219 | ||
17220 | ||
17221 | <TTCN_TC:EXEC> | |
17222 | ||
17223 | if ((enc_DER_PDU(b) == '090141'O)and(enc_CER_PDU(b) == '090141'O)) {setverdict(pass);} else {setverdict(fail);} | |
17224 | ||
17225 | <RESULT> | |
17226 | ||
17227 | Overall verdict: pass | |
17228 | ||
17229 | <END_TC> | |
17230 | ||
17231 | :exmp. | |
17232 | ||
17233 | .*---------------------------------------------------------------------* | |
17234 | :h3.CER + DER encoding of REAL, 1 , IMPICIT TAG | |
17235 | .*---------------------------------------------------------------------* | |
17236 | :xmp tab=0. | |
17237 | ||
17238 | <TC - CER + DER encoding of REAL, 1 , IMPICIT TAG> | |
17239 | ||
17240 | <STATIC:ASN> | |
17241 | ||
17242 | TempA | |
17243 | ||
17244 | DEFINITIONS ::= | |
17245 | BEGIN | |
17246 | BERPDU ::= [0] IMPLICIT REAL | |
17247 | b BERPDU ::= 1 | |
17248 | ||
17249 | END | |
17250 | ||
17251 | <STATIC> | |
17252 | ||
17253 | import from TempA all; | |
17254 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17255 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17256 | ||
17257 | ||
17258 | ||
17259 | <TTCN_TC:EXEC> | |
17260 | ||
17261 | if ((enc_DER_PDU(b) == '800603312E452B30'O)and(enc_CER_PDU(b) == '800603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
17262 | ||
17263 | <RESULT> | |
17264 | ||
17265 | Overall verdict: pass | |
17266 | ||
17267 | <END_TC> | |
17268 | ||
17269 | :exmp. | |
17270 | ||
17271 | .*---------------------------------------------------------------------* | |
17272 | :h3.CER + DER encoding of REAL, 1 , EXPICIT TAG | |
17273 | .*---------------------------------------------------------------------* | |
17274 | :xmp tab=0. | |
17275 | ||
17276 | <TC - CER + DER encoding of REAL, 1 , EXPICIT TAG> | |
17277 | ||
17278 | <STATIC:ASN> | |
17279 | ||
17280 | TempA | |
17281 | ||
17282 | DEFINITIONS ::= | |
17283 | BEGIN | |
17284 | BERPDU ::= [0] EXPLICIT REAL | |
17285 | b BERPDU ::= 1 | |
17286 | ||
17287 | END | |
17288 | ||
17289 | <STATIC> | |
17290 | ||
17291 | import from TempA all; | |
17292 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17293 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17294 | ||
17295 | ||
17296 | ||
17297 | <TTCN_TC:EXEC> | |
17298 | ||
17299 | if ((enc_DER_PDU(b) == 'A008090603312E452B30'O)and(enc_CER_PDU(b) == 'A080090603312E452B300000'O)) {setverdict(pass);} else {setverdict(fail);} | |
17300 | ||
17301 | <RESULT> | |
17302 | ||
17303 | Overall verdict: pass | |
17304 | ||
17305 | <END_TC> | |
17306 | ||
17307 | :exmp. | |
17308 | ||
17309 | .*---------------------------------------------------------------------* | |
17310 | :h3.CER + DER encoding of BIT STRING, length = 0 (primitive) | |
17311 | .*---------------------------------------------------------------------* | |
17312 | :xmp tab=0. | |
17313 | ||
17314 | <TC - CER + DER encoding of BIT STRING, length = 0 (primitive)> | |
17315 | ||
17316 | <STATIC:ASN> | |
17317 | ||
17318 | TempA | |
17319 | ||
17320 | DEFINITIONS ::= | |
17321 | BEGIN | |
17322 | BERPDU ::= BIT STRING | |
17323 | END | |
17324 | ||
17325 | <STATIC> | |
17326 | ||
17327 | import from TempA all; | |
17328 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17329 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17330 | ||
17331 | const BERPDU b := ''B | |
17332 | ||
17333 | <TTCN_TC:EXEC> | |
17334 | ||
17335 | if ((enc_DER_PDU(b) == '030100'O)and(enc_CER_PDU(b) == '030100'O)) {setverdict(pass);} else {setverdict(fail);} | |
17336 | ||
17337 | <RESULT> | |
17338 | ||
17339 | Overall verdict: pass | |
17340 | ||
17341 | <END_TC> | |
17342 | ||
17343 | :exmp. | |
17344 | ||
17345 | .*---------------------------------------------------------------------* | |
17346 | :h3.CER + DER encoding of BIT STRING, length = 1 (primitive) | |
17347 | .*---------------------------------------------------------------------* | |
17348 | :xmp tab=0. | |
17349 | ||
17350 | <TC - CER + DER encoding of BIT STRING, length = 1 (primitive)> | |
17351 | ||
17352 | <STATIC:ASN> | |
17353 | ||
17354 | TempA | |
17355 | ||
17356 | DEFINITIONS ::= | |
17357 | BEGIN | |
17358 | BERPDU ::= BIT STRING | |
17359 | END | |
17360 | ||
17361 | <STATIC> | |
17362 | ||
17363 | import from TempA all; | |
17364 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17365 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17366 | ||
17367 | const BERPDU b := '1'B | |
17368 | ||
17369 | <TTCN_TC:EXEC> | |
17370 | ||
17371 | if ((enc_DER_PDU(b) == '03020780'O)and(enc_CER_PDU(b) == '03020780'O)) {setverdict(pass);} else {setverdict(fail);} | |
17372 | ||
17373 | <RESULT> | |
17374 | ||
17375 | Overall verdict: pass | |
17376 | ||
17377 | <END_TC> | |
17378 | ||
17379 | :exmp. | |
17380 | ||
17381 | .*---------------------------------------------------------------------* | |
17382 | :h3.CER + DER encoding of BIT STRING, length = 7 (primitive) | |
17383 | .*---------------------------------------------------------------------* | |
17384 | :xmp tab=0. | |
17385 | ||
17386 | <TC - CER + DER encoding of BIT STRING, length = 7 (primitive)> | |
17387 | ||
17388 | <STATIC:ASN> | |
17389 | ||
17390 | TempA | |
17391 | ||
17392 | DEFINITIONS ::= | |
17393 | BEGIN | |
17394 | BERPDU ::= BIT STRING | |
17395 | END | |
17396 | ||
17397 | <STATIC> | |
17398 | ||
17399 | import from TempA all; | |
17400 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17401 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17402 | ||
17403 | const BERPDU b := '1010101'B | |
17404 | <TTCN_TC:EXEC> | |
17405 | ||
17406 | if ((enc_DER_PDU(b) == '030201AA'O)and(enc_CER_PDU(b) == '030201AA'O)) {setverdict(pass);} else {setverdict(fail);} | |
17407 | ||
17408 | <RESULT> | |
17409 | ||
17410 | Overall verdict: pass | |
17411 | ||
17412 | <END_TC> | |
17413 | ||
17414 | :exmp. | |
17415 | ||
17416 | .*---------------------------------------------------------------------* | |
17417 | :h3.CER + DER encoding of BIT STRING, length = 8 (primitive) | |
17418 | .*---------------------------------------------------------------------* | |
17419 | :xmp tab=0. | |
17420 | ||
17421 | <TC - CER + DER encoding of BIT STRING, length = 8 (primitive)> | |
17422 | ||
17423 | <STATIC:ASN> | |
17424 | ||
17425 | TempA | |
17426 | ||
17427 | DEFINITIONS ::= | |
17428 | BEGIN | |
17429 | BERPDU ::= BIT STRING | |
17430 | END | |
17431 | ||
17432 | <STATIC> | |
17433 | ||
17434 | import from TempA all; | |
17435 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17436 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17437 | ||
17438 | const BERPDU b := '10101010'B | |
17439 | <TTCN_TC:EXEC> | |
17440 | ||
17441 | if ((enc_DER_PDU(b) == '030200AA'O)and(enc_CER_PDU(b) == '030200AA'O)) {setverdict(pass);} else {setverdict(fail);} | |
17442 | ||
17443 | <RESULT> | |
17444 | ||
17445 | Overall verdict: pass | |
17446 | ||
17447 | <END_TC> | |
17448 | ||
17449 | :exmp. | |
17450 | ||
17451 | .*---------------------------------------------------------------------* | |
17452 | :h3.CER + DER encoding of BIT STRING, length = 9 (primitive) | |
17453 | .*---------------------------------------------------------------------* | |
17454 | :xmp tab=0. | |
17455 | ||
17456 | <TC - CER + DER encoding of BIT STRING, length = 9 (primitive)> | |
17457 | ||
17458 | <STATIC:ASN> | |
17459 | ||
17460 | TempA | |
17461 | ||
17462 | DEFINITIONS ::= | |
17463 | BEGIN | |
17464 | BERPDU ::= BIT STRING | |
17465 | END | |
17466 | ||
17467 | <STATIC> | |
17468 | ||
17469 | import from TempA all; | |
17470 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17471 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17472 | ||
17473 | const BERPDU b := '111100001'B | |
17474 | ||
17475 | <TTCN_TC:EXEC> | |
17476 | ||
17477 | if ((enc_DER_PDU(b) == '030307F080'O)and(enc_CER_PDU(b) == '030307F080'O)) {setverdict(pass);} else {setverdict(fail);} | |
17478 | ||
17479 | <RESULT> | |
17480 | ||
17481 | Overall verdict: pass | |
17482 | ||
17483 | <END_TC> | |
17484 | ||
17485 | :exmp. | |
17486 | ||
17487 | .*---------------------------------------------------------------------* | |
17488 | :h3.CER(primitive) + DER(primitive) encoding of BIT STRING, contents length = 1000 octets (999 octets of data and one unused bits octet) | |
17489 | .*---------------------------------------------------------------------* | |
17490 | :xmp tab=0. | |
17491 | ||
17492 | <TC - CER(primitive) + DER(primitive) encoding of BIT STRING, contents length = 1000 octets (999 octets of data and one unused bits octet)> | |
17493 | ||
17494 | <STATIC:ASN> | |
17495 | ||
17496 | TempA | |
17497 | ||
17498 | DEFINITIONS ::= | |
17499 | BEGIN | |
17500 | BERPDU ::= BIT STRING | |
17501 | ||
17502 | b BERPDU ::= 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
17503 | ||
17504 | ||
17505 | ||
17506 | END | |
17507 | ||
17508 | <STATIC> | |
17509 | ||
17510 | import from TempA all; | |
17511 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17512 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17513 | ||
17514 | <TTCN_TC:EXEC> | |
17515 | ||
17516 | if ((enc_DER_PDU(b) == '038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)and(enc_CER_PDU(b) == '038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)) {setverdict(pass);} else {setverdict(fail);} | |
17517 | ||
17518 | <RESULT> | |
17519 | ||
17520 | Overall verdict: pass | |
17521 | ||
17522 | <END_TC> | |
17523 | ||
17524 | :exmp. | |
17525 | ||
17526 | .*---------------------------------------------------------------------* | |
17527 | :h3.CER(constructed) + DER(primitive) encoding of BIT STRING, contents length = 1001 octets (1000 octets of data and one (ENC_02_014 and ENC_02_015) ENC_02_012 and ENC_02_012 | |
17528 | .*---------------------------------------------------------------------* | |
17529 | :xmp tab=0. | |
17530 | ||
17531 | <TC - CER(constructed) + DER(primitive) encoding of BIT STRING, contents length = 1001 octets (1000 octets of data and one (ENC_02_014 and ENC_02_015) ENC_02_012 and ENC_02_012> | |
17532 | ||
17533 | <STATIC:ASN> | |
17534 | ||
17535 | TempA | |
17536 | ||
17537 | DEFINITIONS ::= | |
17538 | BEGIN | |
17539 | BERPDU ::= BIT STRING | |
17540 | ||
17541 | b BERPDU ::= 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
17542 | ||
17543 | ||
17544 | END | |
17545 | ||
17546 | <STATIC> | |
17547 | ||
17548 | import from TempA all; | |
17549 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17550 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17551 | ||
17552 | ||
17553 | <TTCN_TC:EXEC> | |
17554 | ||
17555 | if ((enc_DER_PDU(b) == '038203E900FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)and(enc_CER_PDU(b) | |
17556 | == '2380038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF030200FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
17557 | ||
17558 | <RESULT> | |
17559 | ||
17560 | Overall verdict: pass | |
17561 | ||
17562 | <END_TC> | |
17563 | ||
17564 | :exmp. | |
17565 | ||
17566 | .*---------------------------------------------------------------------* | |
17567 | :h3.CER + DER encoding of BIT STRING, length = 1, IMPLICIT TAG (primitive) | |
17568 | .*---------------------------------------------------------------------* | |
17569 | :xmp tab=0. | |
17570 | ||
17571 | <TC - CER + DER encoding of BIT STRING, length = 1, IMPLICIT TAG (primitive)> | |
17572 | ||
17573 | <STATIC:ASN> | |
17574 | ||
17575 | TempA | |
17576 | ||
17577 | DEFINITIONS ::= | |
17578 | BEGIN | |
17579 | BERPDU ::= [0] IMPLICIT BIT STRING | |
17580 | END | |
17581 | ||
17582 | <STATIC> | |
17583 | ||
17584 | import from TempA all; | |
17585 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17586 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17587 | ||
17588 | const BERPDU b := '1'B | |
17589 | ||
17590 | <TTCN_TC:EXEC> | |
17591 | ||
17592 | if ((enc_DER_PDU(b) == '80020780'O)and(enc_CER_PDU(b) == '80020780'O)) {setverdict(pass);} else {setverdict(fail);} | |
17593 | ||
17594 | <RESULT> | |
17595 | ||
17596 | Overall verdict: pass | |
17597 | ||
17598 | <END_TC> | |
17599 | ||
17600 | :exmp. | |
17601 | ||
17602 | .*---------------------------------------------------------------------* | |
17603 | :h3.CER + DER encoding of BIT STRING, length = 1, EXPLICIT TAG (constructed) | |
17604 | .*---------------------------------------------------------------------* | |
17605 | :xmp tab=0. | |
17606 | ||
17607 | <TC - CER + DER encoding of BIT STRING, length = 1, EXPLICIT TAG (constructed)> | |
17608 | ||
17609 | <STATIC:ASN> | |
17610 | ||
17611 | TempA | |
17612 | ||
17613 | DEFINITIONS ::= | |
17614 | BEGIN | |
17615 | BERPDU ::= [0] EXPLICIT BIT STRING | |
17616 | END | |
17617 | ||
17618 | <STATIC> | |
17619 | ||
17620 | import from TempA all; | |
17621 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
17622 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
17623 | ||
17624 | const BERPDU b := '1'B | |
17625 | ||
17626 | <TTCN_TC:EXEC> | |
17627 | ||
17628 | if ((enc_DER_PDU(b) == 'A00403020780'O)and(enc_CER_PDU(b) == 'A080030207800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
17629 | ||
17630 | <RESULT> | |
17631 | ||
17632 | Overall verdict: pass | |
17633 | ||
17634 | <END_TC> | |
17635 | ||
17636 | :exmp. | |
17637 | ||
17638 | .*---------------------------------------------------------------------* | |
17639 | :h3. DECODING BIT STRING ,length = 0 ,CER +DER (primitive) | |
17640 | .*---------------------------------------------------------------------* | |
17641 | :xmp tab=0. | |
17642 | ||
17643 | <TC - DECODING BIT STRING ,length = 0 ,CER +DER (primitive)> | |
17644 | ||
17645 | <STATIC:ASN> | |
17646 | ||
17647 | TempA | |
17648 | ||
17649 | DEFINITIONS ::= | |
17650 | BEGIN | |
17651 | BERPDU ::= BIT STRING | |
17652 | ||
17653 | myValue BERPDU ::=''B | |
17654 | ||
17655 | END | |
17656 | ||
17657 | <STATIC> | |
17658 | ||
17659 | import from TempA all; | |
17660 | ||
17661 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17662 | ||
17663 | ||
17664 | <TTCN_TC:EXEC> | |
17665 | ||
17666 | if (dec_BER_PDU('030100'O) == myValue) | |
17667 | ||
17668 | ||
17669 | {setverdict(pass);} else {setverdict(fail);} | |
17670 | ||
17671 | ||
17672 | <RESULT> | |
17673 | ||
17674 | Overall verdict: pass | |
17675 | ||
17676 | <END_TC> | |
17677 | ||
17678 | :exmp. | |
17679 | ||
17680 | .*---------------------------------------------------------------------* | |
17681 | :h3. DECODING BIT STRING ,length = 0 ,constructed | |
17682 | .*---------------------------------------------------------------------* | |
17683 | :xmp tab=0. | |
17684 | ||
17685 | <TC - DECODING BIT STRING ,length = 0 ,constructed> | |
17686 | ||
17687 | <STATIC:ASN> | |
17688 | ||
17689 | TempA | |
17690 | ||
17691 | DEFINITIONS ::= | |
17692 | BEGIN | |
17693 | BERPDU ::= BIT STRING | |
17694 | ||
17695 | myValue BERPDU ::=''B | |
17696 | ||
17697 | END | |
17698 | ||
17699 | <STATIC> | |
17700 | ||
17701 | import from TempA all; | |
17702 | ||
17703 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17704 | ||
17705 | ||
17706 | <TTCN_TC:EXEC> | |
17707 | ||
17708 | if (dec_BER_PDU('2303030100'O) == myValue) | |
17709 | ||
17710 | ||
17711 | {setverdict(pass);} else {setverdict(fail);} | |
17712 | ||
17713 | ||
17714 | <RESULT> | |
17715 | ||
17716 | Overall verdict: pass | |
17717 | ||
17718 | <END_TC> | |
17719 | ||
17720 | :exmp. | |
17721 | ||
17722 | .*---------------------------------------------------------------------* | |
17723 | :h3. DECODING BIT STRING ,2xlength = 0 ,constructed | |
17724 | .*---------------------------------------------------------------------* | |
17725 | :xmp tab=0. | |
17726 | ||
17727 | <TC - DECODING BIT STRING ,2xlength = 0 ,constructed> | |
17728 | ||
17729 | <STATIC:ASN> | |
17730 | ||
17731 | TempA | |
17732 | ||
17733 | DEFINITIONS ::= | |
17734 | BEGIN | |
17735 | BERPDU ::= BIT STRING | |
17736 | ||
17737 | myValue BERPDU ::=''B | |
17738 | ||
17739 | END | |
17740 | ||
17741 | <STATIC> | |
17742 | ||
17743 | import from TempA all; | |
17744 | ||
17745 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17746 | ||
17747 | ||
17748 | <TTCN_TC:EXEC> | |
17749 | ||
17750 | if (dec_BER_PDU('2306030100030100'O) == myValue) | |
17751 | ||
17752 | ||
17753 | {setverdict(pass);} else {setverdict(fail);} | |
17754 | ||
17755 | ||
17756 | <RESULT> | |
17757 | ||
17758 | Overall verdict: pass | |
17759 | ||
17760 | <END_TC> | |
17761 | ||
17762 | :exmp. | |
17763 | ||
17764 | .*---------------------------------------------------------------------* | |
17765 | :h3. DECODING BIT STRING ,length = 0 ,constructed, indefinite | |
17766 | .*---------------------------------------------------------------------* | |
17767 | :xmp tab=0. | |
17768 | ||
17769 | <TC - DECODING BIT STRING ,length = 0 ,constructed, indefinite> | |
17770 | ||
17771 | <STATIC:ASN> | |
17772 | ||
17773 | TempA | |
17774 | ||
17775 | DEFINITIONS ::= | |
17776 | BEGIN | |
17777 | BERPDU ::= BIT STRING | |
17778 | ||
17779 | myIntegerValue BERPDU ::=''B | |
17780 | ||
17781 | END | |
17782 | ||
17783 | <STATIC> | |
17784 | ||
17785 | import from TempA all; | |
17786 | ||
17787 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17788 | ||
17789 | ||
17790 | <TTCN_TC:EXEC> | |
17791 | ||
17792 | if (dec_BER_PDU('23800301000000'O) == myIntegerValue) | |
17793 | ||
17794 | ||
17795 | {setverdict(pass);} else {setverdict(fail);} | |
17796 | ||
17797 | ||
17798 | <RESULT> | |
17799 | ||
17800 | Overall verdict: pass | |
17801 | ||
17802 | <END_TC> | |
17803 | ||
17804 | :exmp. | |
17805 | ||
17806 | .*---------------------------------------------------------------------* | |
17807 | :h3. DECODING BIT STRING ,length = 1 ,CER + DER, (primitive) | |
17808 | .*---------------------------------------------------------------------* | |
17809 | :xmp tab=0. | |
17810 | ||
17811 | <TC - DECODING BIT STRING ,length = 1 ,CER + DER, (primitive)> | |
17812 | ||
17813 | <STATIC:ASN> | |
17814 | ||
17815 | TempA | |
17816 | ||
17817 | DEFINITIONS ::= | |
17818 | BEGIN | |
17819 | BERPDU ::= BIT STRING | |
17820 | ||
17821 | myValue BERPDU ::='1'B | |
17822 | ||
17823 | END | |
17824 | ||
17825 | <STATIC> | |
17826 | ||
17827 | import from TempA all; | |
17828 | ||
17829 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17830 | ||
17831 | ||
17832 | <TTCN_TC:EXEC> | |
17833 | ||
17834 | if (dec_BER_PDU('03020780'O) == myValue) | |
17835 | ||
17836 | ||
17837 | {setverdict(pass);} else {setverdict(fail);} | |
17838 | ||
17839 | ||
17840 | <RESULT> | |
17841 | ||
17842 | Overall verdict: pass | |
17843 | ||
17844 | <END_TC> | |
17845 | ||
17846 | :exmp. | |
17847 | ||
17848 | .*---------------------------------------------------------------------* | |
17849 | :h3. DECODING BIT STRING ,length = 1 , (primitive, long form) | |
17850 | .*---------------------------------------------------------------------* | |
17851 | :xmp tab=0. | |
17852 | ||
17853 | <TC - DECODING BIT STRING ,length = 1 , (primitive, long form)> | |
17854 | ||
17855 | <STATIC:ASN> | |
17856 | ||
17857 | TempA | |
17858 | ||
17859 | DEFINITIONS ::= | |
17860 | BEGIN | |
17861 | BERPDU ::= BIT STRING | |
17862 | ||
17863 | myIntegerValue BERPDU ::='1'B | |
17864 | ||
17865 | END | |
17866 | ||
17867 | <STATIC> | |
17868 | ||
17869 | import from TempA all; | |
17870 | ||
17871 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17872 | ||
17873 | ||
17874 | <TTCN_TC:EXEC> | |
17875 | ||
17876 | if (dec_BER_PDU('0381020780'O) == myIntegerValue) | |
17877 | ||
17878 | ||
17879 | {setverdict(pass);} else {setverdict(fail);} | |
17880 | ||
17881 | ||
17882 | <RESULT> | |
17883 | ||
17884 | Overall verdict: pass | |
17885 | ||
17886 | <END_TC> | |
17887 | ||
17888 | :exmp. | |
17889 | ||
17890 | .*---------------------------------------------------------------------* | |
17891 | :h3. DECODING BIT STRING ,length = 1 , (constructed, short form - short form) | |
17892 | .*---------------------------------------------------------------------* | |
17893 | :xmp tab=0. | |
17894 | ||
17895 | <TC - DECODING BIT STRING ,length = 1 , (constructed, short form - short form)> | |
17896 | ||
17897 | <STATIC:ASN> | |
17898 | ||
17899 | TempA | |
17900 | ||
17901 | DEFINITIONS ::= | |
17902 | BEGIN | |
17903 | BERPDU ::= BIT STRING | |
17904 | ||
17905 | myValue BERPDU ::='1'B | |
17906 | ||
17907 | END | |
17908 | ||
17909 | <STATIC> | |
17910 | ||
17911 | import from TempA all; | |
17912 | ||
17913 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17914 | ||
17915 | ||
17916 | <TTCN_TC:EXEC> | |
17917 | ||
17918 | if (dec_BER_PDU('230403020780'O) == myValue) | |
17919 | ||
17920 | ||
17921 | {setverdict(pass);} else {setverdict(fail);} | |
17922 | ||
17923 | ||
17924 | <RESULT> | |
17925 | ||
17926 | Overall verdict: pass | |
17927 | ||
17928 | <END_TC> | |
17929 | ||
17930 | :exmp. | |
17931 | ||
17932 | .*---------------------------------------------------------------------* | |
17933 | :h3. DECODING BIT STRING ,length = 1 , (constructed, short form - long form) | |
17934 | .*---------------------------------------------------------------------* | |
17935 | :xmp tab=0. | |
17936 | ||
17937 | <TC - DECODING BIT STRING ,length = 1 , (constructed, short form - long form)> | |
17938 | ||
17939 | <STATIC:ASN> | |
17940 | ||
17941 | TempA | |
17942 | ||
17943 | DEFINITIONS ::= | |
17944 | BEGIN | |
17945 | BERPDU ::= BIT STRING | |
17946 | ||
17947 | myValue BERPDU ::='1'B | |
17948 | ||
17949 | END | |
17950 | ||
17951 | <STATIC> | |
17952 | ||
17953 | import from TempA all; | |
17954 | ||
17955 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17956 | ||
17957 | ||
17958 | <TTCN_TC:EXEC> | |
17959 | ||
17960 | if (dec_BER_PDU('23050381020780'O) == myValue) | |
17961 | ||
17962 | ||
17963 | {setverdict(pass);} else {setverdict(fail);} | |
17964 | ||
17965 | ||
17966 | <RESULT> | |
17967 | ||
17968 | Overall verdict: pass | |
17969 | ||
17970 | <END_TC> | |
17971 | ||
17972 | :exmp. | |
17973 | ||
17974 | .*---------------------------------------------------------------------* | |
17975 | :h3. DECODING BIT STRING ,length = 1 , (constructed, long form - long form) | |
17976 | .*---------------------------------------------------------------------* | |
17977 | :xmp tab=0. | |
17978 | ||
17979 | <TC - DECODING BIT STRING ,length = 1 , (constructed, long form - long form)> | |
17980 | ||
17981 | <STATIC:ASN> | |
17982 | ||
17983 | TempA | |
17984 | ||
17985 | DEFINITIONS ::= | |
17986 | BEGIN | |
17987 | BERPDU ::= BIT STRING | |
17988 | ||
17989 | myValue BERPDU ::='1'B | |
17990 | ||
17991 | END | |
17992 | ||
17993 | <STATIC> | |
17994 | ||
17995 | import from TempA all; | |
17996 | ||
17997 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
17998 | ||
17999 | ||
18000 | <TTCN_TC:EXEC> | |
18001 | ||
18002 | if (dec_BER_PDU('2381050381020780'O) == myValue) | |
18003 | ||
18004 | ||
18005 | {setverdict(pass);} else {setverdict(fail);} | |
18006 | ||
18007 | ||
18008 | <RESULT> | |
18009 | ||
18010 | Overall verdict: pass | |
18011 | ||
18012 | <END_TC> | |
18013 | ||
18014 | :exmp. | |
18015 | ||
18016 | .*---------------------------------------------------------------------* | |
18017 | :h3. DECODING BIT STRING ,length = 1 , (constructed, indefinite form) | |
18018 | .*---------------------------------------------------------------------* | |
18019 | :xmp tab=0. | |
18020 | ||
18021 | <TC - DECODING BIT STRING ,length = 1 , (constructed, indefinite form)> | |
18022 | ||
18023 | <STATIC:ASN> | |
18024 | ||
18025 | TempA | |
18026 | ||
18027 | DEFINITIONS ::= | |
18028 | BEGIN | |
18029 | BERPDU ::= BIT STRING | |
18030 | ||
18031 | myValue BERPDU ::='1'B | |
18032 | ||
18033 | END | |
18034 | ||
18035 | <STATIC> | |
18036 | ||
18037 | import from TempA all; | |
18038 | ||
18039 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18040 | ||
18041 | ||
18042 | <TTCN_TC:EXEC> | |
18043 | ||
18044 | if (dec_BER_PDU('238003810207800000'O) == myValue) | |
18045 | ||
18046 | ||
18047 | {setverdict(pass);} else {setverdict(fail);} | |
18048 | ||
18049 | ||
18050 | <RESULT> | |
18051 | ||
18052 | Overall verdict: pass | |
18053 | ||
18054 | <END_TC> | |
18055 | ||
18056 | :exmp. | |
18057 | ||
18058 | .*---------------------------------------------------------------------* | |
18059 | :h3. DECODING BIT STRING ,2xlength = 1 , (constructed, short form - short form) | |
18060 | .*---------------------------------------------------------------------* | |
18061 | :xmp tab=0. | |
18062 | ||
18063 | <TC - DECODING BIT STRING ,2xlength = 1 , (constructed, short form - short form)> | |
18064 | ||
18065 | <STATIC:ASN> | |
18066 | ||
18067 | TempA | |
18068 | ||
18069 | DEFINITIONS ::= | |
18070 | BEGIN | |
18071 | BERPDU ::= BIT STRING | |
18072 | ||
18073 | myValue BERPDU ::='11'B | |
18074 | ||
18075 | END | |
18076 | ||
18077 | <STATIC> | |
18078 | ||
18079 | import from TempA all; | |
18080 | ||
18081 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER:BER_ACCEPT_ALL)" } | |
18082 | ||
18083 | ||
18084 | <TTCN_TC:EXEC> | |
18085 | ||
18086 | if (dec_BER_PDU('23080302078003020780'O) == myValue) | |
18087 | ||
18088 | ||
18089 | {setverdict(pass);} else {setverdict(fail);} | |
18090 | ||
18091 | ||
18092 | <RESULT> | |
18093 | ||
18094 | Overall verdict: pass | |
18095 | ||
18096 | <END_TC> | |
18097 | ||
18098 | :exmp. | |
18099 | ||
18100 | .*---------------------------------------------------------------------* | |
18101 | :h3. DECODING BIT STRING ,2xlength = 1 , (constructed inside constructed) | |
18102 | .*---------------------------------------------------------------------* | |
18103 | :xmp tab=0. | |
18104 | ||
18105 | <TC - DECODING BIT STRING ,2xlength = 1 , (constructed inside constructed)> | |
18106 | ||
18107 | <STATIC:ASN> | |
18108 | ||
18109 | TempA | |
18110 | ||
18111 | DEFINITIONS ::= | |
18112 | BEGIN | |
18113 | BERPDU ::= BIT STRING | |
18114 | ||
18115 | myValue BERPDU ::='1'B | |
18116 | ||
18117 | END | |
18118 | ||
18119 | <STATIC> | |
18120 | ||
18121 | import from TempA all; | |
18122 | ||
18123 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18124 | ||
18125 | ||
18126 | <TTCN_TC:EXEC> | |
18127 | ||
18128 | if (dec_BER_PDU('2306230403020780'O) == myValue) | |
18129 | ||
18130 | ||
18131 | {setverdict(pass);} else {setverdict(fail);} | |
18132 | ||
18133 | ||
18134 | <RESULT> | |
18135 | ||
18136 | Overall verdict: pass | |
18137 | ||
18138 | <END_TC> | |
18139 | ||
18140 | :exmp. | |
18141 | ||
18142 | .*---------------------------------------------------------------------* | |
18143 | :h3. DECODING BIT STRING ,length = 7 ,CER + DER, (primitive) | |
18144 | .*---------------------------------------------------------------------* | |
18145 | :xmp tab=0. | |
18146 | ||
18147 | <TC - DECODING BIT STRING ,length = 7 ,CER + DER, (primitive)> | |
18148 | ||
18149 | <STATIC:ASN> | |
18150 | ||
18151 | TempA | |
18152 | ||
18153 | DEFINITIONS ::= | |
18154 | BEGIN | |
18155 | BERPDU ::= BIT STRING | |
18156 | ||
18157 | myValue BERPDU ::='1010101'B | |
18158 | ||
18159 | END | |
18160 | ||
18161 | <STATIC> | |
18162 | ||
18163 | import from TempA all; | |
18164 | ||
18165 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18166 | ||
18167 | ||
18168 | <TTCN_TC:EXEC> | |
18169 | ||
18170 | if (dec_BER_PDU('030201AA'O) == myValue) | |
18171 | ||
18172 | ||
18173 | {setverdict(pass);} else {setverdict(fail);} | |
18174 | ||
18175 | ||
18176 | <RESULT> | |
18177 | ||
18178 | Overall verdict: pass | |
18179 | ||
18180 | <END_TC> | |
18181 | ||
18182 | :exmp. | |
18183 | ||
18184 | .*---------------------------------------------------------------------* | |
18185 | :h3. DECODING BIT STRING ,length = 7 , (primitive, long form) | |
18186 | .*---------------------------------------------------------------------* | |
18187 | :xmp tab=0. | |
18188 | ||
18189 | <TC - DECODING BIT STRING ,length = 7 , (primitive, long form)> | |
18190 | ||
18191 | <STATIC:ASN> | |
18192 | ||
18193 | TempA | |
18194 | ||
18195 | DEFINITIONS ::= | |
18196 | BEGIN | |
18197 | BERPDU ::= BIT STRING | |
18198 | ||
18199 | myIntegerValue BERPDU ::='1010101'B | |
18200 | ||
18201 | END | |
18202 | ||
18203 | <STATIC> | |
18204 | ||
18205 | import from TempA all; | |
18206 | ||
18207 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18208 | ||
18209 | ||
18210 | <TTCN_TC:EXEC> | |
18211 | ||
18212 | if (dec_BER_PDU('03810201AA'O) == myIntegerValue) | |
18213 | ||
18214 | ||
18215 | {setverdict(pass);} else {setverdict(fail);} | |
18216 | ||
18217 | ||
18218 | <RESULT> | |
18219 | ||
18220 | Overall verdict: pass | |
18221 | ||
18222 | <END_TC> | |
18223 | ||
18224 | :exmp. | |
18225 | ||
18226 | .*---------------------------------------------------------------------* | |
18227 | :h3. DECODING BIT STRING ,length = 7 , (constructed, short form - short form) | |
18228 | .*---------------------------------------------------------------------* | |
18229 | :xmp tab=0. | |
18230 | ||
18231 | <TC - DECODING BIT STRING ,length = 7 , (constructed, short form - short form)> | |
18232 | ||
18233 | <STATIC:ASN> | |
18234 | ||
18235 | TempA | |
18236 | ||
18237 | DEFINITIONS ::= | |
18238 | BEGIN | |
18239 | BERPDU ::= BIT STRING | |
18240 | ||
18241 | myValue BERPDU ::='1010101'B | |
18242 | ||
18243 | END | |
18244 | ||
18245 | <STATIC> | |
18246 | ||
18247 | import from TempA all; | |
18248 | ||
18249 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18250 | ||
18251 | ||
18252 | <TTCN_TC:EXEC> | |
18253 | ||
18254 | if (dec_BER_PDU('2304030201AA'O) == myValue) | |
18255 | ||
18256 | ||
18257 | {setverdict(pass);} else {setverdict(fail);} | |
18258 | ||
18259 | ||
18260 | <RESULT> | |
18261 | ||
18262 | Overall verdict: pass | |
18263 | ||
18264 | <END_TC> | |
18265 | ||
18266 | :exmp. | |
18267 | ||
18268 | .*---------------------------------------------------------------------* | |
18269 | :h3. DECODING BIT STRING ,length = 7 , (constructed, short form - long form) | |
18270 | .*---------------------------------------------------------------------* | |
18271 | :xmp tab=0. | |
18272 | ||
18273 | <TC - DECODING BIT STRING ,length = 7 , (constructed, short form - long form)> | |
18274 | ||
18275 | <STATIC:ASN> | |
18276 | ||
18277 | TempA | |
18278 | ||
18279 | DEFINITIONS ::= | |
18280 | BEGIN | |
18281 | BERPDU ::= BIT STRING | |
18282 | ||
18283 | myValue BERPDU ::='1010101'B | |
18284 | ||
18285 | END | |
18286 | ||
18287 | <STATIC> | |
18288 | ||
18289 | import from TempA all; | |
18290 | ||
18291 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18292 | ||
18293 | ||
18294 | <TTCN_TC:EXEC> | |
18295 | ||
18296 | if (dec_BER_PDU('230503810201AA'O) == myValue) | |
18297 | ||
18298 | ||
18299 | {setverdict(pass);} else {setverdict(fail);} | |
18300 | ||
18301 | ||
18302 | <RESULT> | |
18303 | ||
18304 | Overall verdict: pass | |
18305 | ||
18306 | <END_TC> | |
18307 | ||
18308 | :exmp. | |
18309 | ||
18310 | .*---------------------------------------------------------------------* | |
18311 | :h3. DECODING BIT STRING ,length = 7 , (constructed, long form - long form) | |
18312 | .*---------------------------------------------------------------------* | |
18313 | :xmp tab=0. | |
18314 | ||
18315 | <TC - DECODING BIT STRING ,length = 7 , (constructed, long form - long form)> | |
18316 | ||
18317 | <STATIC:ASN> | |
18318 | ||
18319 | TempA | |
18320 | ||
18321 | DEFINITIONS ::= | |
18322 | BEGIN | |
18323 | BERPDU ::= BIT STRING | |
18324 | ||
18325 | myValue BERPDU ::='1010101'B | |
18326 | ||
18327 | END | |
18328 | ||
18329 | <STATIC> | |
18330 | ||
18331 | import from TempA all; | |
18332 | ||
18333 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18334 | ||
18335 | ||
18336 | <TTCN_TC:EXEC> | |
18337 | ||
18338 | if (dec_BER_PDU('23810503810201AA'O) == myValue) | |
18339 | ||
18340 | ||
18341 | {setverdict(pass);} else {setverdict(fail);} | |
18342 | ||
18343 | ||
18344 | <RESULT> | |
18345 | ||
18346 | Overall verdict: pass | |
18347 | ||
18348 | <END_TC> | |
18349 | ||
18350 | :exmp. | |
18351 | ||
18352 | .*---------------------------------------------------------------------* | |
18353 | :h3. DECODING BIT STRING ,length = 7 , (constructed, indefinite form) | |
18354 | .*---------------------------------------------------------------------* | |
18355 | :xmp tab=0. | |
18356 | ||
18357 | <TC - DECODING BIT STRING ,length = 7 , (constructed, indefinite form)> | |
18358 | ||
18359 | <STATIC:ASN> | |
18360 | ||
18361 | TempA | |
18362 | ||
18363 | DEFINITIONS ::= | |
18364 | BEGIN | |
18365 | BERPDU ::= BIT STRING | |
18366 | ||
18367 | myValue BERPDU ::='1010101'B | |
18368 | ||
18369 | END | |
18370 | ||
18371 | <STATIC> | |
18372 | ||
18373 | import from TempA all; | |
18374 | ||
18375 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18376 | ||
18377 | ||
18378 | <TTCN_TC:EXEC> | |
18379 | ||
18380 | if (dec_BER_PDU('238003810201AA0000'O) == myValue) | |
18381 | ||
18382 | ||
18383 | {setverdict(pass);} else {setverdict(fail);} | |
18384 | ||
18385 | ||
18386 | <RESULT> | |
18387 | ||
18388 | Overall verdict: pass | |
18389 | ||
18390 | <END_TC> | |
18391 | ||
18392 | :exmp. | |
18393 | ||
18394 | .*---------------------------------------------------------------------* | |
18395 | :h3. DECODING BIT STRING ,2xlength = 7 , (constructed, short form - short form) | |
18396 | .*---------------------------------------------------------------------* | |
18397 | :xmp tab=0. | |
18398 | ||
18399 | <TC - DECODING BIT STRING ,2xlength = 7 , (constructed, short form - short form)> | |
18400 | ||
18401 | <STATIC:ASN> | |
18402 | ||
18403 | TempA | |
18404 | ||
18405 | DEFINITIONS ::= | |
18406 | BEGIN | |
18407 | BERPDU ::= BIT STRING | |
18408 | ||
18409 | myValue BERPDU ::='10101011010101'B | |
18410 | ||
18411 | END | |
18412 | ||
18413 | <STATIC> | |
18414 | ||
18415 | import from TempA all; | |
18416 | ||
18417 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18418 | ||
18419 | ||
18420 | <TTCN_TC:EXEC> | |
18421 | ||
18422 | if (dec_BER_PDU('2308030201AA030201AA'O) == myValue) | |
18423 | ||
18424 | ||
18425 | {setverdict(pass);} else {setverdict(fail);} | |
18426 | ||
18427 | ||
18428 | <RESULT> | |
18429 | ||
18430 | Overall verdict: pass | |
18431 | ||
18432 | <END_TC> | |
18433 | ||
18434 | :exmp. | |
18435 | ||
18436 | .*---------------------------------------------------------------------* | |
18437 | :h3. DECODING BIT STRING ,2xlength = 7 , (constructed inside constructed) | |
18438 | .*---------------------------------------------------------------------* | |
18439 | :xmp tab=0. | |
18440 | ||
18441 | <TC - DECODING BIT STRING ,2xlength = 7 , (constructed inside constructed)> | |
18442 | ||
18443 | <STATIC:ASN> | |
18444 | ||
18445 | TempA | |
18446 | ||
18447 | DEFINITIONS ::= | |
18448 | BEGIN | |
18449 | BERPDU ::= BIT STRING | |
18450 | ||
18451 | myValue BERPDU ::='1010101'B | |
18452 | ||
18453 | END | |
18454 | ||
18455 | <STATIC> | |
18456 | ||
18457 | import from TempA all; | |
18458 | ||
18459 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18460 | ||
18461 | ||
18462 | <TTCN_TC:EXEC> | |
18463 | ||
18464 | if (dec_BER_PDU('23062304030201AA'O) == myValue) | |
18465 | ||
18466 | ||
18467 | {setverdict(pass);} else {setverdict(fail);} | |
18468 | ||
18469 | ||
18470 | <RESULT> | |
18471 | ||
18472 | Overall verdict: pass | |
18473 | ||
18474 | <END_TC> | |
18475 | ||
18476 | :exmp. | |
18477 | ||
18478 | .*---------------------------------------------------------------------* | |
18479 | :h3. DECODING BIT STRING ,length = 8 ,CER + DER, (primitive) | |
18480 | .*---------------------------------------------------------------------* | |
18481 | :xmp tab=0. | |
18482 | ||
18483 | <TC - DECODING BIT STRING ,length = 8 ,CER + DER, (primitive)> | |
18484 | ||
18485 | <STATIC:ASN> | |
18486 | ||
18487 | TempA | |
18488 | ||
18489 | DEFINITIONS ::= | |
18490 | BEGIN | |
18491 | BERPDU ::= BIT STRING | |
18492 | ||
18493 | myValue BERPDU ::='10101010'B | |
18494 | ||
18495 | END | |
18496 | ||
18497 | <STATIC> | |
18498 | ||
18499 | import from TempA all; | |
18500 | ||
18501 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18502 | ||
18503 | ||
18504 | <TTCN_TC:EXEC> | |
18505 | ||
18506 | if (dec_BER_PDU('030200AA'O) == myValue) | |
18507 | ||
18508 | ||
18509 | {setverdict(pass);} else {setverdict(fail);} | |
18510 | ||
18511 | ||
18512 | <RESULT> | |
18513 | ||
18514 | Overall verdict: pass | |
18515 | ||
18516 | <END_TC> | |
18517 | ||
18518 | :exmp. | |
18519 | ||
18520 | .*---------------------------------------------------------------------* | |
18521 | :h3. DECODING BIT STRING ,length = 8 , (primitive, long form) | |
18522 | .*---------------------------------------------------------------------* | |
18523 | :xmp tab=0. | |
18524 | ||
18525 | <TC - DECODING BIT STRING ,length = 8 , (primitive, long form)> | |
18526 | ||
18527 | <STATIC:ASN> | |
18528 | ||
18529 | TempA | |
18530 | ||
18531 | DEFINITIONS ::= | |
18532 | BEGIN | |
18533 | BERPDU ::= BIT STRING | |
18534 | ||
18535 | myIntegerValue BERPDU ::='10101010'B | |
18536 | ||
18537 | END | |
18538 | ||
18539 | <STATIC> | |
18540 | ||
18541 | import from TempA all; | |
18542 | ||
18543 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18544 | ||
18545 | ||
18546 | <TTCN_TC:EXEC> | |
18547 | ||
18548 | if (dec_BER_PDU('03810200AA'O) == myIntegerValue) | |
18549 | ||
18550 | ||
18551 | {setverdict(pass);} else {setverdict(fail);} | |
18552 | ||
18553 | ||
18554 | <RESULT> | |
18555 | ||
18556 | Overall verdict: pass | |
18557 | ||
18558 | <END_TC> | |
18559 | ||
18560 | :exmp. | |
18561 | ||
18562 | .*---------------------------------------------------------------------* | |
18563 | :h3. DECODING BIT STRING ,length = 8 , (constructed, short form - short form) | |
18564 | .*---------------------------------------------------------------------* | |
18565 | :xmp tab=0. | |
18566 | ||
18567 | <TC - DECODING BIT STRING ,length = 8 , (constructed, short form - short form)> | |
18568 | ||
18569 | <STATIC:ASN> | |
18570 | ||
18571 | TempA | |
18572 | ||
18573 | DEFINITIONS ::= | |
18574 | BEGIN | |
18575 | BERPDU ::= BIT STRING | |
18576 | ||
18577 | myValue BERPDU ::='10101010'B | |
18578 | ||
18579 | END | |
18580 | ||
18581 | <STATIC> | |
18582 | ||
18583 | import from TempA all; | |
18584 | ||
18585 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18586 | ||
18587 | ||
18588 | <TTCN_TC:EXEC> | |
18589 | ||
18590 | if (dec_BER_PDU('2304030200AA'O) == myValue) | |
18591 | ||
18592 | ||
18593 | {setverdict(pass);} else {setverdict(fail);} | |
18594 | ||
18595 | ||
18596 | <RESULT> | |
18597 | ||
18598 | Overall verdict: pass | |
18599 | ||
18600 | <END_TC> | |
18601 | ||
18602 | :exmp. | |
18603 | ||
18604 | .*---------------------------------------------------------------------* | |
18605 | :h3. DECODING BIT STRING ,length = 8 , (constructed, short form - long form) | |
18606 | .*---------------------------------------------------------------------* | |
18607 | :xmp tab=0. | |
18608 | ||
18609 | <TC - DECODING BIT STRING ,length = 8 , (constructed, short form - long form)> | |
18610 | ||
18611 | <STATIC:ASN> | |
18612 | ||
18613 | TempA | |
18614 | ||
18615 | DEFINITIONS ::= | |
18616 | BEGIN | |
18617 | BERPDU ::= BIT STRING | |
18618 | ||
18619 | myValue BERPDU ::='10101010'B | |
18620 | ||
18621 | END | |
18622 | ||
18623 | <STATIC> | |
18624 | ||
18625 | import from TempA all; | |
18626 | ||
18627 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18628 | ||
18629 | ||
18630 | <TTCN_TC:EXEC> | |
18631 | ||
18632 | if (dec_BER_PDU('230503810200AA'O) == myValue) | |
18633 | ||
18634 | ||
18635 | {setverdict(pass);} else {setverdict(fail);} | |
18636 | ||
18637 | ||
18638 | <RESULT> | |
18639 | ||
18640 | Overall verdict: pass | |
18641 | ||
18642 | <END_TC> | |
18643 | ||
18644 | :exmp. | |
18645 | ||
18646 | .*---------------------------------------------------------------------* | |
18647 | :h3. DECODING BIT STRING ,length = 8 , (constructed, long form - long form) | |
18648 | .*---------------------------------------------------------------------* | |
18649 | :xmp tab=0. | |
18650 | ||
18651 | <TC - DECODING BIT STRING ,length = 8 , (constructed, long form - long form)> | |
18652 | ||
18653 | <STATIC:ASN> | |
18654 | ||
18655 | TempA | |
18656 | ||
18657 | DEFINITIONS ::= | |
18658 | BEGIN | |
18659 | BERPDU ::= BIT STRING | |
18660 | ||
18661 | myValue BERPDU ::='10101010'B | |
18662 | ||
18663 | END | |
18664 | ||
18665 | <STATIC> | |
18666 | ||
18667 | import from TempA all; | |
18668 | ||
18669 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18670 | ||
18671 | ||
18672 | <TTCN_TC:EXEC> | |
18673 | ||
18674 | if (dec_BER_PDU('23810503810200AA'O) == myValue) | |
18675 | ||
18676 | ||
18677 | {setverdict(pass);} else {setverdict(fail);} | |
18678 | ||
18679 | ||
18680 | <RESULT> | |
18681 | ||
18682 | Overall verdict: pass | |
18683 | ||
18684 | <END_TC> | |
18685 | ||
18686 | :exmp. | |
18687 | ||
18688 | .*---------------------------------------------------------------------* | |
18689 | :h3. DECODING BIT STRING ,length = 8 , (constructed, indefinite form) | |
18690 | .*---------------------------------------------------------------------* | |
18691 | :xmp tab=0. | |
18692 | ||
18693 | <TC - DECODING BIT STRING ,length = 8 , (constructed, indefinite form)> | |
18694 | ||
18695 | <STATIC:ASN> | |
18696 | ||
18697 | TempA | |
18698 | ||
18699 | DEFINITIONS ::= | |
18700 | BEGIN | |
18701 | BERPDU ::= BIT STRING | |
18702 | ||
18703 | myValue BERPDU ::='10101010'B | |
18704 | ||
18705 | END | |
18706 | ||
18707 | <STATIC> | |
18708 | ||
18709 | import from TempA all; | |
18710 | ||
18711 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18712 | ||
18713 | ||
18714 | <TTCN_TC:EXEC> | |
18715 | ||
18716 | if (dec_BER_PDU('238003810200AA0000'O) == myValue) | |
18717 | ||
18718 | ||
18719 | {setverdict(pass);} else {setverdict(fail);} | |
18720 | ||
18721 | ||
18722 | <RESULT> | |
18723 | ||
18724 | Overall verdict: pass | |
18725 | ||
18726 | <END_TC> | |
18727 | ||
18728 | :exmp. | |
18729 | ||
18730 | .*---------------------------------------------------------------------* | |
18731 | :h3. DECODING BIT STRING ,2xlength = 8 , (constructed, short form - short form) | |
18732 | .*---------------------------------------------------------------------* | |
18733 | :xmp tab=0. | |
18734 | ||
18735 | <TC - DECODING BIT STRING ,2xlength = 8 , (constructed, short form - short form)> | |
18736 | ||
18737 | <STATIC:ASN> | |
18738 | ||
18739 | TempA | |
18740 | ||
18741 | DEFINITIONS ::= | |
18742 | BEGIN | |
18743 | BERPDU ::= BIT STRING | |
18744 | ||
18745 | myValue BERPDU ::='1010101010101010'B | |
18746 | ||
18747 | END | |
18748 | ||
18749 | <STATIC> | |
18750 | ||
18751 | import from TempA all; | |
18752 | ||
18753 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18754 | ||
18755 | ||
18756 | <TTCN_TC:EXEC> | |
18757 | ||
18758 | if (dec_BER_PDU('2308030200AA030200AA'O) == myValue) | |
18759 | ||
18760 | ||
18761 | {setverdict(pass);} else {setverdict(fail);} | |
18762 | ||
18763 | ||
18764 | <RESULT> | |
18765 | ||
18766 | Overall verdict: pass | |
18767 | ||
18768 | <END_TC> | |
18769 | ||
18770 | :exmp. | |
18771 | ||
18772 | .*---------------------------------------------------------------------* | |
18773 | :h3. DECODING BIT STRING ,2xlength = 8 , (constructed inside constructed) | |
18774 | .*---------------------------------------------------------------------* | |
18775 | :xmp tab=0. | |
18776 | ||
18777 | <TC - DECODING BIT STRING ,2xlength = 8 , (constructed inside constructed)> | |
18778 | ||
18779 | <STATIC:ASN> | |
18780 | ||
18781 | TempA | |
18782 | ||
18783 | DEFINITIONS ::= | |
18784 | BEGIN | |
18785 | BERPDU ::= BIT STRING | |
18786 | ||
18787 | myValue BERPDU ::='10101010'B | |
18788 | ||
18789 | END | |
18790 | ||
18791 | <STATIC> | |
18792 | ||
18793 | import from TempA all; | |
18794 | ||
18795 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18796 | ||
18797 | ||
18798 | <TTCN_TC:EXEC> | |
18799 | ||
18800 | if (dec_BER_PDU('23062304030200AA'O) == myValue) | |
18801 | ||
18802 | ||
18803 | {setverdict(pass);} else {setverdict(fail);} | |
18804 | ||
18805 | ||
18806 | <RESULT> | |
18807 | ||
18808 | Overall verdict: pass | |
18809 | ||
18810 | <END_TC> | |
18811 | ||
18812 | :exmp. | |
18813 | ||
18814 | .*---------------------------------------------------------------------* | |
18815 | :h3. DECODING BIT STRING ,length = 9 ,CER + DER, (primitive) | |
18816 | .*---------------------------------------------------------------------* | |
18817 | :xmp tab=0. | |
18818 | ||
18819 | <TC - DECODING BIT STRING ,length = 9 ,CER + DER, (primitive)> | |
18820 | ||
18821 | <STATIC:ASN> | |
18822 | ||
18823 | TempA | |
18824 | ||
18825 | DEFINITIONS ::= | |
18826 | BEGIN | |
18827 | BERPDU ::= BIT STRING | |
18828 | ||
18829 | myValue BERPDU ::='111100001'B | |
18830 | ||
18831 | END | |
18832 | ||
18833 | <STATIC> | |
18834 | ||
18835 | import from TempA all; | |
18836 | ||
18837 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18838 | ||
18839 | ||
18840 | <TTCN_TC:EXEC> | |
18841 | ||
18842 | if (dec_BER_PDU( '030307F080'O) == myValue) | |
18843 | ||
18844 | ||
18845 | {setverdict(pass);} else {setverdict(fail);} | |
18846 | ||
18847 | ||
18848 | <RESULT> | |
18849 | ||
18850 | Overall verdict: pass | |
18851 | ||
18852 | <END_TC> | |
18853 | ||
18854 | :exmp. | |
18855 | ||
18856 | .*---------------------------------------------------------------------* | |
18857 | :h3. DECODING BIT STRING ,length = 9 , (primitive, long form) | |
18858 | .*---------------------------------------------------------------------* | |
18859 | :xmp tab=0. | |
18860 | ||
18861 | <TC - DECODING BIT STRING ,length = 9 , (primitive, long form)> | |
18862 | ||
18863 | <STATIC:ASN> | |
18864 | ||
18865 | TempA | |
18866 | ||
18867 | DEFINITIONS ::= | |
18868 | BEGIN | |
18869 | BERPDU ::= BIT STRING | |
18870 | ||
18871 | myIntegerValue BERPDU ::='111100001'B | |
18872 | ||
18873 | END | |
18874 | ||
18875 | <STATIC> | |
18876 | ||
18877 | import from TempA all; | |
18878 | ||
18879 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18880 | ||
18881 | ||
18882 | <TTCN_TC:EXEC> | |
18883 | ||
18884 | if (dec_BER_PDU('03810307F080'O) == myIntegerValue) | |
18885 | ||
18886 | ||
18887 | {setverdict(pass);} else {setverdict(fail);} | |
18888 | ||
18889 | ||
18890 | <RESULT> | |
18891 | ||
18892 | Overall verdict: pass | |
18893 | ||
18894 | <END_TC> | |
18895 | ||
18896 | :exmp. | |
18897 | ||
18898 | .*---------------------------------------------------------------------* | |
18899 | :h3. DECODING BIT STRING ,length = 9 , (constructed, short form - short form) | |
18900 | .*---------------------------------------------------------------------* | |
18901 | :xmp tab=0. | |
18902 | ||
18903 | <TC - DECODING BIT STRING ,length = 9 , (constructed, short form - short form)> | |
18904 | ||
18905 | <STATIC:ASN> | |
18906 | ||
18907 | TempA | |
18908 | ||
18909 | DEFINITIONS ::= | |
18910 | BEGIN | |
18911 | BERPDU ::= BIT STRING | |
18912 | ||
18913 | myValue BERPDU ::='111100001'B | |
18914 | ||
18915 | END | |
18916 | ||
18917 | <STATIC> | |
18918 | ||
18919 | import from TempA all; | |
18920 | ||
18921 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18922 | ||
18923 | ||
18924 | <TTCN_TC:EXEC> | |
18925 | ||
18926 | if (dec_BER_PDU('2305030307F080'O) == myValue) | |
18927 | ||
18928 | ||
18929 | {setverdict(pass);} else {setverdict(fail);} | |
18930 | ||
18931 | ||
18932 | <RESULT> | |
18933 | ||
18934 | Overall verdict: pass | |
18935 | ||
18936 | <END_TC> | |
18937 | ||
18938 | :exmp. | |
18939 | ||
18940 | .*---------------------------------------------------------------------* | |
18941 | :h3. DECODING BIT STRING ,length = 9 , (constructed, short form - long form) | |
18942 | .*---------------------------------------------------------------------* | |
18943 | :xmp tab=0. | |
18944 | ||
18945 | <TC - DECODING BIT STRING ,length = 9 , (constructed, short form - long form)> | |
18946 | ||
18947 | <STATIC:ASN> | |
18948 | ||
18949 | TempA | |
18950 | ||
18951 | DEFINITIONS ::= | |
18952 | BEGIN | |
18953 | BERPDU ::= BIT STRING | |
18954 | ||
18955 | myValue BERPDU ::='111100001'B | |
18956 | ||
18957 | END | |
18958 | ||
18959 | <STATIC> | |
18960 | ||
18961 | import from TempA all; | |
18962 | ||
18963 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
18964 | ||
18965 | ||
18966 | <TTCN_TC:EXEC> | |
18967 | ||
18968 | if (dec_BER_PDU('230603810307F080'O) == myValue) | |
18969 | ||
18970 | ||
18971 | {setverdict(pass);} else {setverdict(fail);} | |
18972 | ||
18973 | ||
18974 | <RESULT> | |
18975 | ||
18976 | Overall verdict: pass | |
18977 | ||
18978 | <END_TC> | |
18979 | ||
18980 | :exmp. | |
18981 | ||
18982 | .*---------------------------------------------------------------------* | |
18983 | :h3. DECODING BIT STRING ,length = 9 , (constructed, long form - long form) | |
18984 | .*---------------------------------------------------------------------* | |
18985 | :xmp tab=0. | |
18986 | ||
18987 | <TC - DECODING BIT STRING ,length = 9 , (constructed, long form - long form)> | |
18988 | ||
18989 | <STATIC:ASN> | |
18990 | ||
18991 | TempA | |
18992 | ||
18993 | DEFINITIONS ::= | |
18994 | BEGIN | |
18995 | BERPDU ::= BIT STRING | |
18996 | ||
18997 | myValue BERPDU ::='111100001'B | |
18998 | ||
18999 | END | |
19000 | ||
19001 | <STATIC> | |
19002 | ||
19003 | import from TempA all; | |
19004 | ||
19005 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19006 | ||
19007 | ||
19008 | <TTCN_TC:EXEC> | |
19009 | ||
19010 | if (dec_BER_PDU('23810603810307F080'O) == myValue) | |
19011 | ||
19012 | ||
19013 | {setverdict(pass);} else {setverdict(fail);} | |
19014 | ||
19015 | ||
19016 | <RESULT> | |
19017 | ||
19018 | Overall verdict: pass | |
19019 | ||
19020 | <END_TC> | |
19021 | ||
19022 | :exmp. | |
19023 | ||
19024 | .*---------------------------------------------------------------------* | |
19025 | :h3. DECODING BIT STRING ,length = 9 , (constructed, indefinite form) | |
19026 | .*---------------------------------------------------------------------* | |
19027 | :xmp tab=0. | |
19028 | ||
19029 | <TC - DECODING BIT STRING ,length = 9 , (constructed, indefinite form)> | |
19030 | ||
19031 | <STATIC:ASN> | |
19032 | ||
19033 | TempA | |
19034 | ||
19035 | DEFINITIONS ::= | |
19036 | BEGIN | |
19037 | BERPDU ::= BIT STRING | |
19038 | ||
19039 | myValue BERPDU ::='111100001'B | |
19040 | ||
19041 | END | |
19042 | ||
19043 | <STATIC> | |
19044 | ||
19045 | import from TempA all; | |
19046 | ||
19047 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19048 | ||
19049 | ||
19050 | <TTCN_TC:EXEC> | |
19051 | ||
19052 | if (dec_BER_PDU('238003810307F0800000'O) == myValue) | |
19053 | ||
19054 | ||
19055 | {setverdict(pass);} else {setverdict(fail);} | |
19056 | ||
19057 | ||
19058 | <RESULT> | |
19059 | ||
19060 | Overall verdict: pass | |
19061 | ||
19062 | <END_TC> | |
19063 | ||
19064 | :exmp. | |
19065 | ||
19066 | .*---------------------------------------------------------------------* | |
19067 | :h3. DECODING BIT STRING ,2xlength = 9 , (constructed, short form - short form) | |
19068 | .*---------------------------------------------------------------------* | |
19069 | :xmp tab=0. | |
19070 | ||
19071 | <TC - DECODING BIT STRING ,2xlength = 9 , (constructed, short form - short form)> | |
19072 | ||
19073 | <STATIC:ASN> | |
19074 | ||
19075 | TempA | |
19076 | ||
19077 | DEFINITIONS ::= | |
19078 | BEGIN | |
19079 | BERPDU ::= BIT STRING | |
19080 | ||
19081 | myValue BERPDU ::='111100001111100001'B | |
19082 | ||
19083 | END | |
19084 | ||
19085 | <STATIC> | |
19086 | ||
19087 | import from TempA all; | |
19088 | ||
19089 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19090 | ||
19091 | ||
19092 | <TTCN_TC:EXEC> | |
19093 | ||
19094 | if (dec_BER_PDU('230A030307F080030307F080'O) == myValue) | |
19095 | ||
19096 | ||
19097 | {setverdict(pass);} else {setverdict(fail);} | |
19098 | ||
19099 | ||
19100 | <RESULT> | |
19101 | ||
19102 | Overall verdict: pass | |
19103 | ||
19104 | <END_TC> | |
19105 | ||
19106 | :exmp. | |
19107 | ||
19108 | .*---------------------------------------------------------------------* | |
19109 | :h3. DECODING BIT STRING ,length = 9 , (constructed inside constructed) | |
19110 | .*---------------------------------------------------------------------* | |
19111 | :xmp tab=0. | |
19112 | ||
19113 | <TC - DECODING BIT STRING ,length = 9 , (constructed inside constructed)> | |
19114 | ||
19115 | <STATIC:ASN> | |
19116 | ||
19117 | TempA | |
19118 | ||
19119 | DEFINITIONS ::= | |
19120 | BEGIN | |
19121 | BERPDU ::= BIT STRING | |
19122 | ||
19123 | myValue BERPDU ::='111100001'B | |
19124 | ||
19125 | END | |
19126 | ||
19127 | <STATIC> | |
19128 | ||
19129 | import from TempA all; | |
19130 | ||
19131 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19132 | ||
19133 | ||
19134 | <TTCN_TC:EXEC> | |
19135 | ||
19136 | if (dec_BER_PDU('23072305030307F080'O) == myValue) | |
19137 | ||
19138 | ||
19139 | {setverdict(pass);} else {setverdict(fail);} | |
19140 | ||
19141 | ||
19142 | <RESULT> | |
19143 | ||
19144 | Overall verdict: pass | |
19145 | ||
19146 | <END_TC> | |
19147 | ||
19148 | :exmp. | |
19149 | ||
19150 | .*---------------------------------------------------------------------* | |
19151 | :h3. DECODING BIT STRING ,length = 1000 CER + DER, primitive (999 octets of data and one unused bits octet) | |
19152 | .*---------------------------------------------------------------------* | |
19153 | :xmp tab=0. | |
19154 | ||
19155 | <TC - DECODING BIT STRING ,length = 1000 CER + DER, primitive (999 octets of data and one unused bits octet)> | |
19156 | ||
19157 | <STATIC:ASN> | |
19158 | ||
19159 | TempA | |
19160 | ||
19161 | DEFINITIONS ::= | |
19162 | BEGIN | |
19163 | BERPDU ::= BIT STRING | |
19164 | ||
19165 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19166 | ||
19167 | END | |
19168 | ||
19169 | <STATIC> | |
19170 | ||
19171 | import from TempA all; | |
19172 | ||
19173 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19174 | ||
19175 | ||
19176 | <TTCN_TC:EXEC> | |
19177 | ||
19178 | if (dec_BER_PDU('038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19179 | ||
19180 | ||
19181 | {setverdict(pass);} else {setverdict(fail);} | |
19182 | ||
19183 | ||
19184 | <RESULT> | |
19185 | ||
19186 | Overall verdict: pass | |
19187 | ||
19188 | <END_TC> | |
19189 | ||
19190 | :exmp. | |
19191 | ||
19192 | .*---------------------------------------------------------------------* | |
19193 | :h3. DECODING BIT STRING ,length = 1000 , primitive longer form (999 octets of data and one unused bits octet) | |
19194 | .*---------------------------------------------------------------------* | |
19195 | :xmp tab=0. | |
19196 | ||
19197 | <TC - DECODING BIT STRING ,length = 1000 , primitive longer form (999 octets of data and one unused bits octet)> | |
19198 | ||
19199 | <STATIC:ASN> | |
19200 | ||
19201 | TempA | |
19202 | ||
19203 | DEFINITIONS ::= | |
19204 | BEGIN | |
19205 | BERPDU ::= BIT STRING | |
19206 | ||
19207 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19208 | ||
19209 | END | |
19210 | ||
19211 | <STATIC> | |
19212 | ||
19213 | import from TempA all; | |
19214 | ||
19215 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19216 | ||
19217 | ||
19218 | <TTCN_TC:EXEC> | |
19219 | ||
19220 | if (dec_BER_PDU('03830003E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19221 | ||
19222 | ||
19223 | {setverdict(pass);} else {setverdict(fail);} | |
19224 | ||
19225 | ||
19226 | <RESULT> | |
19227 | ||
19228 | Overall verdict: pass | |
19229 | ||
19230 | <END_TC> | |
19231 | ||
19232 | :exmp. | |
19233 | ||
19234 | .*---------------------------------------------------------------------* | |
19235 | :h3. DECODING BIT STRING ,length = 1000 , constructed long form -long form (999 octets of data and one unused bits octet) | |
19236 | .*---------------------------------------------------------------------* | |
19237 | :xmp tab=0. | |
19238 | ||
19239 | <TC - DECODING BIT STRING ,length = 1000 , constructed long form -long form (999 octets of data and one unused bits octet)> | |
19240 | ||
19241 | <STATIC:ASN> | |
19242 | ||
19243 | TempA | |
19244 | ||
19245 | DEFINITIONS ::= | |
19246 | BEGIN | |
19247 | BERPDU ::= BIT STRING | |
19248 | ||
19249 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19250 | ||
19251 | END | |
19252 | ||
19253 | <STATIC> | |
19254 | ||
19255 | import from TempA all; | |
19256 | ||
19257 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19258 | ||
19259 | ||
19260 | <TTCN_TC:EXEC> | |
19261 | ||
19262 | if (dec_BER_PDU('238203EC038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19263 | ||
19264 | ||
19265 | {setverdict(pass);} else {setverdict(fail);} | |
19266 | ||
19267 | ||
19268 | <RESULT> | |
19269 | ||
19270 | Overall verdict: pass | |
19271 | ||
19272 | <END_TC> | |
19273 | ||
19274 | :exmp. | |
19275 | ||
19276 | .*---------------------------------------------------------------------* | |
19277 | :h3. DECODING BIT STRING ,length = 1000 , constructed indefinite form (999 octets of data and one unused bits octet) | |
19278 | .*---------------------------------------------------------------------* | |
19279 | :xmp tab=0. | |
19280 | ||
19281 | <TC - DECODING BIT STRING ,length = 1000 , constructed indefinite form (999 octets of data and one unused bits octet)> | |
19282 | ||
19283 | <STATIC:ASN> | |
19284 | ||
19285 | TempA | |
19286 | ||
19287 | DEFINITIONS ::= | |
19288 | BEGIN | |
19289 | BERPDU ::= BIT STRING | |
19290 | ||
19291 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19292 | ||
19293 | END | |
19294 | ||
19295 | <STATIC> | |
19296 | ||
19297 | import from TempA all; | |
19298 | ||
19299 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19300 | ||
19301 | ||
19302 | <TTCN_TC:EXEC> | |
19303 | ||
19304 | if (dec_BER_PDU('2380038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000'O) == myValue) | |
19305 | ||
19306 | ||
19307 | {setverdict(pass);} else {setverdict(fail);} | |
19308 | ||
19309 | ||
19310 | <RESULT> | |
19311 | ||
19312 | Overall verdict: pass | |
19313 | ||
19314 | <END_TC> | |
19315 | ||
19316 | :exmp. | |
19317 | ||
19318 | .*---------------------------------------------------------------------* | |
19319 | :h3. DECODING BIT STRING ,2xlength = 1000 , constructed (999 octets of data and one unused bits octet) | |
19320 | .*---------------------------------------------------------------------* | |
19321 | :xmp tab=0. | |
19322 | ||
19323 | <TC - DECODING BIT STRING ,2xlength = 1000 , constructed (999 octets of data and one unused bits octet)> | |
19324 | ||
19325 | <STATIC:ASN> | |
19326 | ||
19327 | TempA | |
19328 | ||
19329 | DEFINITIONS ::= | |
19330 | BEGIN | |
19331 | BERPDU ::= BIT STRING | |
19332 | ||
19333 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19334 | ||
19335 | END | |
19336 | ||
19337 | <STATIC> | |
19338 | ||
19339 | import from TempA all; | |
19340 | ||
19341 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19342 | ||
19343 | ||
19344 | <TTCN_TC:EXEC> | |
19345 | ||
19346 | if (dec_BER_PDU('238207D8038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19347 | ||
19348 | ||
19349 | {setverdict(pass);} else {setverdict(fail);} | |
19350 | ||
19351 | ||
19352 | <RESULT> | |
19353 | ||
19354 | Overall verdict: pass | |
19355 | ||
19356 | <END_TC> | |
19357 | ||
19358 | :exmp. | |
19359 | ||
19360 | .*---------------------------------------------------------------------* | |
19361 | :h3. DECODING BIT STRING ,length = 1001 DER , primitive (1000 octets of data and one unused bits octet) | |
19362 | .*---------------------------------------------------------------------* | |
19363 | :xmp tab=0. | |
19364 | ||
19365 | <TC - DECODING BIT STRING ,length = 1001 DER , primitive (1000 octets of data and one unused bits octet)> | |
19366 | ||
19367 | <STATIC:ASN> | |
19368 | ||
19369 | TempA | |
19370 | ||
19371 | DEFINITIONS ::= | |
19372 | BEGIN | |
19373 | BERPDU ::= BIT STRING | |
19374 | ||
19375 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19376 | ||
19377 | END | |
19378 | ||
19379 | <STATIC> | |
19380 | ||
19381 | import from TempA all; | |
19382 | ||
19383 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19384 | ||
19385 | ||
19386 | <TTCN_TC:EXEC> | |
19387 | ||
19388 | if (dec_BER_PDU('038203E900FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19389 | ||
19390 | ||
19391 | {setverdict(pass);} else {setverdict(fail);} | |
19392 | ||
19393 | ||
19394 | <RESULT> | |
19395 | ||
19396 | Overall verdict: pass | |
19397 | ||
19398 | <END_TC> | |
19399 | ||
19400 | :exmp. | |
19401 | ||
19402 | .*---------------------------------------------------------------------* | |
19403 | :h3. DECODING BIT STRING ,length = 1001 CER , constructed (1000 octets of data and one unused bits octet) | |
19404 | .*---------------------------------------------------------------------* | |
19405 | :xmp tab=0. | |
19406 | ||
19407 | <TC - DECODING BIT STRING ,length = 1001 CER , constructed (1000 octets of data and one unused bits octet)> | |
19408 | ||
19409 | <STATIC:ASN> | |
19410 | ||
19411 | TempA | |
19412 | ||
19413 | DEFINITIONS ::= | |
19414 | BEGIN | |
19415 | BERPDU ::= BIT STRING | |
19416 | ||
19417 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19418 | ||
19419 | END | |
19420 | ||
19421 | <STATIC> | |
19422 | ||
19423 | import from TempA all; | |
19424 | ||
19425 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19426 | ||
19427 | ||
19428 | <TTCN_TC:EXEC> | |
19429 | ||
19430 | if (dec_BER_PDU('238203F0038203E800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF030200FF'O) == myValue) | |
19431 | ||
19432 | ||
19433 | {setverdict(pass);} else {setverdict(fail);} | |
19434 | ||
19435 | ||
19436 | <RESULT> | |
19437 | ||
19438 | Overall verdict: pass | |
19439 | ||
19440 | <END_TC> | |
19441 | ||
19442 | :exmp. | |
19443 | ||
19444 | .*---------------------------------------------------------------------* | |
19445 | :h3. DECODING BIT STRING ,length = 1001 , constructed (1000 octets of data and one unused bits octet) | |
19446 | .*---------------------------------------------------------------------* | |
19447 | :xmp tab=0. | |
19448 | ||
19449 | <TC - DECODING BIT STRING ,length = 1001 , constructed (1000 octets of data and one unused bits octet)> | |
19450 | ||
19451 | <STATIC:ASN> | |
19452 | ||
19453 | TempA | |
19454 | ||
19455 | DEFINITIONS ::= | |
19456 | BEGIN | |
19457 | BERPDU ::= BIT STRING | |
19458 | ||
19459 | myValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
19460 | ||
19461 | END | |
19462 | ||
19463 | <STATIC> | |
19464 | ||
19465 | import from TempA all; | |
19466 | ||
19467 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19468 | ||
19469 | ||
19470 | <TTCN_TC:EXEC> | |
19471 | ||
19472 | if (dec_BER_PDU('238203ED038203E900FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myValue) | |
19473 | ||
19474 | ||
19475 | {setverdict(pass);} else {setverdict(fail);} | |
19476 | ||
19477 | ||
19478 | <RESULT> | |
19479 | ||
19480 | Overall verdict: pass | |
19481 | ||
19482 | <END_TC> | |
19483 | ||
19484 | :exmp. | |
19485 | ||
19486 | .*---------------------------------------------------------------------* | |
19487 | :h3. DECODING BIT STRING CER +DER ,length = 1 , IMPLICIT TAG primitive | |
19488 | .*---------------------------------------------------------------------* | |
19489 | :xmp tab=0. | |
19490 | ||
19491 | <TC - DECODING BIT STRING CER +DER ,length = 1 , IMPLICIT TAG primitive > | |
19492 | ||
19493 | <STATIC:ASN> | |
19494 | ||
19495 | TempA | |
19496 | ||
19497 | DEFINITIONS ::= | |
19498 | BEGIN | |
19499 | BERPDU ::= [0] IMPLICIT BIT STRING | |
19500 | ||
19501 | myValue BERPDU ::='1'B | |
19502 | ||
19503 | END | |
19504 | ||
19505 | <STATIC> | |
19506 | ||
19507 | import from TempA all; | |
19508 | ||
19509 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19510 | ||
19511 | ||
19512 | <TTCN_TC:EXEC> | |
19513 | ||
19514 | if (dec_BER_PDU('80020780'O) == myValue) | |
19515 | ||
19516 | ||
19517 | {setverdict(pass);} else {setverdict(fail);} | |
19518 | ||
19519 | ||
19520 | <RESULT> | |
19521 | ||
19522 | Overall verdict: pass | |
19523 | ||
19524 | <END_TC> | |
19525 | ||
19526 | :exmp. | |
19527 | ||
19528 | .*---------------------------------------------------------------------* | |
19529 | :h3. DECODING BIT STRING CER ,length = 1 , EXPLICIT TAG (constructed ) | |
19530 | .*---------------------------------------------------------------------* | |
19531 | :xmp tab=0. | |
19532 | ||
19533 | <TC - DECODING BIT STRING CER ,length = 1 , EXPLICIT TAG (constructed )> | |
19534 | ||
19535 | <STATIC:ASN> | |
19536 | ||
19537 | TempA | |
19538 | ||
19539 | DEFINITIONS ::= | |
19540 | BEGIN | |
19541 | BERPDU ::= BIT STRING | |
19542 | ||
19543 | myValue BERPDU ::='1'B | |
19544 | ||
19545 | END | |
19546 | ||
19547 | <STATIC> | |
19548 | ||
19549 | import from TempA all; | |
19550 | ||
19551 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19552 | ||
19553 | ||
19554 | <TTCN_TC:EXEC> | |
19555 | ||
19556 | if (dec_BER_PDU('A080030207800000'O) == myValue) | |
19557 | ||
19558 | ||
19559 | {setverdict(pass);} else {setverdict(fail);} | |
19560 | ||
19561 | ||
19562 | <RESULT> | |
19563 | ||
19564 | Overall verdict: pass | |
19565 | ||
19566 | <END_TC> | |
19567 | ||
19568 | :exmp. | |
19569 | ||
19570 | .*---------------------------------------------------------------------* | |
19571 | :h3. DECODING BIT STRING DER ,length = 1 EXPLICIT TAG , (constructed ) | |
19572 | .*---------------------------------------------------------------------* | |
19573 | :xmp tab=0. | |
19574 | ||
19575 | <TC - DECODING BIT STRING DER ,length = 1 EXPLICIT TAG , (constructed )> | |
19576 | ||
19577 | <STATIC:ASN> | |
19578 | ||
19579 | TempA | |
19580 | ||
19581 | DEFINITIONS ::= | |
19582 | BEGIN | |
19583 | BERPDU ::= BIT STRING | |
19584 | ||
19585 | myValue BERPDU ::='1'B | |
19586 | ||
19587 | END | |
19588 | ||
19589 | <STATIC> | |
19590 | ||
19591 | import from TempA all; | |
19592 | ||
19593 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19594 | ||
19595 | ||
19596 | <TTCN_TC:EXEC> | |
19597 | ||
19598 | if (dec_BER_PDU('A00403020780'O) == myValue) | |
19599 | ||
19600 | ||
19601 | {setverdict(pass);} else {setverdict(fail);} | |
19602 | ||
19603 | ||
19604 | <RESULT> | |
19605 | ||
19606 | Overall verdict: pass | |
19607 | ||
19608 | <END_TC> | |
19609 | ||
19610 | :exmp. | |
19611 | ||
19612 | .*---------------------------------------------------------------------* | |
19613 | :h3.CER + DER encoding of OCTETSTRING, length = 0 (primitive) | |
19614 | .*---------------------------------------------------------------------* | |
19615 | :xmp tab=0. | |
19616 | ||
19617 | <TC - CER + DER encoding of OCTETSTRING, length = 0 (primitive)> | |
19618 | ||
19619 | <STATIC:ASN> | |
19620 | ||
19621 | TempA | |
19622 | ||
19623 | DEFINITIONS ::= | |
19624 | BEGIN | |
19625 | BERPDU ::= OCTET STRING | |
19626 | END | |
19627 | ||
19628 | <STATIC> | |
19629 | ||
19630 | import from TempA all; | |
19631 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19632 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19633 | ||
19634 | const BERPDU b := ''O | |
19635 | ||
19636 | <TTCN_TC:EXEC> | |
19637 | ||
19638 | if ((enc_DER_PDU(b) == '0400'O)and(enc_CER_PDU(b) == '0400'O)) {setverdict(pass);} else {setverdict(fail);} | |
19639 | ||
19640 | <RESULT> | |
19641 | ||
19642 | Overall verdict: pass | |
19643 | ||
19644 | <END_TC> | |
19645 | ||
19646 | :exmp. | |
19647 | ||
19648 | .*---------------------------------------------------------------------* | |
19649 | :h3.CER + DER encoding of OCTETSTRING, length = 2 (primitive) | |
19650 | .*---------------------------------------------------------------------* | |
19651 | :xmp tab=0. | |
19652 | ||
19653 | <TC - CER + DER encoding of OCTETSTRING, length = 2 (primitive)> | |
19654 | ||
19655 | <STATIC:ASN> | |
19656 | ||
19657 | TempA | |
19658 | ||
19659 | DEFINITIONS ::= | |
19660 | BEGIN | |
19661 | BERPDU ::= OCTET STRING | |
19662 | END | |
19663 | ||
19664 | <STATIC> | |
19665 | ||
19666 | import from TempA all; | |
19667 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19668 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19669 | ||
19670 | const BERPDU b := 'FFFF'O | |
19671 | ||
19672 | <TTCN_TC:EXEC> | |
19673 | ||
19674 | if ((enc_DER_PDU(b) == '0402FFFF'O)and(enc_CER_PDU(b) == '0402FFFF'O)) {setverdict(pass);} else {setverdict(fail);} | |
19675 | ||
19676 | <RESULT> | |
19677 | ||
19678 | Overall verdict: pass | |
19679 | ||
19680 | <END_TC> | |
19681 | ||
19682 | :exmp. | |
19683 | ||
19684 | .*---------------------------------------------------------------------* | |
19685 | :h3.CER + DER encoding of OCTETSTRING, length = 1000 (primitive) | |
19686 | .*---------------------------------------------------------------------* | |
19687 | :xmp tab=0. | |
19688 | ||
19689 | <TC - CER + DER encoding of OCTETSTRING, length = 1000 (primitive)> | |
19690 | ||
19691 | <STATIC:ASN> | |
19692 | ||
19693 | TempA | |
19694 | ||
19695 | DEFINITIONS ::= | |
19696 | BEGIN | |
19697 | BERPDU ::= OCTET STRING | |
19698 | END | |
19699 | ||
19700 | <STATIC> | |
19701 | ||
19702 | import from TempA all; | |
19703 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19704 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19705 | ||
19706 | const BERPDU b := 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O | |
19707 | ||
19708 | <TTCN_TC:EXEC> | |
19709 | ||
19710 | if ((enc_DER_PDU(b) == '048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)and(enc_CER_PDU(b) == '048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)) {setverdict(pass);} else {setverdict(fail);} | |
19711 | ||
19712 | <RESULT> | |
19713 | ||
19714 | Overall verdict: pass | |
19715 | ||
19716 | <END_TC> | |
19717 | ||
19718 | :exmp. | |
19719 | ||
19720 | .*---------------------------------------------------------------------* | |
19721 | :h3.CER(constructed) + DER(primitive) encoding of OCTETSTRING, length = 1001 (ENC_02_014 and ENC_02_015) | |
19722 | .*---------------------------------------------------------------------* | |
19723 | :xmp tab=0. | |
19724 | ||
19725 | <TC - CER(constructed) + DER(primitive) encoding of OCTETSTRING, length = 1001 (ENC_02_014 and ENC_02_015)> | |
19726 | ||
19727 | <STATIC:ASN> | |
19728 | ||
19729 | TempA | |
19730 | ||
19731 | DEFINITIONS ::= | |
19732 | BEGIN | |
19733 | BERPDU ::= OCTET STRING | |
19734 | END | |
19735 | ||
19736 | <STATIC> | |
19737 | ||
19738 | import from TempA all; | |
19739 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19740 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19741 | ||
19742 | const BERPDU b := | |
19743 | 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O | |
19744 | ||
19745 | <TTCN_TC:EXEC> | |
19746 | ||
19747 | if ((enc_DER_PDU(b) == '048203E9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O)and(enc_CER_PDU(b) | |
19748 | == '2480048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0401FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
19749 | ||
19750 | <RESULT> | |
19751 | ||
19752 | Overall verdict: pass | |
19753 | ||
19754 | <END_TC> | |
19755 | ||
19756 | :exmp. | |
19757 | ||
19758 | .*---------------------------------------------------------------------* | |
19759 | :h3.CER + DER encoding of OCTETSTRING, IMPLICIT TAG length = 2 (primitive) | |
19760 | .*---------------------------------------------------------------------* | |
19761 | :xmp tab=0. | |
19762 | ||
19763 | <TC - CER + DER encoding of OCTETSTRING, IMPLICIT TAG length = 2 (primitive)> | |
19764 | ||
19765 | <STATIC:ASN> | |
19766 | ||
19767 | TempA | |
19768 | ||
19769 | DEFINITIONS ::= | |
19770 | BEGIN | |
19771 | BERPDU ::= [0] IMPLICIT OCTET STRING | |
19772 | END | |
19773 | ||
19774 | <STATIC> | |
19775 | ||
19776 | import from TempA all; | |
19777 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19778 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19779 | ||
19780 | const BERPDU b := 'FFFF'O | |
19781 | ||
19782 | <TTCN_TC:EXEC> | |
19783 | ||
19784 | if ((enc_DER_PDU(b) == '8002FFFF'O)and(enc_CER_PDU(b) == '8002FFFF'O)) {setverdict(pass);} else {setverdict(fail);} | |
19785 | ||
19786 | <RESULT> | |
19787 | ||
19788 | Overall verdict: pass | |
19789 | ||
19790 | <END_TC> | |
19791 | ||
19792 | :exmp. | |
19793 | ||
19794 | .*---------------------------------------------------------------------* | |
19795 | :h3.CER + DER encoding of OCTETSTRING,EXPICIT TAG , length = 2 (constructed) | |
19796 | .*---------------------------------------------------------------------* | |
19797 | :xmp tab=0. | |
19798 | ||
19799 | <TC - CER + DER encoding of OCTETSTRING,EXPICIT TAG , length = 2 (constructed)> | |
19800 | ||
19801 | <STATIC:ASN> | |
19802 | ||
19803 | TempA | |
19804 | ||
19805 | DEFINITIONS ::= | |
19806 | BEGIN | |
19807 | BERPDU ::= [0] EXPLICIT OCTET STRING | |
19808 | END | |
19809 | ||
19810 | <STATIC> | |
19811 | ||
19812 | import from TempA all; | |
19813 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
19814 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
19815 | ||
19816 | const BERPDU b := 'FFFF'O | |
19817 | ||
19818 | <TTCN_TC:EXEC> | |
19819 | ||
19820 | if ((enc_DER_PDU(b) == 'A0040402FFFF'O)and(enc_CER_PDU(b) == 'A0800402FFFF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
19821 | ||
19822 | <RESULT> | |
19823 | ||
19824 | Overall verdict: pass | |
19825 | ||
19826 | <END_TC> | |
19827 | ||
19828 | :exmp. | |
19829 | ||
19830 | .*---------------------------------------------------------------------* | |
19831 | :h3. DECODING OCTETSTRING ,length = 0 ,CER +DER (primitive) | |
19832 | .*---------------------------------------------------------------------* | |
19833 | :xmp tab=0. | |
19834 | ||
19835 | <TC - DECODING OCTETSTRING ,length = 0 ,CER +DER (primitive)> | |
19836 | ||
19837 | <STATIC:ASN> | |
19838 | ||
19839 | TempA | |
19840 | ||
19841 | DEFINITIONS ::= | |
19842 | BEGIN | |
19843 | BERPDU ::= OCTET STRING | |
19844 | ||
19845 | myIntegerValue BERPDU ::=''H | |
19846 | ||
19847 | END | |
19848 | ||
19849 | <STATIC> | |
19850 | ||
19851 | import from TempA all; | |
19852 | ||
19853 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19854 | ||
19855 | ||
19856 | <TTCN_TC:EXEC> | |
19857 | ||
19858 | if (dec_BER_PDU('0400'O) == myIntegerValue) | |
19859 | ||
19860 | ||
19861 | {setverdict(pass);} else {setverdict(fail);} | |
19862 | ||
19863 | ||
19864 | <RESULT> | |
19865 | ||
19866 | Overall verdict: pass | |
19867 | ||
19868 | <END_TC> | |
19869 | ||
19870 | :exmp. | |
19871 | ||
19872 | .*---------------------------------------------------------------------* | |
19873 | :h3. DECODING OCTETSTRING ,length = 0 ,constructed | |
19874 | .*---------------------------------------------------------------------* | |
19875 | :xmp tab=0. | |
19876 | ||
19877 | <TC - DECODING OCTETSTRING ,length = 0 ,constructed> | |
19878 | ||
19879 | <STATIC:ASN> | |
19880 | ||
19881 | TempA | |
19882 | ||
19883 | DEFINITIONS ::= | |
19884 | BEGIN | |
19885 | BERPDU ::= OCTET STRING | |
19886 | ||
19887 | myIntegerValue BERPDU ::=''H | |
19888 | ||
19889 | END | |
19890 | ||
19891 | <STATIC> | |
19892 | ||
19893 | import from TempA all; | |
19894 | ||
19895 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19896 | ||
19897 | ||
19898 | <TTCN_TC:EXEC> | |
19899 | ||
19900 | if (dec_BER_PDU('24020400'O) == myIntegerValue) | |
19901 | ||
19902 | ||
19903 | {setverdict(pass);} else {setverdict(fail);} | |
19904 | ||
19905 | ||
19906 | <RESULT> | |
19907 | ||
19908 | Overall verdict: pass | |
19909 | ||
19910 | <END_TC> | |
19911 | ||
19912 | :exmp. | |
19913 | ||
19914 | .*---------------------------------------------------------------------* | |
19915 | :h3. DECODING OCTETSTRING ,2xlength = 0 ,constructed | |
19916 | .*---------------------------------------------------------------------* | |
19917 | :xmp tab=0. | |
19918 | ||
19919 | <TC - DECODING OCTETSTRING ,2xlength = 0 ,constructed> | |
19920 | ||
19921 | <STATIC:ASN> | |
19922 | ||
19923 | TempA | |
19924 | ||
19925 | DEFINITIONS ::= | |
19926 | BEGIN | |
19927 | BERPDU ::= OCTET STRING | |
19928 | ||
19929 | myIntegerValue BERPDU ::=''H | |
19930 | ||
19931 | END | |
19932 | ||
19933 | <STATIC> | |
19934 | ||
19935 | import from TempA all; | |
19936 | ||
19937 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19938 | ||
19939 | ||
19940 | <TTCN_TC:EXEC> | |
19941 | ||
19942 | if (dec_BER_PDU('240404000400'O) == myIntegerValue) | |
19943 | ||
19944 | ||
19945 | {setverdict(pass);} else {setverdict(fail);} | |
19946 | ||
19947 | ||
19948 | <RESULT> | |
19949 | ||
19950 | Overall verdict: pass | |
19951 | ||
19952 | <END_TC> | |
19953 | ||
19954 | :exmp. | |
19955 | ||
19956 | .*---------------------------------------------------------------------* | |
19957 | :h3. DECODING OCTETSTRING ,length = 0 ,constructed, indefinite | |
19958 | .*---------------------------------------------------------------------* | |
19959 | :xmp tab=0. | |
19960 | ||
19961 | <TC - DECODING OCTETSTRING ,length = 0 ,constructed, indefinite> | |
19962 | ||
19963 | <STATIC:ASN> | |
19964 | ||
19965 | TempA | |
19966 | ||
19967 | DEFINITIONS ::= | |
19968 | BEGIN | |
19969 | BERPDU ::= OCTET STRING | |
19970 | ||
19971 | myIntegerValue BERPDU ::=''H | |
19972 | ||
19973 | END | |
19974 | ||
19975 | <STATIC> | |
19976 | ||
19977 | import from TempA all; | |
19978 | ||
19979 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
19980 | ||
19981 | ||
19982 | <TTCN_TC:EXEC> | |
19983 | ||
19984 | if (dec_BER_PDU('248004000000'O) == myIntegerValue) | |
19985 | ||
19986 | ||
19987 | {setverdict(pass);} else {setverdict(fail);} | |
19988 | ||
19989 | ||
19990 | <RESULT> | |
19991 | ||
19992 | Overall verdict: pass | |
19993 | ||
19994 | <END_TC> | |
19995 | ||
19996 | :exmp. | |
19997 | ||
19998 | .*---------------------------------------------------------------------* | |
19999 | :h3. DECODING OCTETSTRING ,length = 2 ,CER + DER, (primitive) | |
20000 | .*---------------------------------------------------------------------* | |
20001 | :xmp tab=0. | |
20002 | ||
20003 | <TC - DECODING OCTETSTRING ,length = 2 ,CER + DER, (primitive)> | |
20004 | ||
20005 | <STATIC:ASN> | |
20006 | ||
20007 | TempA | |
20008 | ||
20009 | DEFINITIONS ::= | |
20010 | BEGIN | |
20011 | BERPDU ::= OCTET STRING | |
20012 | ||
20013 | myIntegerValue BERPDU ::='FFFF'H | |
20014 | ||
20015 | END | |
20016 | ||
20017 | <STATIC> | |
20018 | ||
20019 | import from TempA all; | |
20020 | ||
20021 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20022 | ||
20023 | ||
20024 | <TTCN_TC:EXEC> | |
20025 | ||
20026 | if (dec_BER_PDU('0402FFFF'O) == myIntegerValue) | |
20027 | ||
20028 | ||
20029 | {setverdict(pass);} else {setverdict(fail);} | |
20030 | ||
20031 | ||
20032 | <RESULT> | |
20033 | ||
20034 | Overall verdict: pass | |
20035 | ||
20036 | <END_TC> | |
20037 | ||
20038 | :exmp. | |
20039 | ||
20040 | .*---------------------------------------------------------------------* | |
20041 | :h3. DECODING OCTETSTRING ,length = 2 , (primitive, long form) | |
20042 | .*---------------------------------------------------------------------* | |
20043 | :xmp tab=0. | |
20044 | ||
20045 | <TC - DECODING OCTETSTRING ,length = 2 , (primitive, long form)> | |
20046 | ||
20047 | <STATIC:ASN> | |
20048 | ||
20049 | TempA | |
20050 | ||
20051 | DEFINITIONS ::= | |
20052 | BEGIN | |
20053 | BERPDU ::= OCTET STRING | |
20054 | ||
20055 | myIntegerValue BERPDU ::='FFFF'H | |
20056 | ||
20057 | END | |
20058 | ||
20059 | <STATIC> | |
20060 | ||
20061 | import from TempA all; | |
20062 | ||
20063 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20064 | ||
20065 | ||
20066 | <TTCN_TC:EXEC> | |
20067 | ||
20068 | if (dec_BER_PDU('048102FFFF'O) == myIntegerValue) | |
20069 | ||
20070 | ||
20071 | {setverdict(pass);} else {setverdict(fail);} | |
20072 | ||
20073 | ||
20074 | <RESULT> | |
20075 | ||
20076 | Overall verdict: pass | |
20077 | ||
20078 | <END_TC> | |
20079 | ||
20080 | :exmp. | |
20081 | ||
20082 | .*---------------------------------------------------------------------* | |
20083 | :h3. DECODING OCTETSTRING ,length = 2 ,constructed, short form - short form | |
20084 | .*---------------------------------------------------------------------* | |
20085 | :xmp tab=0. | |
20086 | ||
20087 | <TC - DECODING OCTETSTRING ,length = 2 ,constructed, short form - short form> | |
20088 | ||
20089 | <STATIC:ASN> | |
20090 | ||
20091 | TempA | |
20092 | ||
20093 | DEFINITIONS ::= | |
20094 | BEGIN | |
20095 | BERPDU ::= OCTET STRING | |
20096 | ||
20097 | myIntegerValue BERPDU ::='FFFF'H | |
20098 | ||
20099 | END | |
20100 | ||
20101 | <STATIC> | |
20102 | ||
20103 | import from TempA all; | |
20104 | ||
20105 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20106 | ||
20107 | ||
20108 | <TTCN_TC:EXEC> | |
20109 | ||
20110 | if (dec_BER_PDU('24040402FFFF'O) == myIntegerValue) | |
20111 | ||
20112 | ||
20113 | {setverdict(pass);} else {setverdict(fail);} | |
20114 | ||
20115 | ||
20116 | <RESULT> | |
20117 | ||
20118 | Overall verdict: pass | |
20119 | ||
20120 | <END_TC> | |
20121 | ||
20122 | :exmp. | |
20123 | ||
20124 | .*---------------------------------------------------------------------* | |
20125 | :h3. DECODING OCTETSTRING ,length = 2 ,constructed, short form - long form | |
20126 | .*---------------------------------------------------------------------* | |
20127 | :xmp tab=0. | |
20128 | ||
20129 | <TC - DECODING OCTETSTRING ,length = 2 ,constructed, short form - long form> | |
20130 | ||
20131 | <STATIC:ASN> | |
20132 | ||
20133 | TempA | |
20134 | ||
20135 | DEFINITIONS ::= | |
20136 | BEGIN | |
20137 | BERPDU ::= OCTET STRING | |
20138 | ||
20139 | myIntegerValue BERPDU ::='FFFF'H | |
20140 | ||
20141 | END | |
20142 | ||
20143 | <STATIC> | |
20144 | ||
20145 | import from TempA all; | |
20146 | ||
20147 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20148 | ||
20149 | ||
20150 | <TTCN_TC:EXEC> | |
20151 | ||
20152 | if (dec_BER_PDU('2405048102FFFF'O) == myIntegerValue) | |
20153 | ||
20154 | ||
20155 | {setverdict(pass);} else {setverdict(fail);} | |
20156 | ||
20157 | ||
20158 | <RESULT> | |
20159 | ||
20160 | Overall verdict: pass | |
20161 | ||
20162 | <END_TC> | |
20163 | ||
20164 | :exmp. | |
20165 | ||
20166 | .*---------------------------------------------------------------------* | |
20167 | :h3. DECODING OCTETSTRING ,length = 2 ,constructed, long form - long form | |
20168 | .*---------------------------------------------------------------------* | |
20169 | :xmp tab=0. | |
20170 | ||
20171 | <TC - DECODING OCTETSTRING ,length = 2 ,constructed, long form - long form> | |
20172 | ||
20173 | <STATIC:ASN> | |
20174 | ||
20175 | TempA | |
20176 | ||
20177 | DEFINITIONS ::= | |
20178 | BEGIN | |
20179 | BERPDU ::= OCTET STRING | |
20180 | ||
20181 | myIntegerValue BERPDU ::='FFFF'H | |
20182 | ||
20183 | END | |
20184 | ||
20185 | <STATIC> | |
20186 | ||
20187 | import from TempA all; | |
20188 | ||
20189 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20190 | ||
20191 | ||
20192 | <TTCN_TC:EXEC> | |
20193 | ||
20194 | if (dec_BER_PDU('248105048102FFFF'O) == myIntegerValue) | |
20195 | ||
20196 | ||
20197 | {setverdict(pass);} else {setverdict(fail);} | |
20198 | ||
20199 | ||
20200 | <RESULT> | |
20201 | ||
20202 | Overall verdict: pass | |
20203 | ||
20204 | <END_TC> | |
20205 | ||
20206 | :exmp. | |
20207 | ||
20208 | .*---------------------------------------------------------------------* | |
20209 | :h3. DECODING OCTETSTRING ,length = 2 ,constructed, indefinite form | |
20210 | .*---------------------------------------------------------------------* | |
20211 | :xmp tab=0. | |
20212 | ||
20213 | <TC - DECODING OCTETSTRING ,length = 2 ,constructed, indefinite form> | |
20214 | ||
20215 | <STATIC:ASN> | |
20216 | ||
20217 | TempA | |
20218 | ||
20219 | DEFINITIONS ::= | |
20220 | BEGIN | |
20221 | BERPDU ::= OCTET STRING | |
20222 | ||
20223 | myIntegerValue BERPDU ::='FFFF'H | |
20224 | ||
20225 | END | |
20226 | ||
20227 | <STATIC> | |
20228 | ||
20229 | import from TempA all; | |
20230 | ||
20231 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20232 | ||
20233 | ||
20234 | <TTCN_TC:EXEC> | |
20235 | ||
20236 | if (dec_BER_PDU('24800402FFFF0000'O) == myIntegerValue) | |
20237 | ||
20238 | ||
20239 | {setverdict(pass);} else {setverdict(fail);} | |
20240 | ||
20241 | ||
20242 | <RESULT> | |
20243 | ||
20244 | Overall verdict: pass | |
20245 | ||
20246 | <END_TC> | |
20247 | ||
20248 | :exmp. | |
20249 | ||
20250 | .*---------------------------------------------------------------------* | |
20251 | :h3. DECODING OCTETSTRING ,2xlength = 2 ,constructed, short form - short form | |
20252 | .*---------------------------------------------------------------------* | |
20253 | :xmp tab=0. | |
20254 | ||
20255 | <TC - DECODING OCTETSTRING ,2xlength = 2 ,constructed, short form - short form> | |
20256 | ||
20257 | <STATIC:ASN> | |
20258 | ||
20259 | TempA | |
20260 | ||
20261 | DEFINITIONS ::= | |
20262 | BEGIN | |
20263 | BERPDU ::= OCTET STRING | |
20264 | ||
20265 | myIntegerValue BERPDU ::='FFFFFFFF'H | |
20266 | ||
20267 | END | |
20268 | ||
20269 | <STATIC> | |
20270 | ||
20271 | import from TempA all; | |
20272 | ||
20273 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20274 | ||
20275 | ||
20276 | <TTCN_TC:EXEC> | |
20277 | ||
20278 | if (dec_BER_PDU('24080402FFFF0402FFFF'O) == myIntegerValue) | |
20279 | ||
20280 | ||
20281 | {setverdict(pass);} else {setverdict(fail);} | |
20282 | ||
20283 | ||
20284 | <RESULT> | |
20285 | ||
20286 | Overall verdict: pass | |
20287 | ||
20288 | <END_TC> | |
20289 | ||
20290 | :exmp. | |
20291 | ||
20292 | .*---------------------------------------------------------------------* | |
20293 | :h3. DECODING OCTETSTRING ,length = 2 ,constructed form inside constructed form | |
20294 | .*---------------------------------------------------------------------* | |
20295 | :xmp tab=0. | |
20296 | ||
20297 | <TC - DECODING OCTETSTRING ,length = 2 ,constructed form inside constructed form> | |
20298 | ||
20299 | <STATIC:ASN> | |
20300 | ||
20301 | TempA | |
20302 | ||
20303 | DEFINITIONS ::= | |
20304 | BEGIN | |
20305 | BERPDU ::= OCTET STRING | |
20306 | ||
20307 | myIntegerValue BERPDU ::='FFFF'H | |
20308 | ||
20309 | END | |
20310 | ||
20311 | <STATIC> | |
20312 | ||
20313 | import from TempA all; | |
20314 | ||
20315 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20316 | ||
20317 | ||
20318 | <TTCN_TC:EXEC> | |
20319 | ||
20320 | if (dec_BER_PDU('240624040402FFFF'O) == myIntegerValue) | |
20321 | ||
20322 | ||
20323 | {setverdict(pass);} else {setverdict(fail);} | |
20324 | ||
20325 | ||
20326 | <RESULT> | |
20327 | ||
20328 | Overall verdict: pass | |
20329 | ||
20330 | <END_TC> | |
20331 | ||
20332 | :exmp. | |
20333 | ||
20334 | .*---------------------------------------------------------------------* | |
20335 | :h3. DECODING OCTETSTRING ,length = 1000 ,CER + DER, (primitive) | |
20336 | .*---------------------------------------------------------------------* | |
20337 | :xmp tab=0. | |
20338 | ||
20339 | <TC - DECODING OCTETSTRING ,length = 1000 ,CER + DER, (primitive)> | |
20340 | ||
20341 | <STATIC:ASN> | |
20342 | ||
20343 | TempA | |
20344 | ||
20345 | DEFINITIONS ::= | |
20346 | BEGIN | |
20347 | BERPDU ::= OCTET STRING | |
20348 | ||
20349 | myIntegerValue BERPDU | |
20350 | ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20351 | ||
20352 | END | |
20353 | ||
20354 | <STATIC> | |
20355 | ||
20356 | import from TempA all; | |
20357 | ||
20358 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20359 | ||
20360 | ||
20361 | <TTCN_TC:EXEC> | |
20362 | ||
20363 | if (dec_BER_PDU('048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20364 | ||
20365 | ||
20366 | {setverdict(pass);} else {setverdict(fail);} | |
20367 | ||
20368 | ||
20369 | <RESULT> | |
20370 | ||
20371 | Overall verdict: pass | |
20372 | ||
20373 | <END_TC> | |
20374 | ||
20375 | :exmp. | |
20376 | ||
20377 | .*---------------------------------------------------------------------* | |
20378 | :h3. DECODING OCTETSTRING ,length = 1000 , (primitive, longer form) | |
20379 | .*---------------------------------------------------------------------* | |
20380 | :xmp tab=0. | |
20381 | ||
20382 | <TC - DECODING OCTETSTRING ,length = 1000 , (primitive, longer form)> | |
20383 | ||
20384 | <STATIC:ASN> | |
20385 | ||
20386 | TempA | |
20387 | ||
20388 | DEFINITIONS ::= | |
20389 | BEGIN | |
20390 | BERPDU ::= OCTET STRING | |
20391 | ||
20392 | myIntegerValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20393 | ||
20394 | END | |
20395 | ||
20396 | <STATIC> | |
20397 | ||
20398 | import from TempA all; | |
20399 | ||
20400 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20401 | ||
20402 | ||
20403 | <TTCN_TC:EXEC> | |
20404 | ||
20405 | if (dec_BER_PDU('04830003E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20406 | ||
20407 | ||
20408 | {setverdict(pass);} else {setverdict(fail);} | |
20409 | ||
20410 | ||
20411 | <RESULT> | |
20412 | ||
20413 | Overall verdict: pass | |
20414 | ||
20415 | <END_TC> | |
20416 | ||
20417 | :exmp. | |
20418 | ||
20419 | .*---------------------------------------------------------------------* | |
20420 | :h3. DECODING OCTETSTRING ,length = 1000 ,constructed, long form -long form | |
20421 | .*---------------------------------------------------------------------* | |
20422 | :xmp tab=0. | |
20423 | ||
20424 | <TC - DECODING OCTETSTRING ,length = 1000 ,constructed, long form -long form> | |
20425 | ||
20426 | <STATIC:ASN> | |
20427 | ||
20428 | TempA | |
20429 | ||
20430 | DEFINITIONS ::= | |
20431 | BEGIN | |
20432 | BERPDU ::= OCTET STRING | |
20433 | ||
20434 | myIntegerValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20435 | ||
20436 | END | |
20437 | ||
20438 | <STATIC> | |
20439 | ||
20440 | import from TempA all; | |
20441 | ||
20442 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20443 | ||
20444 | ||
20445 | <TTCN_TC:EXEC> | |
20446 | ||
20447 | if (dec_BER_PDU('248203EC048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20448 | ||
20449 | ||
20450 | {setverdict(pass);} else {setverdict(fail);} | |
20451 | ||
20452 | ||
20453 | <RESULT> | |
20454 | ||
20455 | Overall verdict: pass | |
20456 | ||
20457 | <END_TC> | |
20458 | ||
20459 | :exmp. | |
20460 | ||
20461 | .*---------------------------------------------------------------------* | |
20462 | :h3. DECODING OCTETSTRING ,length = 1000 ,constructed, indefinite form | |
20463 | .*---------------------------------------------------------------------* | |
20464 | :xmp tab=0. | |
20465 | ||
20466 | <TC - DECODING OCTETSTRING ,length = 1000 ,constructed, indefinite form> | |
20467 | ||
20468 | <STATIC:ASN> | |
20469 | ||
20470 | TempA | |
20471 | ||
20472 | DEFINITIONS ::= | |
20473 | BEGIN | |
20474 | BERPDU ::= OCTET STRING | |
20475 | ||
20476 | myIntegerValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20477 | ||
20478 | END | |
20479 | ||
20480 | <STATIC> | |
20481 | ||
20482 | import from TempA all; | |
20483 | ||
20484 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20485 | ||
20486 | ||
20487 | <TTCN_TC:EXEC> | |
20488 | ||
20489 | if (dec_BER_PDU('2480048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000'O) == myIntegerValue) | |
20490 | ||
20491 | ||
20492 | {setverdict(pass);} else {setverdict(fail);} | |
20493 | ||
20494 | ||
20495 | <RESULT> | |
20496 | ||
20497 | Overall verdict: pass | |
20498 | ||
20499 | <END_TC> | |
20500 | ||
20501 | :exmp. | |
20502 | ||
20503 | .*---------------------------------------------------------------------* | |
20504 | :h3. DECODING OCTETSTRING ,2xlength = 1000 ,constructed, short form - short form | |
20505 | .*---------------------------------------------------------------------* | |
20506 | :xmp tab=0. | |
20507 | ||
20508 | <TC - DECODING OCTETSTRING ,2xlength = 1000 ,constructed, short form - short form> | |
20509 | ||
20510 | <STATIC:ASN> | |
20511 | ||
20512 | TempA | |
20513 | ||
20514 | DEFINITIONS ::= | |
20515 | BEGIN | |
20516 | BERPDU ::= OCTET STRING | |
20517 | ||
20518 | myIntegerValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20519 | ||
20520 | END | |
20521 | ||
20522 | <STATIC> | |
20523 | ||
20524 | import from TempA all; | |
20525 | ||
20526 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20527 | ||
20528 | ||
20529 | <TTCN_TC:EXEC> | |
20530 | ||
20531 | if (dec_BER_PDU('248207D8048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20532 | ||
20533 | ||
20534 | {setverdict(pass);} else {setverdict(fail);} | |
20535 | ||
20536 | ||
20537 | <RESULT> | |
20538 | ||
20539 | Overall verdict: pass | |
20540 | ||
20541 | <END_TC> | |
20542 | ||
20543 | :exmp. | |
20544 | ||
20545 | .*---------------------------------------------------------------------* | |
20546 | :h3. DECODING OCTETSTRING ,length = 1001 ,CER (constructed, indefinite form. segmented) | |
20547 | .*---------------------------------------------------------------------* | |
20548 | :xmp tab=0. | |
20549 | ||
20550 | <TC - DECODING OCTETSTRING ,length = 1001 ,CER (constructed, indefinite form. segmented)> | |
20551 | ||
20552 | <STATIC:ASN> | |
20553 | ||
20554 | TempA | |
20555 | ||
20556 | DEFINITIONS ::= | |
20557 | BEGIN | |
20558 | BERPDU ::= OCTET STRING | |
20559 | myIntegerValue BERPDU ::= 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20560 | ||
20561 | ||
20562 | END | |
20563 | ||
20564 | <STATIC> | |
20565 | ||
20566 | import from TempA all; | |
20567 | ||
20568 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20569 | ||
20570 | ||
20571 | <TTCN_TC:EXEC> | |
20572 | ||
20573 | if (dec_BER_PDU('2480048203E8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0401FF0000'O) == myIntegerValue) | |
20574 | ||
20575 | ||
20576 | {setverdict(pass);} else {setverdict(fail);} | |
20577 | ||
20578 | ||
20579 | <RESULT> | |
20580 | ||
20581 | Overall verdict: pass | |
20582 | ||
20583 | <END_TC> | |
20584 | ||
20585 | :exmp. | |
20586 | ||
20587 | .*---------------------------------------------------------------------* | |
20588 | :h3. DECODING OCTETSTRING ,length = 1001 ,DER (primitive) | |
20589 | .*---------------------------------------------------------------------* | |
20590 | :xmp tab=0. | |
20591 | ||
20592 | <TC - DECODING OCTETSTRING ,length = 1001 ,DER (primitive)> | |
20593 | ||
20594 | <STATIC:ASN> | |
20595 | ||
20596 | TempA | |
20597 | ||
20598 | DEFINITIONS ::= | |
20599 | BEGIN | |
20600 | BERPDU ::= OCTET STRING | |
20601 | myIntegerValue BERPDU ::='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20602 | ||
20603 | ||
20604 | ||
20605 | END | |
20606 | ||
20607 | <STATIC> | |
20608 | ||
20609 | import from TempA all; | |
20610 | ||
20611 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20612 | ||
20613 | ||
20614 | <TTCN_TC:EXEC> | |
20615 | ||
20616 | if (dec_BER_PDU('048203E9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20617 | ||
20618 | ||
20619 | {setverdict(pass);} else {setverdict(fail);} | |
20620 | ||
20621 | ||
20622 | <RESULT> | |
20623 | ||
20624 | Overall verdict: pass | |
20625 | ||
20626 | <END_TC> | |
20627 | ||
20628 | :exmp. | |
20629 | ||
20630 | .*---------------------------------------------------------------------* | |
20631 | :h3. DECODING OCTETSTRING ,length = 1001 ,constructed, definite form | |
20632 | .*---------------------------------------------------------------------* | |
20633 | :xmp tab=0. | |
20634 | ||
20635 | <TC - DECODING OCTETSTRING ,length = 1001 ,constructed, definite form> | |
20636 | ||
20637 | <STATIC:ASN> | |
20638 | ||
20639 | TempA | |
20640 | ||
20641 | DEFINITIONS ::= | |
20642 | BEGIN | |
20643 | BERPDU ::= OCTET STRING | |
20644 | myIntegerValue BERPDU ::= 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'H | |
20645 | ||
20646 | ||
20647 | END | |
20648 | ||
20649 | <STATIC> | |
20650 | ||
20651 | import from TempA all; | |
20652 | ||
20653 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20654 | ||
20655 | ||
20656 | <TTCN_TC:EXEC> | |
20657 | ||
20658 | if (dec_BER_PDU('248203ED048203E9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'O) == myIntegerValue) | |
20659 | ||
20660 | ||
20661 | {setverdict(pass);} else {setverdict(fail);} | |
20662 | ||
20663 | ||
20664 | <RESULT> | |
20665 | ||
20666 | Overall verdict: pass | |
20667 | ||
20668 | <END_TC> | |
20669 | ||
20670 | :exmp. | |
20671 | ||
20672 | .*---------------------------------------------------------------------* | |
20673 | :h3. DECODING OCTETSTRING ,length = 2 ,CER + DER,IMPLICIT TAG (primitive) | |
20674 | .*---------------------------------------------------------------------* | |
20675 | :xmp tab=0. | |
20676 | ||
20677 | <TC - DECODING OCTETSTRING ,length = 2 ,CER + DER,IMPLICIT TAG (primitive)> | |
20678 | ||
20679 | <STATIC:ASN> | |
20680 | ||
20681 | TempA | |
20682 | ||
20683 | DEFINITIONS ::= | |
20684 | BEGIN | |
20685 | BERPDU ::= [0] IMPLICIT OCTET STRING | |
20686 | ||
20687 | myIntegerValue BERPDU ::='FFFF'H | |
20688 | ||
20689 | END | |
20690 | ||
20691 | <STATIC> | |
20692 | ||
20693 | import from TempA all; | |
20694 | ||
20695 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20696 | ||
20697 | ||
20698 | <TTCN_TC:EXEC> | |
20699 | ||
20700 | if (dec_BER_PDU('8002FFFF'O) == myIntegerValue) | |
20701 | ||
20702 | ||
20703 | {setverdict(pass);} else {setverdict(fail);} | |
20704 | ||
20705 | ||
20706 | <RESULT> | |
20707 | ||
20708 | Overall verdict: pass | |
20709 | ||
20710 | <END_TC> | |
20711 | ||
20712 | :exmp. | |
20713 | ||
20714 | .*---------------------------------------------------------------------* | |
20715 | :h3. DECODING OCTETSTRING ,length = 2 ,CER ,EXPLICIT TAG (constructed) | |
20716 | .*---------------------------------------------------------------------* | |
20717 | :xmp tab=0. | |
20718 | ||
20719 | <TC - DECODING OCTETSTRING ,length = 2 ,CER ,EXPLICIT TAG (constructed)> | |
20720 | ||
20721 | <STATIC:ASN> | |
20722 | ||
20723 | TempA | |
20724 | ||
20725 | DEFINITIONS ::= | |
20726 | BEGIN | |
20727 | BERPDU ::= [0] EXPLICIT OCTET STRING | |
20728 | ||
20729 | myIntegerValue BERPDU ::='FFFF'H | |
20730 | ||
20731 | END | |
20732 | ||
20733 | <STATIC> | |
20734 | ||
20735 | import from TempA all; | |
20736 | ||
20737 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20738 | ||
20739 | ||
20740 | <TTCN_TC:EXEC> | |
20741 | ||
20742 | if (dec_BER_PDU('A0800402FFFF0000'O) == myIntegerValue) | |
20743 | ||
20744 | ||
20745 | {setverdict(pass);} else {setverdict(fail);} | |
20746 | ||
20747 | ||
20748 | <RESULT> | |
20749 | ||
20750 | Overall verdict: pass | |
20751 | ||
20752 | <END_TC> | |
20753 | ||
20754 | :exmp. | |
20755 | ||
20756 | .*---------------------------------------------------------------------* | |
20757 | :h3. DECODING OCTETSTRING ,length = 2 ,DER,EXPLICIT TAG (constructed) | |
20758 | .*---------------------------------------------------------------------* | |
20759 | :xmp tab=0. | |
20760 | ||
20761 | <TC - DECODING OCTETSTRING ,length = 2 ,DER,EXPLICIT TAG (constructed)> | |
20762 | ||
20763 | <STATIC:ASN> | |
20764 | ||
20765 | TempA | |
20766 | ||
20767 | DEFINITIONS ::= | |
20768 | BEGIN | |
20769 | BERPDU ::= OCTET STRING | |
20770 | ||
20771 | myIntegerValue BERPDU ::='FFFF'H | |
20772 | ||
20773 | END | |
20774 | ||
20775 | <STATIC> | |
20776 | ||
20777 | import from TempA all; | |
20778 | ||
20779 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
20780 | ||
20781 | ||
20782 | <TTCN_TC:EXEC> | |
20783 | ||
20784 | if (dec_BER_PDU('A0040402FFFF'O) == myIntegerValue) | |
20785 | ||
20786 | ||
20787 | {setverdict(pass);} else {setverdict(fail);} | |
20788 | ||
20789 | ||
20790 | <RESULT> | |
20791 | ||
20792 | Overall verdict: pass | |
20793 | ||
20794 | <END_TC> | |
20795 | ||
20796 | :exmp. | |
20797 | ||
20798 | .*---------------------------------------------------------------------* | |
20799 | :h3. DER + CER encoding of NULL | |
20800 | .*---------------------------------------------------------------------* | |
20801 | :xmp tab=0. | |
20802 | ||
20803 | <TC - DER + CER encoding of NULL > | |
20804 | START OF NULL SECTION | |
20805 | ||
20806 | <STATIC:ASN> | |
20807 | ||
20808 | TempA | |
20809 | ||
20810 | DEFINITIONS ::= | |
20811 | BEGIN | |
20812 | BERPDU ::= NULL | |
20813 | END | |
20814 | ||
20815 | <STATIC> | |
20816 | ||
20817 | import from TempA all; | |
20818 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20819 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
20820 | ||
20821 | const BERPDU b := NULL | |
20822 | ||
20823 | <TTCN_TC:EXEC> | |
20824 | ||
20825 | if ((enc_DER_PDU(b) == '0500'O)and(enc_CER_PDU(b) == '0500'O)) {setverdict(pass);} else {setverdict(fail);} | |
20826 | ||
20827 | <RESULT> | |
20828 | ||
20829 | Overall verdict: pass | |
20830 | ||
20831 | <END_TC> | |
20832 | ||
20833 | :exmp. | |
20834 | ||
20835 | .*---------------------------------------------------------------------* | |
20836 | :h3. DER + CER encoding of NULL with Context Specific TAG, EXPLICIT | |
20837 | .*---------------------------------------------------------------------* | |
20838 | :xmp tab=0. | |
20839 | ||
20840 | <TC - DER + CER encoding of NULL with Context Specific TAG, EXPLICIT> | |
20841 | ||
20842 | <STATIC:ASN> | |
20843 | ||
20844 | TempA | |
20845 | ||
20846 | DEFINITIONS ::= | |
20847 | BEGIN | |
20848 | BERPDU ::= [0] EXPLICIT NULL | |
20849 | END | |
20850 | ||
20851 | <STATIC> | |
20852 | ||
20853 | import from TempA all; | |
20854 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20855 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
20856 | ||
20857 | const BERPDU b := NULL | |
20858 | ||
20859 | <TTCN_TC:EXEC> | |
20860 | ||
20861 | if ((enc_DER_PDU(b) == 'A0020500'O)and(enc_CER_PDU(b) == 'A08005000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
20862 | ||
20863 | <RESULT> | |
20864 | ||
20865 | Overall verdict: pass | |
20866 | ||
20867 | <END_TC> | |
20868 | ||
20869 | :exmp. | |
20870 | ||
20871 | .*---------------------------------------------------------------------* | |
20872 | :h3. DER + CER encoding of NULL with PRIVATE TAG, EXPLICIT | |
20873 | .*---------------------------------------------------------------------* | |
20874 | :xmp tab=0. | |
20875 | ||
20876 | <TC - DER + CER encoding of NULL with PRIVATE TAG, EXPLICIT> | |
20877 | ||
20878 | <STATIC:ASN> | |
20879 | ||
20880 | TempA | |
20881 | ||
20882 | DEFINITIONS ::= | |
20883 | BEGIN | |
20884 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
20885 | END | |
20886 | ||
20887 | <STATIC> | |
20888 | ||
20889 | import from TempA all; | |
20890 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20891 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
20892 | ||
20893 | const BERPDU b := NULL | |
20894 | ||
20895 | <TTCN_TC:EXEC> | |
20896 | ||
20897 | if ((enc_DER_PDU(b) == 'E1020500'O)and(enc_CER_PDU(b) == 'E18005000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
20898 | ||
20899 | <RESULT> | |
20900 | ||
20901 | Overall verdict: pass | |
20902 | ||
20903 | <END_TC> | |
20904 | ||
20905 | :exmp. | |
20906 | ||
20907 | .*---------------------------------------------------------------------* | |
20908 | :h3. DER + CER encoding of NULL with APPLICATION TAG, EXPLICIT | |
20909 | .*---------------------------------------------------------------------* | |
20910 | :xmp tab=0. | |
20911 | ||
20912 | <TC - DER + CER encoding of NULL with APPLICATION TAG, EXPLICIT> | |
20913 | ||
20914 | <STATIC:ASN> | |
20915 | ||
20916 | TempA | |
20917 | ||
20918 | DEFINITIONS ::= | |
20919 | BEGIN | |
20920 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
20921 | END | |
20922 | ||
20923 | <STATIC> | |
20924 | ||
20925 | import from TempA all; | |
20926 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20927 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
20928 | ||
20929 | const BERPDU b := NULL | |
20930 | ||
20931 | <TTCN_TC:EXEC> | |
20932 | ||
20933 | if ((enc_DER_PDU(b) == '62020500'O)and(enc_CER_PDU(b) == '628005000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
20934 | ||
20935 | <RESULT> | |
20936 | ||
20937 | Overall verdict: pass | |
20938 | ||
20939 | <END_TC> | |
20940 | ||
20941 | :exmp. | |
20942 | ||
20943 | .*---------------------------------------------------------------------* | |
20944 | :h3. DER + CER encoding of NULL with Context Specific TAG, IMPLICIT | |
20945 | .*---------------------------------------------------------------------* | |
20946 | :xmp tab=0. | |
20947 | ||
20948 | <TC - DER + CER encoding of NULL with Context Specific TAG, IMPLICIT> | |
20949 | ||
20950 | <STATIC:ASN> | |
20951 | ||
20952 | TempA | |
20953 | ||
20954 | DEFINITIONS ::= | |
20955 | BEGIN | |
20956 | BERPDU ::= [0] IMPLICIT NULL | |
20957 | END | |
20958 | ||
20959 | <STATIC> | |
20960 | ||
20961 | import from TempA all; | |
20962 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20963 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
20964 | ||
20965 | const BERPDU b := NULL | |
20966 | ||
20967 | <TTCN_TC:EXEC> | |
20968 | ||
20969 | if ((enc_DER_PDU(b) == '8000'O)and(enc_CER_PDU(b) == '8000'O)) {setverdict(pass);} else {setverdict(fail);} | |
20970 | ||
20971 | <RESULT> | |
20972 | ||
20973 | Overall verdict: pass | |
20974 | ||
20975 | <END_TC> | |
20976 | ||
20977 | :exmp. | |
20978 | ||
20979 | .*---------------------------------------------------------------------* | |
20980 | :h3. DER + CER encoding of NULL with PRIVATE TAG, IMPLICIT | |
20981 | .*---------------------------------------------------------------------* | |
20982 | :xmp tab=0. | |
20983 | ||
20984 | <TC - DER + CER encoding of NULL with PRIVATE TAG, IMPLICIT> | |
20985 | ||
20986 | <STATIC:ASN> | |
20987 | ||
20988 | TempA | |
20989 | ||
20990 | DEFINITIONS ::= | |
20991 | BEGIN | |
20992 | BERPDU ::= [PRIVATE 1] IMPLICIT NULL | |
20993 | END | |
20994 | ||
20995 | <STATIC> | |
20996 | ||
20997 | import from TempA all; | |
20998 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
20999 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
21000 | ||
21001 | const BERPDU b := NULL | |
21002 | ||
21003 | <TTCN_TC:EXEC> | |
21004 | ||
21005 | if ((enc_DER_PDU(b) == 'C100'O)and(enc_CER_PDU(b) == 'C100'O)) {setverdict(pass);} else {setverdict(fail);} | |
21006 | ||
21007 | <RESULT> | |
21008 | ||
21009 | Overall verdict: pass | |
21010 | ||
21011 | <END_TC> | |
21012 | ||
21013 | :exmp. | |
21014 | ||
21015 | .*---------------------------------------------------------------------* | |
21016 | :h3. DER + CER encoding of NULL with APPLICATION TAG, IMPLICIT | |
21017 | .*---------------------------------------------------------------------* | |
21018 | :xmp tab=0. | |
21019 | ||
21020 | <TC - DER + CER encoding of NULL with APPLICATION TAG, IMPLICIT> | |
21021 | ||
21022 | <STATIC:ASN> | |
21023 | ||
21024 | TempA | |
21025 | ||
21026 | DEFINITIONS ::= | |
21027 | BEGIN | |
21028 | BERPDU ::= [APPLICATION 2] IMPLICIT NULL | |
21029 | END | |
21030 | ||
21031 | <STATIC> | |
21032 | ||
21033 | import from TempA all; | |
21034 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
21035 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
21036 | ||
21037 | const BERPDU b := NULL | |
21038 | ||
21039 | <TTCN_TC:EXEC> | |
21040 | ||
21041 | if ((enc_DER_PDU(b) == '4200'O)and(enc_CER_PDU(b) == '4200'O)) {setverdict(pass);} else {setverdict(fail);} | |
21042 | ||
21043 | <RESULT> | |
21044 | ||
21045 | Overall verdict: pass | |
21046 | ||
21047 | <END_TC> | |
21048 | ||
21049 | :exmp. | |
21050 | ||
21051 | .*---------------------------------------------------------------------* | |
21052 | :h3. DECODING NULL, CER+DER | |
21053 | .*---------------------------------------------------------------------* | |
21054 | :xmp tab=0. | |
21055 | ||
21056 | <TC - DECODING NULL, CER+DER> | |
21057 | ||
21058 | <STATIC:ASN> | |
21059 | ||
21060 | TempA | |
21061 | ||
21062 | DEFINITIONS ::= | |
21063 | BEGIN | |
21064 | BERPDU ::= NULL | |
21065 | ||
21066 | myNullValue BERPDU ::= NULL | |
21067 | ||
21068 | END | |
21069 | ||
21070 | <STATIC> | |
21071 | ||
21072 | import from TempA all; | |
21073 | ||
21074 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21075 | ||
21076 | ||
21077 | <TTCN_TC:EXEC> | |
21078 | ||
21079 | if (dec_BER_PDU('0500'O) == myNullValue) | |
21080 | ||
21081 | ||
21082 | {setverdict(pass);} else {setverdict(fail);} | |
21083 | ||
21084 | ||
21085 | <RESULT> | |
21086 | ||
21087 | Overall verdict: pass | |
21088 | ||
21089 | <END_TC> | |
21090 | ||
21091 | :exmp. | |
21092 | ||
21093 | .*---------------------------------------------------------------------* | |
21094 | :h3. DECODING NULL, (LENGTH OF LENGTH = 1) | |
21095 | .*---------------------------------------------------------------------* | |
21096 | :xmp tab=0. | |
21097 | ||
21098 | <TC - DECODING NULL, (LENGTH OF LENGTH = 1)> | |
21099 | ||
21100 | <STATIC:ASN> | |
21101 | ||
21102 | TempA | |
21103 | ||
21104 | DEFINITIONS ::= | |
21105 | BEGIN | |
21106 | BERPDU ::= NULL | |
21107 | ||
21108 | myNullValue BERPDU ::= NULL | |
21109 | ||
21110 | END | |
21111 | ||
21112 | <STATIC> | |
21113 | ||
21114 | import from TempA all; | |
21115 | ||
21116 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21117 | ||
21118 | ||
21119 | <TTCN_TC:EXEC> | |
21120 | ||
21121 | if (dec_BER_PDU('058100'O) == myNullValue) | |
21122 | ||
21123 | ||
21124 | {setverdict(pass);} else {setverdict(fail);} | |
21125 | ||
21126 | ||
21127 | <RESULT> | |
21128 | ||
21129 | Overall verdict: pass | |
21130 | ||
21131 | <END_TC> | |
21132 | ||
21133 | :exmp. | |
21134 | ||
21135 | .*---------------------------------------------------------------------* | |
21136 | :h3. DECODING NULL, (LENGTH OF LENGTH = 2) | |
21137 | .*---------------------------------------------------------------------* | |
21138 | :xmp tab=0. | |
21139 | ||
21140 | <TC - DECODING NULL, (LENGTH OF LENGTH = 2)> | |
21141 | ||
21142 | <STATIC:ASN> | |
21143 | ||
21144 | TempA | |
21145 | ||
21146 | DEFINITIONS ::= | |
21147 | BEGIN | |
21148 | BERPDU ::= NULL | |
21149 | ||
21150 | myNullValue BERPDU ::= NULL | |
21151 | ||
21152 | END | |
21153 | ||
21154 | <STATIC> | |
21155 | ||
21156 | import from TempA all; | |
21157 | ||
21158 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21159 | ||
21160 | ||
21161 | <TTCN_TC:EXEC> | |
21162 | ||
21163 | if (dec_BER_PDU('05820000'O) == myNullValue) | |
21164 | ||
21165 | ||
21166 | {setverdict(pass);} else {setverdict(fail);} | |
21167 | ||
21168 | ||
21169 | <RESULT> | |
21170 | ||
21171 | Overall verdict: pass | |
21172 | ||
21173 | <END_TC> | |
21174 | ||
21175 | :exmp. | |
21176 | ||
21177 | .*---------------------------------------------------------------------* | |
21178 | :h3. DECODING [0] EXPLICIT NULL , DER | |
21179 | .*---------------------------------------------------------------------* | |
21180 | :xmp tab=0. | |
21181 | ||
21182 | <TC - DECODING [0] EXPLICIT NULL , DER> | |
21183 | ||
21184 | <STATIC:ASN> | |
21185 | ||
21186 | TempA | |
21187 | ||
21188 | DEFINITIONS ::= | |
21189 | BEGIN | |
21190 | BERPDU ::= [0] EXPLICIT NULL | |
21191 | ||
21192 | myNullValue BERPDU ::= NULL | |
21193 | ||
21194 | END | |
21195 | ||
21196 | <STATIC> | |
21197 | ||
21198 | import from TempA all; | |
21199 | ||
21200 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21201 | ||
21202 | ||
21203 | <TTCN_TC:EXEC> | |
21204 | ||
21205 | if (dec_BER_PDU('A0020500'O) == myNullValue) | |
21206 | ||
21207 | ||
21208 | {setverdict(pass);} else {setverdict(fail);} | |
21209 | ||
21210 | ||
21211 | <RESULT> | |
21212 | ||
21213 | Overall verdict: pass | |
21214 | ||
21215 | <END_TC> | |
21216 | ||
21217 | :exmp. | |
21218 | ||
21219 | .*---------------------------------------------------------------------* | |
21220 | :h3. DECODING [0] EXPLICIT NULL, CER | |
21221 | .*---------------------------------------------------------------------* | |
21222 | :xmp tab=0. | |
21223 | ||
21224 | <TC - DECODING [0] EXPLICIT NULL, CER> | |
21225 | ||
21226 | <STATIC:ASN> | |
21227 | ||
21228 | TempA | |
21229 | ||
21230 | DEFINITIONS ::= | |
21231 | BEGIN | |
21232 | BERPDU ::= [0] EXPLICIT NULL | |
21233 | ||
21234 | myNullValue BERPDU ::= NULL | |
21235 | ||
21236 | END | |
21237 | ||
21238 | <STATIC> | |
21239 | ||
21240 | import from TempA all; | |
21241 | ||
21242 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21243 | ||
21244 | ||
21245 | <TTCN_TC:EXEC> | |
21246 | ||
21247 | if (dec_BER_PDU('A08005000000'O) == myNullValue) | |
21248 | ||
21249 | ||
21250 | {setverdict(pass);} else {setverdict(fail);} | |
21251 | ||
21252 | ||
21253 | <RESULT> | |
21254 | ||
21255 | Overall verdict: pass | |
21256 | ||
21257 | <END_TC> | |
21258 | ||
21259 | :exmp. | |
21260 | ||
21261 | .*---------------------------------------------------------------------* | |
21262 | :h3. DECODING [0] EXPLICIT NULL, Short form - short form | |
21263 | .*---------------------------------------------------------------------* | |
21264 | :xmp tab=0. | |
21265 | ||
21266 | <TC - DECODING [0] EXPLICIT NULL, Short form - short form> | |
21267 | ||
21268 | <STATIC:ASN> | |
21269 | ||
21270 | TempA | |
21271 | ||
21272 | DEFINITIONS ::= | |
21273 | BEGIN | |
21274 | BERPDU ::= [0] EXPLICIT NULL | |
21275 | ||
21276 | myNullValue BERPDU ::= NULL | |
21277 | ||
21278 | END | |
21279 | ||
21280 | <STATIC> | |
21281 | ||
21282 | import from TempA all; | |
21283 | ||
21284 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21285 | ||
21286 | ||
21287 | <TTCN_TC:EXEC> | |
21288 | ||
21289 | if (dec_BER_PDU('A0020500'O) == myNullValue) | |
21290 | ||
21291 | ||
21292 | {setverdict(pass);} else {setverdict(fail);} | |
21293 | ||
21294 | ||
21295 | <RESULT> | |
21296 | ||
21297 | Overall verdict: pass | |
21298 | ||
21299 | <END_TC> | |
21300 | ||
21301 | :exmp. | |
21302 | ||
21303 | .*---------------------------------------------------------------------* | |
21304 | :h3. DECODING [0] EXPLICIT NULL, Long form - short form | |
21305 | .*---------------------------------------------------------------------* | |
21306 | :xmp tab=0. | |
21307 | ||
21308 | <TC - DECODING [0] EXPLICIT NULL, Long form - short form> | |
21309 | ||
21310 | <STATIC:ASN> | |
21311 | ||
21312 | TempA | |
21313 | ||
21314 | DEFINITIONS ::= | |
21315 | BEGIN | |
21316 | BERPDU ::= [0] EXPLICIT NULL | |
21317 | ||
21318 | myNullValue BERPDU ::= NULL | |
21319 | ||
21320 | END | |
21321 | ||
21322 | <STATIC> | |
21323 | ||
21324 | import from TempA all; | |
21325 | ||
21326 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21327 | ||
21328 | ||
21329 | <TTCN_TC:EXEC> | |
21330 | ||
21331 | if (dec_BER_PDU('A081020500'O) == myNullValue) | |
21332 | ||
21333 | ||
21334 | {setverdict(pass);} else {setverdict(fail);} | |
21335 | ||
21336 | ||
21337 | <RESULT> | |
21338 | ||
21339 | Overall verdict: pass | |
21340 | ||
21341 | <END_TC> | |
21342 | ||
21343 | :exmp. | |
21344 | ||
21345 | .*---------------------------------------------------------------------* | |
21346 | :h3. DECODING [0] EXPLICIT NULL, Long form Long form | |
21347 | .*---------------------------------------------------------------------* | |
21348 | :xmp tab=0. | |
21349 | ||
21350 | <TC - DECODING [0] EXPLICIT NULL, Long form Long form> | |
21351 | ||
21352 | <STATIC:ASN> | |
21353 | ||
21354 | TempA | |
21355 | ||
21356 | DEFINITIONS ::= | |
21357 | BEGIN | |
21358 | BERPDU ::= [0] EXPLICIT NULL | |
21359 | ||
21360 | myNullValue BERPDU ::= NULL | |
21361 | ||
21362 | END | |
21363 | ||
21364 | <STATIC> | |
21365 | ||
21366 | import from TempA all; | |
21367 | ||
21368 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21369 | ||
21370 | ||
21371 | <TTCN_TC:EXEC> | |
21372 | ||
21373 | if (dec_BER_PDU('A08103058100'O) == myNullValue) | |
21374 | ||
21375 | ||
21376 | {setverdict(pass);} else {setverdict(fail);} | |
21377 | ||
21378 | ||
21379 | <RESULT> | |
21380 | ||
21381 | Overall verdict: pass | |
21382 | ||
21383 | <END_TC> | |
21384 | ||
21385 | :exmp. | |
21386 | ||
21387 | .*---------------------------------------------------------------------* | |
21388 | :h3. DECODING [PRIVATE 1] EXPLICIT NULL , DER | |
21389 | .*---------------------------------------------------------------------* | |
21390 | :xmp tab=0. | |
21391 | ||
21392 | <TC - DECODING [PRIVATE 1] EXPLICIT NULL , DER> | |
21393 | ||
21394 | <STATIC:ASN> | |
21395 | ||
21396 | TempA | |
21397 | ||
21398 | DEFINITIONS ::= | |
21399 | BEGIN | |
21400 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
21401 | ||
21402 | myNullValue BERPDU ::= NULL | |
21403 | ||
21404 | END | |
21405 | ||
21406 | <STATIC> | |
21407 | ||
21408 | import from TempA all; | |
21409 | ||
21410 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21411 | ||
21412 | ||
21413 | <TTCN_TC:EXEC> | |
21414 | ||
21415 | if (dec_BER_PDU('E1020500'O) == myNullValue) | |
21416 | ||
21417 | ||
21418 | {setverdict(pass);} else {setverdict(fail);} | |
21419 | ||
21420 | ||
21421 | <RESULT> | |
21422 | ||
21423 | Overall verdict: pass | |
21424 | ||
21425 | <END_TC> | |
21426 | ||
21427 | :exmp. | |
21428 | ||
21429 | .*---------------------------------------------------------------------* | |
21430 | :h3. DECODING [PRIVATE 1] EXPLICIT NULL, CER | |
21431 | .*---------------------------------------------------------------------* | |
21432 | :xmp tab=0. | |
21433 | ||
21434 | <TC - DECODING [PRIVATE 1] EXPLICIT NULL, CER> | |
21435 | ||
21436 | <STATIC:ASN> | |
21437 | ||
21438 | TempA | |
21439 | ||
21440 | DEFINITIONS ::= | |
21441 | BEGIN | |
21442 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
21443 | ||
21444 | myNullValue BERPDU ::= NULL | |
21445 | ||
21446 | END | |
21447 | ||
21448 | <STATIC> | |
21449 | ||
21450 | import from TempA all; | |
21451 | ||
21452 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21453 | ||
21454 | ||
21455 | <TTCN_TC:EXEC> | |
21456 | ||
21457 | if (dec_BER_PDU('E18005000000'O) == myNullValue) | |
21458 | ||
21459 | ||
21460 | {setverdict(pass);} else {setverdict(fail);} | |
21461 | ||
21462 | ||
21463 | <RESULT> | |
21464 | ||
21465 | Overall verdict: pass | |
21466 | ||
21467 | <END_TC> | |
21468 | ||
21469 | :exmp. | |
21470 | ||
21471 | .*---------------------------------------------------------------------* | |
21472 | :h3. DECODING [PRIVATE 1] EXPLICIT NULL, Short form - short form | |
21473 | .*---------------------------------------------------------------------* | |
21474 | :xmp tab=0. | |
21475 | ||
21476 | <TC - DECODING [PRIVATE 1] EXPLICIT NULL, Short form - short form> | |
21477 | ||
21478 | <STATIC:ASN> | |
21479 | ||
21480 | TempA | |
21481 | ||
21482 | DEFINITIONS ::= | |
21483 | BEGIN | |
21484 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
21485 | ||
21486 | myNullValue BERPDU ::= NULL | |
21487 | ||
21488 | END | |
21489 | ||
21490 | <STATIC> | |
21491 | ||
21492 | import from TempA all; | |
21493 | ||
21494 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21495 | ||
21496 | ||
21497 | <TTCN_TC:EXEC> | |
21498 | ||
21499 | if (dec_BER_PDU('E1020500'O) == myNullValue) | |
21500 | ||
21501 | ||
21502 | {setverdict(pass);} else {setverdict(fail);} | |
21503 | ||
21504 | ||
21505 | <RESULT> | |
21506 | ||
21507 | Overall verdict: pass | |
21508 | ||
21509 | <END_TC> | |
21510 | ||
21511 | :exmp. | |
21512 | ||
21513 | .*---------------------------------------------------------------------* | |
21514 | :h3. DECODING [PRIVATE 1] EXPLICIT NULL, Long form - short form | |
21515 | .*---------------------------------------------------------------------* | |
21516 | :xmp tab=0. | |
21517 | ||
21518 | <TC - DECODING [PRIVATE 1] EXPLICIT NULL, Long form - short form> | |
21519 | ||
21520 | <STATIC:ASN> | |
21521 | ||
21522 | TempA | |
21523 | ||
21524 | DEFINITIONS ::= | |
21525 | BEGIN | |
21526 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
21527 | ||
21528 | myNullValue BERPDU ::= NULL | |
21529 | ||
21530 | END | |
21531 | ||
21532 | <STATIC> | |
21533 | ||
21534 | import from TempA all; | |
21535 | ||
21536 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21537 | ||
21538 | ||
21539 | <TTCN_TC:EXEC> | |
21540 | ||
21541 | if (dec_BER_PDU('E181020500'O) == myNullValue) | |
21542 | ||
21543 | ||
21544 | {setverdict(pass);} else {setverdict(fail);} | |
21545 | ||
21546 | ||
21547 | <RESULT> | |
21548 | ||
21549 | Overall verdict: pass | |
21550 | ||
21551 | <END_TC> | |
21552 | ||
21553 | :exmp. | |
21554 | ||
21555 | .*---------------------------------------------------------------------* | |
21556 | :h3. DECODING [PRIVATE 1] EXPLICIT NULL, Long form Long form | |
21557 | .*---------------------------------------------------------------------* | |
21558 | :xmp tab=0. | |
21559 | ||
21560 | <TC - DECODING [PRIVATE 1] EXPLICIT NULL, Long form Long form> | |
21561 | ||
21562 | <STATIC:ASN> | |
21563 | ||
21564 | TempA | |
21565 | ||
21566 | DEFINITIONS ::= | |
21567 | BEGIN | |
21568 | BERPDU ::= [PRIVATE 1] EXPLICIT NULL | |
21569 | ||
21570 | myNullValue BERPDU ::= NULL | |
21571 | ||
21572 | END | |
21573 | ||
21574 | <STATIC> | |
21575 | ||
21576 | import from TempA all; | |
21577 | ||
21578 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21579 | ||
21580 | ||
21581 | <TTCN_TC:EXEC> | |
21582 | ||
21583 | if (dec_BER_PDU('E18103058100'O) == myNullValue) | |
21584 | ||
21585 | ||
21586 | {setverdict(pass);} else {setverdict(fail);} | |
21587 | ||
21588 | ||
21589 | <RESULT> | |
21590 | ||
21591 | Overall verdict: pass | |
21592 | ||
21593 | <END_TC> | |
21594 | ||
21595 | :exmp. | |
21596 | ||
21597 | .*---------------------------------------------------------------------* | |
21598 | :h3. DECODING [APPLICATION 2] EXPLICIT NULL , DER | |
21599 | .*---------------------------------------------------------------------* | |
21600 | :xmp tab=0. | |
21601 | ||
21602 | <TC - DECODING [APPLICATION 2] EXPLICIT NULL , DER> | |
21603 | ||
21604 | <STATIC:ASN> | |
21605 | ||
21606 | TempA | |
21607 | ||
21608 | DEFINITIONS ::= | |
21609 | BEGIN | |
21610 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
21611 | ||
21612 | myNullValue BERPDU ::= NULL | |
21613 | ||
21614 | END | |
21615 | ||
21616 | <STATIC> | |
21617 | ||
21618 | import from TempA all; | |
21619 | ||
21620 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21621 | ||
21622 | ||
21623 | <TTCN_TC:EXEC> | |
21624 | ||
21625 | if (dec_BER_PDU('62020500'O) == myNullValue) | |
21626 | ||
21627 | ||
21628 | {setverdict(pass);} else {setverdict(fail);} | |
21629 | ||
21630 | ||
21631 | <RESULT> | |
21632 | ||
21633 | Overall verdict: pass | |
21634 | ||
21635 | <END_TC> | |
21636 | ||
21637 | :exmp. | |
21638 | ||
21639 | .*---------------------------------------------------------------------* | |
21640 | :h3. DECODING [APPLICATION 2] EXPLICIT NULL, CER | |
21641 | .*---------------------------------------------------------------------* | |
21642 | :xmp tab=0. | |
21643 | ||
21644 | <TC - DECODING [APPLICATION 2] EXPLICIT NULL, CER> | |
21645 | ||
21646 | <STATIC:ASN> | |
21647 | ||
21648 | TempA | |
21649 | ||
21650 | DEFINITIONS ::= | |
21651 | BEGIN | |
21652 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
21653 | ||
21654 | myNullValue BERPDU ::= NULL | |
21655 | ||
21656 | END | |
21657 | ||
21658 | <STATIC> | |
21659 | ||
21660 | import from TempA all; | |
21661 | ||
21662 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21663 | ||
21664 | ||
21665 | <TTCN_TC:EXEC> | |
21666 | ||
21667 | if (dec_BER_PDU('628005000000'O) == myNullValue) | |
21668 | ||
21669 | ||
21670 | {setverdict(pass);} else {setverdict(fail);} | |
21671 | ||
21672 | ||
21673 | <RESULT> | |
21674 | ||
21675 | Overall verdict: pass | |
21676 | ||
21677 | <END_TC> | |
21678 | ||
21679 | :exmp. | |
21680 | ||
21681 | .*---------------------------------------------------------------------* | |
21682 | :h3. DECODING [APPLICATION 2] EXPLICIT NULL, Short form - short form | |
21683 | .*---------------------------------------------------------------------* | |
21684 | :xmp tab=0. | |
21685 | ||
21686 | <TC - DECODING [APPLICATION 2] EXPLICIT NULL, Short form - short form> | |
21687 | ||
21688 | <STATIC:ASN> | |
21689 | ||
21690 | TempA | |
21691 | ||
21692 | DEFINITIONS ::= | |
21693 | BEGIN | |
21694 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
21695 | ||
21696 | myNullValue BERPDU ::= NULL | |
21697 | ||
21698 | END | |
21699 | ||
21700 | <STATIC> | |
21701 | ||
21702 | import from TempA all; | |
21703 | ||
21704 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21705 | ||
21706 | ||
21707 | <TTCN_TC:EXEC> | |
21708 | ||
21709 | if (dec_BER_PDU('62020500'O) == myNullValue) | |
21710 | ||
21711 | ||
21712 | {setverdict(pass);} else {setverdict(fail);} | |
21713 | ||
21714 | ||
21715 | <RESULT> | |
21716 | ||
21717 | Overall verdict: pass | |
21718 | ||
21719 | <END_TC> | |
21720 | ||
21721 | :exmp. | |
21722 | ||
21723 | .*---------------------------------------------------------------------* | |
21724 | :h3. DECODING [APPLICATION 2] EXPLICIT NULL, Long form - short form | |
21725 | .*---------------------------------------------------------------------* | |
21726 | :xmp tab=0. | |
21727 | ||
21728 | <TC - DECODING [APPLICATION 2] EXPLICIT NULL, Long form - short form> | |
21729 | ||
21730 | <STATIC:ASN> | |
21731 | ||
21732 | TempA | |
21733 | ||
21734 | DEFINITIONS ::= | |
21735 | BEGIN | |
21736 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
21737 | ||
21738 | myNullValue BERPDU ::= NULL | |
21739 | ||
21740 | END | |
21741 | ||
21742 | <STATIC> | |
21743 | ||
21744 | import from TempA all; | |
21745 | ||
21746 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21747 | ||
21748 | ||
21749 | <TTCN_TC:EXEC> | |
21750 | ||
21751 | if (dec_BER_PDU('6281020500'O) == myNullValue) | |
21752 | ||
21753 | ||
21754 | {setverdict(pass);} else {setverdict(fail);} | |
21755 | ||
21756 | ||
21757 | <RESULT> | |
21758 | ||
21759 | Overall verdict: pass | |
21760 | ||
21761 | <END_TC> | |
21762 | ||
21763 | :exmp. | |
21764 | ||
21765 | .*---------------------------------------------------------------------* | |
21766 | :h3. DECODING [APPLICATION 2] EXPLICIT NULL, Long form Long form | |
21767 | .*---------------------------------------------------------------------* | |
21768 | :xmp tab=0. | |
21769 | ||
21770 | <TC - DECODING [APPLICATION 2] EXPLICIT NULL, Long form Long form> | |
21771 | ||
21772 | <STATIC:ASN> | |
21773 | ||
21774 | TempA | |
21775 | ||
21776 | DEFINITIONS ::= | |
21777 | BEGIN | |
21778 | BERPDU ::= [APPLICATION 2] EXPLICIT NULL | |
21779 | ||
21780 | myNullValue BERPDU ::= NULL | |
21781 | ||
21782 | END | |
21783 | ||
21784 | <STATIC> | |
21785 | ||
21786 | import from TempA all; | |
21787 | ||
21788 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21789 | ||
21790 | ||
21791 | <TTCN_TC:EXEC> | |
21792 | ||
21793 | if (dec_BER_PDU('628103058100'O) == myNullValue) | |
21794 | ||
21795 | ||
21796 | {setverdict(pass);} else {setverdict(fail);} | |
21797 | ||
21798 | ||
21799 | <RESULT> | |
21800 | ||
21801 | Overall verdict: pass | |
21802 | ||
21803 | <END_TC> | |
21804 | ||
21805 | :exmp. | |
21806 | ||
21807 | .*---------------------------------------------------------------------* | |
21808 | :h3. DECODING [0] IMPLICIT NULL ,Short form CER,DER | |
21809 | .*---------------------------------------------------------------------* | |
21810 | :xmp tab=0. | |
21811 | ||
21812 | <TC - DECODING [0] IMPLICIT NULL ,Short form CER,DER> | |
21813 | ||
21814 | <STATIC:ASN> | |
21815 | ||
21816 | TempA | |
21817 | ||
21818 | DEFINITIONS ::= | |
21819 | BEGIN | |
21820 | BERPDU ::= [0] IMPLICIT NULL | |
21821 | ||
21822 | myNullValue BERPDU ::= NULL | |
21823 | ||
21824 | END | |
21825 | ||
21826 | <STATIC> | |
21827 | ||
21828 | import from TempA all; | |
21829 | ||
21830 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21831 | ||
21832 | ||
21833 | <TTCN_TC:EXEC> | |
21834 | ||
21835 | if (dec_BER_PDU('8000'O) == myNullValue) | |
21836 | ||
21837 | ||
21838 | {setverdict(pass);} else {setverdict(fail);} | |
21839 | ||
21840 | ||
21841 | <RESULT> | |
21842 | ||
21843 | Overall verdict: pass | |
21844 | ||
21845 | <END_TC> | |
21846 | ||
21847 | :exmp. | |
21848 | ||
21849 | .*---------------------------------------------------------------------* | |
21850 | :h3. DECODING [0] IMPLICIT NULL ,Long form | |
21851 | .*---------------------------------------------------------------------* | |
21852 | :xmp tab=0. | |
21853 | ||
21854 | <TC - DECODING [0] IMPLICIT NULL ,Long form> | |
21855 | ||
21856 | <STATIC:ASN> | |
21857 | ||
21858 | TempA | |
21859 | ||
21860 | DEFINITIONS ::= | |
21861 | BEGIN | |
21862 | BERPDU ::= [0] IMPLICIT NULL | |
21863 | ||
21864 | myNullValue BERPDU ::= NULL | |
21865 | ||
21866 | END | |
21867 | ||
21868 | <STATIC> | |
21869 | ||
21870 | import from TempA all; | |
21871 | ||
21872 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21873 | ||
21874 | ||
21875 | <TTCN_TC:EXEC> | |
21876 | ||
21877 | if (dec_BER_PDU('808100'O) == myNullValue) | |
21878 | ||
21879 | ||
21880 | {setverdict(pass);} else {setverdict(fail);} | |
21881 | ||
21882 | ||
21883 | <RESULT> | |
21884 | ||
21885 | Overall verdict: pass | |
21886 | ||
21887 | <END_TC> | |
21888 | ||
21889 | :exmp. | |
21890 | ||
21891 | .*---------------------------------------------------------------------* | |
21892 | :h3. DECODING [PRIVATE 1] IMPLICIT NULL ,Short form CER,DER | |
21893 | .*---------------------------------------------------------------------* | |
21894 | :xmp tab=0. | |
21895 | ||
21896 | <TC - DECODING [PRIVATE 1] IMPLICIT NULL ,Short form CER,DER> | |
21897 | ||
21898 | <STATIC:ASN> | |
21899 | ||
21900 | TempA | |
21901 | ||
21902 | DEFINITIONS ::= | |
21903 | BEGIN | |
21904 | BERPDU ::= [PRIVATE 1] IMPLICIT NULL | |
21905 | ||
21906 | myNullValue BERPDU ::= NULL | |
21907 | ||
21908 | END | |
21909 | ||
21910 | <STATIC> | |
21911 | ||
21912 | import from TempA all; | |
21913 | ||
21914 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21915 | ||
21916 | ||
21917 | <TTCN_TC:EXEC> | |
21918 | ||
21919 | if (dec_BER_PDU('C100'O) == myNullValue) | |
21920 | ||
21921 | ||
21922 | {setverdict(pass);} else {setverdict(fail);} | |
21923 | ||
21924 | ||
21925 | <RESULT> | |
21926 | ||
21927 | Overall verdict: pass | |
21928 | ||
21929 | <END_TC> | |
21930 | ||
21931 | :exmp. | |
21932 | ||
21933 | .*---------------------------------------------------------------------* | |
21934 | :h3. DECODING [PRIVATE 1] IMPLICIT NULL ,Long form | |
21935 | .*---------------------------------------------------------------------* | |
21936 | :xmp tab=0. | |
21937 | ||
21938 | <TC - DECODING [PRIVATE 1] IMPLICIT NULL ,Long form> | |
21939 | ||
21940 | <STATIC:ASN> | |
21941 | ||
21942 | TempA | |
21943 | ||
21944 | DEFINITIONS ::= | |
21945 | BEGIN | |
21946 | BERPDU ::= [PRIVATE 1] IMPLICIT NULL | |
21947 | ||
21948 | myNullValue BERPDU ::= NULL | |
21949 | ||
21950 | END | |
21951 | ||
21952 | <STATIC> | |
21953 | ||
21954 | import from TempA all; | |
21955 | ||
21956 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21957 | ||
21958 | ||
21959 | <TTCN_TC:EXEC> | |
21960 | ||
21961 | if (dec_BER_PDU('C18100'O) == myNullValue) | |
21962 | ||
21963 | ||
21964 | {setverdict(pass);} else {setverdict(fail);} | |
21965 | ||
21966 | ||
21967 | <RESULT> | |
21968 | ||
21969 | Overall verdict: pass | |
21970 | ||
21971 | <END_TC> | |
21972 | ||
21973 | :exmp. | |
21974 | ||
21975 | .*---------------------------------------------------------------------* | |
21976 | :h3. DECODING [APPLICATION 2] IMPLICIT NULL ,Short form CER,DER | |
21977 | .*---------------------------------------------------------------------* | |
21978 | :xmp tab=0. | |
21979 | ||
21980 | <TC - DECODING [APPLICATION 2] IMPLICIT NULL ,Short form CER,DER> | |
21981 | ||
21982 | <STATIC:ASN> | |
21983 | ||
21984 | TempA | |
21985 | ||
21986 | DEFINITIONS ::= | |
21987 | BEGIN | |
21988 | BERPDU ::= [APPLICATION 2] IMPLICIT NULL | |
21989 | ||
21990 | myNullValue BERPDU ::= NULL | |
21991 | ||
21992 | END | |
21993 | ||
21994 | <STATIC> | |
21995 | ||
21996 | import from TempA all; | |
21997 | ||
21998 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
21999 | ||
22000 | ||
22001 | <TTCN_TC:EXEC> | |
22002 | ||
22003 | if (dec_BER_PDU('4200'O) == myNullValue) | |
22004 | ||
22005 | ||
22006 | {setverdict(pass);} else {setverdict(fail);} | |
22007 | ||
22008 | ||
22009 | <RESULT> | |
22010 | ||
22011 | Overall verdict: pass | |
22012 | ||
22013 | <END_TC> | |
22014 | ||
22015 | :exmp. | |
22016 | ||
22017 | .*---------------------------------------------------------------------* | |
22018 | :h3. DECODING [APPLICATION 2] IMPLICIT NULL,Long form | |
22019 | .*---------------------------------------------------------------------* | |
22020 | :xmp tab=0. | |
22021 | ||
22022 | <TC - DECODING [APPLICATION 2] IMPLICIT NULL,Long form> | |
22023 | ||
22024 | <STATIC:ASN> | |
22025 | ||
22026 | TempA | |
22027 | ||
22028 | DEFINITIONS ::= | |
22029 | BEGIN | |
22030 | BERPDU ::= [APPLICATION 2] IMPLICIT NULL | |
22031 | ||
22032 | myNullValue BERPDU ::= NULL | |
22033 | ||
22034 | END | |
22035 | ||
22036 | <STATIC> | |
22037 | ||
22038 | import from TempA all; | |
22039 | ||
22040 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
22041 | ||
22042 | ||
22043 | <TTCN_TC:EXEC> | |
22044 | ||
22045 | if (dec_BER_PDU('428100'O) == myNullValue) | |
22046 | ||
22047 | ||
22048 | {setverdict(pass);} else {setverdict(fail);} | |
22049 | ||
22050 | ||
22051 | <RESULT> | |
22052 | ||
22053 | Overall verdict: pass | |
22054 | ||
22055 | <END_TC> | |
22056 | ||
22057 | :exmp. | |
22058 | ||
22059 | .*---------------------------------------------------------------------* | |
22060 | :h3.CER + DER encoding of SEQUENCE (EMPTY) | |
22061 | .*---------------------------------------------------------------------* | |
22062 | :xmp tab=0. | |
22063 | ||
22064 | <TC - CER + DER encoding of SEQUENCE (EMPTY)> | |
22065 | ||
22066 | <STATIC:ASN> | |
22067 | ||
22068 | TempA | |
22069 | ||
22070 | DEFINITIONS ::= | |
22071 | BEGIN | |
22072 | ||
22073 | BERPDU ::= SEQUENCE | |
22074 | { | |
22075 | b BOOLEAN OPTIONAL, | |
22076 | c INTEGER OPTIONAL | |
22077 | } | |
22078 | ||
22079 | ||
22080 | END | |
22081 | ||
22082 | <STATIC> | |
22083 | ||
22084 | import from TempA all; | |
22085 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22086 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22087 | ||
22088 | const BERPDU myValue := {b := omit, | |
22089 | c := omit } | |
22090 | ||
22091 | <TTCN_TC:EXEC> | |
22092 | ||
22093 | ||
22094 | ||
22095 | ||
22096 | if ((enc_DER_PDU(myValue) == '3000'O)and(enc_CER_PDU(myValue) == '30800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22097 | ||
22098 | <RESULT> | |
22099 | ||
22100 | Overall verdict: pass | |
22101 | ||
22102 | <END_TC> | |
22103 | ||
22104 | :exmp. | |
22105 | ||
22106 | .*---------------------------------------------------------------------* | |
22107 | :h3.CER + DER encoding of SEQUENCE (only one element is used) | |
22108 | .*---------------------------------------------------------------------* | |
22109 | :xmp tab=0. | |
22110 | ||
22111 | <TC - CER + DER encoding of SEQUENCE (only one element is used)> | |
22112 | ||
22113 | <STATIC:ASN> | |
22114 | ||
22115 | TempA | |
22116 | ||
22117 | DEFINITIONS ::= | |
22118 | BEGIN | |
22119 | ||
22120 | BERPDU ::= SEQUENCE | |
22121 | { | |
22122 | b BOOLEAN OPTIONAL, | |
22123 | c INTEGER OPTIONAL | |
22124 | } | |
22125 | ||
22126 | ||
22127 | END | |
22128 | ||
22129 | <STATIC> | |
22130 | ||
22131 | import from TempA all; | |
22132 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22133 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22134 | ||
22135 | const BERPDU myValue := {b := true, | |
22136 | c := omit } | |
22137 | ||
22138 | <TTCN_TC:EXEC> | |
22139 | ||
22140 | ||
22141 | ||
22142 | ||
22143 | if ((enc_DER_PDU(myValue) == '30030101FF'O)and(enc_CER_PDU(myValue) == '30800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22144 | ||
22145 | <RESULT> | |
22146 | ||
22147 | Overall verdict: pass | |
22148 | ||
22149 | <END_TC> | |
22150 | ||
22151 | :exmp. | |
22152 | ||
22153 | .*---------------------------------------------------------------------* | |
22154 | :h3.CER + DER encoding of SEQUENCE (both elements are used) | |
22155 | .*---------------------------------------------------------------------* | |
22156 | :xmp tab=0. | |
22157 | ||
22158 | <TC - CER + DER encoding of SEQUENCE (both elements are used)> | |
22159 | ||
22160 | <STATIC:ASN> | |
22161 | ||
22162 | TempA | |
22163 | ||
22164 | DEFINITIONS ::= | |
22165 | BEGIN | |
22166 | ||
22167 | BERPDU ::= SEQUENCE | |
22168 | { | |
22169 | b BOOLEAN OPTIONAL, | |
22170 | c INTEGER OPTIONAL | |
22171 | } | |
22172 | ||
22173 | ||
22174 | END | |
22175 | ||
22176 | <STATIC> | |
22177 | ||
22178 | import from TempA all; | |
22179 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22180 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22181 | ||
22182 | const BERPDU myValue := {b := true, | |
22183 | c := 5 } | |
22184 | ||
22185 | <TTCN_TC:EXEC> | |
22186 | ||
22187 | ||
22188 | ||
22189 | ||
22190 | if ((enc_DER_PDU(myValue) == '30060101FF020105'O)and(enc_CER_PDU(myValue) == '30800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22191 | ||
22192 | <RESULT> | |
22193 | ||
22194 | Overall verdict: pass | |
22195 | ||
22196 | <END_TC> | |
22197 | ||
22198 | :exmp. | |
22199 | ||
22200 | .*---------------------------------------------------------------------* | |
22201 | :h3.CER + DER encoding of SEQUENCE (one element is equal to Default) | |
22202 | .*---------------------------------------------------------------------* | |
22203 | :xmp tab=0. | |
22204 | ||
22205 | <TC - CER + DER encoding of SEQUENCE (one element is equal to Default)> | |
22206 | ||
22207 | <STATIC:ASN> | |
22208 | ||
22209 | TempA | |
22210 | ||
22211 | DEFINITIONS ::= | |
22212 | BEGIN | |
22213 | ||
22214 | BERPDU ::= SEQUENCE | |
22215 | { | |
22216 | b BOOLEAN DEFAULT TRUE, | |
22217 | c INTEGER OPTIONAL | |
22218 | } | |
22219 | ||
22220 | ||
22221 | END | |
22222 | ||
22223 | <STATIC> | |
22224 | ||
22225 | import from TempA all; | |
22226 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22227 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22228 | ||
22229 | const BERPDU myValue := {b := true, | |
22230 | c := 5 } | |
22231 | ||
22232 | <TTCN_TC:EXEC> | |
22233 | ||
22234 | ||
22235 | ||
22236 | ||
22237 | if ((enc_DER_PDU(myValue) == '3003020105'O)and(enc_CER_PDU(myValue) == '30800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22238 | ||
22239 | <RESULT> | |
22240 | ||
22241 | Overall verdict: pass | |
22242 | ||
22243 | <END_TC> | |
22244 | ||
22245 | :exmp. | |
22246 | ||
22247 | .*---------------------------------------------------------------------* | |
22248 | :h3.CER + DER encoding of SEQUENCE (one element is not equal to Default) | |
22249 | .*---------------------------------------------------------------------* | |
22250 | :xmp tab=0. | |
22251 | ||
22252 | <TC - CER + DER encoding of SEQUENCE (one element is not equal to Default)> | |
22253 | ||
22254 | <STATIC:ASN> | |
22255 | ||
22256 | TempA | |
22257 | ||
22258 | DEFINITIONS ::= | |
22259 | BEGIN | |
22260 | ||
22261 | BERPDU ::= SEQUENCE | |
22262 | { | |
22263 | b BOOLEAN DEFAULT TRUE, | |
22264 | c INTEGER OPTIONAL | |
22265 | } | |
22266 | ||
22267 | ||
22268 | END | |
22269 | ||
22270 | <STATIC> | |
22271 | ||
22272 | import from TempA all; | |
22273 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22274 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22275 | ||
22276 | const BERPDU myValue := {b := false, | |
22277 | c := 5 } | |
22278 | ||
22279 | <TTCN_TC:EXEC> | |
22280 | ||
22281 | ||
22282 | ||
22283 | ||
22284 | if ((enc_DER_PDU(myValue) == '3006010100020105'O)and(enc_CER_PDU(myValue) == '30800101000201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22285 | ||
22286 | <RESULT> | |
22287 | ||
22288 | Overall verdict: pass | |
22289 | ||
22290 | <END_TC> | |
22291 | ||
22292 | :exmp. | |
22293 | ||
22294 | .*---------------------------------------------------------------------* | |
22295 | :h3.CER + DER encoding of SEQUENCE (EMPTY), AUTOMATIC TAGGING | |
22296 | .*---------------------------------------------------------------------* | |
22297 | :xmp tab=0. | |
22298 | ||
22299 | <TC - CER + DER encoding of SEQUENCE (EMPTY), AUTOMATIC TAGGING> | |
22300 | ||
22301 | <STATIC:ASN> | |
22302 | ||
22303 | TempA | |
22304 | ||
22305 | DEFINITIONS | |
22306 | ||
22307 | AUTOMATIC TAGS | |
22308 | ||
22309 | ::= | |
22310 | ||
22311 | BEGIN | |
22312 | ||
22313 | BERPDU ::= SEQUENCE | |
22314 | { | |
22315 | b BOOLEAN OPTIONAL, | |
22316 | c INTEGER OPTIONAL | |
22317 | } | |
22318 | ||
22319 | ||
22320 | END | |
22321 | ||
22322 | <STATIC> | |
22323 | ||
22324 | import from TempA all; | |
22325 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22326 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22327 | ||
22328 | const BERPDU myValue := {b := omit, | |
22329 | c := omit } | |
22330 | ||
22331 | <TTCN_TC:EXEC> | |
22332 | ||
22333 | ||
22334 | ||
22335 | ||
22336 | if ((enc_DER_PDU(myValue) == '3000'O)and(enc_CER_PDU(myValue) == '30800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22337 | ||
22338 | <RESULT> | |
22339 | ||
22340 | Overall verdict: pass | |
22341 | ||
22342 | <END_TC> | |
22343 | ||
22344 | :exmp. | |
22345 | ||
22346 | .*---------------------------------------------------------------------* | |
22347 | :h3.CER + DER encoding of SEQUENCE (only one element is used) AUTOMATIC TAGGING | |
22348 | .*---------------------------------------------------------------------* | |
22349 | :xmp tab=0. | |
22350 | ||
22351 | <TC - CER + DER encoding of SEQUENCE (only one element is used) AUTOMATIC TAGGING> | |
22352 | ||
22353 | <STATIC:ASN> | |
22354 | ||
22355 | TempA | |
22356 | ||
22357 | DEFINITIONS | |
22358 | ||
22359 | AUTOMATIC TAGS | |
22360 | ||
22361 | ::= | |
22362 | ||
22363 | BEGIN | |
22364 | ||
22365 | BERPDU ::= SEQUENCE | |
22366 | { | |
22367 | b BOOLEAN OPTIONAL, | |
22368 | c INTEGER OPTIONAL | |
22369 | } | |
22370 | ||
22371 | ||
22372 | END | |
22373 | ||
22374 | <STATIC> | |
22375 | ||
22376 | import from TempA all; | |
22377 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22378 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22379 | ||
22380 | const BERPDU myValue := {b := true, | |
22381 | c := omit } | |
22382 | ||
22383 | <TTCN_TC:EXEC> | |
22384 | ||
22385 | ||
22386 | ||
22387 | ||
22388 | if ((enc_DER_PDU(myValue) == '30038001FF'O)and(enc_CER_PDU(myValue) == '30808001FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22389 | ||
22390 | <RESULT> | |
22391 | ||
22392 | Overall verdict: pass | |
22393 | ||
22394 | <END_TC> | |
22395 | ||
22396 | :exmp. | |
22397 | ||
22398 | .*---------------------------------------------------------------------* | |
22399 | :h3.CER + DER encoding of SEQUENCE (both elements are used) AUTOMATIC TAGGING | |
22400 | .*---------------------------------------------------------------------* | |
22401 | :xmp tab=0. | |
22402 | ||
22403 | <TC - CER + DER encoding of SEQUENCE (both elements are used) AUTOMATIC TAGGING> | |
22404 | ||
22405 | <STATIC:ASN> | |
22406 | ||
22407 | TempA | |
22408 | ||
22409 | DEFINITIONS | |
22410 | ||
22411 | AUTOMATIC TAGS | |
22412 | ||
22413 | ::= | |
22414 | ||
22415 | BEGIN | |
22416 | ||
22417 | BERPDU ::= SEQUENCE | |
22418 | { | |
22419 | b BOOLEAN OPTIONAL, | |
22420 | c INTEGER OPTIONAL | |
22421 | } | |
22422 | ||
22423 | ||
22424 | END | |
22425 | ||
22426 | <STATIC> | |
22427 | ||
22428 | import from TempA all; | |
22429 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22430 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22431 | ||
22432 | const BERPDU myValue := {b := true, | |
22433 | c := 5 } | |
22434 | ||
22435 | <TTCN_TC:EXEC> | |
22436 | ||
22437 | ||
22438 | ||
22439 | ||
22440 | if ((enc_DER_PDU(myValue) == '30068001FF810105'O)and(enc_CER_PDU(myValue) == '30808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22441 | ||
22442 | <RESULT> | |
22443 | ||
22444 | Overall verdict: pass | |
22445 | ||
22446 | <END_TC> | |
22447 | ||
22448 | :exmp. | |
22449 | ||
22450 | .*---------------------------------------------------------------------* | |
22451 | :h3.CER + DER encoding of SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING | |
22452 | .*---------------------------------------------------------------------* | |
22453 | :xmp tab=0. | |
22454 | ||
22455 | <TC - CER + DER encoding of SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING> | |
22456 | ||
22457 | <STATIC:ASN> | |
22458 | ||
22459 | TempA | |
22460 | ||
22461 | DEFINITIONS | |
22462 | ||
22463 | AUTOMATIC TAGS | |
22464 | ||
22465 | ::= | |
22466 | ||
22467 | BEGIN | |
22468 | ||
22469 | BERPDU ::= SEQUENCE | |
22470 | { | |
22471 | b BOOLEAN DEFAULT TRUE, | |
22472 | c INTEGER OPTIONAL | |
22473 | } | |
22474 | ||
22475 | ||
22476 | END | |
22477 | ||
22478 | <STATIC> | |
22479 | ||
22480 | import from TempA all; | |
22481 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22482 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22483 | ||
22484 | const BERPDU myValue := {b := true, | |
22485 | c := 5 } | |
22486 | ||
22487 | <TTCN_TC:EXEC> | |
22488 | ||
22489 | ||
22490 | ||
22491 | ||
22492 | if ((enc_DER_PDU(myValue) == '3003810105'O)and(enc_CER_PDU(myValue) == '30808101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22493 | ||
22494 | <RESULT> | |
22495 | ||
22496 | Overall verdict: pass | |
22497 | ||
22498 | <END_TC> | |
22499 | ||
22500 | :exmp. | |
22501 | ||
22502 | .*---------------------------------------------------------------------* | |
22503 | :h3.CER + DER encoding of SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING | |
22504 | .*---------------------------------------------------------------------* | |
22505 | :xmp tab=0. | |
22506 | ||
22507 | <TC - CER + DER encoding of SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING> | |
22508 | ||
22509 | <STATIC:ASN> | |
22510 | ||
22511 | TempA | |
22512 | ||
22513 | DEFINITIONS | |
22514 | ||
22515 | AUTOMATIC TAGS | |
22516 | ||
22517 | ::= | |
22518 | ||
22519 | BEGIN | |
22520 | ||
22521 | BERPDU ::= SEQUENCE | |
22522 | { | |
22523 | b BOOLEAN DEFAULT TRUE, | |
22524 | c INTEGER OPTIONAL | |
22525 | } | |
22526 | ||
22527 | ||
22528 | END | |
22529 | ||
22530 | <STATIC> | |
22531 | ||
22532 | import from TempA all; | |
22533 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22534 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22535 | ||
22536 | const BERPDU myValue := {b := false, | |
22537 | c := 5 } | |
22538 | ||
22539 | <TTCN_TC:EXEC> | |
22540 | ||
22541 | ||
22542 | ||
22543 | ||
22544 | if ((enc_DER_PDU(myValue) == '3006800100810105'O)and(enc_CER_PDU(myValue) == '30808001008101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22545 | ||
22546 | <RESULT> | |
22547 | ||
22548 | Overall verdict: pass | |
22549 | ||
22550 | <END_TC> | |
22551 | ||
22552 | :exmp. | |
22553 | ||
22554 | .*---------------------------------------------------------------------* | |
22555 | :h3.CER + DER encoding of SEQUENCE (both elements are used) IMPLICIT TAGS for elements | |
22556 | .*---------------------------------------------------------------------* | |
22557 | :xmp tab=0. | |
22558 | ||
22559 | <TC - CER + DER encoding of SEQUENCE (both elements are used) IMPLICIT TAGS for elements> | |
22560 | ||
22561 | <STATIC:ASN> | |
22562 | ||
22563 | TempA | |
22564 | ||
22565 | DEFINITIONS ::= | |
22566 | BEGIN | |
22567 | ||
22568 | BERPDU ::= SEQUENCE | |
22569 | { | |
22570 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
22571 | c [31] IMPLICIT INTEGER OPTIONAL | |
22572 | } | |
22573 | ||
22574 | ||
22575 | END | |
22576 | ||
22577 | <STATIC> | |
22578 | ||
22579 | import from TempA all; | |
22580 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22581 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22582 | ||
22583 | const BERPDU myValue := {b := true, | |
22584 | c := 5 } | |
22585 | ||
22586 | <TTCN_TC:EXEC> | |
22587 | ||
22588 | ||
22589 | ||
22590 | ||
22591 | if ((enc_DER_PDU(myValue) == '30079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '30809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22592 | ||
22593 | <RESULT> | |
22594 | ||
22595 | Overall verdict: pass | |
22596 | ||
22597 | <END_TC> | |
22598 | ||
22599 | :exmp. | |
22600 | ||
22601 | .*---------------------------------------------------------------------* | |
22602 | :h3.CER + DER encoding of SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
22603 | .*---------------------------------------------------------------------* | |
22604 | :xmp tab=0. | |
22605 | ||
22606 | <TC - CER + DER encoding of SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
22607 | ||
22608 | <STATIC:ASN> | |
22609 | ||
22610 | TempA | |
22611 | ||
22612 | DEFINITIONS | |
22613 | ||
22614 | EXPLICIT TAGS | |
22615 | ||
22616 | ::= | |
22617 | ||
22618 | BEGIN | |
22619 | ||
22620 | BERPDU ::= SEQUENCE | |
22621 | { | |
22622 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
22623 | c [31] IMPLICIT INTEGER OPTIONAL | |
22624 | } | |
22625 | ||
22626 | ||
22627 | END | |
22628 | ||
22629 | <STATIC> | |
22630 | ||
22631 | import from TempA all; | |
22632 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22633 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22634 | ||
22635 | const BERPDU myValue := {b := true, | |
22636 | c := 5 } | |
22637 | ||
22638 | <TTCN_TC:EXEC> | |
22639 | ||
22640 | ||
22641 | ||
22642 | ||
22643 | if ((enc_DER_PDU(myValue) == '30079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '30809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22644 | ||
22645 | <RESULT> | |
22646 | ||
22647 | Overall verdict: pass | |
22648 | ||
22649 | <END_TC> | |
22650 | ||
22651 | :exmp. | |
22652 | ||
22653 | .*---------------------------------------------------------------------* | |
22654 | :h3.CER + DER encoding of SEQUENCE (both elements are used) EXPLICIT TAGS for elements | |
22655 | .*---------------------------------------------------------------------* | |
22656 | :xmp tab=0. | |
22657 | ||
22658 | <TC - CER + DER encoding of SEQUENCE (both elements are used) EXPLICIT TAGS for elements> | |
22659 | ||
22660 | <STATIC:ASN> | |
22661 | ||
22662 | TempA | |
22663 | ||
22664 | DEFINITIONS ::= | |
22665 | BEGIN | |
22666 | ||
22667 | BERPDU ::= SEQUENCE | |
22668 | { | |
22669 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
22670 | c [31] EXPLICIT INTEGER OPTIONAL | |
22671 | } | |
22672 | ||
22673 | ||
22674 | END | |
22675 | ||
22676 | <STATIC> | |
22677 | ||
22678 | import from TempA all; | |
22679 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22680 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22681 | ||
22682 | const BERPDU myValue := {b := true, | |
22683 | c := 5 } | |
22684 | ||
22685 | <TTCN_TC:EXEC> | |
22686 | ||
22687 | ||
22688 | ||
22689 | ||
22690 | if ((enc_DER_PDU(myValue) == '300BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3080BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22691 | ||
22692 | <RESULT> | |
22693 | ||
22694 | Overall verdict: pass | |
22695 | ||
22696 | <END_TC> | |
22697 | ||
22698 | :exmp. | |
22699 | ||
22700 | .*---------------------------------------------------------------------* | |
22701 | :h3.CER + DER encoding of SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
22702 | .*---------------------------------------------------------------------* | |
22703 | :xmp tab=0. | |
22704 | ||
22705 | <TC - CER + DER encoding of SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
22706 | ||
22707 | <STATIC:ASN> | |
22708 | ||
22709 | TempA | |
22710 | ||
22711 | DEFINITIONS | |
22712 | ||
22713 | IMPLICIT TAGS | |
22714 | ||
22715 | ::= | |
22716 | ||
22717 | BEGIN | |
22718 | ||
22719 | BERPDU ::= SEQUENCE | |
22720 | { | |
22721 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
22722 | c [31] EXPLICIT INTEGER OPTIONAL | |
22723 | } | |
22724 | ||
22725 | ||
22726 | END | |
22727 | ||
22728 | <STATIC> | |
22729 | ||
22730 | import from TempA all; | |
22731 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22732 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22733 | ||
22734 | const BERPDU myValue := {b := true, | |
22735 | c := 5 } | |
22736 | ||
22737 | <TTCN_TC:EXEC> | |
22738 | ||
22739 | ||
22740 | ||
22741 | ||
22742 | if ((enc_DER_PDU(myValue) == '300BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3080BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22743 | ||
22744 | <RESULT> | |
22745 | ||
22746 | Overall verdict: pass | |
22747 | ||
22748 | <END_TC> | |
22749 | ||
22750 | :exmp. | |
22751 | ||
22752 | .*---------------------------------------------------------------------* | |
22753 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are used) | |
22754 | .*---------------------------------------------------------------------* | |
22755 | :xmp tab=0. | |
22756 | ||
22757 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are used)> | |
22758 | ||
22759 | <STATIC:ASN> | |
22760 | ||
22761 | TempA | |
22762 | ||
22763 | DEFINITIONS ::= | |
22764 | BEGIN | |
22765 | ||
22766 | BERPDU ::= [0] SEQUENCE | |
22767 | { | |
22768 | b BOOLEAN OPTIONAL, | |
22769 | c INTEGER OPTIONAL | |
22770 | } | |
22771 | ||
22772 | ||
22773 | END | |
22774 | ||
22775 | <STATIC> | |
22776 | ||
22777 | import from TempA all; | |
22778 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22779 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22780 | ||
22781 | const BERPDU myValue := {b := true, | |
22782 | c := 5 } | |
22783 | ||
22784 | <TTCN_TC:EXEC> | |
22785 | ||
22786 | ||
22787 | ||
22788 | ||
22789 | if ((enc_DER_PDU(myValue) == 'A00830060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08030800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22790 | ||
22791 | <RESULT> | |
22792 | ||
22793 | Overall verdict: pass | |
22794 | ||
22795 | <END_TC> | |
22796 | ||
22797 | :exmp. | |
22798 | ||
22799 | .*---------------------------------------------------------------------* | |
22800 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are used), AUTOMATIC TAGGING ENVIRONMENT | |
22801 | .*---------------------------------------------------------------------* | |
22802 | :xmp tab=0. | |
22803 | ||
22804 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are used), AUTOMATIC TAGGING ENVIRONMENT> | |
22805 | ||
22806 | <STATIC:ASN> | |
22807 | ||
22808 | TempA | |
22809 | ||
22810 | DEFINITIONS | |
22811 | ||
22812 | AUTOMATIC TAGS | |
22813 | ||
22814 | ::= | |
22815 | ||
22816 | BEGIN | |
22817 | ||
22818 | BERPDU ::= [0] SEQUENCE | |
22819 | { | |
22820 | b BOOLEAN OPTIONAL, | |
22821 | c INTEGER OPTIONAL | |
22822 | } | |
22823 | ||
22824 | ||
22825 | END | |
22826 | ||
22827 | <STATIC> | |
22828 | ||
22829 | import from TempA all; | |
22830 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22831 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22832 | ||
22833 | const BERPDU myValue := {b := true, | |
22834 | c := 5 } | |
22835 | ||
22836 | <TTCN_TC:EXEC> | |
22837 | ||
22838 | ||
22839 | ||
22840 | ||
22841 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22842 | ||
22843 | <RESULT> | |
22844 | ||
22845 | Overall verdict: pass | |
22846 | ||
22847 | <END_TC> | |
22848 | ||
22849 | :exmp. | |
22850 | ||
22851 | .*---------------------------------------------------------------------* | |
22852 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
22853 | .*---------------------------------------------------------------------* | |
22854 | :xmp tab=0. | |
22855 | ||
22856 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
22857 | ||
22858 | <STATIC:ASN> | |
22859 | ||
22860 | TempA | |
22861 | ||
22862 | DEFINITIONS | |
22863 | ||
22864 | IMPLICIT TAGS | |
22865 | ||
22866 | ::= | |
22867 | ||
22868 | BEGIN | |
22869 | ||
22870 | BERPDU ::= [0] SEQUENCE | |
22871 | { | |
22872 | b BOOLEAN OPTIONAL, | |
22873 | c INTEGER OPTIONAL | |
22874 | } | |
22875 | ||
22876 | ||
22877 | END | |
22878 | ||
22879 | <STATIC> | |
22880 | ||
22881 | import from TempA all; | |
22882 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22883 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22884 | ||
22885 | const BERPDU myValue := {b := true, | |
22886 | c := 5 } | |
22887 | ||
22888 | <TTCN_TC:EXEC> | |
22889 | ||
22890 | ||
22891 | ||
22892 | ||
22893 | if ((enc_DER_PDU(myValue) == 'A0060101FF020105'O)and(enc_CER_PDU(myValue) == 'A0800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22894 | ||
22895 | <RESULT> | |
22896 | ||
22897 | Overall verdict: pass | |
22898 | ||
22899 | <END_TC> | |
22900 | ||
22901 | :exmp. | |
22902 | ||
22903 | .*---------------------------------------------------------------------* | |
22904 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
22905 | .*---------------------------------------------------------------------* | |
22906 | :xmp tab=0. | |
22907 | ||
22908 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
22909 | ||
22910 | <STATIC:ASN> | |
22911 | ||
22912 | TempA | |
22913 | ||
22914 | DEFINITIONS | |
22915 | ||
22916 | EXPLICIT TAGS | |
22917 | ||
22918 | ::= | |
22919 | ||
22920 | BEGIN | |
22921 | ||
22922 | BERPDU ::= [0] SEQUENCE | |
22923 | { | |
22924 | b BOOLEAN OPTIONAL, | |
22925 | c INTEGER OPTIONAL | |
22926 | } | |
22927 | ||
22928 | ||
22929 | END | |
22930 | ||
22931 | <STATIC> | |
22932 | ||
22933 | import from TempA all; | |
22934 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22935 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22936 | ||
22937 | const BERPDU myValue := {b := true, | |
22938 | c := 5 } | |
22939 | ||
22940 | <TTCN_TC:EXEC> | |
22941 | ||
22942 | ||
22943 | ||
22944 | ||
22945 | if ((enc_DER_PDU(myValue) == 'A00830060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08030800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22946 | ||
22947 | <RESULT> | |
22948 | ||
22949 | Overall verdict: pass | |
22950 | ||
22951 | <END_TC> | |
22952 | ||
22953 | :exmp. | |
22954 | ||
22955 | .*---------------------------------------------------------------------* | |
22956 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used) | |
22957 | .*---------------------------------------------------------------------* | |
22958 | :xmp tab=0. | |
22959 | ||
22960 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used)> | |
22961 | ||
22962 | <STATIC:ASN> | |
22963 | ||
22964 | TempA | |
22965 | ||
22966 | DEFINITIONS ::= | |
22967 | BEGIN | |
22968 | ||
22969 | BERPDU ::= [0] SEQUENCE | |
22970 | { | |
22971 | b [0] BOOLEAN OPTIONAL, | |
22972 | c [1] INTEGER OPTIONAL | |
22973 | } | |
22974 | ||
22975 | ||
22976 | END | |
22977 | ||
22978 | <STATIC> | |
22979 | ||
22980 | import from TempA all; | |
22981 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
22982 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
22983 | ||
22984 | const BERPDU myValue := {b := true, | |
22985 | c := 5 } | |
22986 | ||
22987 | <TTCN_TC:EXEC> | |
22988 | ||
22989 | ||
22990 | ||
22991 | ||
22992 | if ((enc_DER_PDU(myValue) == 'A00C300AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803080A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
22993 | ||
22994 | <RESULT> | |
22995 | ||
22996 | Overall verdict: pass | |
22997 | ||
22998 | <END_TC> | |
22999 | ||
23000 | :exmp. | |
23001 | ||
23002 | .*---------------------------------------------------------------------* | |
23003 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
23004 | .*---------------------------------------------------------------------* | |
23005 | :xmp tab=0. | |
23006 | ||
23007 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
23008 | ||
23009 | <STATIC:ASN> | |
23010 | ||
23011 | TempA | |
23012 | ||
23013 | DEFINITIONS | |
23014 | ||
23015 | EXPLICIT TAGS | |
23016 | ||
23017 | ::= | |
23018 | ||
23019 | BEGIN | |
23020 | ||
23021 | BERPDU ::= [0] SEQUENCE | |
23022 | { | |
23023 | b [0] BOOLEAN OPTIONAL, | |
23024 | c [1] INTEGER OPTIONAL | |
23025 | } | |
23026 | ||
23027 | ||
23028 | END | |
23029 | ||
23030 | <STATIC> | |
23031 | ||
23032 | import from TempA all; | |
23033 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23034 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23035 | ||
23036 | const BERPDU myValue := {b := true, | |
23037 | c := 5 } | |
23038 | ||
23039 | <TTCN_TC:EXEC> | |
23040 | ||
23041 | ||
23042 | ||
23043 | ||
23044 | if ((enc_DER_PDU(myValue) == 'A00C300AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803080A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23045 | ||
23046 | <RESULT> | |
23047 | ||
23048 | Overall verdict: pass | |
23049 | ||
23050 | <END_TC> | |
23051 | ||
23052 | :exmp. | |
23053 | ||
23054 | .*---------------------------------------------------------------------* | |
23055 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
23056 | .*---------------------------------------------------------------------* | |
23057 | :xmp tab=0. | |
23058 | ||
23059 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
23060 | ||
23061 | <STATIC:ASN> | |
23062 | ||
23063 | TempA | |
23064 | ||
23065 | DEFINITIONS | |
23066 | ||
23067 | IMPLICIT TAGS | |
23068 | ||
23069 | ::= | |
23070 | ||
23071 | BEGIN | |
23072 | ||
23073 | BERPDU ::= [0] SEQUENCE | |
23074 | { | |
23075 | b [0] BOOLEAN OPTIONAL, | |
23076 | c [1] INTEGER OPTIONAL | |
23077 | } | |
23078 | ||
23079 | ||
23080 | END | |
23081 | ||
23082 | <STATIC> | |
23083 | ||
23084 | import from TempA all; | |
23085 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23086 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23087 | ||
23088 | const BERPDU myValue := {b := true, | |
23089 | c := 5 } | |
23090 | ||
23091 | <TTCN_TC:EXEC> | |
23092 | ||
23093 | ||
23094 | ||
23095 | ||
23096 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23097 | ||
23098 | <RESULT> | |
23099 | ||
23100 | Overall verdict: pass | |
23101 | ||
23102 | <END_TC> | |
23103 | ||
23104 | :exmp. | |
23105 | ||
23106 | .*---------------------------------------------------------------------* | |
23107 | :h3.CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
23108 | .*---------------------------------------------------------------------* | |
23109 | :xmp tab=0. | |
23110 | ||
23111 | <TC - CER + DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
23112 | ||
23113 | <STATIC:ASN> | |
23114 | ||
23115 | TempA | |
23116 | ||
23117 | DEFINITIONS | |
23118 | ||
23119 | AUTOMATIC TAGS | |
23120 | ||
23121 | ::= | |
23122 | ||
23123 | BEGIN | |
23124 | ||
23125 | BERPDU ::= [0] SEQUENCE | |
23126 | { | |
23127 | b [0] BOOLEAN OPTIONAL, | |
23128 | c [1] INTEGER OPTIONAL | |
23129 | } | |
23130 | ||
23131 | ||
23132 | END | |
23133 | ||
23134 | <STATIC> | |
23135 | ||
23136 | import from TempA all; | |
23137 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23138 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23139 | ||
23140 | const BERPDU myValue := {b := true, | |
23141 | c := 5 } | |
23142 | ||
23143 | <TTCN_TC:EXEC> | |
23144 | ||
23145 | ||
23146 | ||
23147 | ||
23148 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23149 | ||
23150 | <RESULT> | |
23151 | ||
23152 | Overall verdict: pass | |
23153 | ||
23154 | <END_TC> | |
23155 | ||
23156 | :exmp. | |
23157 | ||
23158 | .*---------------------------------------------------------------------* | |
23159 | :h3.CER + DER encoding of SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
23160 | .*---------------------------------------------------------------------* | |
23161 | :xmp tab=0. | |
23162 | ||
23163 | <TC - CER + DER encoding of SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
23164 | ||
23165 | <STATIC:ASN> | |
23166 | ||
23167 | TempA | |
23168 | ||
23169 | DEFINITIONS | |
23170 | ||
23171 | AUTOMATIC TAGS | |
23172 | ||
23173 | ::= | |
23174 | ||
23175 | BEGIN | |
23176 | ||
23177 | BERPDU ::= SEQUENCE | |
23178 | { | |
23179 | b [5] BOOLEAN OPTIONAL, | |
23180 | c INTEGER OPTIONAL | |
23181 | } | |
23182 | ||
23183 | ||
23184 | END | |
23185 | ||
23186 | <STATIC> | |
23187 | ||
23188 | import from TempA all; | |
23189 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23190 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23191 | ||
23192 | const BERPDU myValue := {b := true, | |
23193 | c := 5 } | |
23194 | ||
23195 | <TTCN_TC:EXEC> | |
23196 | ||
23197 | ||
23198 | ||
23199 | ||
23200 | if ((enc_DER_PDU(myValue) == '30068501FF020105'O)and(enc_CER_PDU(myValue) == '30808501FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23201 | ||
23202 | <RESULT> | |
23203 | ||
23204 | Overall verdict: pass | |
23205 | ||
23206 | <END_TC> | |
23207 | ||
23208 | :exmp. | |
23209 | ||
23210 | .*---------------------------------------------------------------------* | |
23211 | :h3.CER + DER encoding of SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
23212 | .*---------------------------------------------------------------------* | |
23213 | :xmp tab=0. | |
23214 | ||
23215 | <TC - CER + DER encoding of SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
23216 | ||
23217 | <STATIC:ASN> | |
23218 | ||
23219 | TempA | |
23220 | ||
23221 | DEFINITIONS | |
23222 | ||
23223 | AUTOMATIC TAGS | |
23224 | ||
23225 | ||
23226 | ::= | |
23227 | ||
23228 | BEGIN | |
23229 | ||
23230 | MySeq ::= SEQUENCE | |
23231 | {x INTEGER OPTIONAL, | |
23232 | y OCTET STRING} | |
23233 | ||
23234 | ||
23235 | ||
23236 | BERPDU ::= SEQUENCE | |
23237 | { | |
23238 | b BOOLEAN OPTIONAL, | |
23239 | c INTEGER OPTIONAL, | |
23240 | COMPONENTS OF MySeq | |
23241 | } | |
23242 | ||
23243 | ||
23244 | END | |
23245 | ||
23246 | <STATIC> | |
23247 | ||
23248 | import from TempA all; | |
23249 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23250 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23251 | ||
23252 | const BERPDU myValue := {b := true, | |
23253 | c := 5 , | |
23254 | x := 6, | |
23255 | y := 'FF'O } | |
23256 | ||
23257 | <TTCN_TC:EXEC> | |
23258 | ||
23259 | ||
23260 | ||
23261 | ||
23262 | if ((enc_DER_PDU(myValue) == '300C8001FF8101058201068301FF'O)and(enc_CER_PDU(myValue) == '30808001FF8101058201068301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23263 | ||
23264 | <RESULT> | |
23265 | ||
23266 | Overall verdict: pass | |
23267 | ||
23268 | <END_TC> | |
23269 | ||
23270 | :exmp. | |
23271 | ||
23272 | .*---------------------------------------------------------------------* | |
23273 | :h3.CER + DER encoding of SEQUENCE , one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
23274 | .*---------------------------------------------------------------------* | |
23275 | :xmp tab=0. | |
23276 | ||
23277 | <TC - CER + DER encoding of SEQUENCE , one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
23278 | ||
23279 | <STATIC:ASN> | |
23280 | ||
23281 | TempA | |
23282 | ||
23283 | DEFINITIONS | |
23284 | ||
23285 | AUTOMATIC TAGS | |
23286 | ||
23287 | ::= | |
23288 | ||
23289 | BEGIN | |
23290 | ||
23291 | MySeq ::= SEQUENCE | |
23292 | {x [0] INTEGER OPTIONAL, | |
23293 | y OCTET STRING} | |
23294 | ||
23295 | ||
23296 | ||
23297 | BERPDU ::= SEQUENCE | |
23298 | { | |
23299 | b BOOLEAN OPTIONAL, | |
23300 | c INTEGER OPTIONAL, | |
23301 | COMPONENTS OF MySeq | |
23302 | } | |
23303 | ||
23304 | ||
23305 | END | |
23306 | ||
23307 | <STATIC> | |
23308 | ||
23309 | import from TempA all; | |
23310 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23311 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23312 | ||
23313 | const BERPDU myValue := {b := true, | |
23314 | c := 5 , | |
23315 | x := 6, | |
23316 | y := 'FF'O } | |
23317 | ||
23318 | <TTCN_TC:EXEC> | |
23319 | ||
23320 | ||
23321 | ||
23322 | ||
23323 | if ((enc_DER_PDU(myValue) == '300C8001FF8101058201068301FF'O)and(enc_CER_PDU(myValue) == '30808001FF8101058201068301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23324 | ||
23325 | <RESULT> | |
23326 | ||
23327 | Overall verdict: pass | |
23328 | ||
23329 | <END_TC> | |
23330 | ||
23331 | :exmp. | |
23332 | ||
23333 | .*---------------------------------------------------------------------* | |
23334 | :h3.CER + DER encoding of SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
23335 | .*---------------------------------------------------------------------* | |
23336 | :xmp tab=0. | |
23337 | ||
23338 | <TC - CER + DER encoding of SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
23339 | ||
23340 | <STATIC:ASN> | |
23341 | ||
23342 | TempA | |
23343 | ||
23344 | DEFINITIONS | |
23345 | ||
23346 | AUTOMATIC TAGS | |
23347 | ||
23348 | ::= | |
23349 | ||
23350 | BEGIN | |
23351 | ||
23352 | ||
23353 | MySeq ::= SEQUENCE | |
23354 | {x INTEGER OPTIONAL, | |
23355 | y OCTET STRING} | |
23356 | ||
23357 | ||
23358 | ||
23359 | BERPDU ::= SEQUENCE | |
23360 | { | |
23361 | b [0] BOOLEAN OPTIONAL, | |
23362 | c BIT STRING OPTIONAL, | |
23363 | COMPONENTS OF MySeq | |
23364 | } | |
23365 | ||
23366 | ||
23367 | END | |
23368 | ||
23369 | <STATIC> | |
23370 | ||
23371 | import from TempA all; | |
23372 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23373 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23374 | ||
23375 | const BERPDU myValue := {b := true, | |
23376 | c := '1'B , | |
23377 | x := 6, | |
23378 | y := 'FF'O } | |
23379 | ||
23380 | <TTCN_TC:EXEC> | |
23381 | ||
23382 | ||
23383 | ||
23384 | ||
23385 | if ((enc_DER_PDU(myValue) == '300D8001FF030207800201060401FF'O)and(enc_CER_PDU(myValue) == '30808001FF030207800201060401FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23386 | ||
23387 | <RESULT> | |
23388 | ||
23389 | Overall verdict: pass | |
23390 | ||
23391 | <END_TC> | |
23392 | ||
23393 | :exmp. | |
23394 | ||
23395 | .*---------------------------------------------------------------------* | |
23396 | :h3.CER + DER encoding of SEQUENCE , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
23397 | .*---------------------------------------------------------------------* | |
23398 | :xmp tab=0. | |
23399 | ||
23400 | <TC - CER + DER encoding of SEQUENCE , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
23401 | ||
23402 | <STATIC:ASN> | |
23403 | ||
23404 | TempA | |
23405 | ||
23406 | DEFINITIONS | |
23407 | ||
23408 | AUTOMATIC TAGS | |
23409 | ||
23410 | ::= | |
23411 | ||
23412 | BEGIN | |
23413 | ||
23414 | MySeq ::= SEQUENCE | |
23415 | {x [1] INTEGER OPTIONAL, | |
23416 | y OCTET STRING} | |
23417 | ||
23418 | ||
23419 | ||
23420 | BERPDU ::= SEQUENCE | |
23421 | { | |
23422 | b [0] BOOLEAN OPTIONAL, | |
23423 | c BIT STRING OPTIONAL, | |
23424 | COMPONENTS OF MySeq | |
23425 | } | |
23426 | ||
23427 | ||
23428 | ||
23429 | END | |
23430 | ||
23431 | <STATIC> | |
23432 | ||
23433 | import from TempA all; | |
23434 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23435 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23436 | ||
23437 | const BERPDU myValue := {b := true, | |
23438 | c := '1'B , | |
23439 | x := 6, | |
23440 | y := 'FF'O } | |
23441 | ||
23442 | <TTCN_TC:EXEC> | |
23443 | ||
23444 | ||
23445 | ||
23446 | ||
23447 | if ((enc_DER_PDU(myValue) == '300D8001FF030207808101060401FF'O)and(enc_CER_PDU(myValue) == '30808001FF030207808101060401FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23448 | ||
23449 | <RESULT> | |
23450 | ||
23451 | Overall verdict: pass | |
23452 | ||
23453 | <END_TC> | |
23454 | ||
23455 | :exmp. | |
23456 | ||
23457 | .*---------------------------------------------------------------------* | |
23458 | :h3.CER + DER encoding of SEQUENCE with CHOICE element, AUTOMATIC TAGS | |
23459 | .*---------------------------------------------------------------------* | |
23460 | :xmp tab=0. | |
23461 | ||
23462 | <TC - CER + DER encoding of SEQUENCE with CHOICE element, AUTOMATIC TAGS> | |
23463 | ||
23464 | <STATIC:ASN> | |
23465 | ||
23466 | TempA | |
23467 | ||
23468 | DEFINITIONS | |
23469 | ||
23470 | AUTOMATIC TAGS | |
23471 | ||
23472 | ::= | |
23473 | ||
23474 | BEGIN | |
23475 | ||
23476 | ||
23477 | ||
23478 | ||
23479 | BERPDU ::= SEQUENCE | |
23480 | { | |
23481 | b CHOICE { | |
23482 | x BOOLEAN, | |
23483 | y OCTET STRING | |
23484 | } | |
23485 | OPTIONAL, | |
23486 | ||
23487 | ||
23488 | c INTEGER OPTIONAL | |
23489 | ||
23490 | } | |
23491 | ||
23492 | ||
23493 | ||
23494 | END | |
23495 | ||
23496 | <STATIC> | |
23497 | ||
23498 | import from TempA all; | |
23499 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23500 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23501 | ||
23502 | const BERPDU myValue := {b := {x := true}, | |
23503 | c := 4 | |
23504 | } | |
23505 | <TTCN_TC:EXEC> | |
23506 | ||
23507 | ||
23508 | ||
23509 | ||
23510 | if ((enc_DER_PDU(myValue) == '3008A0038001FF810104'O)and(enc_CER_PDU(myValue) == '3080A0808001FF00008101040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23511 | ||
23512 | <RESULT> | |
23513 | ||
23514 | Overall verdict: pass | |
23515 | ||
23516 | <END_TC> | |
23517 | ||
23518 | :exmp. | |
23519 | ||
23520 | .*---------------------------------------------------------------------* | |
23521 | :h3.CER + DER encoding of SEQUENCE with CHOICE element, | |
23522 | .*---------------------------------------------------------------------* | |
23523 | :xmp tab=0. | |
23524 | ||
23525 | <TC - CER + DER encoding of SEQUENCE with CHOICE element, > | |
23526 | ||
23527 | <STATIC:ASN> | |
23528 | ||
23529 | TempA | |
23530 | ||
23531 | DEFINITIONS | |
23532 | ||
23533 | ||
23534 | ||
23535 | ::= | |
23536 | ||
23537 | BEGIN | |
23538 | ||
23539 | ||
23540 | ||
23541 | ||
23542 | BERPDU ::= SEQUENCE | |
23543 | { | |
23544 | b CHOICE { | |
23545 | x BOOLEAN, | |
23546 | y OCTET STRING | |
23547 | } | |
23548 | OPTIONAL, | |
23549 | ||
23550 | ||
23551 | c INTEGER OPTIONAL | |
23552 | ||
23553 | } | |
23554 | ||
23555 | ||
23556 | ||
23557 | END | |
23558 | ||
23559 | <STATIC> | |
23560 | ||
23561 | import from TempA all; | |
23562 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23563 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23564 | ||
23565 | const BERPDU myValue := {b := {x := true}, | |
23566 | c := 4 | |
23567 | } | |
23568 | <TTCN_TC:EXEC> | |
23569 | ||
23570 | ||
23571 | ||
23572 | ||
23573 | if ((enc_DER_PDU(myValue) == '30060101FF020104'O)and(enc_CER_PDU(myValue) == '30800101FF0201040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23574 | ||
23575 | <RESULT> | |
23576 | ||
23577 | Overall verdict: pass | |
23578 | ||
23579 | <END_TC> | |
23580 | ||
23581 | :exmp. | |
23582 | ||
23583 | .*---------------------------------------------------------------------* | |
23584 | :h3.CER + DER encoding of SEQUENCE with EXTENSION , AUTOMATIC TAGS | |
23585 | .*---------------------------------------------------------------------* | |
23586 | :xmp tab=0. | |
23587 | ||
23588 | <TC - CER + DER encoding of SEQUENCE with EXTENSION , AUTOMATIC TAGS> | |
23589 | ||
23590 | <STATIC:ASN> | |
23591 | ||
23592 | TempA | |
23593 | ||
23594 | DEFINITIONS | |
23595 | ||
23596 | AUTOMATIC TAGS | |
23597 | ||
23598 | ::= | |
23599 | ||
23600 | BEGIN | |
23601 | ||
23602 | ||
23603 | ||
23604 | ||
23605 | BERPDU ::= SEQUENCE | |
23606 | { | |
23607 | ||
23608 | a OCTET STRING, | |
23609 | ||
23610 | b BOOLEAN, | |
23611 | ||
23612 | ..., | |
23613 | ||
23614 | d BIT STRING, | |
23615 | ..., | |
23616 | ||
23617 | c INTEGER OPTIONAL | |
23618 | ||
23619 | } | |
23620 | ||
23621 | ||
23622 | ||
23623 | END | |
23624 | ||
23625 | <STATIC> | |
23626 | ||
23627 | import from TempA all; | |
23628 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23629 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23630 | ||
23631 | const BERPDU myValue := { | |
23632 | a := 'FF'O, | |
23633 | b := true, | |
23634 | d := '1'B, | |
23635 | c := 4 | |
23636 | } | |
23637 | <TTCN_TC:EXEC> | |
23638 | ||
23639 | ||
23640 | ||
23641 | ||
23642 | if ((enc_DER_PDU(myValue) == '300D8001FF8101FF83020780820104'O)and(enc_CER_PDU(myValue) == '30808001FF8101FF830207808201040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23643 | ||
23644 | <RESULT> | |
23645 | ||
23646 | Overall verdict: pass | |
23647 | ||
23648 | <END_TC> | |
23649 | ||
23650 | :exmp. | |
23651 | ||
23652 | .*---------------------------------------------------------------------* | |
23653 | :h3.CER + DER encoding of SEQUENCE with fields of different types | |
23654 | .*---------------------------------------------------------------------* | |
23655 | :xmp tab=0. | |
23656 | ||
23657 | <TC - CER + DER encoding of SEQUENCE with fields of different types> | |
23658 | ||
23659 | <STATIC:ASN> | |
23660 | ||
23661 | TempA | |
23662 | ||
23663 | DEFINITIONS ::= | |
23664 | BEGIN | |
23665 | ||
23666 | BERPDU ::= SEQUENCE | |
23667 | { | |
23668 | a NULL, | |
23669 | b BOOLEAN, | |
23670 | c INTEGER, | |
23671 | d ENUMERATED {first ,second ,third}, | |
23672 | e REAL, | |
23673 | f BIT STRING, | |
23674 | g OCTET STRING, | |
23675 | ||
23676 | h OBJECT IDENTIFIER, | |
23677 | i IA5String, | |
23678 | j CHOICE {x1 [1] BOOLEAN, | |
23679 | y1 [2] OCTET STRING}, | |
23680 | ||
23681 | k SEQUENCE{x2 NULL, | |
23682 | y2 BOOLEAN}, | |
23683 | ||
23684 | l SET { x3 BIT STRING, | |
23685 | y3 REAL}, | |
23686 | ||
23687 | m [3] SEQUENCE OF INTEGER, | |
23688 | n [4] SET OF BOOLEAN | |
23689 | } | |
23690 | ||
23691 | ||
23692 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
23693 | ||
23694 | ||
23695 | END | |
23696 | ||
23697 | <STATIC> | |
23698 | ||
23699 | import from TempA all; | |
23700 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23701 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23702 | ||
23703 | const BERPDU myValue := {a := NULL, | |
23704 | b := true, | |
23705 | c := 2, | |
23706 | d := first, | |
23707 | e := 1.0, | |
23708 | f := '1'B, | |
23709 | g := 'FFFF'O, | |
23710 | h := myOBJID, | |
23711 | i := "ABC", | |
23712 | j := {x1 := true } , | |
23713 | k := {x2 := NULL, | |
23714 | ||
23715 | y2 := true } , | |
23716 | l := {y3 := 1.0 , | |
23717 | ||
23718 | x3 := '1'B } , | |
23719 | m := | |
23720 | { 1 ,2 } , | |
23721 | n := | |
23722 | { true, true } | |
23723 | } | |
23724 | ||
23725 | ||
23726 | ||
23727 | ||
23728 | ||
23729 | ||
23730 | ||
23731 | ||
23732 | ||
23733 | ||
23734 | ||
23735 | <TTCN_TC:EXEC> | |
23736 | ||
23737 | ||
23738 | ||
23739 | ||
23740 | if ((enc_DER_PDU(myValue) == '305305000101FF0201020A0100090603312E452B30030207800402FFFF06030002031603414243A1030101FF300505000101FF310C03020780090603312E452B30A3083006020101020102A40831060101FF0101FF'O)and(enc_CER_PDU(myValue) == '308005000101FF0201020A0100090603312E452B30030207800402FFFF06030002031603414243A1800101FF0000308005000101FF0000318003020780090603312E452B300000A380308002010102010200000000A48031800101FF0101FF000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23741 | ||
23742 | <RESULT> | |
23743 | ||
23744 | Overall verdict: pass | |
23745 | ||
23746 | <END_TC> | |
23747 | ||
23748 | :exmp. | |
23749 | ||
23750 | .*---------------------------------------------------------------------* | |
23751 | :h3.CER + DER encoding of SEQUENCE with fields of different types, AUTOMATIC TAGS | |
23752 | .*---------------------------------------------------------------------* | |
23753 | :xmp tab=0. | |
23754 | ||
23755 | <TC - CER + DER encoding of SEQUENCE with fields of different types, AUTOMATIC TAGS> | |
23756 | ||
23757 | <STATIC:ASN> | |
23758 | ||
23759 | TempA | |
23760 | ||
23761 | DEFINITIONS | |
23762 | ||
23763 | AUTOMATIC TAGS | |
23764 | ||
23765 | ::= | |
23766 | ||
23767 | BEGIN | |
23768 | ||
23769 | BERPDU ::= SEQUENCE | |
23770 | { | |
23771 | a NULL, | |
23772 | b BOOLEAN, | |
23773 | c INTEGER, | |
23774 | d ENUMERATED {first ,second ,third}, | |
23775 | e REAL, | |
23776 | f BIT STRING, | |
23777 | g OCTET STRING, | |
23778 | ||
23779 | h OBJECT IDENTIFIER, | |
23780 | i IA5String, | |
23781 | j CHOICE {x1 BOOLEAN, | |
23782 | y1 OCTET STRING}, | |
23783 | ||
23784 | k SEQUENCE{x2 NULL, | |
23785 | y2 BOOLEAN}, | |
23786 | ||
23787 | l SET { x3 BIT STRING, | |
23788 | y3 REAL}, | |
23789 | ||
23790 | m SEQUENCE OF INTEGER, | |
23791 | n SET OF BOOLEAN | |
23792 | } | |
23793 | ||
23794 | ||
23795 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
23796 | ||
23797 | ||
23798 | END | |
23799 | ||
23800 | <STATIC> | |
23801 | ||
23802 | import from TempA all; | |
23803 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
23804 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
23805 | ||
23806 | const BERPDU myValue := {a := NULL, | |
23807 | b := true, | |
23808 | c := 2, | |
23809 | d := first, | |
23810 | e := 1.0, | |
23811 | f := '1'B, | |
23812 | g := 'FFFF'O, | |
23813 | h := myOBJID, | |
23814 | i := "ABC", | |
23815 | j := {x1 := true } , | |
23816 | k := {x2 := NULL, | |
23817 | ||
23818 | y2 := true } , | |
23819 | l := {y3 := 1.0 , | |
23820 | ||
23821 | x3 := '1'B } , | |
23822 | m := | |
23823 | { 1 ,2 } , | |
23824 | n := | |
23825 | { true, true } | |
23826 | } | |
23827 | ||
23828 | ||
23829 | ||
23830 | ||
23831 | ||
23832 | ||
23833 | ||
23834 | ||
23835 | ||
23836 | ||
23837 | ||
23838 | <TTCN_TC:EXEC> | |
23839 | ||
23840 | ||
23841 | ||
23842 | ||
23843 | if ((enc_DER_PDU(myValue) == '304F80008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB0C80020780810603312E452B30AC06020101020102AD060101FF0101FF'O)and(enc_CER_PDU(myValue) == '308080008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB8080020780810603312E452B300000AC800201010201020000AD800101FF0101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
23844 | ||
23845 | <RESULT> | |
23846 | ||
23847 | Overall verdict: pass | |
23848 | ||
23849 | <END_TC> | |
23850 | ||
23851 | :exmp. | |
23852 | ||
23853 | .*---------------------------------------------------------------------* | |
23854 | :h3. DECODING DER , SEQUENCE (EMPTY) | |
23855 | .*---------------------------------------------------------------------* | |
23856 | :xmp tab=0. | |
23857 | ||
23858 | <TC - DECODING DER , SEQUENCE (EMPTY)> | |
23859 | ||
23860 | <STATIC:ASN> | |
23861 | ||
23862 | TempA | |
23863 | ||
23864 | DEFINITIONS ::= | |
23865 | BEGIN | |
23866 | BERPDU ::= SEQUENCE | |
23867 | { | |
23868 | b BOOLEAN OPTIONAL, | |
23869 | c INTEGER OPTIONAL | |
23870 | } | |
23871 | ||
23872 | END | |
23873 | ||
23874 | <STATIC> | |
23875 | ||
23876 | import from TempA all; | |
23877 | ||
23878 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
23879 | ||
23880 | ||
23881 | const BERPDU myValue := {b := omit, | |
23882 | c := omit } | |
23883 | ||
23884 | <TTCN_TC:EXEC> | |
23885 | ||
23886 | if (dec_BER_PDU('3000'O) == myValue) | |
23887 | ||
23888 | ||
23889 | ||
23890 | {setverdict(pass);} else {setverdict(fail);} | |
23891 | ||
23892 | ||
23893 | <RESULT> | |
23894 | ||
23895 | Overall verdict: pass | |
23896 | ||
23897 | <END_TC> | |
23898 | ||
23899 | :exmp. | |
23900 | ||
23901 | .*---------------------------------------------------------------------* | |
23902 | :h3. DECODING CER , SEQUENCE (EMPTY) | |
23903 | .*---------------------------------------------------------------------* | |
23904 | :xmp tab=0. | |
23905 | ||
23906 | <TC - DECODING CER , SEQUENCE (EMPTY)> | |
23907 | ||
23908 | <STATIC:ASN> | |
23909 | ||
23910 | TempA | |
23911 | ||
23912 | DEFINITIONS ::= | |
23913 | BEGIN | |
23914 | BERPDU ::= SEQUENCE | |
23915 | { | |
23916 | b BOOLEAN OPTIONAL, | |
23917 | c INTEGER OPTIONAL | |
23918 | } | |
23919 | ||
23920 | END | |
23921 | ||
23922 | <STATIC> | |
23923 | ||
23924 | import from TempA all; | |
23925 | ||
23926 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
23927 | ||
23928 | ||
23929 | const BERPDU myValue := {b := omit, | |
23930 | c := omit } | |
23931 | ||
23932 | <TTCN_TC:EXEC> | |
23933 | ||
23934 | if (dec_BER_PDU('30800000'O) == myValue) | |
23935 | ||
23936 | ||
23937 | ||
23938 | {setverdict(pass);} else {setverdict(fail);} | |
23939 | ||
23940 | ||
23941 | <RESULT> | |
23942 | ||
23943 | Overall verdict: pass | |
23944 | ||
23945 | <END_TC> | |
23946 | ||
23947 | :exmp. | |
23948 | ||
23949 | .*---------------------------------------------------------------------* | |
23950 | :h3.DECODING DER , SEQUENCE (only one element is used) | |
23951 | .*---------------------------------------------------------------------* | |
23952 | :xmp tab=0. | |
23953 | ||
23954 | <TC - DECODING DER , SEQUENCE (only one element is used)> | |
23955 | ||
23956 | <STATIC:ASN> | |
23957 | ||
23958 | TempA | |
23959 | ||
23960 | DEFINITIONS ::= | |
23961 | BEGIN | |
23962 | BERPDU ::= SEQUENCE | |
23963 | { | |
23964 | b BOOLEAN OPTIONAL, | |
23965 | c INTEGER OPTIONAL | |
23966 | } | |
23967 | ||
23968 | ||
23969 | END | |
23970 | ||
23971 | <STATIC> | |
23972 | ||
23973 | import from TempA all; | |
23974 | ||
23975 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
23976 | ||
23977 | ||
23978 | const BERPDU myValue := {b := true, | |
23979 | c := omit } | |
23980 | ||
23981 | <TTCN_TC:EXEC> | |
23982 | ||
23983 | if (dec_BER_PDU('30030101FF'O) == myValue) | |
23984 | ||
23985 | ||
23986 | ||
23987 | {setverdict(pass);} else {setverdict(fail);} | |
23988 | ||
23989 | ||
23990 | <RESULT> | |
23991 | ||
23992 | Overall verdict: pass | |
23993 | ||
23994 | <END_TC> | |
23995 | ||
23996 | :exmp. | |
23997 | ||
23998 | .*---------------------------------------------------------------------* | |
23999 | :h3.DECODING CER , SEQUENCE (only one element is used) | |
24000 | .*---------------------------------------------------------------------* | |
24001 | :xmp tab=0. | |
24002 | ||
24003 | <TC - DECODING CER , SEQUENCE (only one element is used)> | |
24004 | ||
24005 | <STATIC:ASN> | |
24006 | ||
24007 | TempA | |
24008 | ||
24009 | DEFINITIONS ::= | |
24010 | BEGIN | |
24011 | BERPDU ::= SEQUENCE | |
24012 | { | |
24013 | b BOOLEAN OPTIONAL, | |
24014 | c INTEGER OPTIONAL | |
24015 | } | |
24016 | ||
24017 | ||
24018 | END | |
24019 | ||
24020 | <STATIC> | |
24021 | ||
24022 | import from TempA all; | |
24023 | ||
24024 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24025 | ||
24026 | ||
24027 | const BERPDU myValue := {b := true, | |
24028 | c := omit } | |
24029 | ||
24030 | <TTCN_TC:EXEC> | |
24031 | ||
24032 | if (dec_BER_PDU('30800101FF0000'O) == myValue) | |
24033 | ||
24034 | ||
24035 | ||
24036 | {setverdict(pass);} else {setverdict(fail);} | |
24037 | ||
24038 | ||
24039 | <RESULT> | |
24040 | ||
24041 | Overall verdict: pass | |
24042 | ||
24043 | <END_TC> | |
24044 | ||
24045 | :exmp. | |
24046 | ||
24047 | .*---------------------------------------------------------------------* | |
24048 | :h3. DECODING DER , SEQUENCE (both elements are used) | |
24049 | .*---------------------------------------------------------------------* | |
24050 | :xmp tab=0. | |
24051 | ||
24052 | <TC - DECODING DER , SEQUENCE (both elements are used)> | |
24053 | ||
24054 | <STATIC:ASN> | |
24055 | ||
24056 | TempA | |
24057 | ||
24058 | DEFINITIONS ::= | |
24059 | BEGIN | |
24060 | BERPDU ::= SEQUENCE | |
24061 | { | |
24062 | b BOOLEAN OPTIONAL, | |
24063 | c INTEGER OPTIONAL | |
24064 | } | |
24065 | ||
24066 | ||
24067 | END | |
24068 | ||
24069 | <STATIC> | |
24070 | ||
24071 | import from TempA all; | |
24072 | ||
24073 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24074 | ||
24075 | ||
24076 | const BERPDU myValue := {b := true, | |
24077 | c := 5 } | |
24078 | ||
24079 | ||
24080 | <TTCN_TC:EXEC> | |
24081 | ||
24082 | if (dec_BER_PDU('30060101FF020105'O) == myValue) | |
24083 | ||
24084 | ||
24085 | ||
24086 | {setverdict(pass);} else {setverdict(fail);} | |
24087 | ||
24088 | ||
24089 | <RESULT> | |
24090 | ||
24091 | Overall verdict: pass | |
24092 | ||
24093 | <END_TC> | |
24094 | ||
24095 | :exmp. | |
24096 | ||
24097 | .*---------------------------------------------------------------------* | |
24098 | :h3. DECODING DER , SEQUENCE (both elements are used) | |
24099 | .*---------------------------------------------------------------------* | |
24100 | :xmp tab=0. | |
24101 | ||
24102 | <TC - DECODING DER , SEQUENCE (both elements are used)> | |
24103 | ||
24104 | <STATIC:ASN> | |
24105 | ||
24106 | TempA | |
24107 | ||
24108 | DEFINITIONS ::= | |
24109 | BEGIN | |
24110 | BERPDU ::= SEQUENCE | |
24111 | { | |
24112 | b BOOLEAN OPTIONAL, | |
24113 | c INTEGER OPTIONAL | |
24114 | } | |
24115 | ||
24116 | ||
24117 | END | |
24118 | ||
24119 | <STATIC> | |
24120 | ||
24121 | import from TempA all; | |
24122 | ||
24123 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24124 | ||
24125 | ||
24126 | const BERPDU myValue := {b := true, | |
24127 | c := 5 } | |
24128 | ||
24129 | ||
24130 | <TTCN_TC:EXEC> | |
24131 | ||
24132 | if (dec_BER_PDU('30800101FF0201050000'O) == myValue) | |
24133 | ||
24134 | ||
24135 | ||
24136 | {setverdict(pass);} else {setverdict(fail);} | |
24137 | ||
24138 | ||
24139 | <RESULT> | |
24140 | ||
24141 | Overall verdict: pass | |
24142 | ||
24143 | <END_TC> | |
24144 | ||
24145 | :exmp. | |
24146 | ||
24147 | .*---------------------------------------------------------------------* | |
24148 | :h3. DECODING DER , SEQUENCE (one element is equal to Default) | |
24149 | .*---------------------------------------------------------------------* | |
24150 | :xmp tab=0. | |
24151 | ||
24152 | <TC - DECODING DER , SEQUENCE (one element is equal to Default)> | |
24153 | ||
24154 | <STATIC:ASN> | |
24155 | ||
24156 | TempA | |
24157 | ||
24158 | DEFINITIONS ::= | |
24159 | BEGIN | |
24160 | BERPDU ::= SEQUENCE | |
24161 | { | |
24162 | b BOOLEAN DEFAULT TRUE, | |
24163 | c INTEGER OPTIONAL | |
24164 | } | |
24165 | ||
24166 | END | |
24167 | ||
24168 | <STATIC> | |
24169 | ||
24170 | import from TempA all; | |
24171 | ||
24172 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24173 | ||
24174 | ||
24175 | const BERPDU myValue := {b := true, | |
24176 | c := 5 } | |
24177 | <TTCN_TC:EXEC> | |
24178 | ||
24179 | if (dec_BER_PDU('3003020105'O) == myValue) | |
24180 | ||
24181 | ||
24182 | ||
24183 | {setverdict(pass);} else {setverdict(fail);} | |
24184 | ||
24185 | ||
24186 | <RESULT> | |
24187 | ||
24188 | Overall verdict: pass | |
24189 | ||
24190 | <END_TC> | |
24191 | ||
24192 | :exmp. | |
24193 | ||
24194 | .*---------------------------------------------------------------------* | |
24195 | :h3. DECODING CER, SEQUENCE (one element is equal to Default) | |
24196 | .*---------------------------------------------------------------------* | |
24197 | :xmp tab=0. | |
24198 | ||
24199 | <TC - DECODING CER, SEQUENCE (one element is equal to Default)> | |
24200 | ||
24201 | <STATIC:ASN> | |
24202 | ||
24203 | TempA | |
24204 | ||
24205 | DEFINITIONS ::= | |
24206 | BEGIN | |
24207 | BERPDU ::= SEQUENCE | |
24208 | { | |
24209 | b BOOLEAN DEFAULT TRUE, | |
24210 | c INTEGER OPTIONAL | |
24211 | } | |
24212 | ||
24213 | END | |
24214 | ||
24215 | <STATIC> | |
24216 | ||
24217 | import from TempA all; | |
24218 | ||
24219 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24220 | ||
24221 | ||
24222 | const BERPDU myValue := {b := true, | |
24223 | c := 5 } | |
24224 | <TTCN_TC:EXEC> | |
24225 | ||
24226 | if (dec_BER_PDU('30800201050000'O) == myValue) | |
24227 | ||
24228 | ||
24229 | ||
24230 | {setverdict(pass);} else {setverdict(fail);} | |
24231 | ||
24232 | ||
24233 | <RESULT> | |
24234 | ||
24235 | Overall verdict: pass | |
24236 | ||
24237 | <END_TC> | |
24238 | ||
24239 | :exmp. | |
24240 | ||
24241 | .*---------------------------------------------------------------------* | |
24242 | :h3. DECODING DER , SEQUENCE (one element is not equal to Default) | |
24243 | .*---------------------------------------------------------------------* | |
24244 | :xmp tab=0. | |
24245 | ||
24246 | <TC - DECODING DER , SEQUENCE (one element is not equal to Default)> | |
24247 | ||
24248 | <STATIC:ASN> | |
24249 | ||
24250 | TempA | |
24251 | ||
24252 | DEFINITIONS ::= | |
24253 | BEGIN | |
24254 | ||
24255 | BERPDU ::= SEQUENCE | |
24256 | { | |
24257 | b BOOLEAN DEFAULT TRUE, | |
24258 | c INTEGER OPTIONAL | |
24259 | } | |
24260 | ||
24261 | ||
24262 | END | |
24263 | ||
24264 | <STATIC> | |
24265 | ||
24266 | import from TempA all; | |
24267 | ||
24268 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24269 | ||
24270 | ||
24271 | const BERPDU myValue := {b := false, | |
24272 | c := 5 } | |
24273 | <TTCN_TC:EXEC> | |
24274 | ||
24275 | if (dec_BER_PDU('3006010100020105'O) == myValue) | |
24276 | ||
24277 | ||
24278 | ||
24279 | {setverdict(pass);} else {setverdict(fail);} | |
24280 | ||
24281 | ||
24282 | <RESULT> | |
24283 | ||
24284 | Overall verdict: pass | |
24285 | ||
24286 | <END_TC> | |
24287 | ||
24288 | :exmp. | |
24289 | ||
24290 | .*---------------------------------------------------------------------* | |
24291 | :h3. DECODING CER , SEQUENCE (one element is not equal to Default) | |
24292 | .*---------------------------------------------------------------------* | |
24293 | :xmp tab=0. | |
24294 | ||
24295 | <TC - DECODING CER , SEQUENCE (one element is not equal to Default)> | |
24296 | ||
24297 | <STATIC:ASN> | |
24298 | ||
24299 | TempA | |
24300 | ||
24301 | DEFINITIONS ::= | |
24302 | BEGIN | |
24303 | ||
24304 | BERPDU ::= SEQUENCE | |
24305 | { | |
24306 | b BOOLEAN DEFAULT TRUE, | |
24307 | c INTEGER OPTIONAL | |
24308 | } | |
24309 | ||
24310 | ||
24311 | END | |
24312 | ||
24313 | <STATIC> | |
24314 | ||
24315 | import from TempA all; | |
24316 | ||
24317 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24318 | ||
24319 | ||
24320 | const BERPDU myValue := {b := false, | |
24321 | c := 5 } | |
24322 | <TTCN_TC:EXEC> | |
24323 | ||
24324 | if (dec_BER_PDU('30800101000201050000'O) == myValue) | |
24325 | ||
24326 | ||
24327 | ||
24328 | {setverdict(pass);} else {setverdict(fail);} | |
24329 | ||
24330 | ||
24331 | <RESULT> | |
24332 | ||
24333 | Overall verdict: pass | |
24334 | ||
24335 | <END_TC> | |
24336 | ||
24337 | :exmp. | |
24338 | ||
24339 | .*---------------------------------------------------------------------* | |
24340 | :h3. DECODING DER , SEQUENCE (EMPTY), AUTOMATIC TAGGING | |
24341 | .*---------------------------------------------------------------------* | |
24342 | :xmp tab=0. | |
24343 | ||
24344 | <TC - DECODING DER , SEQUENCE (EMPTY), AUTOMATIC TAGGING> | |
24345 | ||
24346 | <STATIC:ASN> | |
24347 | ||
24348 | TempA | |
24349 | ||
24350 | DEFINITIONS | |
24351 | ||
24352 | AUTOMATIC TAGS | |
24353 | ||
24354 | ||
24355 | ::= | |
24356 | ||
24357 | BEGIN | |
24358 | ||
24359 | BERPDU ::= SEQUENCE | |
24360 | { | |
24361 | b BOOLEAN OPTIONAL, | |
24362 | c INTEGER OPTIONAL | |
24363 | } | |
24364 | ||
24365 | ||
24366 | END | |
24367 | ||
24368 | <STATIC> | |
24369 | ||
24370 | import from TempA all; | |
24371 | ||
24372 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24373 | ||
24374 | ||
24375 | const BERPDU myValue := {b := omit, | |
24376 | c := omit } | |
24377 | ||
24378 | <TTCN_TC:EXEC> | |
24379 | ||
24380 | if (dec_BER_PDU('3000'O) == myValue) | |
24381 | ||
24382 | ||
24383 | ||
24384 | {setverdict(pass);} else {setverdict(fail);} | |
24385 | ||
24386 | ||
24387 | <RESULT> | |
24388 | ||
24389 | Overall verdict: pass | |
24390 | ||
24391 | <END_TC> | |
24392 | ||
24393 | :exmp. | |
24394 | ||
24395 | .*---------------------------------------------------------------------* | |
24396 | :h3. DECODING CER , SEQUENCE (EMPTY), AUTOMATIC TAGGING | |
24397 | .*---------------------------------------------------------------------* | |
24398 | :xmp tab=0. | |
24399 | ||
24400 | <TC - DECODING CER , SEQUENCE (EMPTY), AUTOMATIC TAGGING> | |
24401 | ||
24402 | <STATIC:ASN> | |
24403 | ||
24404 | TempA | |
24405 | ||
24406 | DEFINITIONS | |
24407 | ||
24408 | AUTOMATIC TAGS | |
24409 | ||
24410 | ||
24411 | ::= | |
24412 | ||
24413 | BEGIN | |
24414 | ||
24415 | BERPDU ::= SEQUENCE | |
24416 | { | |
24417 | b BOOLEAN OPTIONAL, | |
24418 | c INTEGER OPTIONAL | |
24419 | } | |
24420 | ||
24421 | ||
24422 | END | |
24423 | ||
24424 | <STATIC> | |
24425 | ||
24426 | import from TempA all; | |
24427 | ||
24428 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24429 | ||
24430 | ||
24431 | const BERPDU myValue := {b := omit, | |
24432 | c := omit } | |
24433 | ||
24434 | <TTCN_TC:EXEC> | |
24435 | ||
24436 | if (dec_BER_PDU('30800000'O) == myValue) | |
24437 | ||
24438 | ||
24439 | ||
24440 | {setverdict(pass);} else {setverdict(fail);} | |
24441 | ||
24442 | ||
24443 | <RESULT> | |
24444 | ||
24445 | Overall verdict: pass | |
24446 | ||
24447 | <END_TC> | |
24448 | ||
24449 | :exmp. | |
24450 | ||
24451 | .*---------------------------------------------------------------------* | |
24452 | :h3. DECODING DER , SEQUENCE (only one element is used) AUTOMATIC TAGGING | |
24453 | .*---------------------------------------------------------------------* | |
24454 | :xmp tab=0. | |
24455 | ||
24456 | <TC - DECODING DER , SEQUENCE (only one element is used) AUTOMATIC TAGGING> | |
24457 | ||
24458 | <STATIC:ASN> | |
24459 | ||
24460 | TempA | |
24461 | ||
24462 | DEFINITIONS | |
24463 | ||
24464 | AUTOMATIC TAGS | |
24465 | ||
24466 | ||
24467 | ::= | |
24468 | ||
24469 | BEGIN | |
24470 | ||
24471 | ||
24472 | BERPDU ::= SEQUENCE | |
24473 | { | |
24474 | b BOOLEAN OPTIONAL, | |
24475 | c INTEGER OPTIONAL | |
24476 | } | |
24477 | ||
24478 | ||
24479 | END | |
24480 | ||
24481 | <STATIC> | |
24482 | ||
24483 | import from TempA all; | |
24484 | ||
24485 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24486 | ||
24487 | ||
24488 | const BERPDU myValue := {b := true, | |
24489 | c := omit } | |
24490 | ||
24491 | <TTCN_TC:EXEC> | |
24492 | ||
24493 | if (dec_BER_PDU('30038001FF'O) == myValue) | |
24494 | ||
24495 | ||
24496 | ||
24497 | {setverdict(pass);} else {setverdict(fail);} | |
24498 | ||
24499 | ||
24500 | <RESULT> | |
24501 | ||
24502 | Overall verdict: pass | |
24503 | ||
24504 | <END_TC> | |
24505 | ||
24506 | :exmp. | |
24507 | ||
24508 | .*---------------------------------------------------------------------* | |
24509 | :h3. DECODING CER , SEQUENCE (only one element is used) AUTOMATIC TAGGING | |
24510 | .*---------------------------------------------------------------------* | |
24511 | :xmp tab=0. | |
24512 | ||
24513 | <TC - DECODING CER , SEQUENCE (only one element is used) AUTOMATIC TAGGING> | |
24514 | ||
24515 | <STATIC:ASN> | |
24516 | ||
24517 | TempA | |
24518 | ||
24519 | DEFINITIONS | |
24520 | ||
24521 | AUTOMATIC TAGS | |
24522 | ||
24523 | ||
24524 | ::= | |
24525 | ||
24526 | BEGIN | |
24527 | ||
24528 | ||
24529 | BERPDU ::= SEQUENCE | |
24530 | { | |
24531 | b BOOLEAN OPTIONAL, | |
24532 | c INTEGER OPTIONAL | |
24533 | } | |
24534 | ||
24535 | ||
24536 | END | |
24537 | ||
24538 | <STATIC> | |
24539 | ||
24540 | import from TempA all; | |
24541 | ||
24542 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24543 | ||
24544 | ||
24545 | const BERPDU myValue := {b := true, | |
24546 | c := omit } | |
24547 | ||
24548 | <TTCN_TC:EXEC> | |
24549 | ||
24550 | if (dec_BER_PDU('30808001FF0000'O) == myValue) | |
24551 | ||
24552 | ||
24553 | ||
24554 | {setverdict(pass);} else {setverdict(fail);} | |
24555 | ||
24556 | ||
24557 | <RESULT> | |
24558 | ||
24559 | Overall verdict: pass | |
24560 | ||
24561 | <END_TC> | |
24562 | ||
24563 | :exmp. | |
24564 | ||
24565 | .*---------------------------------------------------------------------* | |
24566 | :h3. DECODING DER , SEQUENCE (both elements are used) AUTOMATIC TAGGING | |
24567 | .*---------------------------------------------------------------------* | |
24568 | :xmp tab=0. | |
24569 | ||
24570 | <TC - DECODING DER , SEQUENCE (both elements are used) AUTOMATIC TAGGING> | |
24571 | ||
24572 | <STATIC:ASN> | |
24573 | ||
24574 | TempA | |
24575 | ||
24576 | DEFINITIONS | |
24577 | ||
24578 | AUTOMATIC TAGS | |
24579 | ||
24580 | ||
24581 | ::= | |
24582 | ||
24583 | BEGIN | |
24584 | ||
24585 | ||
24586 | BERPDU ::= SEQUENCE | |
24587 | { | |
24588 | b BOOLEAN OPTIONAL, | |
24589 | c INTEGER OPTIONAL | |
24590 | } | |
24591 | ||
24592 | ||
24593 | ||
24594 | END | |
24595 | ||
24596 | <STATIC> | |
24597 | ||
24598 | import from TempA all; | |
24599 | ||
24600 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24601 | ||
24602 | ||
24603 | const BERPDU myValue := {b := true, | |
24604 | c := 5 } | |
24605 | ||
24606 | <TTCN_TC:EXEC> | |
24607 | ||
24608 | if (dec_BER_PDU('30068001FF810105'O) == myValue) | |
24609 | ||
24610 | ||
24611 | ||
24612 | {setverdict(pass);} else {setverdict(fail);} | |
24613 | ||
24614 | ||
24615 | <RESULT> | |
24616 | ||
24617 | Overall verdict: pass | |
24618 | ||
24619 | <END_TC> | |
24620 | ||
24621 | :exmp. | |
24622 | ||
24623 | .*---------------------------------------------------------------------* | |
24624 | :h3. DECODING CER , SEQUENCE (both elements are used) AUTOMATIC TAGGING | |
24625 | .*---------------------------------------------------------------------* | |
24626 | :xmp tab=0. | |
24627 | ||
24628 | <TC - DECODING CER , SEQUENCE (both elements are used) AUTOMATIC TAGGING> | |
24629 | ||
24630 | <STATIC:ASN> | |
24631 | ||
24632 | TempA | |
24633 | ||
24634 | DEFINITIONS | |
24635 | ||
24636 | AUTOMATIC TAGS | |
24637 | ||
24638 | ||
24639 | ::= | |
24640 | ||
24641 | BEGIN | |
24642 | ||
24643 | ||
24644 | BERPDU ::= SEQUENCE | |
24645 | { | |
24646 | b BOOLEAN OPTIONAL, | |
24647 | c INTEGER OPTIONAL | |
24648 | } | |
24649 | ||
24650 | ||
24651 | ||
24652 | END | |
24653 | ||
24654 | <STATIC> | |
24655 | ||
24656 | import from TempA all; | |
24657 | ||
24658 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24659 | ||
24660 | ||
24661 | const BERPDU myValue := {b := true, | |
24662 | c := 5 } | |
24663 | ||
24664 | <TTCN_TC:EXEC> | |
24665 | ||
24666 | if (dec_BER_PDU('30808001FF8101050000'O) == myValue) | |
24667 | ||
24668 | ||
24669 | ||
24670 | {setverdict(pass);} else {setverdict(fail);} | |
24671 | ||
24672 | ||
24673 | <RESULT> | |
24674 | ||
24675 | Overall verdict: pass | |
24676 | ||
24677 | <END_TC> | |
24678 | ||
24679 | :exmp. | |
24680 | ||
24681 | .*---------------------------------------------------------------------* | |
24682 | :h3. DECODING DER , SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING | |
24683 | .*---------------------------------------------------------------------* | |
24684 | :xmp tab=0. | |
24685 | ||
24686 | <TC - DECODING DER , SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING > | |
24687 | ||
24688 | <STATIC:ASN> | |
24689 | ||
24690 | TempA | |
24691 | ||
24692 | DEFINITIONS | |
24693 | ||
24694 | AUTOMATIC TAGS | |
24695 | ||
24696 | ||
24697 | ::= | |
24698 | ||
24699 | BEGIN | |
24700 | ||
24701 | ||
24702 | BERPDU ::= SEQUENCE | |
24703 | { | |
24704 | b BOOLEAN DEFAULT TRUE, | |
24705 | c INTEGER OPTIONAL | |
24706 | } | |
24707 | ||
24708 | ||
24709 | ||
24710 | END | |
24711 | ||
24712 | <STATIC> | |
24713 | ||
24714 | import from TempA all; | |
24715 | ||
24716 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24717 | ||
24718 | ||
24719 | const BERPDU myValue := {b := true, | |
24720 | c := 5 } | |
24721 | ||
24722 | <TTCN_TC:EXEC> | |
24723 | ||
24724 | if (dec_BER_PDU('3003810105'O) == myValue) | |
24725 | ||
24726 | ||
24727 | ||
24728 | {setverdict(pass);} else {setverdict(fail);} | |
24729 | ||
24730 | ||
24731 | <RESULT> | |
24732 | ||
24733 | Overall verdict: pass | |
24734 | ||
24735 | <END_TC> | |
24736 | ||
24737 | :exmp. | |
24738 | ||
24739 | .*---------------------------------------------------------------------* | |
24740 | :h3. DECODING CER , SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING | |
24741 | .*---------------------------------------------------------------------* | |
24742 | :xmp tab=0. | |
24743 | ||
24744 | <TC - DECODING CER , SEQUENCE (one element is equal to Default) AUTOMATIC TAGGING > | |
24745 | ||
24746 | <STATIC:ASN> | |
24747 | ||
24748 | TempA | |
24749 | ||
24750 | DEFINITIONS | |
24751 | ||
24752 | AUTOMATIC TAGS | |
24753 | ||
24754 | ||
24755 | ::= | |
24756 | ||
24757 | BEGIN | |
24758 | ||
24759 | ||
24760 | BERPDU ::= SEQUENCE | |
24761 | { | |
24762 | b BOOLEAN DEFAULT TRUE, | |
24763 | c INTEGER OPTIONAL | |
24764 | } | |
24765 | ||
24766 | ||
24767 | ||
24768 | END | |
24769 | ||
24770 | <STATIC> | |
24771 | ||
24772 | import from TempA all; | |
24773 | ||
24774 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24775 | ||
24776 | ||
24777 | const BERPDU myValue := {b := true, | |
24778 | c := 5 } | |
24779 | ||
24780 | <TTCN_TC:EXEC> | |
24781 | ||
24782 | if (dec_BER_PDU('30808101050000'O) == myValue) | |
24783 | ||
24784 | ||
24785 | ||
24786 | {setverdict(pass);} else {setverdict(fail);} | |
24787 | ||
24788 | ||
24789 | <RESULT> | |
24790 | ||
24791 | Overall verdict: pass | |
24792 | ||
24793 | <END_TC> | |
24794 | ||
24795 | :exmp. | |
24796 | ||
24797 | .*---------------------------------------------------------------------* | |
24798 | :h3. DECODING DER ,SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING | |
24799 | .*---------------------------------------------------------------------* | |
24800 | :xmp tab=0. | |
24801 | ||
24802 | <TC - DECODING DER ,SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING> | |
24803 | ||
24804 | <STATIC:ASN> | |
24805 | ||
24806 | TempA | |
24807 | ||
24808 | DEFINITIONS | |
24809 | ||
24810 | AUTOMATIC TAGS | |
24811 | ||
24812 | ||
24813 | ::= | |
24814 | ||
24815 | BEGIN | |
24816 | ||
24817 | ||
24818 | BERPDU ::= SEQUENCE | |
24819 | { | |
24820 | b BOOLEAN DEFAULT TRUE, | |
24821 | c INTEGER OPTIONAL | |
24822 | } | |
24823 | ||
24824 | ||
24825 | ||
24826 | END | |
24827 | ||
24828 | <STATIC> | |
24829 | ||
24830 | import from TempA all; | |
24831 | ||
24832 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24833 | ||
24834 | ||
24835 | const BERPDU myValue := {b := false, | |
24836 | c := 5 } | |
24837 | ||
24838 | <TTCN_TC:EXEC> | |
24839 | ||
24840 | if (dec_BER_PDU('3006800100810105'O) == myValue) | |
24841 | ||
24842 | ||
24843 | ||
24844 | {setverdict(pass);} else {setverdict(fail);} | |
24845 | ||
24846 | ||
24847 | <RESULT> | |
24848 | ||
24849 | Overall verdict: pass | |
24850 | ||
24851 | <END_TC> | |
24852 | ||
24853 | :exmp. | |
24854 | ||
24855 | .*---------------------------------------------------------------------* | |
24856 | :h3. DECODING CER ,SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING | |
24857 | .*---------------------------------------------------------------------* | |
24858 | :xmp tab=0. | |
24859 | ||
24860 | <TC - DECODING CER ,SEQUENCE (one element is not equal to Default) AUTOMATIC TAGGING> | |
24861 | ||
24862 | <STATIC:ASN> | |
24863 | ||
24864 | TempA | |
24865 | ||
24866 | DEFINITIONS | |
24867 | ||
24868 | AUTOMATIC TAGS | |
24869 | ||
24870 | ||
24871 | ::= | |
24872 | ||
24873 | BEGIN | |
24874 | ||
24875 | ||
24876 | BERPDU ::= SEQUENCE | |
24877 | { | |
24878 | b BOOLEAN DEFAULT TRUE, | |
24879 | c INTEGER OPTIONAL | |
24880 | } | |
24881 | ||
24882 | ||
24883 | ||
24884 | END | |
24885 | ||
24886 | <STATIC> | |
24887 | ||
24888 | import from TempA all; | |
24889 | ||
24890 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24891 | ||
24892 | ||
24893 | const BERPDU myValue := {b := false, | |
24894 | c := 5 } | |
24895 | ||
24896 | <TTCN_TC:EXEC> | |
24897 | ||
24898 | if (dec_BER_PDU('30808001008101050000'O) == myValue) | |
24899 | ||
24900 | ||
24901 | ||
24902 | {setverdict(pass);} else {setverdict(fail);} | |
24903 | ||
24904 | ||
24905 | <RESULT> | |
24906 | ||
24907 | Overall verdict: pass | |
24908 | ||
24909 | <END_TC> | |
24910 | ||
24911 | :exmp. | |
24912 | ||
24913 | .*---------------------------------------------------------------------* | |
24914 | :h3. DECODING DER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements | |
24915 | .*---------------------------------------------------------------------* | |
24916 | :xmp tab=0. | |
24917 | ||
24918 | <TC - DECODING DER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements> | |
24919 | ||
24920 | <STATIC:ASN> | |
24921 | ||
24922 | TempA | |
24923 | ||
24924 | DEFINITIONS | |
24925 | ||
24926 | ||
24927 | ||
24928 | ||
24929 | ::= | |
24930 | ||
24931 | BEGIN | |
24932 | ||
24933 | ||
24934 | BERPDU ::= SEQUENCE | |
24935 | { | |
24936 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
24937 | c [31] IMPLICIT INTEGER OPTIONAL | |
24938 | } | |
24939 | ||
24940 | ||
24941 | END | |
24942 | ||
24943 | <STATIC> | |
24944 | ||
24945 | import from TempA all; | |
24946 | ||
24947 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
24948 | ||
24949 | ||
24950 | const BERPDU myValue := {b := true, | |
24951 | c := 5 } | |
24952 | ||
24953 | <TTCN_TC:EXEC> | |
24954 | ||
24955 | if (dec_BER_PDU('30079E01FF9F1F0105'O) == myValue) | |
24956 | ||
24957 | ||
24958 | ||
24959 | {setverdict(pass);} else {setverdict(fail);} | |
24960 | ||
24961 | ||
24962 | <RESULT> | |
24963 | ||
24964 | Overall verdict: pass | |
24965 | ||
24966 | <END_TC> | |
24967 | ||
24968 | :exmp. | |
24969 | ||
24970 | .*---------------------------------------------------------------------* | |
24971 | :h3. DECODING CER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements | |
24972 | .*---------------------------------------------------------------------* | |
24973 | :xmp tab=0. | |
24974 | ||
24975 | <TC - DECODING CER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements> | |
24976 | ||
24977 | <STATIC:ASN> | |
24978 | ||
24979 | TempA | |
24980 | ||
24981 | DEFINITIONS | |
24982 | ||
24983 | ||
24984 | ||
24985 | ||
24986 | ::= | |
24987 | ||
24988 | BEGIN | |
24989 | ||
24990 | ||
24991 | BERPDU ::= SEQUENCE | |
24992 | { | |
24993 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
24994 | c [31] IMPLICIT INTEGER OPTIONAL | |
24995 | } | |
24996 | ||
24997 | ||
24998 | END | |
24999 | ||
25000 | <STATIC> | |
25001 | ||
25002 | import from TempA all; | |
25003 | ||
25004 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25005 | ||
25006 | ||
25007 | const BERPDU myValue := {b := true, | |
25008 | c := 5 } | |
25009 | ||
25010 | <TTCN_TC:EXEC> | |
25011 | ||
25012 | if (dec_BER_PDU('30809E01FF9F1F01050000'O) == myValue) | |
25013 | ||
25014 | ||
25015 | ||
25016 | {setverdict(pass);} else {setverdict(fail);} | |
25017 | ||
25018 | ||
25019 | <RESULT> | |
25020 | ||
25021 | Overall verdict: pass | |
25022 | ||
25023 | <END_TC> | |
25024 | ||
25025 | :exmp. | |
25026 | ||
25027 | .*---------------------------------------------------------------------* | |
25028 | :h3. DECODING DER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
25029 | .*---------------------------------------------------------------------* | |
25030 | :xmp tab=0. | |
25031 | ||
25032 | <TC - DECODING DER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
25033 | ||
25034 | <STATIC:ASN> | |
25035 | ||
25036 | TempA | |
25037 | ||
25038 | DEFINITIONS | |
25039 | ||
25040 | EXPLICIT TAGS | |
25041 | ||
25042 | ||
25043 | ::= | |
25044 | ||
25045 | BEGIN | |
25046 | ||
25047 | ||
25048 | BERPDU ::= SEQUENCE | |
25049 | { | |
25050 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
25051 | c [31] IMPLICIT INTEGER OPTIONAL | |
25052 | } | |
25053 | ||
25054 | ||
25055 | ||
25056 | END | |
25057 | ||
25058 | <STATIC> | |
25059 | ||
25060 | import from TempA all; | |
25061 | ||
25062 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25063 | ||
25064 | ||
25065 | const BERPDU myValue := {b := true, | |
25066 | c := 5 } | |
25067 | ||
25068 | ||
25069 | <TTCN_TC:EXEC> | |
25070 | ||
25071 | if (dec_BER_PDU('30079E01FF9F1F0105'O) == myValue) | |
25072 | ||
25073 | ||
25074 | ||
25075 | {setverdict(pass);} else {setverdict(fail);} | |
25076 | ||
25077 | ||
25078 | <RESULT> | |
25079 | ||
25080 | Overall verdict: pass | |
25081 | ||
25082 | <END_TC> | |
25083 | ||
25084 | :exmp. | |
25085 | ||
25086 | .*---------------------------------------------------------------------* | |
25087 | :h3. DECODING CER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
25088 | .*---------------------------------------------------------------------* | |
25089 | :xmp tab=0. | |
25090 | ||
25091 | <TC - DECODING CER , SEQUENCE (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
25092 | ||
25093 | <STATIC:ASN> | |
25094 | ||
25095 | TempA | |
25096 | ||
25097 | DEFINITIONS | |
25098 | ||
25099 | EXPLICIT TAGS | |
25100 | ||
25101 | ||
25102 | ::= | |
25103 | ||
25104 | BEGIN | |
25105 | ||
25106 | ||
25107 | BERPDU ::= SEQUENCE | |
25108 | { | |
25109 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
25110 | c [31] IMPLICIT INTEGER OPTIONAL | |
25111 | } | |
25112 | ||
25113 | ||
25114 | ||
25115 | END | |
25116 | ||
25117 | <STATIC> | |
25118 | ||
25119 | import from TempA all; | |
25120 | ||
25121 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25122 | ||
25123 | ||
25124 | const BERPDU myValue := {b := true, | |
25125 | c := 5 } | |
25126 | ||
25127 | ||
25128 | <TTCN_TC:EXEC> | |
25129 | ||
25130 | if (dec_BER_PDU('30809E01FF9F1F01050000'O) == myValue) | |
25131 | ||
25132 | ||
25133 | ||
25134 | {setverdict(pass);} else {setverdict(fail);} | |
25135 | ||
25136 | ||
25137 | <RESULT> | |
25138 | ||
25139 | Overall verdict: pass | |
25140 | ||
25141 | <END_TC> | |
25142 | ||
25143 | :exmp. | |
25144 | ||
25145 | .*---------------------------------------------------------------------* | |
25146 | :h3. DECODING DER, SEQUENCE (both elements are used) EXPLICIT TAGS for elements | |
25147 | .*---------------------------------------------------------------------* | |
25148 | :xmp tab=0. | |
25149 | ||
25150 | <TC - DECODING DER, SEQUENCE (both elements are used) EXPLICIT TAGS for elements> | |
25151 | ||
25152 | <STATIC:ASN> | |
25153 | ||
25154 | TempA | |
25155 | ||
25156 | DEFINITIONS | |
25157 | ||
25158 | ||
25159 | ||
25160 | ::= | |
25161 | ||
25162 | BEGIN | |
25163 | ||
25164 | ||
25165 | BERPDU ::= SEQUENCE | |
25166 | { | |
25167 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
25168 | c [31] EXPLICIT INTEGER OPTIONAL | |
25169 | } | |
25170 | ||
25171 | ||
25172 | ||
25173 | END | |
25174 | ||
25175 | <STATIC> | |
25176 | ||
25177 | import from TempA all; | |
25178 | ||
25179 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25180 | ||
25181 | ||
25182 | const BERPDU myValue := {b := true, | |
25183 | c := 5 } | |
25184 | ||
25185 | ||
25186 | <TTCN_TC:EXEC> | |
25187 | ||
25188 | if (dec_BER_PDU('300BBE030101FFBF1F03020105'O) == myValue) | |
25189 | ||
25190 | ||
25191 | ||
25192 | {setverdict(pass);} else {setverdict(fail);} | |
25193 | ||
25194 | ||
25195 | <RESULT> | |
25196 | ||
25197 | Overall verdict: pass | |
25198 | ||
25199 | <END_TC> | |
25200 | ||
25201 | :exmp. | |
25202 | ||
25203 | .*---------------------------------------------------------------------* | |
25204 | :h3. DECODING CER, SEQUENCE (both elements are used) EXPLICIT TAGS for elements | |
25205 | .*---------------------------------------------------------------------* | |
25206 | :xmp tab=0. | |
25207 | ||
25208 | <TC - DECODING CER, SEQUENCE (both elements are used) EXPLICIT TAGS for elements> | |
25209 | ||
25210 | <STATIC:ASN> | |
25211 | ||
25212 | TempA | |
25213 | ||
25214 | DEFINITIONS | |
25215 | ||
25216 | ||
25217 | ||
25218 | ::= | |
25219 | ||
25220 | BEGIN | |
25221 | ||
25222 | ||
25223 | BERPDU ::= SEQUENCE | |
25224 | { | |
25225 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
25226 | c [31] EXPLICIT INTEGER OPTIONAL | |
25227 | } | |
25228 | ||
25229 | ||
25230 | ||
25231 | END | |
25232 | ||
25233 | <STATIC> | |
25234 | ||
25235 | import from TempA all; | |
25236 | ||
25237 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25238 | ||
25239 | ||
25240 | const BERPDU myValue := {b := true, | |
25241 | c := 5 } | |
25242 | ||
25243 | ||
25244 | <TTCN_TC:EXEC> | |
25245 | ||
25246 | if (dec_BER_PDU('3080BE800101FF0000BF1F8002010500000000'O) == myValue) | |
25247 | ||
25248 | ||
25249 | ||
25250 | {setverdict(pass);} else {setverdict(fail);} | |
25251 | ||
25252 | ||
25253 | <RESULT> | |
25254 | ||
25255 | Overall verdict: pass | |
25256 | ||
25257 | <END_TC> | |
25258 | ||
25259 | :exmp. | |
25260 | ||
25261 | .*---------------------------------------------------------------------* | |
25262 | :h3. DECODING DER , SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
25263 | .*---------------------------------------------------------------------* | |
25264 | :xmp tab=0. | |
25265 | ||
25266 | <TC - DECODING DER , SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
25267 | ||
25268 | <STATIC:ASN> | |
25269 | ||
25270 | TempA | |
25271 | ||
25272 | DEFINITIONS | |
25273 | ||
25274 | IMPLICIT TAGS | |
25275 | ||
25276 | ||
25277 | ::= | |
25278 | ||
25279 | BEGIN | |
25280 | ||
25281 | ||
25282 | BERPDU ::= SEQUENCE | |
25283 | { | |
25284 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
25285 | c [31] EXPLICIT INTEGER OPTIONAL | |
25286 | } | |
25287 | ||
25288 | ||
25289 | END | |
25290 | ||
25291 | <STATIC> | |
25292 | ||
25293 | import from TempA all; | |
25294 | ||
25295 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25296 | ||
25297 | ||
25298 | const BERPDU myValue := {b := true, | |
25299 | c := 5 } | |
25300 | ||
25301 | ||
25302 | ||
25303 | <TTCN_TC:EXEC> | |
25304 | ||
25305 | if (dec_BER_PDU('300BBE030101FFBF1F03020105'O) == myValue) | |
25306 | ||
25307 | ||
25308 | ||
25309 | {setverdict(pass);} else {setverdict(fail);} | |
25310 | ||
25311 | ||
25312 | <RESULT> | |
25313 | ||
25314 | Overall verdict: pass | |
25315 | ||
25316 | <END_TC> | |
25317 | ||
25318 | :exmp. | |
25319 | ||
25320 | .*---------------------------------------------------------------------* | |
25321 | :h3. DECODING CER , SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
25322 | .*---------------------------------------------------------------------* | |
25323 | :xmp tab=0. | |
25324 | ||
25325 | <TC - DECODING CER , SEQUENCE (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
25326 | ||
25327 | <STATIC:ASN> | |
25328 | ||
25329 | TempA | |
25330 | ||
25331 | DEFINITIONS | |
25332 | ||
25333 | IMPLICIT TAGS | |
25334 | ||
25335 | ||
25336 | ::= | |
25337 | ||
25338 | BEGIN | |
25339 | ||
25340 | ||
25341 | BERPDU ::= SEQUENCE | |
25342 | { | |
25343 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
25344 | c [31] EXPLICIT INTEGER OPTIONAL | |
25345 | } | |
25346 | ||
25347 | ||
25348 | END | |
25349 | ||
25350 | <STATIC> | |
25351 | ||
25352 | import from TempA all; | |
25353 | ||
25354 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25355 | ||
25356 | ||
25357 | const BERPDU myValue := {b := true, | |
25358 | c := 5 } | |
25359 | ||
25360 | ||
25361 | ||
25362 | <TTCN_TC:EXEC> | |
25363 | ||
25364 | if (dec_BER_PDU('3080BE800101FF0000BF1F8002010500000000'O) == myValue) | |
25365 | ||
25366 | ||
25367 | ||
25368 | {setverdict(pass);} else {setverdict(fail);} | |
25369 | ||
25370 | ||
25371 | <RESULT> | |
25372 | ||
25373 | Overall verdict: pass | |
25374 | ||
25375 | <END_TC> | |
25376 | ||
25377 | :exmp. | |
25378 | ||
25379 | .*---------------------------------------------------------------------* | |
25380 | :h3. DECODING , DER , TAGGED SEQUENCE (both elements are used) | |
25381 | .*---------------------------------------------------------------------* | |
25382 | :xmp tab=0. | |
25383 | ||
25384 | <TC - DECODING , DER , TAGGED SEQUENCE (both elements are used)> | |
25385 | ||
25386 | <STATIC:ASN> | |
25387 | ||
25388 | TempA | |
25389 | ||
25390 | DEFINITIONS | |
25391 | ||
25392 | ||
25393 | ||
25394 | ::= | |
25395 | ||
25396 | BEGIN | |
25397 | ||
25398 | ||
25399 | BERPDU ::= [0] SEQUENCE | |
25400 | { | |
25401 | b BOOLEAN OPTIONAL, | |
25402 | c INTEGER OPTIONAL | |
25403 | } | |
25404 | ||
25405 | ||
25406 | END | |
25407 | ||
25408 | <STATIC> | |
25409 | ||
25410 | import from TempA all; | |
25411 | ||
25412 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25413 | ||
25414 | ||
25415 | const BERPDU myValue := {b := true, | |
25416 | c := 5 } | |
25417 | ||
25418 | ||
25419 | ||
25420 | <TTCN_TC:EXEC> | |
25421 | ||
25422 | if (dec_BER_PDU('A00830060101FF020105'O) == myValue) | |
25423 | ||
25424 | ||
25425 | ||
25426 | {setverdict(pass);} else {setverdict(fail);} | |
25427 | ||
25428 | ||
25429 | <RESULT> | |
25430 | ||
25431 | Overall verdict: pass | |
25432 | ||
25433 | <END_TC> | |
25434 | ||
25435 | :exmp. | |
25436 | ||
25437 | .*---------------------------------------------------------------------* | |
25438 | :h3. DECODING , CER , TAGGED SEQUENCE (both elements are used) | |
25439 | .*---------------------------------------------------------------------* | |
25440 | :xmp tab=0. | |
25441 | ||
25442 | <TC - DECODING , CER , TAGGED SEQUENCE (both elements are used)> | |
25443 | ||
25444 | <STATIC:ASN> | |
25445 | ||
25446 | TempA | |
25447 | ||
25448 | DEFINITIONS | |
25449 | ||
25450 | ||
25451 | ||
25452 | ::= | |
25453 | ||
25454 | BEGIN | |
25455 | ||
25456 | ||
25457 | BERPDU ::= [0] SEQUENCE | |
25458 | { | |
25459 | b BOOLEAN OPTIONAL, | |
25460 | c INTEGER OPTIONAL | |
25461 | } | |
25462 | ||
25463 | ||
25464 | END | |
25465 | ||
25466 | <STATIC> | |
25467 | ||
25468 | import from TempA all; | |
25469 | ||
25470 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25471 | ||
25472 | ||
25473 | const BERPDU myValue := {b := true, | |
25474 | c := 5 } | |
25475 | ||
25476 | ||
25477 | ||
25478 | <TTCN_TC:EXEC> | |
25479 | ||
25480 | if (dec_BER_PDU('A08030800101FF02010500000000'O) == myValue) | |
25481 | ||
25482 | ||
25483 | ||
25484 | {setverdict(pass);} else {setverdict(fail);} | |
25485 | ||
25486 | ||
25487 | <RESULT> | |
25488 | ||
25489 | Overall verdict: pass | |
25490 | ||
25491 | <END_TC> | |
25492 | ||
25493 | :exmp. | |
25494 | ||
25495 | .*---------------------------------------------------------------------* | |
25496 | :h3. DECODING DER , TAGGED SEQUENCE (both elements are used) | |
25497 | .*---------------------------------------------------------------------* | |
25498 | :xmp tab=0. | |
25499 | ||
25500 | <TC - DECODING DER , TAGGED SEQUENCE (both elements are used)> | |
25501 | ||
25502 | <STATIC:ASN> | |
25503 | ||
25504 | TempA | |
25505 | ||
25506 | DEFINITIONS | |
25507 | ||
25508 | ||
25509 | ||
25510 | ::= | |
25511 | ||
25512 | BEGIN | |
25513 | ||
25514 | ||
25515 | BERPDU ::= [0] SEQUENCE | |
25516 | { | |
25517 | b BOOLEAN OPTIONAL, | |
25518 | c INTEGER OPTIONAL | |
25519 | } | |
25520 | ||
25521 | END | |
25522 | ||
25523 | <STATIC> | |
25524 | ||
25525 | import from TempA all; | |
25526 | ||
25527 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25528 | ||
25529 | ||
25530 | const BERPDU myValue := {b := true, | |
25531 | c := 5 } | |
25532 | ||
25533 | ||
25534 | ||
25535 | <TTCN_TC:EXEC> | |
25536 | ||
25537 | if (dec_BER_PDU('A00830060101FF020105'O) == myValue) | |
25538 | ||
25539 | ||
25540 | ||
25541 | {setverdict(pass);} else {setverdict(fail);} | |
25542 | ||
25543 | ||
25544 | <RESULT> | |
25545 | ||
25546 | Overall verdict: pass | |
25547 | ||
25548 | <END_TC> | |
25549 | ||
25550 | :exmp. | |
25551 | ||
25552 | .*---------------------------------------------------------------------* | |
25553 | :h3. DECODING CER , TAGGED SEQUENCE (both elements are used) | |
25554 | .*---------------------------------------------------------------------* | |
25555 | :xmp tab=0. | |
25556 | ||
25557 | <TC - DECODING CER , TAGGED SEQUENCE (both elements are used)> | |
25558 | ||
25559 | <STATIC:ASN> | |
25560 | ||
25561 | TempA | |
25562 | ||
25563 | DEFINITIONS | |
25564 | ||
25565 | ||
25566 | ||
25567 | ::= | |
25568 | ||
25569 | BEGIN | |
25570 | ||
25571 | ||
25572 | BERPDU ::= [0] SEQUENCE | |
25573 | { | |
25574 | b BOOLEAN OPTIONAL, | |
25575 | c INTEGER OPTIONAL | |
25576 | } | |
25577 | ||
25578 | END | |
25579 | ||
25580 | <STATIC> | |
25581 | ||
25582 | import from TempA all; | |
25583 | ||
25584 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25585 | ||
25586 | ||
25587 | const BERPDU myValue := {b := true, | |
25588 | c := 5 } | |
25589 | ||
25590 | ||
25591 | ||
25592 | <TTCN_TC:EXEC> | |
25593 | ||
25594 | if (dec_BER_PDU('A08030800101FF02010500000000'O) == myValue) | |
25595 | ||
25596 | ||
25597 | ||
25598 | {setverdict(pass);} else {setverdict(fail);} | |
25599 | ||
25600 | ||
25601 | <RESULT> | |
25602 | ||
25603 | Overall verdict: pass | |
25604 | ||
25605 | <END_TC> | |
25606 | ||
25607 | :exmp. | |
25608 | ||
25609 | .*---------------------------------------------------------------------* | |
25610 | :h3. DECODING DER , TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
25611 | .*---------------------------------------------------------------------* | |
25612 | :xmp tab=0. | |
25613 | ||
25614 | <TC - DECODING DER , TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
25615 | ||
25616 | <STATIC:ASN> | |
25617 | ||
25618 | TempA | |
25619 | ||
25620 | DEFINITIONS | |
25621 | ||
25622 | IMPLICIT TAGS | |
25623 | ||
25624 | ||
25625 | ::= | |
25626 | ||
25627 | BEGIN | |
25628 | ||
25629 | ||
25630 | BERPDU ::= [0] SEQUENCE | |
25631 | { | |
25632 | b BOOLEAN OPTIONAL, | |
25633 | c INTEGER OPTIONAL | |
25634 | } | |
25635 | ||
25636 | ||
25637 | END | |
25638 | ||
25639 | <STATIC> | |
25640 | ||
25641 | import from TempA all; | |
25642 | ||
25643 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25644 | ||
25645 | ||
25646 | const BERPDU myValue := {b := true, | |
25647 | c := 5 } | |
25648 | ||
25649 | ||
25650 | <TTCN_TC:EXEC> | |
25651 | ||
25652 | if (dec_BER_PDU('A0060101FF020105'O) == myValue) | |
25653 | ||
25654 | ||
25655 | ||
25656 | {setverdict(pass);} else {setverdict(fail);} | |
25657 | ||
25658 | ||
25659 | <RESULT> | |
25660 | ||
25661 | Overall verdict: pass | |
25662 | ||
25663 | <END_TC> | |
25664 | ||
25665 | :exmp. | |
25666 | ||
25667 | .*---------------------------------------------------------------------* | |
25668 | :h3. DECODING CER , TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
25669 | .*---------------------------------------------------------------------* | |
25670 | :xmp tab=0. | |
25671 | ||
25672 | <TC - DECODING CER , TAGGED SEQUENCE (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
25673 | ||
25674 | <STATIC:ASN> | |
25675 | ||
25676 | TempA | |
25677 | ||
25678 | DEFINITIONS | |
25679 | ||
25680 | IMPLICIT TAGS | |
25681 | ||
25682 | ||
25683 | ::= | |
25684 | ||
25685 | BEGIN | |
25686 | ||
25687 | ||
25688 | BERPDU ::= [0] SEQUENCE | |
25689 | { | |
25690 | b BOOLEAN OPTIONAL, | |
25691 | c INTEGER OPTIONAL | |
25692 | } | |
25693 | ||
25694 | ||
25695 | END | |
25696 | ||
25697 | <STATIC> | |
25698 | ||
25699 | import from TempA all; | |
25700 | ||
25701 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25702 | ||
25703 | ||
25704 | const BERPDU myValue := {b := true, | |
25705 | c := 5 } | |
25706 | ||
25707 | ||
25708 | <TTCN_TC:EXEC> | |
25709 | ||
25710 | if (dec_BER_PDU('A0800101FF0201050000'O) == myValue) | |
25711 | ||
25712 | ||
25713 | ||
25714 | {setverdict(pass);} else {setverdict(fail);} | |
25715 | ||
25716 | ||
25717 | <RESULT> | |
25718 | ||
25719 | Overall verdict: pass | |
25720 | ||
25721 | <END_TC> | |
25722 | ||
25723 | :exmp. | |
25724 | ||
25725 | .*---------------------------------------------------------------------* | |
25726 | :h3. DECODING DER , TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
25727 | .*---------------------------------------------------------------------* | |
25728 | :xmp tab=0. | |
25729 | ||
25730 | <TC - DECODING DER , TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
25731 | ||
25732 | <STATIC:ASN> | |
25733 | ||
25734 | TempA | |
25735 | ||
25736 | DEFINITIONS | |
25737 | ||
25738 | EXPLICIT TAGS | |
25739 | ||
25740 | ||
25741 | ::= | |
25742 | ||
25743 | BEGIN | |
25744 | ||
25745 | ||
25746 | BERPDU ::= [0] SEQUENCE | |
25747 | { | |
25748 | b BOOLEAN OPTIONAL, | |
25749 | c INTEGER OPTIONAL | |
25750 | } | |
25751 | ||
25752 | ||
25753 | END | |
25754 | ||
25755 | <STATIC> | |
25756 | ||
25757 | import from TempA all; | |
25758 | ||
25759 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25760 | ||
25761 | ||
25762 | const BERPDU myValue := {b := true, | |
25763 | c := 5 } | |
25764 | ||
25765 | ||
25766 | ||
25767 | <TTCN_TC:EXEC> | |
25768 | ||
25769 | if (dec_BER_PDU('A00830060101FF020105'O) == myValue) | |
25770 | ||
25771 | ||
25772 | ||
25773 | {setverdict(pass);} else {setverdict(fail);} | |
25774 | ||
25775 | ||
25776 | <RESULT> | |
25777 | ||
25778 | Overall verdict: pass | |
25779 | ||
25780 | <END_TC> | |
25781 | ||
25782 | :exmp. | |
25783 | ||
25784 | .*---------------------------------------------------------------------* | |
25785 | :h3. DECODING CER , TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
25786 | .*---------------------------------------------------------------------* | |
25787 | :xmp tab=0. | |
25788 | ||
25789 | <TC - DECODING CER , TAGGED SEQUENCE (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
25790 | ||
25791 | <STATIC:ASN> | |
25792 | ||
25793 | TempA | |
25794 | ||
25795 | DEFINITIONS | |
25796 | ||
25797 | EXPLICIT TAGS | |
25798 | ||
25799 | ||
25800 | ::= | |
25801 | ||
25802 | BEGIN | |
25803 | ||
25804 | ||
25805 | BERPDU ::= [0] SEQUENCE | |
25806 | { | |
25807 | b BOOLEAN OPTIONAL, | |
25808 | c INTEGER OPTIONAL | |
25809 | } | |
25810 | ||
25811 | ||
25812 | END | |
25813 | ||
25814 | <STATIC> | |
25815 | ||
25816 | import from TempA all; | |
25817 | ||
25818 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25819 | ||
25820 | ||
25821 | const BERPDU myValue := {b := true, | |
25822 | c := 5 } | |
25823 | ||
25824 | ||
25825 | ||
25826 | <TTCN_TC:EXEC> | |
25827 | ||
25828 | if (dec_BER_PDU('A08030800101FF02010500000000'O) == myValue) | |
25829 | ||
25830 | ||
25831 | ||
25832 | {setverdict(pass);} else {setverdict(fail);} | |
25833 | ||
25834 | ||
25835 | <RESULT> | |
25836 | ||
25837 | Overall verdict: pass | |
25838 | ||
25839 | <END_TC> | |
25840 | ||
25841 | :exmp. | |
25842 | ||
25843 | .*---------------------------------------------------------------------* | |
25844 | :h3. DECODING DER, TAGGED SEQUENCE (both elements are TAGGED and used) | |
25845 | .*---------------------------------------------------------------------* | |
25846 | :xmp tab=0. | |
25847 | ||
25848 | <TC - DECODING DER, TAGGED SEQUENCE (both elements are TAGGED and used)> | |
25849 | ||
25850 | <STATIC:ASN> | |
25851 | ||
25852 | TempA | |
25853 | ||
25854 | DEFINITIONS | |
25855 | ||
25856 | ||
25857 | ||
25858 | ::= | |
25859 | ||
25860 | BEGIN | |
25861 | ||
25862 | ||
25863 | BERPDU ::= [0] SEQUENCE | |
25864 | { | |
25865 | b [0] BOOLEAN OPTIONAL, | |
25866 | c [1] INTEGER OPTIONAL | |
25867 | } | |
25868 | ||
25869 | ||
25870 | ||
25871 | END | |
25872 | ||
25873 | <STATIC> | |
25874 | ||
25875 | import from TempA all; | |
25876 | ||
25877 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25878 | ||
25879 | ||
25880 | const BERPDU myValue := {b := true, | |
25881 | c := 5 } | |
25882 | ||
25883 | ||
25884 | ||
25885 | <TTCN_TC:EXEC> | |
25886 | ||
25887 | if (dec_BER_PDU('A00C300AA0030101FFA103020105'O) == myValue) | |
25888 | ||
25889 | ||
25890 | ||
25891 | {setverdict(pass);} else {setverdict(fail);} | |
25892 | ||
25893 | ||
25894 | <RESULT> | |
25895 | ||
25896 | Overall verdict: pass | |
25897 | ||
25898 | <END_TC> | |
25899 | ||
25900 | :exmp. | |
25901 | ||
25902 | .*---------------------------------------------------------------------* | |
25903 | :h3. DECODING CER, TAGGED SEQUENCE (both elements are TAGGED and used) | |
25904 | .*---------------------------------------------------------------------* | |
25905 | :xmp tab=0. | |
25906 | ||
25907 | <TC - DECODING CER, TAGGED SEQUENCE (both elements are TAGGED and used)> | |
25908 | ||
25909 | <STATIC:ASN> | |
25910 | ||
25911 | TempA | |
25912 | ||
25913 | DEFINITIONS | |
25914 | ||
25915 | ||
25916 | ||
25917 | ::= | |
25918 | ||
25919 | BEGIN | |
25920 | ||
25921 | ||
25922 | BERPDU ::= [0] SEQUENCE | |
25923 | { | |
25924 | b [0] BOOLEAN OPTIONAL, | |
25925 | c [1] INTEGER OPTIONAL | |
25926 | } | |
25927 | ||
25928 | ||
25929 | ||
25930 | END | |
25931 | ||
25932 | <STATIC> | |
25933 | ||
25934 | import from TempA all; | |
25935 | ||
25936 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25937 | ||
25938 | ||
25939 | const BERPDU myValue := {b := true, | |
25940 | c := 5 } | |
25941 | ||
25942 | ||
25943 | ||
25944 | <TTCN_TC:EXEC> | |
25945 | ||
25946 | if (dec_BER_PDU('A0803080A0800101FF0000A180020105000000000000'O) == myValue) | |
25947 | ||
25948 | ||
25949 | ||
25950 | {setverdict(pass);} else {setverdict(fail);} | |
25951 | ||
25952 | ||
25953 | <RESULT> | |
25954 | ||
25955 | Overall verdict: pass | |
25956 | ||
25957 | <END_TC> | |
25958 | ||
25959 | :exmp. | |
25960 | ||
25961 | .*---------------------------------------------------------------------* | |
25962 | :h3. DECODING DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
25963 | .*---------------------------------------------------------------------* | |
25964 | :xmp tab=0. | |
25965 | ||
25966 | <TC - DECODING DER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
25967 | ||
25968 | <STATIC:ASN> | |
25969 | ||
25970 | TempA | |
25971 | ||
25972 | DEFINITIONS | |
25973 | ||
25974 | EXPLICIT TAGS | |
25975 | ||
25976 | ||
25977 | ::= | |
25978 | ||
25979 | BEGIN | |
25980 | ||
25981 | ||
25982 | BERPDU ::= [0] SEQUENCE | |
25983 | { | |
25984 | b [0] BOOLEAN OPTIONAL, | |
25985 | c [1] INTEGER OPTIONAL | |
25986 | } | |
25987 | ||
25988 | ||
25989 | END | |
25990 | ||
25991 | <STATIC> | |
25992 | ||
25993 | import from TempA all; | |
25994 | ||
25995 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
25996 | ||
25997 | ||
25998 | const BERPDU myValue := {b := true, | |
25999 | c := 5 } | |
26000 | ||
26001 | ||
26002 | ||
26003 | <TTCN_TC:EXEC> | |
26004 | ||
26005 | if (dec_BER_PDU('A00C300AA0030101FFA103020105'O) == myValue) | |
26006 | ||
26007 | ||
26008 | ||
26009 | {setverdict(pass);} else {setverdict(fail);} | |
26010 | ||
26011 | ||
26012 | <RESULT> | |
26013 | ||
26014 | Overall verdict: pass | |
26015 | ||
26016 | <END_TC> | |
26017 | ||
26018 | :exmp. | |
26019 | ||
26020 | .*---------------------------------------------------------------------* | |
26021 | :h3. DECODING CER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
26022 | .*---------------------------------------------------------------------* | |
26023 | :xmp tab=0. | |
26024 | ||
26025 | <TC - DECODING CER encoding of TAGGED SEQUENCE (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
26026 | ||
26027 | <STATIC:ASN> | |
26028 | ||
26029 | TempA | |
26030 | ||
26031 | DEFINITIONS | |
26032 | ||
26033 | EXPLICIT TAGS | |
26034 | ||
26035 | ||
26036 | ::= | |
26037 | ||
26038 | BEGIN | |
26039 | ||
26040 | ||
26041 | BERPDU ::= [0] SEQUENCE | |
26042 | { | |
26043 | b [0] BOOLEAN OPTIONAL, | |
26044 | c [1] INTEGER OPTIONAL | |
26045 | } | |
26046 | ||
26047 | ||
26048 | END | |
26049 | ||
26050 | <STATIC> | |
26051 | ||
26052 | import from TempA all; | |
26053 | ||
26054 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26055 | ||
26056 | ||
26057 | const BERPDU myValue := {b := true, | |
26058 | c := 5 } | |
26059 | ||
26060 | ||
26061 | ||
26062 | <TTCN_TC:EXEC> | |
26063 | ||
26064 | if (dec_BER_PDU('A0803080A0800101FF0000A180020105000000000000'O) == myValue) | |
26065 | ||
26066 | ||
26067 | ||
26068 | {setverdict(pass);} else {setverdict(fail);} | |
26069 | ||
26070 | ||
26071 | <RESULT> | |
26072 | ||
26073 | Overall verdict: pass | |
26074 | ||
26075 | <END_TC> | |
26076 | ||
26077 | :exmp. | |
26078 | ||
26079 | .*---------------------------------------------------------------------* | |
26080 | :h3. DECODING , DER , TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
26081 | .*---------------------------------------------------------------------* | |
26082 | :xmp tab=0. | |
26083 | ||
26084 | <TC - DECODING , DER , TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
26085 | ||
26086 | <STATIC:ASN> | |
26087 | ||
26088 | TempA | |
26089 | ||
26090 | DEFINITIONS | |
26091 | ||
26092 | IMPLICIT TAGS | |
26093 | ||
26094 | ||
26095 | ::= | |
26096 | ||
26097 | BEGIN | |
26098 | ||
26099 | ||
26100 | BERPDU ::= [0] SEQUENCE | |
26101 | { | |
26102 | b [0] BOOLEAN OPTIONAL, | |
26103 | c [1] INTEGER OPTIONAL | |
26104 | } | |
26105 | ||
26106 | ||
26107 | END | |
26108 | ||
26109 | <STATIC> | |
26110 | ||
26111 | import from TempA all; | |
26112 | ||
26113 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26114 | ||
26115 | ||
26116 | const BERPDU myValue := {b := true, | |
26117 | c := 5 } | |
26118 | ||
26119 | ||
26120 | <TTCN_TC:EXEC> | |
26121 | ||
26122 | if (dec_BER_PDU('A0068001FF810105'O) == myValue) | |
26123 | ||
26124 | ||
26125 | ||
26126 | {setverdict(pass);} else {setverdict(fail);} | |
26127 | ||
26128 | ||
26129 | <RESULT> | |
26130 | ||
26131 | Overall verdict: pass | |
26132 | ||
26133 | <END_TC> | |
26134 | ||
26135 | :exmp. | |
26136 | ||
26137 | .*---------------------------------------------------------------------* | |
26138 | :h3. DECODING , CER , TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
26139 | .*---------------------------------------------------------------------* | |
26140 | :xmp tab=0. | |
26141 | ||
26142 | <TC - DECODING , CER , TAGGED SEQUENCE (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
26143 | ||
26144 | <STATIC:ASN> | |
26145 | ||
26146 | TempA | |
26147 | ||
26148 | DEFINITIONS | |
26149 | ||
26150 | IMPLICIT TAGS | |
26151 | ||
26152 | ||
26153 | ::= | |
26154 | ||
26155 | BEGIN | |
26156 | ||
26157 | ||
26158 | BERPDU ::= [0] SEQUENCE | |
26159 | { | |
26160 | b [0] BOOLEAN OPTIONAL, | |
26161 | c [1] INTEGER OPTIONAL | |
26162 | } | |
26163 | ||
26164 | ||
26165 | END | |
26166 | ||
26167 | <STATIC> | |
26168 | ||
26169 | import from TempA all; | |
26170 | ||
26171 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26172 | ||
26173 | ||
26174 | const BERPDU myValue := {b := true, | |
26175 | c := 5 } | |
26176 | ||
26177 | ||
26178 | <TTCN_TC:EXEC> | |
26179 | ||
26180 | if (dec_BER_PDU('A0808001FF8101050000'O) == myValue) | |
26181 | ||
26182 | ||
26183 | ||
26184 | {setverdict(pass);} else {setverdict(fail);} | |
26185 | ||
26186 | ||
26187 | <RESULT> | |
26188 | ||
26189 | Overall verdict: pass | |
26190 | ||
26191 | <END_TC> | |
26192 | ||
26193 | :exmp. | |
26194 | ||
26195 | .*---------------------------------------------------------------------* | |
26196 | :h3. DECODING , DER , TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
26197 | .*---------------------------------------------------------------------* | |
26198 | :xmp tab=0. | |
26199 | ||
26200 | <TC - DECODING , DER , TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
26201 | ||
26202 | <STATIC:ASN> | |
26203 | ||
26204 | TempA | |
26205 | ||
26206 | DEFINITIONS | |
26207 | ||
26208 | AUTOMATIC TAGS | |
26209 | ||
26210 | ||
26211 | ::= | |
26212 | ||
26213 | BEGIN | |
26214 | ||
26215 | ||
26216 | BERPDU ::= [0] SEQUENCE | |
26217 | { | |
26218 | b [0] BOOLEAN OPTIONAL, | |
26219 | c [1] INTEGER OPTIONAL | |
26220 | } | |
26221 | ||
26222 | ||
26223 | END | |
26224 | ||
26225 | <STATIC> | |
26226 | ||
26227 | import from TempA all; | |
26228 | ||
26229 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26230 | ||
26231 | ||
26232 | const BERPDU myValue := {b := true, | |
26233 | c := 5 } | |
26234 | ||
26235 | ||
26236 | <TTCN_TC:EXEC> | |
26237 | ||
26238 | if (dec_BER_PDU('A0068001FF810105'O) == myValue) | |
26239 | ||
26240 | ||
26241 | ||
26242 | {setverdict(pass);} else {setverdict(fail);} | |
26243 | ||
26244 | ||
26245 | <RESULT> | |
26246 | ||
26247 | Overall verdict: pass | |
26248 | ||
26249 | <END_TC> | |
26250 | ||
26251 | :exmp. | |
26252 | ||
26253 | .*---------------------------------------------------------------------* | |
26254 | :h3. DECODING , CER , TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
26255 | .*---------------------------------------------------------------------* | |
26256 | :xmp tab=0. | |
26257 | ||
26258 | <TC - DECODING , CER , TAGGED SEQUENCE (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
26259 | ||
26260 | <STATIC:ASN> | |
26261 | ||
26262 | TempA | |
26263 | ||
26264 | DEFINITIONS | |
26265 | ||
26266 | AUTOMATIC TAGS | |
26267 | ||
26268 | ||
26269 | ::= | |
26270 | ||
26271 | BEGIN | |
26272 | ||
26273 | ||
26274 | BERPDU ::= [0] SEQUENCE | |
26275 | { | |
26276 | b [0] BOOLEAN OPTIONAL, | |
26277 | c [1] INTEGER OPTIONAL | |
26278 | } | |
26279 | ||
26280 | ||
26281 | END | |
26282 | ||
26283 | <STATIC> | |
26284 | ||
26285 | import from TempA all; | |
26286 | ||
26287 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26288 | ||
26289 | ||
26290 | const BERPDU myValue := {b := true, | |
26291 | c := 5 } | |
26292 | ||
26293 | ||
26294 | <TTCN_TC:EXEC> | |
26295 | ||
26296 | if (dec_BER_PDU('A0808001FF8101050000'O) == myValue) | |
26297 | ||
26298 | ||
26299 | ||
26300 | {setverdict(pass);} else {setverdict(fail);} | |
26301 | ||
26302 | ||
26303 | <RESULT> | |
26304 | ||
26305 | Overall verdict: pass | |
26306 | ||
26307 | <END_TC> | |
26308 | ||
26309 | :exmp. | |
26310 | ||
26311 | .*---------------------------------------------------------------------* | |
26312 | :h3. DECODING ,DER, SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
26313 | .*---------------------------------------------------------------------* | |
26314 | :xmp tab=0. | |
26315 | ||
26316 | <TC - DECODING ,DER, SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
26317 | ||
26318 | <STATIC:ASN> | |
26319 | ||
26320 | TempA | |
26321 | ||
26322 | DEFINITIONS | |
26323 | ||
26324 | AUTOMATIC TAGS | |
26325 | ||
26326 | ||
26327 | ::= | |
26328 | ||
26329 | BEGIN | |
26330 | ||
26331 | ||
26332 | BERPDU ::= SEQUENCE | |
26333 | { | |
26334 | b [5] BOOLEAN OPTIONAL, | |
26335 | c INTEGER OPTIONAL | |
26336 | } | |
26337 | ||
26338 | ||
26339 | END | |
26340 | ||
26341 | <STATIC> | |
26342 | ||
26343 | import from TempA all; | |
26344 | ||
26345 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26346 | ||
26347 | ||
26348 | const BERPDU myValue := {b := true, | |
26349 | c := 5 } | |
26350 | ||
26351 | ||
26352 | <TTCN_TC:EXEC> | |
26353 | ||
26354 | if (dec_BER_PDU('30068501FF020105'O) == myValue) | |
26355 | ||
26356 | ||
26357 | ||
26358 | {setverdict(pass);} else {setverdict(fail);} | |
26359 | ||
26360 | ||
26361 | <RESULT> | |
26362 | ||
26363 | Overall verdict: pass | |
26364 | ||
26365 | <END_TC> | |
26366 | ||
26367 | :exmp. | |
26368 | ||
26369 | .*---------------------------------------------------------------------* | |
26370 | :h3. DECODING ,CER, SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
26371 | .*---------------------------------------------------------------------* | |
26372 | :xmp tab=0. | |
26373 | ||
26374 | <TC - DECODING ,CER, SEQUENCE , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
26375 | ||
26376 | <STATIC:ASN> | |
26377 | ||
26378 | TempA | |
26379 | ||
26380 | DEFINITIONS | |
26381 | ||
26382 | AUTOMATIC TAGS | |
26383 | ||
26384 | ||
26385 | ::= | |
26386 | ||
26387 | BEGIN | |
26388 | ||
26389 | ||
26390 | BERPDU ::= SEQUENCE | |
26391 | { | |
26392 | b [5] BOOLEAN OPTIONAL, | |
26393 | c INTEGER OPTIONAL | |
26394 | } | |
26395 | ||
26396 | ||
26397 | END | |
26398 | ||
26399 | <STATIC> | |
26400 | ||
26401 | import from TempA all; | |
26402 | ||
26403 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26404 | ||
26405 | ||
26406 | const BERPDU myValue := {b := true, | |
26407 | c := 5 } | |
26408 | ||
26409 | ||
26410 | <TTCN_TC:EXEC> | |
26411 | ||
26412 | if (dec_BER_PDU('30808501FF0201050000'O) == myValue) | |
26413 | ||
26414 | ||
26415 | ||
26416 | {setverdict(pass);} else {setverdict(fail);} | |
26417 | ||
26418 | ||
26419 | <RESULT> | |
26420 | ||
26421 | Overall verdict: pass | |
26422 | ||
26423 | <END_TC> | |
26424 | ||
26425 | :exmp. | |
26426 | ||
26427 | .*---------------------------------------------------------------------* | |
26428 | :h3. DECODING ,DER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
26429 | .*---------------------------------------------------------------------* | |
26430 | :xmp tab=0. | |
26431 | ||
26432 | <TC - DECODING ,DER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
26433 | ||
26434 | <STATIC:ASN> | |
26435 | ||
26436 | TempA | |
26437 | ||
26438 | DEFINITIONS | |
26439 | ||
26440 | AUTOMATIC TAGS | |
26441 | ||
26442 | ||
26443 | ::= | |
26444 | ||
26445 | BEGIN | |
26446 | ||
26447 | MySeq ::= SEQUENCE | |
26448 | {x INTEGER OPTIONAL, | |
26449 | y OCTET STRING} | |
26450 | ||
26451 | ||
26452 | ||
26453 | BERPDU ::= SEQUENCE | |
26454 | { | |
26455 | b BOOLEAN OPTIONAL, | |
26456 | c INTEGER OPTIONAL, | |
26457 | COMPONENTS OF MySeq | |
26458 | } | |
26459 | ||
26460 | ||
26461 | END | |
26462 | ||
26463 | <STATIC> | |
26464 | ||
26465 | import from TempA all; | |
26466 | ||
26467 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26468 | ||
26469 | ||
26470 | const BERPDU myValue := {b := true, | |
26471 | c := 5 , | |
26472 | x := 6, | |
26473 | y := 'FF'O } | |
26474 | ||
26475 | ||
26476 | ||
26477 | <TTCN_TC:EXEC> | |
26478 | ||
26479 | if (dec_BER_PDU('300C8001FF8101058201068301FF'O) == myValue) | |
26480 | ||
26481 | ||
26482 | ||
26483 | {setverdict(pass);} else {setverdict(fail);} | |
26484 | ||
26485 | ||
26486 | <RESULT> | |
26487 | ||
26488 | Overall verdict: pass | |
26489 | ||
26490 | <END_TC> | |
26491 | ||
26492 | :exmp. | |
26493 | ||
26494 | .*---------------------------------------------------------------------* | |
26495 | :h3. DECODING ,CER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
26496 | .*---------------------------------------------------------------------* | |
26497 | :xmp tab=0. | |
26498 | ||
26499 | <TC - DECODING ,CER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
26500 | ||
26501 | <STATIC:ASN> | |
26502 | ||
26503 | TempA | |
26504 | ||
26505 | DEFINITIONS | |
26506 | ||
26507 | AUTOMATIC TAGS | |
26508 | ||
26509 | ||
26510 | ::= | |
26511 | ||
26512 | BEGIN | |
26513 | ||
26514 | ||
26515 | MySeq ::= SEQUENCE | |
26516 | {x INTEGER OPTIONAL, | |
26517 | y OCTET STRING} | |
26518 | ||
26519 | ||
26520 | ||
26521 | BERPDU ::= SEQUENCE | |
26522 | { | |
26523 | b BOOLEAN OPTIONAL, | |
26524 | c INTEGER OPTIONAL, | |
26525 | COMPONENTS OF MySeq | |
26526 | } | |
26527 | ||
26528 | ||
26529 | END | |
26530 | ||
26531 | <STATIC> | |
26532 | ||
26533 | import from TempA all; | |
26534 | ||
26535 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26536 | ||
26537 | const BERPDU myValue := {b := true, | |
26538 | c := 5 , | |
26539 | x := 6, | |
26540 | y := 'FF'O } | |
26541 | ||
26542 | ||
26543 | ||
26544 | ||
26545 | <TTCN_TC:EXEC> | |
26546 | ||
26547 | if (dec_BER_PDU('30808001FF8101058201068301FF0000'O) == myValue) | |
26548 | ||
26549 | ||
26550 | ||
26551 | {setverdict(pass);} else {setverdict(fail);} | |
26552 | ||
26553 | ||
26554 | <RESULT> | |
26555 | ||
26556 | Overall verdict: pass | |
26557 | ||
26558 | <END_TC> | |
26559 | ||
26560 | :exmp. | |
26561 | ||
26562 | .*---------------------------------------------------------------------* | |
26563 | :h3. DECODING ,DER, SEQUENCE ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
26564 | .*---------------------------------------------------------------------* | |
26565 | :xmp tab=0. | |
26566 | ||
26567 | <TC - DECODING ,DER, SEQUENCE ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
26568 | ||
26569 | <STATIC:ASN> | |
26570 | ||
26571 | TempA | |
26572 | ||
26573 | DEFINITIONS | |
26574 | ||
26575 | AUTOMATIC TAGS | |
26576 | ||
26577 | ||
26578 | ::= | |
26579 | ||
26580 | BEGIN | |
26581 | ||
26582 | MySeq ::= SEQUENCE | |
26583 | {x [0] INTEGER OPTIONAL, | |
26584 | y OCTET STRING} | |
26585 | ||
26586 | ||
26587 | ||
26588 | BERPDU ::= SEQUENCE | |
26589 | { | |
26590 | b BOOLEAN OPTIONAL, | |
26591 | c INTEGER OPTIONAL, | |
26592 | COMPONENTS OF MySeq | |
26593 | } | |
26594 | ||
26595 | ||
26596 | ||
26597 | END | |
26598 | ||
26599 | <STATIC> | |
26600 | ||
26601 | import from TempA all; | |
26602 | ||
26603 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26604 | ||
26605 | ||
26606 | const BERPDU myValue := {b := true, | |
26607 | c := 5 , | |
26608 | x := 6, | |
26609 | y := 'FF'O } | |
26610 | ||
26611 | ||
26612 | ||
26613 | <TTCN_TC:EXEC> | |
26614 | ||
26615 | if (dec_BER_PDU('300C8001FF8101058201068301FF'O) == myValue) | |
26616 | ||
26617 | ||
26618 | ||
26619 | {setverdict(pass);} else {setverdict(fail);} | |
26620 | ||
26621 | ||
26622 | <RESULT> | |
26623 | ||
26624 | Overall verdict: pass | |
26625 | ||
26626 | <END_TC> | |
26627 | ||
26628 | :exmp. | |
26629 | ||
26630 | .*---------------------------------------------------------------------* | |
26631 | :h3. DECODING ,CER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
26632 | .*---------------------------------------------------------------------* | |
26633 | :xmp tab=0. | |
26634 | ||
26635 | <TC - DECODING ,CER, SEQUENCE ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
26636 | ||
26637 | <STATIC:ASN> | |
26638 | ||
26639 | TempA | |
26640 | ||
26641 | DEFINITIONS | |
26642 | ||
26643 | AUTOMATIC TAGS | |
26644 | ||
26645 | ||
26646 | ::= | |
26647 | ||
26648 | BEGIN | |
26649 | ||
26650 | ||
26651 | MySeq ::= SEQUENCE | |
26652 | {x [0] INTEGER OPTIONAL, | |
26653 | y OCTET STRING} | |
26654 | ||
26655 | ||
26656 | ||
26657 | BERPDU ::= SEQUENCE | |
26658 | { | |
26659 | b BOOLEAN OPTIONAL, | |
26660 | c INTEGER OPTIONAL, | |
26661 | COMPONENTS OF MySeq | |
26662 | } | |
26663 | ||
26664 | ||
26665 | ||
26666 | ||
26667 | END | |
26668 | ||
26669 | <STATIC> | |
26670 | ||
26671 | import from TempA all; | |
26672 | ||
26673 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26674 | ||
26675 | ||
26676 | const BERPDU myValue := {b := true, | |
26677 | c := 5 , | |
26678 | x := 6, | |
26679 | y := 'FF'O } | |
26680 | ||
26681 | ||
26682 | ||
26683 | <TTCN_TC:EXEC> | |
26684 | ||
26685 | if (dec_BER_PDU('30808001FF8101058201068301FF0000'O) == myValue) | |
26686 | ||
26687 | ||
26688 | ||
26689 | {setverdict(pass);} else {setverdict(fail);} | |
26690 | ||
26691 | ||
26692 | <RESULT> | |
26693 | ||
26694 | Overall verdict: pass | |
26695 | ||
26696 | <END_TC> | |
26697 | ||
26698 | :exmp. | |
26699 | ||
26700 | .*---------------------------------------------------------------------* | |
26701 | :h3. DECODING ,DER, SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
26702 | .*---------------------------------------------------------------------* | |
26703 | :xmp tab=0. | |
26704 | ||
26705 | <TC - DECODING ,DER, SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
26706 | ||
26707 | <STATIC:ASN> | |
26708 | ||
26709 | TempA | |
26710 | ||
26711 | DEFINITIONS | |
26712 | ||
26713 | AUTOMATIC TAGS | |
26714 | ||
26715 | ||
26716 | ::= | |
26717 | ||
26718 | BEGIN | |
26719 | ||
26720 | ||
26721 | MySeq ::= SEQUENCE | |
26722 | {x INTEGER OPTIONAL, | |
26723 | y OCTET STRING} | |
26724 | ||
26725 | ||
26726 | ||
26727 | BERPDU ::= SEQUENCE | |
26728 | { | |
26729 | b [0] BOOLEAN OPTIONAL, | |
26730 | c BIT STRING OPTIONAL, | |
26731 | COMPONENTS OF MySeq | |
26732 | } | |
26733 | ||
26734 | END | |
26735 | ||
26736 | <STATIC> | |
26737 | ||
26738 | import from TempA all; | |
26739 | ||
26740 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26741 | ||
26742 | ||
26743 | ||
26744 | const BERPDU myValue := {b := true, | |
26745 | c := '1'B , | |
26746 | x := 6, | |
26747 | y := 'FF'O } | |
26748 | ||
26749 | ||
26750 | <TTCN_TC:EXEC> | |
26751 | ||
26752 | if (dec_BER_PDU('300D8001FF030207800201060401FF'O) == myValue) | |
26753 | ||
26754 | ||
26755 | ||
26756 | {setverdict(pass);} else {setverdict(fail);} | |
26757 | ||
26758 | ||
26759 | <RESULT> | |
26760 | ||
26761 | Overall verdict: pass | |
26762 | ||
26763 | <END_TC> | |
26764 | ||
26765 | :exmp. | |
26766 | ||
26767 | .*---------------------------------------------------------------------* | |
26768 | :h3. DECODING ,CER, SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
26769 | .*---------------------------------------------------------------------* | |
26770 | :xmp tab=0. | |
26771 | ||
26772 | <TC - DECODING ,CER, SEQUENCE , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
26773 | ||
26774 | <STATIC:ASN> | |
26775 | ||
26776 | TempA | |
26777 | ||
26778 | DEFINITIONS | |
26779 | ||
26780 | AUTOMATIC TAGS | |
26781 | ||
26782 | ||
26783 | ::= | |
26784 | ||
26785 | BEGIN | |
26786 | ||
26787 | ||
26788 | MySeq ::= SEQUENCE | |
26789 | {x INTEGER OPTIONAL, | |
26790 | y OCTET STRING} | |
26791 | ||
26792 | ||
26793 | ||
26794 | BERPDU ::= SEQUENCE | |
26795 | { | |
26796 | b [0] BOOLEAN OPTIONAL, | |
26797 | c BIT STRING OPTIONAL, | |
26798 | COMPONENTS OF MySeq | |
26799 | } | |
26800 | ||
26801 | ||
26802 | ||
26803 | ||
26804 | END | |
26805 | ||
26806 | <STATIC> | |
26807 | ||
26808 | import from TempA all; | |
26809 | ||
26810 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26811 | ||
26812 | ||
26813 | const BERPDU myValue := {b := true, | |
26814 | c := '1'B , | |
26815 | x := 6, | |
26816 | y := 'FF'O } | |
26817 | ||
26818 | ||
26819 | <TTCN_TC:EXEC> | |
26820 | ||
26821 | if (dec_BER_PDU('30808001FF030207800201060401FF0000'O) == myValue) | |
26822 | ||
26823 | ||
26824 | ||
26825 | {setverdict(pass);} else {setverdict(fail);} | |
26826 | ||
26827 | ||
26828 | <RESULT> | |
26829 | ||
26830 | Overall verdict: pass | |
26831 | ||
26832 | <END_TC> | |
26833 | ||
26834 | :exmp. | |
26835 | ||
26836 | .*---------------------------------------------------------------------* | |
26837 | :h3. DECODING ,DER, SEQUENCE , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
26838 | .*---------------------------------------------------------------------* | |
26839 | :xmp tab=0. | |
26840 | ||
26841 | <TC - DECODING ,DER, SEQUENCE , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
26842 | ||
26843 | <STATIC:ASN> | |
26844 | ||
26845 | TempA | |
26846 | ||
26847 | DEFINITIONS | |
26848 | ||
26849 | AUTOMATIC TAGS | |
26850 | ||
26851 | ||
26852 | ::= | |
26853 | ||
26854 | BEGIN | |
26855 | ||
26856 | ||
26857 | MySeq ::= SEQUENCE | |
26858 | {x [1] INTEGER OPTIONAL, | |
26859 | y OCTET STRING} | |
26860 | ||
26861 | ||
26862 | ||
26863 | BERPDU ::= SEQUENCE | |
26864 | { | |
26865 | b [0] BOOLEAN OPTIONAL, | |
26866 | c BIT STRING OPTIONAL, | |
26867 | COMPONENTS OF MySeq | |
26868 | } | |
26869 | ||
26870 | END | |
26871 | ||
26872 | <STATIC> | |
26873 | ||
26874 | import from TempA all; | |
26875 | ||
26876 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26877 | ||
26878 | ||
26879 | ||
26880 | const BERPDU myValue := {b := true, | |
26881 | c := '1'B , | |
26882 | x := 6, | |
26883 | y := 'FF'O } | |
26884 | ||
26885 | ||
26886 | ||
26887 | <TTCN_TC:EXEC> | |
26888 | ||
26889 | if (dec_BER_PDU('300D8001FF030207808101060401FF'O) == myValue) | |
26890 | ||
26891 | ||
26892 | ||
26893 | {setverdict(pass);} else {setverdict(fail);} | |
26894 | ||
26895 | ||
26896 | <RESULT> | |
26897 | ||
26898 | Overall verdict: pass | |
26899 | ||
26900 | <END_TC> | |
26901 | ||
26902 | :exmp. | |
26903 | ||
26904 | .*---------------------------------------------------------------------* | |
26905 | :h3. DECODING ,CER, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
26906 | .*---------------------------------------------------------------------* | |
26907 | :xmp tab=0. | |
26908 | ||
26909 | <TC - DECODING ,CER, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
26910 | ||
26911 | <STATIC:ASN> | |
26912 | ||
26913 | TempA | |
26914 | ||
26915 | DEFINITIONS | |
26916 | ||
26917 | AUTOMATIC TAGS | |
26918 | ||
26919 | ||
26920 | ::= | |
26921 | ||
26922 | BEGIN | |
26923 | ||
26924 | ||
26925 | MySeq ::= SEQUENCE | |
26926 | {x [1] INTEGER OPTIONAL, | |
26927 | y OCTET STRING} | |
26928 | ||
26929 | ||
26930 | ||
26931 | BERPDU ::= SEQUENCE | |
26932 | { | |
26933 | b [0] BOOLEAN OPTIONAL, | |
26934 | c BIT STRING OPTIONAL, | |
26935 | COMPONENTS OF MySeq | |
26936 | } | |
26937 | ||
26938 | ||
26939 | ||
26940 | ||
26941 | END | |
26942 | ||
26943 | <STATIC> | |
26944 | ||
26945 | import from TempA all; | |
26946 | ||
26947 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
26948 | ||
26949 | ||
26950 | const BERPDU myValue := {b := true, | |
26951 | c := '1'B , | |
26952 | x := 6, | |
26953 | y := 'FF'O } | |
26954 | ||
26955 | ||
26956 | ||
26957 | <TTCN_TC:EXEC> | |
26958 | ||
26959 | if (dec_BER_PDU('30808001FF030207808101060401FF0000'O) == myValue) | |
26960 | ||
26961 | ||
26962 | ||
26963 | {setverdict(pass);} else {setverdict(fail);} | |
26964 | ||
26965 | ||
26966 | <RESULT> | |
26967 | ||
26968 | Overall verdict: pass | |
26969 | ||
26970 | <END_TC> | |
26971 | ||
26972 | :exmp. | |
26973 | ||
26974 | .*---------------------------------------------------------------------* | |
26975 | :h3. DECODING ,DER, SEQUENCE with CHOICE element, AUTOMATIC TAGS | |
26976 | .*---------------------------------------------------------------------* | |
26977 | :xmp tab=0. | |
26978 | ||
26979 | <TC - DECODING ,DER, SEQUENCE with CHOICE element, AUTOMATIC TAGS> | |
26980 | ||
26981 | <STATIC:ASN> | |
26982 | ||
26983 | TempA | |
26984 | ||
26985 | DEFINITIONS | |
26986 | ||
26987 | AUTOMATIC TAGS | |
26988 | ||
26989 | ||
26990 | ::= | |
26991 | ||
26992 | BEGIN | |
26993 | ||
26994 | ||
26995 | BERPDU ::= SEQUENCE | |
26996 | { | |
26997 | b CHOICE { | |
26998 | x BOOLEAN, | |
26999 | y OCTET STRING | |
27000 | } | |
27001 | OPTIONAL, | |
27002 | ||
27003 | ||
27004 | c INTEGER OPTIONAL | |
27005 | ||
27006 | } | |
27007 | ||
27008 | ||
27009 | ||
27010 | END | |
27011 | ||
27012 | <STATIC> | |
27013 | ||
27014 | import from TempA all; | |
27015 | ||
27016 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27017 | ||
27018 | ||
27019 | const BERPDU myValue := {b := {x := true}, | |
27020 | c := 4 | |
27021 | } | |
27022 | ||
27023 | ||
27024 | ||
27025 | <TTCN_TC:EXEC> | |
27026 | ||
27027 | if (dec_BER_PDU('3008A0038001FF810104'O) == myValue) | |
27028 | ||
27029 | ||
27030 | ||
27031 | {setverdict(pass);} else {setverdict(fail);} | |
27032 | ||
27033 | ||
27034 | <RESULT> | |
27035 | ||
27036 | Overall verdict: pass | |
27037 | ||
27038 | <END_TC> | |
27039 | ||
27040 | :exmp. | |
27041 | ||
27042 | .*---------------------------------------------------------------------* | |
27043 | :h3. DECODING ,CER, SEQUENCE with CHOICE element, AUTOMATIC TAGS | |
27044 | .*---------------------------------------------------------------------* | |
27045 | :xmp tab=0. | |
27046 | ||
27047 | <TC - DECODING ,CER, SEQUENCE with CHOICE element, AUTOMATIC TAGS> | |
27048 | ||
27049 | <STATIC:ASN> | |
27050 | ||
27051 | TempA | |
27052 | ||
27053 | DEFINITIONS | |
27054 | ||
27055 | AUTOMATIC TAGS | |
27056 | ||
27057 | ||
27058 | ::= | |
27059 | ||
27060 | BEGIN | |
27061 | ||
27062 | BERPDU ::= SEQUENCE | |
27063 | { | |
27064 | b CHOICE { | |
27065 | x BOOLEAN, | |
27066 | y OCTET STRING | |
27067 | } | |
27068 | OPTIONAL, | |
27069 | ||
27070 | ||
27071 | c INTEGER OPTIONAL | |
27072 | ||
27073 | } | |
27074 | ||
27075 | ||
27076 | END | |
27077 | ||
27078 | <STATIC> | |
27079 | ||
27080 | import from TempA all; | |
27081 | ||
27082 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27083 | ||
27084 | ||
27085 | const BERPDU myValue := {b := {x := true}, | |
27086 | c := 4 | |
27087 | } | |
27088 | ||
27089 | ||
27090 | <TTCN_TC:EXEC> | |
27091 | ||
27092 | if (dec_BER_PDU('3080A0808001FF00008101040000'O) == myValue) | |
27093 | ||
27094 | ||
27095 | ||
27096 | {setverdict(pass);} else {setverdict(fail);} | |
27097 | ||
27098 | ||
27099 | <RESULT> | |
27100 | ||
27101 | Overall verdict: pass | |
27102 | ||
27103 | <END_TC> | |
27104 | ||
27105 | :exmp. | |
27106 | ||
27107 | .*---------------------------------------------------------------------* | |
27108 | :h3. DECODING ,DER, SEQUENCE with CHOICE element, | |
27109 | .*---------------------------------------------------------------------* | |
27110 | :xmp tab=0. | |
27111 | ||
27112 | <TC - DECODING ,DER, SEQUENCE with CHOICE element, > | |
27113 | ||
27114 | <STATIC:ASN> | |
27115 | ||
27116 | TempA | |
27117 | ||
27118 | DEFINITIONS | |
27119 | ||
27120 | ||
27121 | ||
27122 | ::= | |
27123 | ||
27124 | BEGIN | |
27125 | ||
27126 | ||
27127 | BERPDU ::= SEQUENCE | |
27128 | { | |
27129 | b CHOICE { | |
27130 | x BOOLEAN, | |
27131 | y OCTET STRING | |
27132 | } | |
27133 | OPTIONAL, | |
27134 | ||
27135 | ||
27136 | c INTEGER OPTIONAL | |
27137 | ||
27138 | } | |
27139 | ||
27140 | ||
27141 | END | |
27142 | ||
27143 | <STATIC> | |
27144 | ||
27145 | import from TempA all; | |
27146 | ||
27147 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27148 | ||
27149 | const BERPDU myValue := {b := {x := true}, | |
27150 | c := 4 | |
27151 | } | |
27152 | ||
27153 | ||
27154 | ||
27155 | <TTCN_TC:EXEC> | |
27156 | ||
27157 | if (dec_BER_PDU('30060101FF020104'O) == myValue) | |
27158 | ||
27159 | ||
27160 | ||
27161 | {setverdict(pass);} else {setverdict(fail);} | |
27162 | ||
27163 | ||
27164 | <RESULT> | |
27165 | ||
27166 | Overall verdict: pass | |
27167 | ||
27168 | <END_TC> | |
27169 | ||
27170 | :exmp. | |
27171 | ||
27172 | .*---------------------------------------------------------------------* | |
27173 | :h3. DECODING ,CER, SEQUENCE with CHOICE element, | |
27174 | .*---------------------------------------------------------------------* | |
27175 | :xmp tab=0. | |
27176 | ||
27177 | <TC - DECODING ,CER, SEQUENCE with CHOICE element, > | |
27178 | ||
27179 | <STATIC:ASN> | |
27180 | ||
27181 | TempA | |
27182 | ||
27183 | DEFINITIONS | |
27184 | ||
27185 | ||
27186 | ||
27187 | ::= | |
27188 | ||
27189 | BEGIN | |
27190 | ||
27191 | ||
27192 | BERPDU ::= SEQUENCE | |
27193 | { | |
27194 | b CHOICE { | |
27195 | x BOOLEAN, | |
27196 | y OCTET STRING | |
27197 | } | |
27198 | OPTIONAL, | |
27199 | ||
27200 | ||
27201 | c INTEGER OPTIONAL | |
27202 | ||
27203 | } | |
27204 | ||
27205 | END | |
27206 | ||
27207 | <STATIC> | |
27208 | ||
27209 | import from TempA all; | |
27210 | ||
27211 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27212 | ||
27213 | ||
27214 | const BERPDU myValue := {b := {x := true}, | |
27215 | c := 4 | |
27216 | } | |
27217 | ||
27218 | ||
27219 | <TTCN_TC:EXEC> | |
27220 | ||
27221 | if (dec_BER_PDU('30800101FF0201040000'O) == myValue) | |
27222 | ||
27223 | ||
27224 | ||
27225 | {setverdict(pass);} else {setverdict(fail);} | |
27226 | ||
27227 | ||
27228 | <RESULT> | |
27229 | ||
27230 | Overall verdict: pass | |
27231 | ||
27232 | <END_TC> | |
27233 | ||
27234 | :exmp. | |
27235 | ||
27236 | .*---------------------------------------------------------------------* | |
27237 | :h3. DECODING ,DER,SEQUENCE with EXTENSION , AUTOMATIC TAGS | |
27238 | .*---------------------------------------------------------------------* | |
27239 | :xmp tab=0. | |
27240 | ||
27241 | <TC - DECODING ,DER,SEQUENCE with EXTENSION , AUTOMATIC TAGS> | |
27242 | ||
27243 | <STATIC:ASN> | |
27244 | ||
27245 | TempA | |
27246 | ||
27247 | DEFINITIONS | |
27248 | ||
27249 | AUTOMATIC TAGS | |
27250 | ||
27251 | ::= | |
27252 | ||
27253 | BEGIN | |
27254 | ||
27255 | ||
27256 | ||
27257 | BERPDU ::= SEQUENCE | |
27258 | { | |
27259 | ||
27260 | a OCTET STRING, | |
27261 | ||
27262 | b BOOLEAN, | |
27263 | ||
27264 | ..., | |
27265 | ||
27266 | d BIT STRING, | |
27267 | ..., | |
27268 | ||
27269 | c INTEGER OPTIONAL | |
27270 | ||
27271 | } | |
27272 | ||
27273 | END | |
27274 | ||
27275 | <STATIC> | |
27276 | ||
27277 | import from TempA all; | |
27278 | ||
27279 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27280 | ||
27281 | ||
27282 | const BERPDU myValue := { | |
27283 | a := 'FF'O, | |
27284 | b := true, | |
27285 | d := '1'B, | |
27286 | c := 4 | |
27287 | } | |
27288 | ||
27289 | <TTCN_TC:EXEC> | |
27290 | ||
27291 | if (dec_BER_PDU('300D8001FF8101FF83020780820104'O) == myValue) | |
27292 | ||
27293 | ||
27294 | ||
27295 | {setverdict(pass);} else {setverdict(fail);} | |
27296 | ||
27297 | ||
27298 | <RESULT> | |
27299 | ||
27300 | Overall verdict: pass | |
27301 | ||
27302 | <END_TC> | |
27303 | ||
27304 | :exmp. | |
27305 | ||
27306 | .*---------------------------------------------------------------------* | |
27307 | :h3. DECODING ,CER, SEQUENCE with EXTENSION , AUTOMATIC TAGS | |
27308 | .*---------------------------------------------------------------------* | |
27309 | :xmp tab=0. | |
27310 | ||
27311 | <TC - DECODING ,CER, SEQUENCE with EXTENSION , AUTOMATIC TAGS> | |
27312 | ||
27313 | <STATIC:ASN> | |
27314 | ||
27315 | TempA | |
27316 | ||
27317 | DEFINITIONS | |
27318 | ||
27319 | AUTOMATIC TAGS | |
27320 | ||
27321 | ::= | |
27322 | ||
27323 | BEGIN | |
27324 | ||
27325 | ||
27326 | ||
27327 | BERPDU ::= SEQUENCE | |
27328 | { | |
27329 | ||
27330 | a OCTET STRING, | |
27331 | ||
27332 | b BOOLEAN, | |
27333 | ||
27334 | ..., | |
27335 | ||
27336 | d BIT STRING, | |
27337 | ..., | |
27338 | ||
27339 | c INTEGER OPTIONAL | |
27340 | ||
27341 | } | |
27342 | ||
27343 | END | |
27344 | ||
27345 | <STATIC> | |
27346 | ||
27347 | import from TempA all; | |
27348 | ||
27349 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27350 | ||
27351 | ||
27352 | const BERPDU myValue := { | |
27353 | a := 'FF'O, | |
27354 | b := true, | |
27355 | d := '1'B, | |
27356 | c := 4 | |
27357 | } | |
27358 | ||
27359 | <TTCN_TC:EXEC> | |
27360 | ||
27361 | if (dec_BER_PDU('30808001FF8101FF830207808201040000'O) == myValue) | |
27362 | ||
27363 | ||
27364 | ||
27365 | {setverdict(pass);} else {setverdict(fail);} | |
27366 | ||
27367 | ||
27368 | <RESULT> | |
27369 | ||
27370 | Overall verdict: pass | |
27371 | ||
27372 | <END_TC> | |
27373 | ||
27374 | :exmp. | |
27375 | ||
27376 | .*---------------------------------------------------------------------* | |
27377 | :h3. DECODING SEQUENCE with Long Form , AUTOMATIC TAGS | |
27378 | .*---------------------------------------------------------------------* | |
27379 | :xmp tab=0. | |
27380 | ||
27381 | <TC - DECODING SEQUENCE with Long Form , AUTOMATIC TAGS> | |
27382 | ||
27383 | <STATIC:ASN> | |
27384 | ||
27385 | TempA | |
27386 | ||
27387 | DEFINITIONS | |
27388 | ||
27389 | AUTOMATIC TAGS | |
27390 | ||
27391 | ::= | |
27392 | ||
27393 | BEGIN | |
27394 | ||
27395 | ||
27396 | ||
27397 | BERPDU ::= SEQUENCE | |
27398 | { | |
27399 | ||
27400 | a OCTET STRING, | |
27401 | ||
27402 | b BOOLEAN, | |
27403 | ||
27404 | ..., | |
27405 | ||
27406 | d BIT STRING, | |
27407 | ..., | |
27408 | ||
27409 | c INTEGER OPTIONAL | |
27410 | ||
27411 | } | |
27412 | ||
27413 | END | |
27414 | ||
27415 | <STATIC> | |
27416 | ||
27417 | import from TempA all; | |
27418 | ||
27419 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27420 | ||
27421 | ||
27422 | const BERPDU myValue := { | |
27423 | a := 'FF'O, | |
27424 | b := true, | |
27425 | d := '1'B, | |
27426 | c := 4 | |
27427 | } | |
27428 | ||
27429 | <TTCN_TC:EXEC> | |
27430 | ||
27431 | if (dec_BER_PDU('308300000D8001FF8101FF83020780820104'O) == myValue) | |
27432 | ||
27433 | ||
27434 | ||
27435 | {setverdict(pass);} else {setverdict(fail);} | |
27436 | ||
27437 | ||
27438 | <RESULT> | |
27439 | ||
27440 | Overall verdict: pass | |
27441 | ||
27442 | <END_TC> | |
27443 | ||
27444 | :exmp. | |
27445 | ||
27446 | .*---------------------------------------------------------------------* | |
27447 | :h3. DECODING , DER, SEQUENCE with fields of different types , | |
27448 | .*---------------------------------------------------------------------* | |
27449 | :xmp tab=0. | |
27450 | ||
27451 | <TC - DECODING , DER, SEQUENCE with fields of different types ,> | |
27452 | ||
27453 | <STATIC:ASN> | |
27454 | ||
27455 | TempA | |
27456 | ||
27457 | DEFINITIONS | |
27458 | ||
27459 | ||
27460 | ::= | |
27461 | ||
27462 | BEGIN | |
27463 | ||
27464 | ||
27465 | BERPDU ::= SEQUENCE | |
27466 | { | |
27467 | a NULL, | |
27468 | b BOOLEAN, | |
27469 | c INTEGER, | |
27470 | d ENUMERATED {first ,second ,third}, | |
27471 | --e REAL, | |
27472 | f BIT STRING, | |
27473 | g OCTET STRING, | |
27474 | ||
27475 | h OBJECT IDENTIFIER, | |
27476 | i IA5String, | |
27477 | j CHOICE {x1 [1] BOOLEAN, | |
27478 | y1 [2] OCTET STRING}, | |
27479 | ||
27480 | k SEQUENCE{x2 NULL, | |
27481 | y2 BOOLEAN}, | |
27482 | ||
27483 | l SET { x3 BIT STRING, | |
27484 | y3 NULL}, | |
27485 | ||
27486 | m [3] SEQUENCE OF INTEGER, | |
27487 | n [4] SET OF BOOLEAN | |
27488 | } | |
27489 | ||
27490 | ||
27491 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
27492 | ||
27493 | ||
27494 | END | |
27495 | ||
27496 | <STATIC> | |
27497 | ||
27498 | import from TempA all; | |
27499 | ||
27500 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27501 | ||
27502 | ||
27503 | const BERPDU myValue := {a := NULL, | |
27504 | b := true, | |
27505 | c := 2, | |
27506 | d := first, | |
27507 | // e := 1.0, | |
27508 | f := '1'B, | |
27509 | g := 'FFFF'O, | |
27510 | h := myOBJID, | |
27511 | i := "ABC", | |
27512 | j := {x1 := true } , | |
27513 | k := {x2 := NULL, | |
27514 | ||
27515 | y2 := true } , | |
27516 | l := {y3 := NULL , | |
27517 | ||
27518 | x3 := '1'B } , | |
27519 | m := | |
27520 | { 1 ,2 } , | |
27521 | n := | |
27522 | { true, true } | |
27523 | } | |
27524 | ||
27525 | ||
27526 | ||
27527 | ||
27528 | ||
27529 | <TTCN_TC:EXEC> | |
27530 | ||
27531 | if (dec_BER_PDU('304505000101FF0201020A0100030207800402FFFF06030002031603414243A1030101FF300505000101FF3106030207800500A3083006020101020102A40831060101FF0101FF'O) == myValue) | |
27532 | ||
27533 | ||
27534 | ||
27535 | {setverdict(pass);} else {setverdict(fail);} | |
27536 | ||
27537 | ||
27538 | <RESULT> | |
27539 | ||
27540 | Overall verdict: pass | |
27541 | ||
27542 | <END_TC> | |
27543 | ||
27544 | :exmp. | |
27545 | ||
27546 | .*---------------------------------------------------------------------* | |
27547 | :h3. DECODING , DER, SEQUENCE with fields of different types , | |
27548 | .*---------------------------------------------------------------------* | |
27549 | :xmp tab=0. | |
27550 | ||
27551 | <TC - DECODING , DER, SEQUENCE with fields of different types ,> | |
27552 | ||
27553 | <STATIC:ASN> | |
27554 | ||
27555 | TempA | |
27556 | ||
27557 | DEFINITIONS | |
27558 | ||
27559 | ||
27560 | ::= | |
27561 | ||
27562 | BEGIN | |
27563 | ||
27564 | ||
27565 | BERPDU ::= SEQUENCE | |
27566 | { | |
27567 | a NULL, | |
27568 | b BOOLEAN, | |
27569 | c INTEGER, | |
27570 | d ENUMERATED {first ,second ,third}, | |
27571 | -- e REAL, | |
27572 | f BIT STRING, | |
27573 | g OCTET STRING, | |
27574 | ||
27575 | h OBJECT IDENTIFIER, | |
27576 | i IA5String, | |
27577 | j CHOICE {x1 [1] BOOLEAN, | |
27578 | y1 [2] OCTET STRING}, | |
27579 | ||
27580 | k SEQUENCE{x2 NULL, | |
27581 | y2 BOOLEAN}, | |
27582 | ||
27583 | l SET { x3 BIT STRING, | |
27584 | y3 NULL}, | |
27585 | ||
27586 | m [3] SEQUENCE OF INTEGER, | |
27587 | n [4] SET OF BOOLEAN | |
27588 | } | |
27589 | ||
27590 | ||
27591 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
27592 | ||
27593 | ||
27594 | END | |
27595 | ||
27596 | <STATIC> | |
27597 | ||
27598 | import from TempA all; | |
27599 | ||
27600 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27601 | ||
27602 | ||
27603 | const BERPDU myValue := {a := NULL, | |
27604 | b := true, | |
27605 | c := 2, | |
27606 | d := first, | |
27607 | // e := 1.0, 090603312E452B30 | |
27608 | f := '1'B, | |
27609 | g := 'FFFF'O, | |
27610 | h := myOBJID, | |
27611 | i := "ABC", | |
27612 | j := {x1 := true } , | |
27613 | k := {x2 := NULL, | |
27614 | ||
27615 | y2 := true } , | |
27616 | l := {y3 := NULL , | |
27617 | ||
27618 | x3 := '1'B } , | |
27619 | m := | |
27620 | { 1 ,2 } , | |
27621 | n := | |
27622 | { true, true } | |
27623 | } | |
27624 | ||
27625 | ||
27626 | ||
27627 | ||
27628 | ||
27629 | <TTCN_TC:EXEC> | |
27630 | ||
27631 | if (dec_BER_PDU('308005000101FF0201020A0100030207800402FFFF06030002031603414243A1800101FF0000308005000101FF000031800302078005000000A380308002010102010200000000A48031800101FF0101FF000000000000'O) == myValue) | |
27632 | ||
27633 | ||
27634 | ||
27635 | {setverdict(pass);} else {setverdict(fail);} | |
27636 | ||
27637 | ||
27638 | <RESULT> | |
27639 | ||
27640 | Overall verdict: pass | |
27641 | ||
27642 | <END_TC> | |
27643 | ||
27644 | :exmp. | |
27645 | ||
27646 | .*---------------------------------------------------------------------* | |
27647 | :h3. DECODING , DER, SEQUENCE with fields of different types , AUTOMATIC TAGS | |
27648 | .*---------------------------------------------------------------------* | |
27649 | :xmp tab=0. | |
27650 | ||
27651 | <TC - DECODING , DER, SEQUENCE with fields of different types , AUTOMATIC TAGS> | |
27652 | ||
27653 | <STATIC:ASN> | |
27654 | ||
27655 | TempA | |
27656 | ||
27657 | DEFINITIONS | |
27658 | AUTOMATIC TAGS | |
27659 | ||
27660 | ::= | |
27661 | ||
27662 | BEGIN | |
27663 | ||
27664 | ||
27665 | ||
27666 | BERPDU ::= SEQUENCE | |
27667 | { | |
27668 | a NULL, | |
27669 | b BOOLEAN, | |
27670 | c INTEGER, | |
27671 | d ENUMERATED {first ,second ,third}, | |
27672 | e NULL, | |
27673 | f BIT STRING, | |
27674 | g OCTET STRING, | |
27675 | ||
27676 | h OBJECT IDENTIFIER, | |
27677 | i IA5String, | |
27678 | j CHOICE {x1 BOOLEAN, | |
27679 | y1 OCTET STRING}, | |
27680 | ||
27681 | k SEQUENCE{x2 NULL, | |
27682 | y2 BOOLEAN}, | |
27683 | ||
27684 | l SET { x3 BIT STRING, | |
27685 | y3 NULL}, | |
27686 | ||
27687 | m SEQUENCE OF INTEGER, | |
27688 | n SET OF BOOLEAN | |
27689 | } | |
27690 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
27691 | ||
27692 | ||
27693 | END | |
27694 | ||
27695 | <STATIC> | |
27696 | ||
27697 | import from TempA all; | |
27698 | ||
27699 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27700 | ||
27701 | ||
27702 | const BERPDU myValue := {a := NULL, | |
27703 | b := true, | |
27704 | c := 2, | |
27705 | d := first, | |
27706 | e := NULL, | |
27707 | f := '1'B, | |
27708 | g := 'FFFF'O, | |
27709 | h := myOBJID, | |
27710 | i := "ABC", | |
27711 | j := {x1 := true } , | |
27712 | k := {x2 := NULL, | |
27713 | ||
27714 | y2 := true } , | |
27715 | l := {y3 := NULL , | |
27716 | ||
27717 | x3 := '1'B } , | |
27718 | m := | |
27719 | { 1 ,2 } , | |
27720 | n := | |
27721 | { true, true } | |
27722 | } | |
27723 | ||
27724 | ||
27725 | ||
27726 | ||
27727 | ||
27728 | ||
27729 | <TTCN_TC:EXEC> | |
27730 | ||
27731 | if (dec_BER_PDU('304380008101FF8201028301008400850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB06800207808100AC06020101020102AD060101FF0101FF'O) == myValue) | |
27732 | ||
27733 | ||
27734 | ||
27735 | {setverdict(pass);} else {setverdict(fail);} | |
27736 | ||
27737 | ||
27738 | <RESULT> | |
27739 | ||
27740 | Overall verdict: pass | |
27741 | ||
27742 | <END_TC> | |
27743 | ||
27744 | :exmp. | |
27745 | ||
27746 | .*---------------------------------------------------------------------* | |
27747 | :h3. DECODING , DER, SEQUENCE with fields of different types ,AUTOMATIC TAGS | |
27748 | .*---------------------------------------------------------------------* | |
27749 | :xmp tab=0. | |
27750 | ||
27751 | <TC - DECODING , DER, SEQUENCE with fields of different types ,AUTOMATIC TAGS> | |
27752 | ||
27753 | <STATIC:ASN> | |
27754 | ||
27755 | TempA | |
27756 | ||
27757 | DEFINITIONS | |
27758 | ||
27759 | AUTOMATIC TAGS | |
27760 | ::= | |
27761 | ||
27762 | BEGIN | |
27763 | ||
27764 | ||
27765 | BERPDU ::= SEQUENCE | |
27766 | { | |
27767 | a NULL, | |
27768 | b BOOLEAN, | |
27769 | c INTEGER, | |
27770 | d ENUMERATED {first ,second ,third}, | |
27771 | e NULL, | |
27772 | f BIT STRING, | |
27773 | g OCTET STRING, | |
27774 | ||
27775 | h OBJECT IDENTIFIER, | |
27776 | i IA5String, | |
27777 | j CHOICE {x1 BOOLEAN, | |
27778 | y1 OCTET STRING}, | |
27779 | ||
27780 | k SEQUENCE{x2 NULL, | |
27781 | y2 BOOLEAN}, | |
27782 | ||
27783 | l SET { x3 BIT STRING, | |
27784 | y3 NULL}, | |
27785 | ||
27786 | m SEQUENCE OF INTEGER, | |
27787 | n SET OF BOOLEAN | |
27788 | } | |
27789 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
27790 | ||
27791 | ||
27792 | ||
27793 | END | |
27794 | ||
27795 | <STATIC> | |
27796 | ||
27797 | import from TempA all; | |
27798 | ||
27799 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
27800 | ||
27801 | ||
27802 | const BERPDU myValue := {a := NULL, | |
27803 | b := true, | |
27804 | c := 2, | |
27805 | d := first, | |
27806 | e := NULL, | |
27807 | f := '1'B, | |
27808 | g := 'FFFF'O, | |
27809 | h := myOBJID, | |
27810 | i := "ABC", | |
27811 | j := {x1 := true } , | |
27812 | k := {x2 := NULL, | |
27813 | ||
27814 | y2 := true } , | |
27815 | l := {y3 := NULL , | |
27816 | ||
27817 | x3 := '1'B } , | |
27818 | m := | |
27819 | { 1 ,2 } , | |
27820 | n := | |
27821 | { true, true } | |
27822 | } | |
27823 | ||
27824 | ||
27825 | ||
27826 | ||
27827 | ||
27828 | ||
27829 | <TTCN_TC:EXEC> | |
27830 | ||
27831 | if (dec_BER_PDU('308080008101FF8201028301008400850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB808002078081000000AC800201010201020000AD800101FF0101FF00000000'O) == myValue) | |
27832 | ||
27833 | ||
27834 | ||
27835 | {setverdict(pass);} else {setverdict(fail);} | |
27836 | ||
27837 | ||
27838 | <RESULT> | |
27839 | ||
27840 | Overall verdict: pass | |
27841 | ||
27842 | <END_TC> | |
27843 | ||
27844 | :exmp. | |
27845 | ||
27846 | .*---------------------------------------------------------------------* | |
27847 | :h3.CER + DER encoding of SEQUENCE OF INTEGER (empty) | |
27848 | .*---------------------------------------------------------------------* | |
27849 | :xmp tab=0. | |
27850 | ||
27851 | <TC - CER + DER encoding of SEQUENCE OF INTEGER (empty)> | |
27852 | ||
27853 | <STATIC:ASN> | |
27854 | ||
27855 | TempA | |
27856 | ||
27857 | DEFINITIONS ::= | |
27858 | BEGIN | |
27859 | ||
27860 | BERPDU ::= SEQUENCE OF INTEGER | |
27861 | ||
27862 | ||
27863 | ||
27864 | END | |
27865 | ||
27866 | <STATIC> | |
27867 | ||
27868 | import from TempA all; | |
27869 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
27870 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
27871 | ||
27872 | const BERPDU myValue := { } | |
27873 | ||
27874 | <TTCN_TC:EXEC> | |
27875 | ||
27876 | ||
27877 | ||
27878 | ||
27879 | if ((enc_DER_PDU(myValue) == '3000'O)and(enc_CER_PDU(myValue) == '30800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
27880 | ||
27881 | <RESULT> | |
27882 | ||
27883 | Overall verdict: pass | |
27884 | ||
27885 | <END_TC> | |
27886 | ||
27887 | :exmp. | |
27888 | ||
27889 | .*---------------------------------------------------------------------* | |
27890 | :h3.CER + DER encoding of SEQUENCE OF BOOLEAN | |
27891 | .*---------------------------------------------------------------------* | |
27892 | :xmp tab=0. | |
27893 | ||
27894 | <TC - CER + DER encoding of SEQUENCE OF BOOLEAN> | |
27895 | ||
27896 | <STATIC:ASN> | |
27897 | ||
27898 | TempA | |
27899 | ||
27900 | DEFINITIONS ::= | |
27901 | BEGIN | |
27902 | ||
27903 | BERPDU ::= SEQUENCE OF BOOLEAN | |
27904 | ||
27905 | ||
27906 | ||
27907 | END | |
27908 | ||
27909 | <STATIC> | |
27910 | ||
27911 | import from TempA all; | |
27912 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
27913 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
27914 | ||
27915 | const BERPDU myValue := {true, false } | |
27916 | ||
27917 | <TTCN_TC:EXEC> | |
27918 | ||
27919 | ||
27920 | ||
27921 | ||
27922 | if ((enc_DER_PDU(myValue) == '30060101FF010100'O)and(enc_CER_PDU(myValue) == '30800101FF0101000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
27923 | ||
27924 | <RESULT> | |
27925 | ||
27926 | Overall verdict: pass | |
27927 | ||
27928 | <END_TC> | |
27929 | ||
27930 | :exmp. | |
27931 | ||
27932 | .*---------------------------------------------------------------------* | |
27933 | :h3.CER + DER encoding of SEQUENCE OF OCTET STRING | |
27934 | .*---------------------------------------------------------------------* | |
27935 | :xmp tab=0. | |
27936 | ||
27937 | <TC - CER + DER encoding of SEQUENCE OF OCTET STRING > | |
27938 | ||
27939 | <STATIC:ASN> | |
27940 | ||
27941 | TempA | |
27942 | ||
27943 | DEFINITIONS ::= | |
27944 | BEGIN | |
27945 | ||
27946 | BERPDU ::= SEQUENCE OF OCTET STRING | |
27947 | ||
27948 | END | |
27949 | ||
27950 | <STATIC> | |
27951 | ||
27952 | import from TempA all; | |
27953 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
27954 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
27955 | ||
27956 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
27957 | ||
27958 | <TTCN_TC:EXEC> | |
27959 | ||
27960 | if ((enc_DER_PDU(myValue) == '30070402FFFF0401AB'O)and(enc_CER_PDU(myValue) == '30800402FFFF0401AB0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
27961 | ||
27962 | <RESULT> | |
27963 | ||
27964 | Overall verdict: pass | |
27965 | ||
27966 | <END_TC> | |
27967 | ||
27968 | :exmp. | |
27969 | ||
27970 | .*---------------------------------------------------------------------* | |
27971 | :h3.CER + DER encoding of SEQUENCE OF SEQUENCE | |
27972 | .*---------------------------------------------------------------------* | |
27973 | :xmp tab=0. | |
27974 | ||
27975 | <TC - CER + DER encoding of SEQUENCE OF SEQUENCE > | |
27976 | ||
27977 | <STATIC:ASN> | |
27978 | ||
27979 | TempA | |
27980 | ||
27981 | DEFINITIONS ::= | |
27982 | BEGIN | |
27983 | ||
27984 | BERPDU ::= SEQUENCE OF SEQUENCE {a INTEGER, b BOOLEAN} | |
27985 | ||
27986 | END | |
27987 | ||
27988 | <STATIC> | |
27989 | ||
27990 | import from TempA all; | |
27991 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
27992 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
27993 | ||
27994 | const BERPDU myValue := { | |
27995 | { | |
27996 | a := 5, | |
27997 | b := true | |
27998 | }, | |
27999 | ||
28000 | { | |
28001 | a := 3, | |
28002 | b := false | |
28003 | } | |
28004 | ||
28005 | }; | |
28006 | ||
28007 | <TTCN_TC:EXEC> | |
28008 | ||
28009 | if ((enc_DER_PDU(myValue) == '301030060201050101FF3006020103010100'O)and(enc_CER_PDU(myValue) == '308030800201050101FF0000308002010301010000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28010 | ||
28011 | <RESULT> | |
28012 | ||
28013 | Overall verdict: pass | |
28014 | ||
28015 | <END_TC> | |
28016 | ||
28017 | :exmp. | |
28018 | ||
28019 | .*---------------------------------------------------------------------* | |
28020 | :h3.CER + DER encoding of SEQUENCE OF SET | |
28021 | .*---------------------------------------------------------------------* | |
28022 | :xmp tab=0. | |
28023 | ||
28024 | <TC - CER + DER encoding of SEQUENCE OF SET > | |
28025 | ||
28026 | <STATIC:ASN> | |
28027 | ||
28028 | TempA | |
28029 | ||
28030 | DEFINITIONS ::= | |
28031 | BEGIN | |
28032 | ||
28033 | BERPDU ::= SEQUENCE OF SET {a INTEGER, b BOOLEAN} | |
28034 | ||
28035 | END | |
28036 | ||
28037 | <STATIC> | |
28038 | ||
28039 | import from TempA all; | |
28040 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28041 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28042 | ||
28043 | const BERPDU myValue := { | |
28044 | { | |
28045 | a := 5, | |
28046 | b := true | |
28047 | }, | |
28048 | ||
28049 | { | |
28050 | a := 3, | |
28051 | b := false | |
28052 | } | |
28053 | ||
28054 | }; | |
28055 | ||
28056 | <TTCN_TC:EXEC> | |
28057 | ||
28058 | if ((enc_DER_PDU(myValue) == '301031060101FF0201053106010100020103'O)and(enc_CER_PDU(myValue) == '308031800101FF0201050000318001010002010300000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28059 | ||
28060 | <RESULT> | |
28061 | ||
28062 | Overall verdict: pass | |
28063 | ||
28064 | <END_TC> | |
28065 | ||
28066 | :exmp. | |
28067 | ||
28068 | .*---------------------------------------------------------------------* | |
28069 | :h3.CER + DER encoding of SEQUENCE OF CHOICE | |
28070 | .*---------------------------------------------------------------------* | |
28071 | :xmp tab=0. | |
28072 | ||
28073 | <TC - CER + DER encoding of SEQUENCE OF CHOICE > | |
28074 | ||
28075 | <STATIC:ASN> | |
28076 | ||
28077 | TempA | |
28078 | ||
28079 | DEFINITIONS ::= | |
28080 | BEGIN | |
28081 | ||
28082 | BERPDU ::= SEQUENCE OF CHOICE{a INTEGER, b BOOLEAN} | |
28083 | ||
28084 | END | |
28085 | ||
28086 | <STATIC> | |
28087 | ||
28088 | import from TempA all; | |
28089 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28090 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28091 | ||
28092 | const BERPDU myValue := { | |
28093 | { | |
28094 | a := 5 | |
28095 | }, | |
28096 | ||
28097 | { | |
28098 | b := false | |
28099 | } | |
28100 | ||
28101 | }; | |
28102 | ||
28103 | <TTCN_TC:EXEC> | |
28104 | ||
28105 | if ((enc_DER_PDU(myValue) == '3006020105010100'O)and(enc_CER_PDU(myValue) == '30800201050101000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28106 | ||
28107 | <RESULT> | |
28108 | ||
28109 | Overall verdict: pass | |
28110 | ||
28111 | <END_TC> | |
28112 | ||
28113 | :exmp. | |
28114 | ||
28115 | .*---------------------------------------------------------------------* | |
28116 | :h3.CER + DER encoding of SEQUENCE OF SEQUENCE OF | |
28117 | .*---------------------------------------------------------------------* | |
28118 | :xmp tab=0. | |
28119 | ||
28120 | <TC - CER + DER encoding of SEQUENCE OF SEQUENCE OF> | |
28121 | ||
28122 | <STATIC:ASN> | |
28123 | ||
28124 | TempA | |
28125 | ||
28126 | DEFINITIONS ::= | |
28127 | BEGIN | |
28128 | ||
28129 | BERPDU ::= SEQUENCE OF SEQUENCE OF INTEGER | |
28130 | ||
28131 | END | |
28132 | ||
28133 | <STATIC> | |
28134 | ||
28135 | import from TempA all; | |
28136 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28137 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28138 | ||
28139 | const BERPDU myValue := { | |
28140 | { | |
28141 | 5, | |
28142 | 6, | |
28143 | 7 | |
28144 | }, | |
28145 | ||
28146 | { | |
28147 | 1, | |
28148 | 2, | |
28149 | 3 | |
28150 | } | |
28151 | }; | |
28152 | ||
28153 | <TTCN_TC:EXEC> | |
28154 | ||
28155 | if ((enc_DER_PDU(myValue) == '301630090201050201060201073009020101020102020103'O)and(enc_CER_PDU(myValue) == '308030800201050201060201070000308002010102010202010300000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28156 | ||
28157 | <RESULT> | |
28158 | ||
28159 | Overall verdict: pass | |
28160 | ||
28161 | <END_TC> | |
28162 | ||
28163 | :exmp. | |
28164 | ||
28165 | .*---------------------------------------------------------------------* | |
28166 | :h3.CER + DER encoding of SEQUENCE OF SET OF | |
28167 | .*---------------------------------------------------------------------* | |
28168 | :xmp tab=0. | |
28169 | ||
28170 | <TC - CER + DER encoding of SEQUENCE OF SET OF> | |
28171 | ||
28172 | <STATIC:ASN> | |
28173 | ||
28174 | TempA | |
28175 | ||
28176 | DEFINITIONS ::= | |
28177 | BEGIN | |
28178 | ||
28179 | BERPDU ::= SEQUENCE OF SET OF INTEGER | |
28180 | ||
28181 | END | |
28182 | ||
28183 | <STATIC> | |
28184 | ||
28185 | import from TempA all; | |
28186 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28187 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28188 | ||
28189 | const BERPDU myValue := { | |
28190 | { | |
28191 | 5, | |
28192 | 6, | |
28193 | 7 | |
28194 | }, | |
28195 | ||
28196 | { | |
28197 | 1, | |
28198 | 2, | |
28199 | 3 | |
28200 | } | |
28201 | }; | |
28202 | ||
28203 | <TTCN_TC:EXEC> | |
28204 | ||
28205 | if ((enc_DER_PDU(myValue) == '301631090201050201060201073109020101020102020103'O)and(enc_CER_PDU(myValue) == '308031800201050201060201070000318002010102010202010300000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28206 | ||
28207 | <RESULT> | |
28208 | ||
28209 | Overall verdict: pass | |
28210 | ||
28211 | <END_TC> | |
28212 | ||
28213 | :exmp. | |
28214 | ||
28215 | .*---------------------------------------------------------------------* | |
28216 | :h3.CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN | |
28217 | .*---------------------------------------------------------------------* | |
28218 | :xmp tab=0. | |
28219 | ||
28220 | <TC - CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN> | |
28221 | ||
28222 | <STATIC:ASN> | |
28223 | ||
28224 | TempA | |
28225 | ||
28226 | DEFINITIONS ::= | |
28227 | BEGIN | |
28228 | ||
28229 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
28230 | ||
28231 | ||
28232 | ||
28233 | END | |
28234 | ||
28235 | <STATIC> | |
28236 | ||
28237 | import from TempA all; | |
28238 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28239 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28240 | ||
28241 | const BERPDU myValue := {true, false } | |
28242 | ||
28243 | <TTCN_TC:EXEC> | |
28244 | ||
28245 | ||
28246 | ||
28247 | ||
28248 | if ((enc_DER_PDU(myValue) == 'A00830060101FF010100'O)and(enc_CER_PDU(myValue) == 'A08030800101FF01010000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28249 | ||
28250 | <RESULT> | |
28251 | ||
28252 | Overall verdict: pass | |
28253 | ||
28254 | <END_TC> | |
28255 | ||
28256 | :exmp. | |
28257 | ||
28258 | .*---------------------------------------------------------------------* | |
28259 | :h3.CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING | |
28260 | .*---------------------------------------------------------------------* | |
28261 | :xmp tab=0. | |
28262 | ||
28263 | <TC - CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING> | |
28264 | ||
28265 | <STATIC:ASN> | |
28266 | ||
28267 | TempA | |
28268 | ||
28269 | DEFINITIONS | |
28270 | ||
28271 | EXPLICIT TAGS | |
28272 | ||
28273 | ::= | |
28274 | ||
28275 | BEGIN | |
28276 | ||
28277 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
28278 | ||
28279 | ||
28280 | ||
28281 | END | |
28282 | ||
28283 | <STATIC> | |
28284 | ||
28285 | import from TempA all; | |
28286 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28287 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28288 | ||
28289 | const BERPDU myValue := {true, false } | |
28290 | ||
28291 | <TTCN_TC:EXEC> | |
28292 | ||
28293 | ||
28294 | ||
28295 | ||
28296 | if ((enc_DER_PDU(myValue) == 'A00830060101FF010100'O)and(enc_CER_PDU(myValue) == 'A08030800101FF01010000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28297 | ||
28298 | <RESULT> | |
28299 | ||
28300 | Overall verdict: pass | |
28301 | ||
28302 | <END_TC> | |
28303 | ||
28304 | :exmp. | |
28305 | ||
28306 | .*---------------------------------------------------------------------* | |
28307 | :h3.CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING | |
28308 | .*---------------------------------------------------------------------* | |
28309 | :xmp tab=0. | |
28310 | ||
28311 | <TC - CER + DER encoding of TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING> | |
28312 | ||
28313 | <STATIC:ASN> | |
28314 | ||
28315 | TempA | |
28316 | ||
28317 | DEFINITIONS | |
28318 | ||
28319 | IMPLICIT TAGS | |
28320 | ||
28321 | ::= | |
28322 | ||
28323 | BEGIN | |
28324 | ||
28325 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
28326 | ||
28327 | ||
28328 | ||
28329 | END | |
28330 | ||
28331 | <STATIC> | |
28332 | ||
28333 | import from TempA all; | |
28334 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
28335 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
28336 | ||
28337 | const BERPDU myValue := {true, false } | |
28338 | ||
28339 | <TTCN_TC:EXEC> | |
28340 | ||
28341 | ||
28342 | ||
28343 | ||
28344 | if ((enc_DER_PDU(myValue) == 'A0060101FF010100'O)and(enc_CER_PDU(myValue) == 'A0800101FF0101000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
28345 | ||
28346 | <RESULT> | |
28347 | ||
28348 | Overall verdict: pass | |
28349 | ||
28350 | <END_TC> | |
28351 | ||
28352 | :exmp. | |
28353 | ||
28354 | .*---------------------------------------------------------------------* | |
28355 | :h3. DECODING DER, SEQUENCE OF INTEGER (empty) | |
28356 | .*---------------------------------------------------------------------* | |
28357 | :xmp tab=0. | |
28358 | ||
28359 | <TC - DECODING DER, SEQUENCE OF INTEGER (empty)> | |
28360 | ||
28361 | <STATIC:ASN> | |
28362 | ||
28363 | TempA | |
28364 | ||
28365 | DEFINITIONS ::= | |
28366 | BEGIN | |
28367 | ||
28368 | BERPDU ::= SEQUENCE OF INTEGER | |
28369 | ||
28370 | END | |
28371 | ||
28372 | <STATIC> | |
28373 | ||
28374 | import from TempA all; | |
28375 | ||
28376 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28377 | ||
28378 | const BERPDU myValue := { } | |
28379 | ||
28380 | ||
28381 | <TTCN_TC:EXEC> | |
28382 | ||
28383 | if (dec_BER_PDU('3000'O) == myValue) | |
28384 | ||
28385 | {setverdict(pass);} else {setverdict(fail);} | |
28386 | ||
28387 | ||
28388 | <RESULT> | |
28389 | ||
28390 | Overall verdict: pass | |
28391 | ||
28392 | <END_TC> | |
28393 | ||
28394 | :exmp. | |
28395 | ||
28396 | .*---------------------------------------------------------------------* | |
28397 | :h3. DECODING CER, SEQUENCE OF INTEGER (empty) | |
28398 | .*---------------------------------------------------------------------* | |
28399 | :xmp tab=0. | |
28400 | ||
28401 | <TC - DECODING CER, SEQUENCE OF INTEGER (empty)> | |
28402 | ||
28403 | <STATIC:ASN> | |
28404 | ||
28405 | TempA | |
28406 | ||
28407 | DEFINITIONS ::= | |
28408 | BEGIN | |
28409 | ||
28410 | BERPDU ::= SEQUENCE OF INTEGER | |
28411 | ||
28412 | END | |
28413 | ||
28414 | <STATIC> | |
28415 | ||
28416 | import from TempA all; | |
28417 | ||
28418 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28419 | ||
28420 | const BERPDU myValue := { } | |
28421 | ||
28422 | ||
28423 | <TTCN_TC:EXEC> | |
28424 | ||
28425 | if (dec_BER_PDU('30800000'O) == myValue) | |
28426 | ||
28427 | {setverdict(pass);} else {setverdict(fail);} | |
28428 | ||
28429 | ||
28430 | <RESULT> | |
28431 | ||
28432 | Overall verdict: pass | |
28433 | ||
28434 | <END_TC> | |
28435 | ||
28436 | :exmp. | |
28437 | ||
28438 | .*---------------------------------------------------------------------* | |
28439 | :h3. DECODING DER, SEQUENCE OF BOOLEAN | |
28440 | .*---------------------------------------------------------------------* | |
28441 | :xmp tab=0. | |
28442 | ||
28443 | <TC - DECODING DER, SEQUENCE OF BOOLEAN> | |
28444 | ||
28445 | <STATIC:ASN> | |
28446 | ||
28447 | TempA | |
28448 | ||
28449 | DEFINITIONS ::= | |
28450 | BEGIN | |
28451 | ||
28452 | BERPDU ::= SEQUENCE OF BOOLEAN | |
28453 | ||
28454 | END | |
28455 | ||
28456 | <STATIC> | |
28457 | ||
28458 | import from TempA all; | |
28459 | ||
28460 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28461 | ||
28462 | const BERPDU myValue := {true, false } | |
28463 | ||
28464 | ||
28465 | <TTCN_TC:EXEC> | |
28466 | ||
28467 | if (dec_BER_PDU('30060101FF010100'O) == myValue) | |
28468 | ||
28469 | {setverdict(pass);} else {setverdict(fail);} | |
28470 | ||
28471 | ||
28472 | <RESULT> | |
28473 | ||
28474 | Overall verdict: pass | |
28475 | ||
28476 | <END_TC> | |
28477 | ||
28478 | :exmp. | |
28479 | ||
28480 | .*---------------------------------------------------------------------* | |
28481 | :h3. DECODING CER, SEQUENCE OF BOOLEAN | |
28482 | .*---------------------------------------------------------------------* | |
28483 | :xmp tab=0. | |
28484 | ||
28485 | <TC - DECODING CER, SEQUENCE OF BOOLEAN> | |
28486 | ||
28487 | <STATIC:ASN> | |
28488 | ||
28489 | TempA | |
28490 | ||
28491 | DEFINITIONS ::= | |
28492 | BEGIN | |
28493 | ||
28494 | BERPDU ::= SEQUENCE OF BOOLEAN | |
28495 | ||
28496 | END | |
28497 | ||
28498 | <STATIC> | |
28499 | ||
28500 | import from TempA all; | |
28501 | ||
28502 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28503 | ||
28504 | const BERPDU myValue := {true, false } | |
28505 | ||
28506 | ||
28507 | <TTCN_TC:EXEC> | |
28508 | ||
28509 | if (dec_BER_PDU('30800101FF0101000000'O) == myValue) | |
28510 | ||
28511 | {setverdict(pass);} else {setverdict(fail);} | |
28512 | ||
28513 | ||
28514 | <RESULT> | |
28515 | ||
28516 | Overall verdict: pass | |
28517 | ||
28518 | <END_TC> | |
28519 | ||
28520 | :exmp. | |
28521 | ||
28522 | .*---------------------------------------------------------------------* | |
28523 | :h3. DECODING DER,SEQUENCE OF OCTET STRING | |
28524 | .*---------------------------------------------------------------------* | |
28525 | :xmp tab=0. | |
28526 | ||
28527 | <TC - DECODING DER,SEQUENCE OF OCTET STRING > | |
28528 | ||
28529 | <STATIC:ASN> | |
28530 | ||
28531 | TempA | |
28532 | ||
28533 | DEFINITIONS ::= | |
28534 | BEGIN | |
28535 | ||
28536 | BERPDU ::= SEQUENCE OF OCTET STRING | |
28537 | ||
28538 | END | |
28539 | ||
28540 | <STATIC> | |
28541 | ||
28542 | import from TempA all; | |
28543 | ||
28544 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28545 | ||
28546 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
28547 | ||
28548 | ||
28549 | <TTCN_TC:EXEC> | |
28550 | ||
28551 | if (dec_BER_PDU('30070402FFFF0401AB'O) == myValue) | |
28552 | ||
28553 | {setverdict(pass);} else {setverdict(fail);} | |
28554 | ||
28555 | ||
28556 | <RESULT> | |
28557 | ||
28558 | Overall verdict: pass | |
28559 | ||
28560 | <END_TC> | |
28561 | ||
28562 | :exmp. | |
28563 | ||
28564 | .*---------------------------------------------------------------------* | |
28565 | :h3. DECODING CER,SEQUENCE OF OCTET STRING | |
28566 | .*---------------------------------------------------------------------* | |
28567 | :xmp tab=0. | |
28568 | ||
28569 | <TC - DECODING CER,SEQUENCE OF OCTET STRING > | |
28570 | ||
28571 | <STATIC:ASN> | |
28572 | ||
28573 | TempA | |
28574 | ||
28575 | DEFINITIONS ::= | |
28576 | BEGIN | |
28577 | ||
28578 | BERPDU ::= SEQUENCE OF OCTET STRING | |
28579 | ||
28580 | END | |
28581 | ||
28582 | <STATIC> | |
28583 | ||
28584 | import from TempA all; | |
28585 | ||
28586 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28587 | ||
28588 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
28589 | ||
28590 | ||
28591 | <TTCN_TC:EXEC> | |
28592 | ||
28593 | if (dec_BER_PDU('30800402FFFF0401AB0000'O) == myValue) | |
28594 | ||
28595 | {setverdict(pass);} else {setverdict(fail);} | |
28596 | ||
28597 | ||
28598 | <RESULT> | |
28599 | ||
28600 | Overall verdict: pass | |
28601 | ||
28602 | <END_TC> | |
28603 | ||
28604 | :exmp. | |
28605 | ||
28606 | .*---------------------------------------------------------------------* | |
28607 | :h3. DECODING DER,SEQUENCE OF SEQUENCE | |
28608 | .*---------------------------------------------------------------------* | |
28609 | :xmp tab=0. | |
28610 | ||
28611 | <TC - DECODING DER,SEQUENCE OF SEQUENCE > | |
28612 | ||
28613 | <STATIC:ASN> | |
28614 | ||
28615 | TempA | |
28616 | ||
28617 | DEFINITIONS ::= | |
28618 | BEGIN | |
28619 | ||
28620 | BERPDU ::= SEQUENCE OF SEQUENCE {a INTEGER, b BOOLEAN} | |
28621 | ||
28622 | END | |
28623 | ||
28624 | <STATIC> | |
28625 | ||
28626 | import from TempA all; | |
28627 | ||
28628 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28629 | ||
28630 | const BERPDU myValue := { | |
28631 | { | |
28632 | a := 5, | |
28633 | b := true | |
28634 | }, | |
28635 | ||
28636 | { | |
28637 | a := 3, | |
28638 | b := false | |
28639 | } | |
28640 | ||
28641 | }; | |
28642 | ||
28643 | ||
28644 | <TTCN_TC:EXEC> | |
28645 | ||
28646 | if (dec_BER_PDU('301030060201050101FF3006020103010100'O) == myValue) | |
28647 | ||
28648 | {setverdict(pass);} else {setverdict(fail);} | |
28649 | ||
28650 | ||
28651 | <RESULT> | |
28652 | ||
28653 | Overall verdict: pass | |
28654 | ||
28655 | <END_TC> | |
28656 | ||
28657 | :exmp. | |
28658 | ||
28659 | .*---------------------------------------------------------------------* | |
28660 | :h3. DECODING CER,SEQUENCE OF SEQUENCE | |
28661 | .*---------------------------------------------------------------------* | |
28662 | :xmp tab=0. | |
28663 | ||
28664 | <TC - DECODING CER,SEQUENCE OF SEQUENCE > | |
28665 | ||
28666 | <STATIC:ASN> | |
28667 | ||
28668 | TempA | |
28669 | ||
28670 | DEFINITIONS ::= | |
28671 | BEGIN | |
28672 | ||
28673 | BERPDU ::= SEQUENCE OF SEQUENCE {a INTEGER, b BOOLEAN} | |
28674 | ||
28675 | END | |
28676 | ||
28677 | <STATIC> | |
28678 | ||
28679 | import from TempA all; | |
28680 | ||
28681 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28682 | ||
28683 | const BERPDU myValue := { | |
28684 | { | |
28685 | a := 5, | |
28686 | b := true | |
28687 | }, | |
28688 | ||
28689 | { | |
28690 | a := 3, | |
28691 | b := false | |
28692 | } | |
28693 | ||
28694 | }; | |
28695 | ||
28696 | ||
28697 | <TTCN_TC:EXEC> | |
28698 | ||
28699 | if (dec_BER_PDU('308030800201050101FF0000308002010301010000000000'O) == myValue) | |
28700 | ||
28701 | {setverdict(pass);} else {setverdict(fail);} | |
28702 | ||
28703 | ||
28704 | <RESULT> | |
28705 | ||
28706 | Overall verdict: pass | |
28707 | ||
28708 | <END_TC> | |
28709 | ||
28710 | :exmp. | |
28711 | ||
28712 | .*---------------------------------------------------------------------* | |
28713 | :h3. DECODING DER,SEQUENCE OF SET | |
28714 | .*---------------------------------------------------------------------* | |
28715 | :xmp tab=0. | |
28716 | ||
28717 | <TC - DECODING DER,SEQUENCE OF SET > | |
28718 | ||
28719 | <STATIC:ASN> | |
28720 | ||
28721 | TempA | |
28722 | ||
28723 | DEFINITIONS ::= | |
28724 | BEGIN | |
28725 | ||
28726 | BERPDU ::= SEQUENCE OF SET {a INTEGER, b BOOLEAN} | |
28727 | ||
28728 | END | |
28729 | ||
28730 | <STATIC> | |
28731 | ||
28732 | import from TempA all; | |
28733 | ||
28734 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28735 | ||
28736 | const BERPDU myValue := { | |
28737 | { | |
28738 | a := 5, | |
28739 | b := true | |
28740 | }, | |
28741 | ||
28742 | { | |
28743 | a := 3, | |
28744 | b := false | |
28745 | } | |
28746 | ||
28747 | }; | |
28748 | ||
28749 | ||
28750 | <TTCN_TC:EXEC> | |
28751 | ||
28752 | if (dec_BER_PDU('301031060101FF0201053106010100020103'O) == myValue) | |
28753 | ||
28754 | {setverdict(pass);} else {setverdict(fail);} | |
28755 | ||
28756 | ||
28757 | <RESULT> | |
28758 | ||
28759 | Overall verdict: pass | |
28760 | ||
28761 | <END_TC> | |
28762 | ||
28763 | :exmp. | |
28764 | ||
28765 | .*---------------------------------------------------------------------* | |
28766 | :h3. DECODING CER,SEQUENCE OF SET | |
28767 | .*---------------------------------------------------------------------* | |
28768 | :xmp tab=0. | |
28769 | ||
28770 | <TC - DECODING CER,SEQUENCE OF SET > | |
28771 | ||
28772 | <STATIC:ASN> | |
28773 | ||
28774 | TempA | |
28775 | ||
28776 | DEFINITIONS ::= | |
28777 | BEGIN | |
28778 | ||
28779 | BERPDU ::= SEQUENCE OF SET {a INTEGER, b BOOLEAN} | |
28780 | ||
28781 | END | |
28782 | ||
28783 | <STATIC> | |
28784 | ||
28785 | import from TempA all; | |
28786 | ||
28787 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28788 | ||
28789 | const BERPDU myValue := { | |
28790 | { | |
28791 | a := 5, | |
28792 | b := true | |
28793 | }, | |
28794 | ||
28795 | { | |
28796 | a := 3, | |
28797 | b := false | |
28798 | } | |
28799 | ||
28800 | }; | |
28801 | ||
28802 | ||
28803 | <TTCN_TC:EXEC> | |
28804 | ||
28805 | if (dec_BER_PDU('308031800101FF0201050000318001010002010300000000'O) == myValue) | |
28806 | ||
28807 | {setverdict(pass);} else {setverdict(fail);} | |
28808 | ||
28809 | ||
28810 | <RESULT> | |
28811 | ||
28812 | Overall verdict: pass | |
28813 | ||
28814 | <END_TC> | |
28815 | ||
28816 | :exmp. | |
28817 | ||
28818 | .*---------------------------------------------------------------------* | |
28819 | :h3. DECODING DER,SEQUENCE OF CHOICE | |
28820 | .*---------------------------------------------------------------------* | |
28821 | :xmp tab=0. | |
28822 | ||
28823 | <TC - DECODING DER,SEQUENCE OF CHOICE > | |
28824 | ||
28825 | <STATIC:ASN> | |
28826 | ||
28827 | TempA | |
28828 | ||
28829 | DEFINITIONS ::= | |
28830 | BEGIN | |
28831 | ||
28832 | BERPDU ::= SEQUENCE OF CHOICE{a INTEGER, b BOOLEAN} | |
28833 | ||
28834 | END | |
28835 | ||
28836 | <STATIC> | |
28837 | ||
28838 | import from TempA all; | |
28839 | ||
28840 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28841 | ||
28842 | const BERPDU myValue := { | |
28843 | { | |
28844 | a := 5 | |
28845 | }, | |
28846 | ||
28847 | { | |
28848 | b := false | |
28849 | } | |
28850 | ||
28851 | }; | |
28852 | ||
28853 | ||
28854 | <TTCN_TC:EXEC> | |
28855 | ||
28856 | if (dec_BER_PDU('3006020105010100'O) == myValue) | |
28857 | ||
28858 | {setverdict(pass);} else {setverdict(fail);} | |
28859 | ||
28860 | ||
28861 | <RESULT> | |
28862 | ||
28863 | Overall verdict: pass | |
28864 | ||
28865 | <END_TC> | |
28866 | ||
28867 | :exmp. | |
28868 | ||
28869 | .*---------------------------------------------------------------------* | |
28870 | :h3. DECODING CER,SEQUENCE OF CHOICE | |
28871 | .*---------------------------------------------------------------------* | |
28872 | :xmp tab=0. | |
28873 | ||
28874 | <TC - DECODING CER,SEQUENCE OF CHOICE > | |
28875 | ||
28876 | <STATIC:ASN> | |
28877 | ||
28878 | TempA | |
28879 | ||
28880 | DEFINITIONS ::= | |
28881 | BEGIN | |
28882 | ||
28883 | BERPDU ::= SEQUENCE OF CHOICE{a INTEGER, b BOOLEAN} | |
28884 | ||
28885 | END | |
28886 | ||
28887 | <STATIC> | |
28888 | ||
28889 | import from TempA all; | |
28890 | ||
28891 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28892 | ||
28893 | const BERPDU myValue := { | |
28894 | { | |
28895 | a := 5 | |
28896 | }, | |
28897 | ||
28898 | { | |
28899 | b := false | |
28900 | } | |
28901 | ||
28902 | }; | |
28903 | ||
28904 | ||
28905 | <TTCN_TC:EXEC> | |
28906 | ||
28907 | if (dec_BER_PDU('30800201050101000000'O) == myValue) | |
28908 | ||
28909 | {setverdict(pass);} else {setverdict(fail);} | |
28910 | ||
28911 | ||
28912 | <RESULT> | |
28913 | ||
28914 | Overall verdict: pass | |
28915 | ||
28916 | <END_TC> | |
28917 | ||
28918 | :exmp. | |
28919 | ||
28920 | .*---------------------------------------------------------------------* | |
28921 | :h3. DECODING DER,SEQUENCE OF SEQUENCE OF | |
28922 | .*---------------------------------------------------------------------* | |
28923 | :xmp tab=0. | |
28924 | ||
28925 | <TC - DECODING DER,SEQUENCE OF SEQUENCE OF> | |
28926 | ||
28927 | <STATIC:ASN> | |
28928 | ||
28929 | TempA | |
28930 | ||
28931 | DEFINITIONS ::= | |
28932 | BEGIN | |
28933 | ||
28934 | BERPDU ::= SEQUENCE OF SEQUENCE OF INTEGER | |
28935 | ||
28936 | END | |
28937 | ||
28938 | <STATIC> | |
28939 | ||
28940 | import from TempA all; | |
28941 | ||
28942 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28943 | ||
28944 | const BERPDU myValue := { | |
28945 | { | |
28946 | 5, | |
28947 | 6, | |
28948 | 7 | |
28949 | }, | |
28950 | ||
28951 | { | |
28952 | 1, | |
28953 | 2, | |
28954 | 3 | |
28955 | } | |
28956 | }; | |
28957 | ||
28958 | ||
28959 | <TTCN_TC:EXEC> | |
28960 | ||
28961 | if (dec_BER_PDU('301630090201050201060201073009020101020102020103'O) == myValue) | |
28962 | ||
28963 | {setverdict(pass);} else {setverdict(fail);} | |
28964 | ||
28965 | ||
28966 | <RESULT> | |
28967 | ||
28968 | Overall verdict: pass | |
28969 | ||
28970 | <END_TC> | |
28971 | ||
28972 | :exmp. | |
28973 | ||
28974 | .*---------------------------------------------------------------------* | |
28975 | :h3. DECODING CER,SEQUENCE OF SEQUENCE OF | |
28976 | .*---------------------------------------------------------------------* | |
28977 | :xmp tab=0. | |
28978 | ||
28979 | <TC - DECODING CER,SEQUENCE OF SEQUENCE OF> | |
28980 | ||
28981 | <STATIC:ASN> | |
28982 | ||
28983 | TempA | |
28984 | ||
28985 | DEFINITIONS ::= | |
28986 | BEGIN | |
28987 | ||
28988 | BERPDU ::= SEQUENCE OF SEQUENCE OF INTEGER | |
28989 | ||
28990 | END | |
28991 | ||
28992 | <STATIC> | |
28993 | ||
28994 | import from TempA all; | |
28995 | ||
28996 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
28997 | ||
28998 | const BERPDU myValue := { | |
28999 | { | |
29000 | 5, | |
29001 | 6, | |
29002 | 7 | |
29003 | }, | |
29004 | ||
29005 | { | |
29006 | 1, | |
29007 | 2, | |
29008 | 3 | |
29009 | } | |
29010 | }; | |
29011 | ||
29012 | ||
29013 | <TTCN_TC:EXEC> | |
29014 | ||
29015 | if (dec_BER_PDU('308030800201050201060201070000308002010102010202010300000000'O) == myValue) | |
29016 | ||
29017 | {setverdict(pass);} else {setverdict(fail);} | |
29018 | ||
29019 | ||
29020 | <RESULT> | |
29021 | ||
29022 | Overall verdict: pass | |
29023 | ||
29024 | <END_TC> | |
29025 | ||
29026 | :exmp. | |
29027 | ||
29028 | .*---------------------------------------------------------------------* | |
29029 | :h3. DECODING DER,SEQUENCE OF SET OF | |
29030 | .*---------------------------------------------------------------------* | |
29031 | :xmp tab=0. | |
29032 | ||
29033 | <TC - DECODING DER,SEQUENCE OF SET OF> | |
29034 | ||
29035 | <STATIC:ASN> | |
29036 | ||
29037 | TempA | |
29038 | ||
29039 | DEFINITIONS ::= | |
29040 | BEGIN | |
29041 | ||
29042 | BERPDU ::= SEQUENCE OF SET OF INTEGER | |
29043 | ||
29044 | END | |
29045 | ||
29046 | <STATIC> | |
29047 | ||
29048 | import from TempA all; | |
29049 | ||
29050 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29051 | ||
29052 | const BERPDU myValue := { | |
29053 | { | |
29054 | 5, | |
29055 | 6, | |
29056 | 7 | |
29057 | }, | |
29058 | ||
29059 | { | |
29060 | 1, | |
29061 | 2, | |
29062 | 3 | |
29063 | } | |
29064 | }; | |
29065 | ||
29066 | ||
29067 | <TTCN_TC:EXEC> | |
29068 | ||
29069 | if (dec_BER_PDU('301631090201050201060201073109020101020102020103'O) == myValue) | |
29070 | ||
29071 | {setverdict(pass);} else {setverdict(fail);} | |
29072 | ||
29073 | ||
29074 | <RESULT> | |
29075 | ||
29076 | Overall verdict: pass | |
29077 | ||
29078 | <END_TC> | |
29079 | ||
29080 | :exmp. | |
29081 | ||
29082 | .*---------------------------------------------------------------------* | |
29083 | :h3. DECODING CER,SEQUENCE OF SET OF | |
29084 | .*---------------------------------------------------------------------* | |
29085 | :xmp tab=0. | |
29086 | ||
29087 | <TC - DECODING CER,SEQUENCE OF SET OF> | |
29088 | ||
29089 | <STATIC:ASN> | |
29090 | ||
29091 | TempA | |
29092 | ||
29093 | DEFINITIONS ::= | |
29094 | BEGIN | |
29095 | ||
29096 | BERPDU ::= SEQUENCE OF SET OF INTEGER | |
29097 | ||
29098 | END | |
29099 | ||
29100 | <STATIC> | |
29101 | ||
29102 | import from TempA all; | |
29103 | ||
29104 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29105 | ||
29106 | const BERPDU myValue := { | |
29107 | { | |
29108 | 5, | |
29109 | 6, | |
29110 | 7 | |
29111 | }, | |
29112 | ||
29113 | { | |
29114 | 1, | |
29115 | 2, | |
29116 | 3 | |
29117 | } | |
29118 | }; | |
29119 | ||
29120 | ||
29121 | <TTCN_TC:EXEC> | |
29122 | ||
29123 | if (dec_BER_PDU('308031800201050201060201070000318002010102010202010300000000'O) == myValue) | |
29124 | ||
29125 | {setverdict(pass);} else {setverdict(fail);} | |
29126 | ||
29127 | ||
29128 | <RESULT> | |
29129 | ||
29130 | Overall verdict: pass | |
29131 | ||
29132 | <END_TC> | |
29133 | ||
29134 | :exmp. | |
29135 | ||
29136 | .*---------------------------------------------------------------------* | |
29137 | :h3. DECODING DER,TAGGED SEQUENCE OF BOOLEAN | |
29138 | .*---------------------------------------------------------------------* | |
29139 | :xmp tab=0. | |
29140 | ||
29141 | <TC - DECODING DER,TAGGED SEQUENCE OF BOOLEAN> | |
29142 | ||
29143 | <STATIC:ASN> | |
29144 | ||
29145 | TempA | |
29146 | ||
29147 | DEFINITIONS ::= | |
29148 | BEGIN | |
29149 | ||
29150 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29151 | ||
29152 | END | |
29153 | ||
29154 | <STATIC> | |
29155 | ||
29156 | import from TempA all; | |
29157 | ||
29158 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29159 | ||
29160 | const BERPDU myValue := {true, false } | |
29161 | ||
29162 | ||
29163 | <TTCN_TC:EXEC> | |
29164 | ||
29165 | if (dec_BER_PDU('A00830060101FF010100'O) == myValue) | |
29166 | ||
29167 | {setverdict(pass);} else {setverdict(fail);} | |
29168 | ||
29169 | ||
29170 | <RESULT> | |
29171 | ||
29172 | Overall verdict: pass | |
29173 | ||
29174 | <END_TC> | |
29175 | ||
29176 | :exmp. | |
29177 | ||
29178 | .*---------------------------------------------------------------------* | |
29179 | :h3. DECODING CER,TAGGED SEQUENCE OF BOOLEAN | |
29180 | .*---------------------------------------------------------------------* | |
29181 | :xmp tab=0. | |
29182 | ||
29183 | <TC - DECODING CER,TAGGED SEQUENCE OF BOOLEAN> | |
29184 | ||
29185 | <STATIC:ASN> | |
29186 | ||
29187 | TempA | |
29188 | ||
29189 | DEFINITIONS ::= | |
29190 | BEGIN | |
29191 | ||
29192 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29193 | ||
29194 | END | |
29195 | ||
29196 | <STATIC> | |
29197 | ||
29198 | import from TempA all; | |
29199 | ||
29200 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29201 | ||
29202 | const BERPDU myValue := {true, false } | |
29203 | ||
29204 | ||
29205 | <TTCN_TC:EXEC> | |
29206 | ||
29207 | if (dec_BER_PDU('A08030800101FF01010000000000'O) == myValue) | |
29208 | ||
29209 | {setverdict(pass);} else {setverdict(fail);} | |
29210 | ||
29211 | ||
29212 | <RESULT> | |
29213 | ||
29214 | Overall verdict: pass | |
29215 | ||
29216 | <END_TC> | |
29217 | ||
29218 | :exmp. | |
29219 | ||
29220 | .*---------------------------------------------------------------------* | |
29221 | :h3. DECODING DER,TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING | |
29222 | .*---------------------------------------------------------------------* | |
29223 | :xmp tab=0. | |
29224 | ||
29225 | <TC - DECODING DER,TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING> | |
29226 | ||
29227 | <STATIC:ASN> | |
29228 | ||
29229 | TempA | |
29230 | ||
29231 | DEFINITIONS | |
29232 | ||
29233 | EXPLICIT TAGS | |
29234 | ::= | |
29235 | ||
29236 | BEGIN | |
29237 | ||
29238 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29239 | ||
29240 | END | |
29241 | ||
29242 | <STATIC> | |
29243 | ||
29244 | import from TempA all; | |
29245 | ||
29246 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29247 | ||
29248 | const BERPDU myValue := {true, false } | |
29249 | ||
29250 | ||
29251 | <TTCN_TC:EXEC> | |
29252 | ||
29253 | if (dec_BER_PDU('A00830060101FF010100'O) == myValue) | |
29254 | ||
29255 | {setverdict(pass);} else {setverdict(fail);} | |
29256 | ||
29257 | ||
29258 | <RESULT> | |
29259 | ||
29260 | Overall verdict: pass | |
29261 | ||
29262 | <END_TC> | |
29263 | ||
29264 | :exmp. | |
29265 | ||
29266 | .*---------------------------------------------------------------------* | |
29267 | :h3. DECODING CER,TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING | |
29268 | .*---------------------------------------------------------------------* | |
29269 | :xmp tab=0. | |
29270 | ||
29271 | <TC - DECODING CER,TAGGED SEQUENCE OF BOOLEAN, EXPLICIT TAGGING> | |
29272 | ||
29273 | <STATIC:ASN> | |
29274 | ||
29275 | TempA | |
29276 | ||
29277 | DEFINITIONS | |
29278 | ||
29279 | EXPLICIT TAGS | |
29280 | ::= | |
29281 | ||
29282 | BEGIN | |
29283 | ||
29284 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29285 | ||
29286 | END | |
29287 | ||
29288 | <STATIC> | |
29289 | ||
29290 | import from TempA all; | |
29291 | ||
29292 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29293 | ||
29294 | const BERPDU myValue := {true, false } | |
29295 | ||
29296 | ||
29297 | <TTCN_TC:EXEC> | |
29298 | ||
29299 | if (dec_BER_PDU('A08030800101FF01010000000000'O) == myValue) | |
29300 | ||
29301 | {setverdict(pass);} else {setverdict(fail);} | |
29302 | ||
29303 | ||
29304 | <RESULT> | |
29305 | ||
29306 | Overall verdict: pass | |
29307 | ||
29308 | <END_TC> | |
29309 | ||
29310 | :exmp. | |
29311 | ||
29312 | .*---------------------------------------------------------------------* | |
29313 | :h3. DECODING DER,TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING | |
29314 | .*---------------------------------------------------------------------* | |
29315 | :xmp tab=0. | |
29316 | ||
29317 | <TC - DECODING DER,TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING> | |
29318 | ||
29319 | <STATIC:ASN> | |
29320 | ||
29321 | TempA | |
29322 | ||
29323 | DEFINITIONS | |
29324 | ||
29325 | IMPLICIT TAGS | |
29326 | ::= | |
29327 | ||
29328 | BEGIN | |
29329 | ||
29330 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29331 | ||
29332 | END | |
29333 | ||
29334 | <STATIC> | |
29335 | ||
29336 | import from TempA all; | |
29337 | ||
29338 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29339 | ||
29340 | const BERPDU myValue := {true, false } | |
29341 | ||
29342 | ||
29343 | <TTCN_TC:EXEC> | |
29344 | ||
29345 | if (dec_BER_PDU('A0060101FF010100'O) == myValue) | |
29346 | ||
29347 | {setverdict(pass);} else {setverdict(fail);} | |
29348 | ||
29349 | ||
29350 | <RESULT> | |
29351 | ||
29352 | Overall verdict: pass | |
29353 | ||
29354 | <END_TC> | |
29355 | ||
29356 | :exmp. | |
29357 | ||
29358 | .*---------------------------------------------------------------------* | |
29359 | :h3. DECODING CER,TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING | |
29360 | .*---------------------------------------------------------------------* | |
29361 | :xmp tab=0. | |
29362 | ||
29363 | <TC - DECODING CER,TAGGED SEQUENCE OF BOOLEAN, IMPLICIT TAGGING> | |
29364 | ||
29365 | <STATIC:ASN> | |
29366 | ||
29367 | TempA | |
29368 | ||
29369 | DEFINITIONS | |
29370 | ||
29371 | IMPLICIT TAGS | |
29372 | ::= | |
29373 | ||
29374 | BEGIN | |
29375 | ||
29376 | BERPDU ::= [0] SEQUENCE OF BOOLEAN | |
29377 | ||
29378 | END | |
29379 | ||
29380 | <STATIC> | |
29381 | ||
29382 | import from TempA all; | |
29383 | ||
29384 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
29385 | ||
29386 | const BERPDU myValue := {true, false } | |
29387 | ||
29388 | ||
29389 | <TTCN_TC:EXEC> | |
29390 | ||
29391 | if (dec_BER_PDU('A0800101FF0101000000'O) == myValue) | |
29392 | ||
29393 | {setverdict(pass);} else {setverdict(fail);} | |
29394 | ||
29395 | ||
29396 | <RESULT> | |
29397 | ||
29398 | Overall verdict: pass | |
29399 | ||
29400 | <END_TC> | |
29401 | ||
29402 | :exmp. | |
29403 | ||
29404 | .*---------------------------------------------------------------------* | |
29405 | :h3.CER + DER encoding of SET (EMPTY) | |
29406 | .*---------------------------------------------------------------------* | |
29407 | :xmp tab=0. | |
29408 | ||
29409 | <TC - CER + DER encoding of SET (EMPTY)> | |
29410 | ||
29411 | <STATIC:ASN> | |
29412 | ||
29413 | TempA | |
29414 | ||
29415 | DEFINITIONS ::= | |
29416 | BEGIN | |
29417 | ||
29418 | BERPDU ::= SET | |
29419 | { | |
29420 | b BOOLEAN OPTIONAL, | |
29421 | c INTEGER OPTIONAL | |
29422 | } | |
29423 | ||
29424 | ||
29425 | END | |
29426 | ||
29427 | <STATIC> | |
29428 | ||
29429 | import from TempA all; | |
29430 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29431 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29432 | ||
29433 | const BERPDU myValue := {b := omit, | |
29434 | c := omit } | |
29435 | ||
29436 | <TTCN_TC:EXEC> | |
29437 | ||
29438 | ||
29439 | ||
29440 | ||
29441 | if ((enc_DER_PDU(myValue) == '3100'O)and(enc_CER_PDU(myValue) == '31800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29442 | ||
29443 | <RESULT> | |
29444 | ||
29445 | Overall verdict: pass | |
29446 | ||
29447 | <END_TC> | |
29448 | ||
29449 | :exmp. | |
29450 | ||
29451 | .*---------------------------------------------------------------------* | |
29452 | :h3.CER + DER encoding of SET (only one element is used) | |
29453 | .*---------------------------------------------------------------------* | |
29454 | :xmp tab=0. | |
29455 | ||
29456 | <TC - CER + DER encoding of SET (only one element is used)> | |
29457 | ||
29458 | <STATIC:ASN> | |
29459 | ||
29460 | TempA | |
29461 | ||
29462 | DEFINITIONS ::= | |
29463 | BEGIN | |
29464 | ||
29465 | BERPDU ::= SET | |
29466 | { | |
29467 | b BOOLEAN OPTIONAL, | |
29468 | c INTEGER OPTIONAL | |
29469 | } | |
29470 | ||
29471 | ||
29472 | END | |
29473 | ||
29474 | <STATIC> | |
29475 | ||
29476 | import from TempA all; | |
29477 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29478 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29479 | ||
29480 | const BERPDU myValue := {b := true, | |
29481 | c := omit } | |
29482 | ||
29483 | <TTCN_TC:EXEC> | |
29484 | ||
29485 | ||
29486 | ||
29487 | ||
29488 | if ((enc_DER_PDU(myValue) == '31030101FF'O)and(enc_CER_PDU(myValue) == '31800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29489 | ||
29490 | <RESULT> | |
29491 | ||
29492 | Overall verdict: pass | |
29493 | ||
29494 | <END_TC> | |
29495 | ||
29496 | :exmp. | |
29497 | ||
29498 | .*---------------------------------------------------------------------* | |
29499 | :h3.CER + DER encoding of SET (both elements are used) | |
29500 | .*---------------------------------------------------------------------* | |
29501 | :xmp tab=0. | |
29502 | ||
29503 | <TC - CER + DER encoding of SET (both elements are used)> | |
29504 | ||
29505 | <STATIC:ASN> | |
29506 | ||
29507 | TempA | |
29508 | ||
29509 | DEFINITIONS ::= | |
29510 | BEGIN | |
29511 | ||
29512 | BERPDU ::= SET | |
29513 | { | |
29514 | b BOOLEAN OPTIONAL, | |
29515 | c INTEGER OPTIONAL | |
29516 | } | |
29517 | ||
29518 | ||
29519 | END | |
29520 | ||
29521 | <STATIC> | |
29522 | ||
29523 | import from TempA all; | |
29524 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29525 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29526 | ||
29527 | const BERPDU myValue := {b := true, | |
29528 | c := 5 } | |
29529 | ||
29530 | <TTCN_TC:EXEC> | |
29531 | ||
29532 | ||
29533 | ||
29534 | ||
29535 | if ((enc_DER_PDU(myValue) == '31060101FF020105'O)and(enc_CER_PDU(myValue) == '31800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29536 | ||
29537 | <RESULT> | |
29538 | ||
29539 | Overall verdict: pass | |
29540 | ||
29541 | <END_TC> | |
29542 | ||
29543 | :exmp. | |
29544 | ||
29545 | .*---------------------------------------------------------------------* | |
29546 | :h3. encoding of SET(different order) (both elements are used) | |
29547 | .*---------------------------------------------------------------------* | |
29548 | :xmp tab=0. | |
29549 | ||
29550 | <TC - encoding of SET(different order) (both elements are used)> | |
29551 | ||
29552 | <STATIC:ASN> | |
29553 | ||
29554 | TempA | |
29555 | ||
29556 | DEFINITIONS ::= | |
29557 | BEGIN | |
29558 | ||
29559 | BERPDU ::= SET | |
29560 | { | |
29561 | b BOOLEAN OPTIONAL, | |
29562 | c INTEGER OPTIONAL | |
29563 | } | |
29564 | ||
29565 | ||
29566 | END | |
29567 | ||
29568 | <STATIC> | |
29569 | ||
29570 | import from TempA all; | |
29571 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29572 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29573 | ||
29574 | const BERPDU myValue := { c := 5, | |
29575 | b := true } | |
29576 | ||
29577 | <TTCN_TC:EXEC> | |
29578 | ||
29579 | ||
29580 | ||
29581 | ||
29582 | if ((enc_DER_PDU(myValue) == '31060101FF020105'O)and(enc_CER_PDU(myValue) == '31800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29583 | ||
29584 | <RESULT> | |
29585 | ||
29586 | Overall verdict: pass | |
29587 | ||
29588 | <END_TC> | |
29589 | ||
29590 | :exmp. | |
29591 | ||
29592 | .*---------------------------------------------------------------------* | |
29593 | :h3.CER + DER encoding of SET (different order2)(both elements are used) | |
29594 | .*---------------------------------------------------------------------* | |
29595 | :xmp tab=0. | |
29596 | ||
29597 | <TC - CER + DER encoding of SET (different order2)(both elements are used)> | |
29598 | ||
29599 | <STATIC:ASN> | |
29600 | ||
29601 | TempA | |
29602 | ||
29603 | DEFINITIONS ::= | |
29604 | BEGIN | |
29605 | ||
29606 | BERPDU ::= SET | |
29607 | { | |
29608 | ||
29609 | c INTEGER OPTIONAL, | |
29610 | b BOOLEAN OPTIONAL | |
29611 | } | |
29612 | ||
29613 | ||
29614 | END | |
29615 | ||
29616 | <STATIC> | |
29617 | ||
29618 | import from TempA all; | |
29619 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29620 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29621 | ||
29622 | const BERPDU myValue := {b := true, | |
29623 | c := 5 } | |
29624 | ||
29625 | <TTCN_TC:EXEC> | |
29626 | ||
29627 | ||
29628 | ||
29629 | ||
29630 | if ((enc_DER_PDU(myValue) == '31060101FF020105'O)and(enc_CER_PDU(myValue) == '31800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29631 | ||
29632 | <RESULT> | |
29633 | ||
29634 | Overall verdict: pass | |
29635 | ||
29636 | <END_TC> | |
29637 | ||
29638 | :exmp. | |
29639 | ||
29640 | .*---------------------------------------------------------------------* | |
29641 | :h3.CER + DER encoding of SET (one element is equal to Default) | |
29642 | .*---------------------------------------------------------------------* | |
29643 | :xmp tab=0. | |
29644 | ||
29645 | <TC - CER + DER encoding of SET (one element is equal to Default)> | |
29646 | ||
29647 | <STATIC:ASN> | |
29648 | ||
29649 | TempA | |
29650 | ||
29651 | DEFINITIONS ::= | |
29652 | BEGIN | |
29653 | ||
29654 | BERPDU ::= SET | |
29655 | { | |
29656 | b BOOLEAN DEFAULT TRUE, | |
29657 | c INTEGER OPTIONAL | |
29658 | } | |
29659 | ||
29660 | ||
29661 | END | |
29662 | ||
29663 | <STATIC> | |
29664 | ||
29665 | import from TempA all; | |
29666 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29667 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29668 | ||
29669 | const BERPDU myValue := {b := true, | |
29670 | c := 5 } | |
29671 | ||
29672 | <TTCN_TC:EXEC> | |
29673 | ||
29674 | ||
29675 | ||
29676 | ||
29677 | if ((enc_DER_PDU(myValue) == '3103020105'O)and(enc_CER_PDU(myValue) == '31800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29678 | ||
29679 | <RESULT> | |
29680 | ||
29681 | Overall verdict: pass | |
29682 | ||
29683 | <END_TC> | |
29684 | ||
29685 | :exmp. | |
29686 | ||
29687 | .*---------------------------------------------------------------------* | |
29688 | :h3. encoding of SET (different order)(one element is equal to Default) | |
29689 | .*---------------------------------------------------------------------* | |
29690 | :xmp tab=0. | |
29691 | ||
29692 | <TC - encoding of SET (different order)(one element is equal to Default)> | |
29693 | ||
29694 | <STATIC:ASN> | |
29695 | ||
29696 | TempA | |
29697 | ||
29698 | DEFINITIONS ::= | |
29699 | BEGIN | |
29700 | ||
29701 | BERPDU ::= SET | |
29702 | { | |
29703 | b BOOLEAN DEFAULT TRUE, | |
29704 | c INTEGER OPTIONAL | |
29705 | } | |
29706 | ||
29707 | ||
29708 | END | |
29709 | ||
29710 | <STATIC> | |
29711 | ||
29712 | import from TempA all; | |
29713 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29714 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29715 | ||
29716 | const BERPDU myValue := { | |
29717 | c := 5 , | |
29718 | b := true } | |
29719 | ||
29720 | <TTCN_TC:EXEC> | |
29721 | ||
29722 | ||
29723 | ||
29724 | ||
29725 | if ((enc_DER_PDU(myValue) == '3103020105'O)and(enc_CER_PDU(myValue) == '31800201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29726 | ||
29727 | <RESULT> | |
29728 | ||
29729 | Overall verdict: pass | |
29730 | ||
29731 | <END_TC> | |
29732 | ||
29733 | :exmp. | |
29734 | ||
29735 | .*---------------------------------------------------------------------* | |
29736 | :h3.CER + DER encoding of SET (one element is not equal to Default) | |
29737 | .*---------------------------------------------------------------------* | |
29738 | :xmp tab=0. | |
29739 | ||
29740 | <TC - CER + DER encoding of SET (one element is not equal to Default)> | |
29741 | ||
29742 | <STATIC:ASN> | |
29743 | ||
29744 | TempA | |
29745 | ||
29746 | DEFINITIONS ::= | |
29747 | BEGIN | |
29748 | ||
29749 | BERPDU ::= SET | |
29750 | { | |
29751 | b BOOLEAN DEFAULT TRUE, | |
29752 | c INTEGER OPTIONAL | |
29753 | } | |
29754 | ||
29755 | ||
29756 | END | |
29757 | ||
29758 | <STATIC> | |
29759 | ||
29760 | import from TempA all; | |
29761 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29762 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29763 | ||
29764 | const BERPDU myValue := {b := false, | |
29765 | c := 5 } | |
29766 | ||
29767 | <TTCN_TC:EXEC> | |
29768 | ||
29769 | ||
29770 | ||
29771 | ||
29772 | if ((enc_DER_PDU(myValue) == '3106010100020105'O)and(enc_CER_PDU(myValue) == '31800101000201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29773 | ||
29774 | <RESULT> | |
29775 | ||
29776 | Overall verdict: pass | |
29777 | ||
29778 | <END_TC> | |
29779 | ||
29780 | :exmp. | |
29781 | ||
29782 | .*---------------------------------------------------------------------* | |
29783 | :h3. encoding of SET (different order) (one element is not equal to Default) | |
29784 | .*---------------------------------------------------------------------* | |
29785 | :xmp tab=0. | |
29786 | ||
29787 | <TC - encoding of SET (different order) (one element is not equal to Default)> | |
29788 | ||
29789 | <STATIC:ASN> | |
29790 | ||
29791 | TempA | |
29792 | ||
29793 | DEFINITIONS ::= | |
29794 | BEGIN | |
29795 | ||
29796 | BERPDU ::= SET | |
29797 | { | |
29798 | b BOOLEAN DEFAULT TRUE, | |
29799 | c INTEGER OPTIONAL | |
29800 | } | |
29801 | ||
29802 | ||
29803 | END | |
29804 | ||
29805 | <STATIC> | |
29806 | ||
29807 | import from TempA all; | |
29808 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29809 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29810 | ||
29811 | const BERPDU myValue := { | |
29812 | c := 5, | |
29813 | b := false } | |
29814 | ||
29815 | <TTCN_TC:EXEC> | |
29816 | ||
29817 | ||
29818 | ||
29819 | ||
29820 | if ((enc_DER_PDU(myValue) == '3106010100020105'O)and(enc_CER_PDU(myValue) == '31800101000201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29821 | ||
29822 | <RESULT> | |
29823 | ||
29824 | Overall verdict: pass | |
29825 | ||
29826 | <END_TC> | |
29827 | ||
29828 | :exmp. | |
29829 | ||
29830 | .*---------------------------------------------------------------------* | |
29831 | :h3. encoding of SET (different order2) (one element is not equal to Default) | |
29832 | .*---------------------------------------------------------------------* | |
29833 | :xmp tab=0. | |
29834 | ||
29835 | <TC - encoding of SET (different order2) (one element is not equal to Default)> | |
29836 | ||
29837 | <STATIC:ASN> | |
29838 | ||
29839 | TempA | |
29840 | ||
29841 | DEFINITIONS ::= | |
29842 | BEGIN | |
29843 | ||
29844 | BERPDU ::= SET | |
29845 | { | |
29846 | ||
29847 | c INTEGER OPTIONAL, | |
29848 | b BOOLEAN DEFAULT TRUE | |
29849 | } | |
29850 | ||
29851 | ||
29852 | END | |
29853 | ||
29854 | <STATIC> | |
29855 | ||
29856 | import from TempA all; | |
29857 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29858 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29859 | ||
29860 | const BERPDU myValue := { | |
29861 | c := 5, | |
29862 | b := false } | |
29863 | ||
29864 | <TTCN_TC:EXEC> | |
29865 | ||
29866 | ||
29867 | ||
29868 | ||
29869 | if ((enc_DER_PDU(myValue) == '3106010100020105'O)and(enc_CER_PDU(myValue) == '31800101000201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29870 | ||
29871 | <RESULT> | |
29872 | ||
29873 | Overall verdict: pass | |
29874 | ||
29875 | <END_TC> | |
29876 | ||
29877 | :exmp. | |
29878 | ||
29879 | .*---------------------------------------------------------------------* | |
29880 | :h3.CER + DER encoding of SET (EMPTY), AUTOMATIC TAGGING | |
29881 | .*---------------------------------------------------------------------* | |
29882 | :xmp tab=0. | |
29883 | ||
29884 | <TC - CER + DER encoding of SET (EMPTY), AUTOMATIC TAGGING> | |
29885 | ||
29886 | <STATIC:ASN> | |
29887 | ||
29888 | TempA | |
29889 | ||
29890 | DEFINITIONS | |
29891 | ||
29892 | AUTOMATIC TAGS | |
29893 | ||
29894 | ::= | |
29895 | ||
29896 | BEGIN | |
29897 | ||
29898 | BERPDU ::= SET | |
29899 | { | |
29900 | b BOOLEAN OPTIONAL, | |
29901 | c INTEGER OPTIONAL | |
29902 | } | |
29903 | ||
29904 | ||
29905 | END | |
29906 | ||
29907 | <STATIC> | |
29908 | ||
29909 | import from TempA all; | |
29910 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29911 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29912 | ||
29913 | const BERPDU myValue := {b := omit, | |
29914 | c := omit } | |
29915 | ||
29916 | <TTCN_TC:EXEC> | |
29917 | ||
29918 | ||
29919 | ||
29920 | ||
29921 | if ((enc_DER_PDU(myValue) == '3100'O)and(enc_CER_PDU(myValue) == '31800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29922 | ||
29923 | <RESULT> | |
29924 | ||
29925 | Overall verdict: pass | |
29926 | ||
29927 | <END_TC> | |
29928 | ||
29929 | :exmp. | |
29930 | ||
29931 | .*---------------------------------------------------------------------* | |
29932 | :h3.CER + DER encoding of SET(only one element is used) AUTOMATIC TAGGING | |
29933 | .*---------------------------------------------------------------------* | |
29934 | :xmp tab=0. | |
29935 | ||
29936 | <TC - CER + DER encoding of SET(only one element is used) AUTOMATIC TAGGING> | |
29937 | ||
29938 | <STATIC:ASN> | |
29939 | ||
29940 | TempA | |
29941 | ||
29942 | DEFINITIONS | |
29943 | ||
29944 | AUTOMATIC TAGS | |
29945 | ||
29946 | ::= | |
29947 | ||
29948 | BEGIN | |
29949 | ||
29950 | BERPDU ::= SET | |
29951 | { | |
29952 | b BOOLEAN OPTIONAL, | |
29953 | c INTEGER OPTIONAL | |
29954 | } | |
29955 | ||
29956 | ||
29957 | END | |
29958 | ||
29959 | <STATIC> | |
29960 | ||
29961 | import from TempA all; | |
29962 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
29963 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
29964 | ||
29965 | const BERPDU myValue := {b := true, | |
29966 | c := omit } | |
29967 | ||
29968 | <TTCN_TC:EXEC> | |
29969 | ||
29970 | ||
29971 | ||
29972 | ||
29973 | if ((enc_DER_PDU(myValue) == '31038001FF'O)and(enc_CER_PDU(myValue) == '31808001FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
29974 | ||
29975 | <RESULT> | |
29976 | ||
29977 | Overall verdict: pass | |
29978 | ||
29979 | <END_TC> | |
29980 | ||
29981 | :exmp. | |
29982 | ||
29983 | .*---------------------------------------------------------------------* | |
29984 | :h3. encoding of SET (different order)(only one element is used) AUTOMATIC TAGGING | |
29985 | .*---------------------------------------------------------------------* | |
29986 | :xmp tab=0. | |
29987 | ||
29988 | <TC - encoding of SET (different order)(only one element is used) AUTOMATIC TAGGING> | |
29989 | ||
29990 | <STATIC:ASN> | |
29991 | ||
29992 | TempA | |
29993 | ||
29994 | DEFINITIONS | |
29995 | ||
29996 | AUTOMATIC TAGS | |
29997 | ||
29998 | ::= | |
29999 | ||
30000 | BEGIN | |
30001 | ||
30002 | BERPDU ::= SET | |
30003 | { | |
30004 | b BOOLEAN OPTIONAL, | |
30005 | c INTEGER OPTIONAL | |
30006 | } | |
30007 | ||
30008 | ||
30009 | END | |
30010 | ||
30011 | <STATIC> | |
30012 | ||
30013 | import from TempA all; | |
30014 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30015 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30016 | ||
30017 | const BERPDU myValue := { | |
30018 | c := omit, | |
30019 | b := true } | |
30020 | ||
30021 | <TTCN_TC:EXEC> | |
30022 | ||
30023 | ||
30024 | ||
30025 | ||
30026 | if ((enc_DER_PDU(myValue) == '31038001FF'O)and(enc_CER_PDU(myValue) == '31808001FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30027 | ||
30028 | <RESULT> | |
30029 | ||
30030 | Overall verdict: pass | |
30031 | ||
30032 | <END_TC> | |
30033 | ||
30034 | :exmp. | |
30035 | ||
30036 | .*---------------------------------------------------------------------* | |
30037 | :h3.CER + DER encoding of SET (both elements are used) AUTOMATIC TAGGING | |
30038 | .*---------------------------------------------------------------------* | |
30039 | :xmp tab=0. | |
30040 | ||
30041 | <TC - CER + DER encoding of SET (both elements are used) AUTOMATIC TAGGING> | |
30042 | ||
30043 | <STATIC:ASN> | |
30044 | ||
30045 | TempA | |
30046 | ||
30047 | DEFINITIONS | |
30048 | ||
30049 | AUTOMATIC TAGS | |
30050 | ||
30051 | ::= | |
30052 | ||
30053 | BEGIN | |
30054 | ||
30055 | BERPDU ::= SET | |
30056 | { | |
30057 | b BOOLEAN OPTIONAL, | |
30058 | c INTEGER OPTIONAL | |
30059 | } | |
30060 | ||
30061 | ||
30062 | END | |
30063 | ||
30064 | <STATIC> | |
30065 | ||
30066 | import from TempA all; | |
30067 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30068 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30069 | ||
30070 | const BERPDU myValue := {b := true, | |
30071 | c := 5 } | |
30072 | ||
30073 | <TTCN_TC:EXEC> | |
30074 | ||
30075 | ||
30076 | ||
30077 | ||
30078 | if ((enc_DER_PDU(myValue) == '31068001FF810105'O)and(enc_CER_PDU(myValue) == '31808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30079 | ||
30080 | <RESULT> | |
30081 | ||
30082 | Overall verdict: pass | |
30083 | ||
30084 | <END_TC> | |
30085 | ||
30086 | :exmp. | |
30087 | ||
30088 | .*---------------------------------------------------------------------* | |
30089 | :h3.encoding of SET (both elements are used)(different order) AUTOMATIC TAGGING | |
30090 | .*---------------------------------------------------------------------* | |
30091 | :xmp tab=0. | |
30092 | ||
30093 | <TC - encoding of SET (both elements are used)(different order) AUTOMATIC TAGGING> | |
30094 | ||
30095 | <STATIC:ASN> | |
30096 | ||
30097 | TempA | |
30098 | ||
30099 | DEFINITIONS | |
30100 | ||
30101 | AUTOMATIC TAGS | |
30102 | ||
30103 | ::= | |
30104 | ||
30105 | BEGIN | |
30106 | ||
30107 | BERPDU ::= SET | |
30108 | { | |
30109 | b BOOLEAN OPTIONAL, | |
30110 | c INTEGER OPTIONAL | |
30111 | } | |
30112 | ||
30113 | ||
30114 | END | |
30115 | ||
30116 | <STATIC> | |
30117 | ||
30118 | import from TempA all; | |
30119 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30120 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30121 | ||
30122 | const BERPDU myValue := { | |
30123 | c := 5, | |
30124 | b := true } | |
30125 | ||
30126 | <TTCN_TC:EXEC> | |
30127 | ||
30128 | ||
30129 | ||
30130 | ||
30131 | if ((enc_DER_PDU(myValue) == '31068001FF810105'O)and(enc_CER_PDU(myValue) == '31808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30132 | ||
30133 | <RESULT> | |
30134 | ||
30135 | Overall verdict: pass | |
30136 | ||
30137 | <END_TC> | |
30138 | ||
30139 | :exmp. | |
30140 | ||
30141 | .*---------------------------------------------------------------------* | |
30142 | :h3.CER + DER encoding of SET (both elements are used)(different order2) AUTOMATIC TAGGING | |
30143 | .*---------------------------------------------------------------------* | |
30144 | :xmp tab=0. | |
30145 | ||
30146 | <TC - CER + DER encoding of SET (both elements are used)(different order2) AUTOMATIC TAGGING> | |
30147 | ||
30148 | <STATIC:ASN> | |
30149 | ||
30150 | TempA | |
30151 | ||
30152 | DEFINITIONS | |
30153 | ||
30154 | AUTOMATIC TAGS | |
30155 | ||
30156 | ::= | |
30157 | ||
30158 | BEGIN | |
30159 | ||
30160 | BERPDU ::= SET | |
30161 | { | |
30162 | ||
30163 | c INTEGER OPTIONAL, | |
30164 | b BOOLEAN OPTIONAL | |
30165 | } | |
30166 | ||
30167 | ||
30168 | END | |
30169 | ||
30170 | <STATIC> | |
30171 | ||
30172 | import from TempA all; | |
30173 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30174 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30175 | ||
30176 | const BERPDU myValue := {b := true, | |
30177 | c := 5 } | |
30178 | ||
30179 | <TTCN_TC:EXEC> | |
30180 | ||
30181 | ||
30182 | ||
30183 | ||
30184 | if ((enc_DER_PDU(myValue) == '31068001058101FF'O)and(enc_CER_PDU(myValue) == '31808001058101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30185 | ||
30186 | <RESULT> | |
30187 | ||
30188 | Overall verdict: pass | |
30189 | ||
30190 | <END_TC> | |
30191 | ||
30192 | :exmp. | |
30193 | ||
30194 | .*---------------------------------------------------------------------* | |
30195 | :h3.CER + DER encoding of SET (one element is equal to Default) AUTOMATIC TAGGING | |
30196 | .*---------------------------------------------------------------------* | |
30197 | :xmp tab=0. | |
30198 | ||
30199 | <TC - CER + DER encoding of SET (one element is equal to Default) AUTOMATIC TAGGING> | |
30200 | ||
30201 | <STATIC:ASN> | |
30202 | ||
30203 | TempA | |
30204 | ||
30205 | DEFINITIONS | |
30206 | ||
30207 | AUTOMATIC TAGS | |
30208 | ||
30209 | ::= | |
30210 | ||
30211 | BEGIN | |
30212 | ||
30213 | BERPDU ::= SET | |
30214 | { | |
30215 | b BOOLEAN DEFAULT TRUE, | |
30216 | c INTEGER OPTIONAL | |
30217 | } | |
30218 | ||
30219 | ||
30220 | END | |
30221 | ||
30222 | <STATIC> | |
30223 | ||
30224 | import from TempA all; | |
30225 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30226 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30227 | ||
30228 | const BERPDU myValue := {b := true, | |
30229 | c := 5 } | |
30230 | ||
30231 | <TTCN_TC:EXEC> | |
30232 | ||
30233 | ||
30234 | ||
30235 | ||
30236 | if ((enc_DER_PDU(myValue) == '3103810105'O)and(enc_CER_PDU(myValue) == '31808101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30237 | ||
30238 | <RESULT> | |
30239 | ||
30240 | Overall verdict: pass | |
30241 | ||
30242 | <END_TC> | |
30243 | ||
30244 | :exmp. | |
30245 | ||
30246 | .*---------------------------------------------------------------------* | |
30247 | :h3. encoding of SET (different order) (one element is equal to Default) AUTOMATIC TAGGING | |
30248 | .*---------------------------------------------------------------------* | |
30249 | :xmp tab=0. | |
30250 | ||
30251 | <TC - encoding of SET (different order) (one element is equal to Default) AUTOMATIC TAGGING> | |
30252 | ||
30253 | <STATIC:ASN> | |
30254 | ||
30255 | TempA | |
30256 | ||
30257 | DEFINITIONS | |
30258 | ||
30259 | AUTOMATIC TAGS | |
30260 | ||
30261 | ::= | |
30262 | ||
30263 | BEGIN | |
30264 | ||
30265 | BERPDU ::= SET | |
30266 | { | |
30267 | b BOOLEAN DEFAULT TRUE, | |
30268 | c INTEGER OPTIONAL | |
30269 | } | |
30270 | ||
30271 | ||
30272 | END | |
30273 | ||
30274 | <STATIC> | |
30275 | ||
30276 | import from TempA all; | |
30277 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30278 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30279 | ||
30280 | const BERPDU myValue := { | |
30281 | c := 5 , | |
30282 | b := true } | |
30283 | ||
30284 | <TTCN_TC:EXEC> | |
30285 | ||
30286 | ||
30287 | ||
30288 | ||
30289 | if ((enc_DER_PDU(myValue) == '3103810105'O)and(enc_CER_PDU(myValue) == '31808101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30290 | ||
30291 | <RESULT> | |
30292 | ||
30293 | Overall verdict: pass | |
30294 | ||
30295 | <END_TC> | |
30296 | ||
30297 | :exmp. | |
30298 | ||
30299 | .*---------------------------------------------------------------------* | |
30300 | :h3.CER + DER encoding of SET (one element is not equal to Default) AUTOMATIC TAGGING | |
30301 | .*---------------------------------------------------------------------* | |
30302 | :xmp tab=0. | |
30303 | ||
30304 | <TC - CER + DER encoding of SET (one element is not equal to Default) AUTOMATIC TAGGING> | |
30305 | ||
30306 | <STATIC:ASN> | |
30307 | ||
30308 | TempA | |
30309 | ||
30310 | DEFINITIONS | |
30311 | ||
30312 | AUTOMATIC TAGS | |
30313 | ||
30314 | ::= | |
30315 | ||
30316 | BEGIN | |
30317 | ||
30318 | BERPDU ::= SET | |
30319 | { | |
30320 | b BOOLEAN DEFAULT TRUE, | |
30321 | c INTEGER OPTIONAL | |
30322 | } | |
30323 | ||
30324 | ||
30325 | END | |
30326 | ||
30327 | <STATIC> | |
30328 | ||
30329 | import from TempA all; | |
30330 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30331 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30332 | ||
30333 | const BERPDU myValue := {b := false, | |
30334 | c := 5 } | |
30335 | ||
30336 | <TTCN_TC:EXEC> | |
30337 | ||
30338 | ||
30339 | ||
30340 | ||
30341 | if ((enc_DER_PDU(myValue) == '3106800100810105'O)and(enc_CER_PDU(myValue) == '31808001008101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30342 | ||
30343 | <RESULT> | |
30344 | ||
30345 | Overall verdict: pass | |
30346 | ||
30347 | <END_TC> | |
30348 | ||
30349 | :exmp. | |
30350 | ||
30351 | .*---------------------------------------------------------------------* | |
30352 | :h3. encoding of SET (different order)(one element is not equal to Default) AUTOMATIC TAGGING | |
30353 | .*---------------------------------------------------------------------* | |
30354 | :xmp tab=0. | |
30355 | ||
30356 | <TC - encoding of SET (different order)(one element is not equal to Default) AUTOMATIC TAGGING> | |
30357 | ||
30358 | <STATIC:ASN> | |
30359 | ||
30360 | TempA | |
30361 | ||
30362 | DEFINITIONS | |
30363 | ||
30364 | AUTOMATIC TAGS | |
30365 | ||
30366 | ::= | |
30367 | ||
30368 | BEGIN | |
30369 | ||
30370 | BERPDU ::= SET | |
30371 | { | |
30372 | b BOOLEAN DEFAULT TRUE, | |
30373 | c INTEGER OPTIONAL | |
30374 | } | |
30375 | ||
30376 | ||
30377 | END | |
30378 | ||
30379 | <STATIC> | |
30380 | ||
30381 | import from TempA all; | |
30382 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30383 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30384 | ||
30385 | const BERPDU myValue := { | |
30386 | c := 5, | |
30387 | b := false } | |
30388 | ||
30389 | <TTCN_TC:EXEC> | |
30390 | ||
30391 | ||
30392 | ||
30393 | ||
30394 | if ((enc_DER_PDU(myValue) == '3106800100810105'O)and(enc_CER_PDU(myValue) == '31808001008101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30395 | ||
30396 | <RESULT> | |
30397 | ||
30398 | Overall verdict: pass | |
30399 | ||
30400 | <END_TC> | |
30401 | ||
30402 | :exmp. | |
30403 | ||
30404 | .*---------------------------------------------------------------------* | |
30405 | :h3.CER + DER encoding of SET (different order2)(one element is not equal to Default) AUTOMATIC TAGGING | |
30406 | .*---------------------------------------------------------------------* | |
30407 | :xmp tab=0. | |
30408 | ||
30409 | <TC - CER + DER encoding of SET (different order2)(one element is not equal to Default) AUTOMATIC TAGGING> | |
30410 | ||
30411 | <STATIC:ASN> | |
30412 | ||
30413 | TempA | |
30414 | ||
30415 | DEFINITIONS | |
30416 | ||
30417 | AUTOMATIC TAGS | |
30418 | ||
30419 | ::= | |
30420 | ||
30421 | BEGIN | |
30422 | ||
30423 | BERPDU ::= SET | |
30424 | { | |
30425 | ||
30426 | c INTEGER OPTIONAL, | |
30427 | b BOOLEAN DEFAULT TRUE | |
30428 | } | |
30429 | ||
30430 | ||
30431 | END | |
30432 | ||
30433 | <STATIC> | |
30434 | ||
30435 | import from TempA all; | |
30436 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30437 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30438 | ||
30439 | const BERPDU myValue := {b := false, | |
30440 | c := 5 } | |
30441 | ||
30442 | <TTCN_TC:EXEC> | |
30443 | ||
30444 | ||
30445 | ||
30446 | ||
30447 | if ((enc_DER_PDU(myValue) == '3106800105810100'O)and(enc_CER_PDU(myValue) == '31808001058101000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30448 | ||
30449 | <RESULT> | |
30450 | ||
30451 | Overall verdict: pass | |
30452 | ||
30453 | <END_TC> | |
30454 | ||
30455 | :exmp. | |
30456 | ||
30457 | .*---------------------------------------------------------------------* | |
30458 | :h3.CER + DER encoding of SET (both elements are used) IMPLICIT TAGS for elements | |
30459 | .*---------------------------------------------------------------------* | |
30460 | :xmp tab=0. | |
30461 | ||
30462 | <TC - CER + DER encoding of SET (both elements are used) IMPLICIT TAGS for elements> | |
30463 | ||
30464 | <STATIC:ASN> | |
30465 | ||
30466 | TempA | |
30467 | ||
30468 | DEFINITIONS ::= | |
30469 | BEGIN | |
30470 | ||
30471 | BERPDU ::= SET | |
30472 | { | |
30473 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
30474 | c [31] IMPLICIT INTEGER OPTIONAL | |
30475 | } | |
30476 | ||
30477 | ||
30478 | END | |
30479 | ||
30480 | <STATIC> | |
30481 | ||
30482 | import from TempA all; | |
30483 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30484 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30485 | ||
30486 | const BERPDU myValue := {b := true, | |
30487 | c := 5 } | |
30488 | ||
30489 | <TTCN_TC:EXEC> | |
30490 | ||
30491 | ||
30492 | ||
30493 | ||
30494 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30495 | ||
30496 | <RESULT> | |
30497 | ||
30498 | Overall verdict: pass | |
30499 | ||
30500 | <END_TC> | |
30501 | ||
30502 | :exmp. | |
30503 | ||
30504 | .*---------------------------------------------------------------------* | |
30505 | :h3. encoding of SET (different order) (both elements are used) IMPLICIT TAGS for elements | |
30506 | .*---------------------------------------------------------------------* | |
30507 | :xmp tab=0. | |
30508 | ||
30509 | <TC - encoding of SET (different order) (both elements are used) IMPLICIT TAGS for elements> | |
30510 | ||
30511 | <STATIC:ASN> | |
30512 | ||
30513 | TempA | |
30514 | ||
30515 | DEFINITIONS ::= | |
30516 | BEGIN | |
30517 | ||
30518 | BERPDU ::= SET | |
30519 | { | |
30520 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
30521 | c [31] IMPLICIT INTEGER OPTIONAL | |
30522 | } | |
30523 | ||
30524 | ||
30525 | END | |
30526 | ||
30527 | <STATIC> | |
30528 | ||
30529 | import from TempA all; | |
30530 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30531 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30532 | ||
30533 | const BERPDU myValue := { | |
30534 | c := 5, | |
30535 | b := true } | |
30536 | ||
30537 | <TTCN_TC:EXEC> | |
30538 | ||
30539 | ||
30540 | ||
30541 | ||
30542 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30543 | ||
30544 | <RESULT> | |
30545 | ||
30546 | Overall verdict: pass | |
30547 | ||
30548 | <END_TC> | |
30549 | ||
30550 | :exmp. | |
30551 | ||
30552 | .*---------------------------------------------------------------------* | |
30553 | :h3.CER + DER encoding of SET (different order2) (both elements are used) IMPLICIT TAGS for elements | |
30554 | .*---------------------------------------------------------------------* | |
30555 | :xmp tab=0. | |
30556 | ||
30557 | <TC - CER + DER encoding of SET (different order2) (both elements are used) IMPLICIT TAGS for elements> | |
30558 | ||
30559 | <STATIC:ASN> | |
30560 | ||
30561 | TempA | |
30562 | ||
30563 | DEFINITIONS ::= | |
30564 | BEGIN | |
30565 | ||
30566 | BERPDU ::= SET | |
30567 | { | |
30568 | c [31] IMPLICIT INTEGER OPTIONAL, | |
30569 | b [30] IMPLICIT BOOLEAN OPTIONAL | |
30570 | } | |
30571 | ||
30572 | ||
30573 | END | |
30574 | ||
30575 | <STATIC> | |
30576 | ||
30577 | import from TempA all; | |
30578 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30579 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30580 | ||
30581 | const BERPDU myValue := {b := true, | |
30582 | c := 5 } | |
30583 | ||
30584 | <TTCN_TC:EXEC> | |
30585 | ||
30586 | ||
30587 | ||
30588 | ||
30589 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30590 | ||
30591 | <RESULT> | |
30592 | ||
30593 | Overall verdict: pass | |
30594 | ||
30595 | <END_TC> | |
30596 | ||
30597 | :exmp. | |
30598 | ||
30599 | .*---------------------------------------------------------------------* | |
30600 | :h3.CER + DER encoding of SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
30601 | .*---------------------------------------------------------------------* | |
30602 | :xmp tab=0. | |
30603 | ||
30604 | <TC - CER + DER encoding of SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
30605 | ||
30606 | <STATIC:ASN> | |
30607 | ||
30608 | TempA | |
30609 | ||
30610 | DEFINITIONS | |
30611 | ||
30612 | EXPLICIT TAGS | |
30613 | ||
30614 | ::= | |
30615 | ||
30616 | BEGIN | |
30617 | ||
30618 | BERPDU ::= SET | |
30619 | { | |
30620 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
30621 | c [31] IMPLICIT INTEGER OPTIONAL | |
30622 | } | |
30623 | ||
30624 | ||
30625 | END | |
30626 | ||
30627 | <STATIC> | |
30628 | ||
30629 | import from TempA all; | |
30630 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30631 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30632 | ||
30633 | const BERPDU myValue := {b := true, | |
30634 | c := 5 } | |
30635 | ||
30636 | <TTCN_TC:EXEC> | |
30637 | ||
30638 | ||
30639 | ||
30640 | ||
30641 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30642 | ||
30643 | <RESULT> | |
30644 | ||
30645 | Overall verdict: pass | |
30646 | ||
30647 | <END_TC> | |
30648 | ||
30649 | :exmp. | |
30650 | ||
30651 | .*---------------------------------------------------------------------* | |
30652 | :h3.encoding of SET (different order) (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
30653 | .*---------------------------------------------------------------------* | |
30654 | :xmp tab=0. | |
30655 | ||
30656 | <TC - encoding of SET (different order) (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
30657 | ||
30658 | <STATIC:ASN> | |
30659 | ||
30660 | TempA | |
30661 | ||
30662 | DEFINITIONS | |
30663 | ||
30664 | EXPLICIT TAGS | |
30665 | ||
30666 | ::= | |
30667 | ||
30668 | BEGIN | |
30669 | ||
30670 | BERPDU ::= SET | |
30671 | { | |
30672 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
30673 | c [31] IMPLICIT INTEGER OPTIONAL | |
30674 | } | |
30675 | ||
30676 | ||
30677 | END | |
30678 | ||
30679 | <STATIC> | |
30680 | ||
30681 | import from TempA all; | |
30682 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30683 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30684 | ||
30685 | const BERPDU myValue := { | |
30686 | c := 5 , | |
30687 | b := true } | |
30688 | ||
30689 | <TTCN_TC:EXEC> | |
30690 | ||
30691 | ||
30692 | ||
30693 | ||
30694 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30695 | ||
30696 | <RESULT> | |
30697 | ||
30698 | Overall verdict: pass | |
30699 | ||
30700 | <END_TC> | |
30701 | ||
30702 | :exmp. | |
30703 | ||
30704 | .*---------------------------------------------------------------------* | |
30705 | :h3.CER + DER encoding of SET (different order2)(both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
30706 | .*---------------------------------------------------------------------* | |
30707 | :xmp tab=0. | |
30708 | ||
30709 | <TC - CER + DER encoding of SET (different order2)(both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
30710 | ||
30711 | <STATIC:ASN> | |
30712 | ||
30713 | TempA | |
30714 | ||
30715 | DEFINITIONS | |
30716 | ||
30717 | EXPLICIT TAGS | |
30718 | ||
30719 | ::= | |
30720 | ||
30721 | BEGIN | |
30722 | ||
30723 | BERPDU ::= SET | |
30724 | { | |
30725 | c [31] IMPLICIT INTEGER OPTIONAL, | |
30726 | b [30] IMPLICIT BOOLEAN OPTIONAL | |
30727 | ||
30728 | } | |
30729 | ||
30730 | ||
30731 | END | |
30732 | ||
30733 | <STATIC> | |
30734 | ||
30735 | import from TempA all; | |
30736 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30737 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30738 | ||
30739 | const BERPDU myValue := {b := true, | |
30740 | c := 5 } | |
30741 | ||
30742 | <TTCN_TC:EXEC> | |
30743 | ||
30744 | ||
30745 | ||
30746 | ||
30747 | if ((enc_DER_PDU(myValue) == '31079E01FF9F1F0105'O)and(enc_CER_PDU(myValue) == '31809E01FF9F1F01050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30748 | ||
30749 | <RESULT> | |
30750 | ||
30751 | Overall verdict: pass | |
30752 | ||
30753 | <END_TC> | |
30754 | ||
30755 | :exmp. | |
30756 | ||
30757 | .*---------------------------------------------------------------------* | |
30758 | :h3.CER + DER encoding of SET (both elements are used) EXPLICIT TAGS for elements | |
30759 | .*---------------------------------------------------------------------* | |
30760 | :xmp tab=0. | |
30761 | ||
30762 | <TC - CER + DER encoding of SET (both elements are used) EXPLICIT TAGS for elements> | |
30763 | ||
30764 | <STATIC:ASN> | |
30765 | ||
30766 | TempA | |
30767 | ||
30768 | DEFINITIONS ::= | |
30769 | BEGIN | |
30770 | ||
30771 | BERPDU ::= SET | |
30772 | { | |
30773 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
30774 | c [31] EXPLICIT INTEGER OPTIONAL | |
30775 | } | |
30776 | ||
30777 | ||
30778 | END | |
30779 | ||
30780 | <STATIC> | |
30781 | ||
30782 | import from TempA all; | |
30783 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30784 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30785 | ||
30786 | const BERPDU myValue := {b := true, | |
30787 | c := 5 } | |
30788 | ||
30789 | <TTCN_TC:EXEC> | |
30790 | ||
30791 | ||
30792 | ||
30793 | ||
30794 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30795 | ||
30796 | <RESULT> | |
30797 | ||
30798 | Overall verdict: pass | |
30799 | ||
30800 | <END_TC> | |
30801 | ||
30802 | :exmp. | |
30803 | ||
30804 | .*---------------------------------------------------------------------* | |
30805 | :h3. encoding of SET (different order)(both elements are used) EXPLICIT TAGS for elements | |
30806 | .*---------------------------------------------------------------------* | |
30807 | :xmp tab=0. | |
30808 | ||
30809 | <TC - encoding of SET (different order)(both elements are used) EXPLICIT TAGS for elements> | |
30810 | ||
30811 | <STATIC:ASN> | |
30812 | ||
30813 | TempA | |
30814 | ||
30815 | DEFINITIONS ::= | |
30816 | BEGIN | |
30817 | ||
30818 | BERPDU ::= SET | |
30819 | { | |
30820 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
30821 | c [31] EXPLICIT INTEGER OPTIONAL | |
30822 | } | |
30823 | ||
30824 | ||
30825 | END | |
30826 | ||
30827 | <STATIC> | |
30828 | ||
30829 | import from TempA all; | |
30830 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30831 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30832 | ||
30833 | const BERPDU myValue := { | |
30834 | c := 5, | |
30835 | b := true } | |
30836 | ||
30837 | <TTCN_TC:EXEC> | |
30838 | ||
30839 | ||
30840 | ||
30841 | ||
30842 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30843 | ||
30844 | <RESULT> | |
30845 | ||
30846 | Overall verdict: pass | |
30847 | ||
30848 | <END_TC> | |
30849 | ||
30850 | :exmp. | |
30851 | ||
30852 | .*---------------------------------------------------------------------* | |
30853 | :h3.CER + DER encoding of SET (different order2) (both elements are used) EXPLICIT TAGS for elements | |
30854 | .*---------------------------------------------------------------------* | |
30855 | :xmp tab=0. | |
30856 | ||
30857 | <TC - CER + DER encoding of SET (different order2) (both elements are used) EXPLICIT TAGS for elements> | |
30858 | ||
30859 | <STATIC:ASN> | |
30860 | ||
30861 | TempA | |
30862 | ||
30863 | DEFINITIONS ::= | |
30864 | BEGIN | |
30865 | ||
30866 | BERPDU ::= SET | |
30867 | { | |
30868 | ||
30869 | c [31] EXPLICIT INTEGER OPTIONAL, | |
30870 | b [30] EXPLICIT BOOLEAN OPTIONAL | |
30871 | } | |
30872 | ||
30873 | ||
30874 | END | |
30875 | ||
30876 | <STATIC> | |
30877 | ||
30878 | import from TempA all; | |
30879 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30880 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30881 | ||
30882 | const BERPDU myValue := {b := true, | |
30883 | c := 5 } | |
30884 | ||
30885 | <TTCN_TC:EXEC> | |
30886 | ||
30887 | ||
30888 | ||
30889 | ||
30890 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30891 | ||
30892 | <RESULT> | |
30893 | ||
30894 | Overall verdict: pass | |
30895 | ||
30896 | <END_TC> | |
30897 | ||
30898 | :exmp. | |
30899 | ||
30900 | .*---------------------------------------------------------------------* | |
30901 | :h3.CER + DER encoding of SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
30902 | .*---------------------------------------------------------------------* | |
30903 | :xmp tab=0. | |
30904 | ||
30905 | <TC - CER + DER encoding of SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
30906 | ||
30907 | <STATIC:ASN> | |
30908 | ||
30909 | TempA | |
30910 | ||
30911 | DEFINITIONS | |
30912 | ||
30913 | IMPLICIT TAGS | |
30914 | ||
30915 | ::= | |
30916 | ||
30917 | BEGIN | |
30918 | ||
30919 | BERPDU ::= SET | |
30920 | { | |
30921 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
30922 | c [31] EXPLICIT INTEGER OPTIONAL | |
30923 | } | |
30924 | ||
30925 | ||
30926 | END | |
30927 | ||
30928 | <STATIC> | |
30929 | ||
30930 | import from TempA all; | |
30931 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30932 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30933 | ||
30934 | const BERPDU myValue := {b := true, | |
30935 | c := 5 } | |
30936 | ||
30937 | <TTCN_TC:EXEC> | |
30938 | ||
30939 | ||
30940 | ||
30941 | ||
30942 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30943 | ||
30944 | <RESULT> | |
30945 | ||
30946 | Overall verdict: pass | |
30947 | ||
30948 | <END_TC> | |
30949 | ||
30950 | :exmp. | |
30951 | ||
30952 | .*---------------------------------------------------------------------* | |
30953 | :h3. encoding of SET (different order) (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
30954 | .*---------------------------------------------------------------------* | |
30955 | :xmp tab=0. | |
30956 | ||
30957 | <TC - encoding of SET (different order) (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
30958 | ||
30959 | <STATIC:ASN> | |
30960 | ||
30961 | TempA | |
30962 | ||
30963 | DEFINITIONS | |
30964 | ||
30965 | IMPLICIT TAGS | |
30966 | ||
30967 | ::= | |
30968 | ||
30969 | BEGIN | |
30970 | ||
30971 | BERPDU ::= SET | |
30972 | { | |
30973 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
30974 | c [31] EXPLICIT INTEGER OPTIONAL | |
30975 | } | |
30976 | ||
30977 | ||
30978 | END | |
30979 | ||
30980 | <STATIC> | |
30981 | ||
30982 | import from TempA all; | |
30983 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
30984 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
30985 | ||
30986 | const BERPDU myValue := { | |
30987 | c := 5 , | |
30988 | b := true } | |
30989 | ||
30990 | <TTCN_TC:EXEC> | |
30991 | ||
30992 | ||
30993 | ||
30994 | ||
30995 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
30996 | ||
30997 | <RESULT> | |
30998 | ||
30999 | Overall verdict: pass | |
31000 | ||
31001 | <END_TC> | |
31002 | ||
31003 | :exmp. | |
31004 | ||
31005 | .*---------------------------------------------------------------------* | |
31006 | :h3.CER + DER encoding of SET (different order2)(both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
31007 | .*---------------------------------------------------------------------* | |
31008 | :xmp tab=0. | |
31009 | ||
31010 | <TC - CER + DER encoding of SET (different order2)(both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
31011 | ||
31012 | <STATIC:ASN> | |
31013 | ||
31014 | TempA | |
31015 | ||
31016 | DEFINITIONS | |
31017 | ||
31018 | IMPLICIT TAGS | |
31019 | ||
31020 | ::= | |
31021 | ||
31022 | BEGIN | |
31023 | ||
31024 | BERPDU ::= SET | |
31025 | { | |
31026 | c [31] EXPLICIT INTEGER OPTIONAL, | |
31027 | b [30] EXPLICIT BOOLEAN OPTIONAL | |
31028 | ||
31029 | } | |
31030 | ||
31031 | ||
31032 | END | |
31033 | ||
31034 | <STATIC> | |
31035 | ||
31036 | import from TempA all; | |
31037 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31038 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31039 | ||
31040 | const BERPDU myValue := {b := true, | |
31041 | c := 5 } | |
31042 | ||
31043 | <TTCN_TC:EXEC> | |
31044 | ||
31045 | ||
31046 | ||
31047 | ||
31048 | if ((enc_DER_PDU(myValue) == '310BBE030101FFBF1F03020105'O)and(enc_CER_PDU(myValue) == '3180BE800101FF0000BF1F8002010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31049 | ||
31050 | <RESULT> | |
31051 | ||
31052 | Overall verdict: pass | |
31053 | ||
31054 | <END_TC> | |
31055 | ||
31056 | :exmp. | |
31057 | ||
31058 | .*---------------------------------------------------------------------* | |
31059 | :h3.CER + DER encoding of TAGGED SET (both elements are used) | |
31060 | .*---------------------------------------------------------------------* | |
31061 | :xmp tab=0. | |
31062 | ||
31063 | <TC - CER + DER encoding of TAGGED SET (both elements are used)> | |
31064 | ||
31065 | <STATIC:ASN> | |
31066 | ||
31067 | TempA | |
31068 | ||
31069 | DEFINITIONS ::= | |
31070 | BEGIN | |
31071 | ||
31072 | BERPDU ::= [0] SET | |
31073 | { | |
31074 | b BOOLEAN OPTIONAL, | |
31075 | c INTEGER OPTIONAL | |
31076 | } | |
31077 | ||
31078 | ||
31079 | END | |
31080 | ||
31081 | <STATIC> | |
31082 | ||
31083 | import from TempA all; | |
31084 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31085 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31086 | ||
31087 | const BERPDU myValue := {b := true, | |
31088 | c := 5 } | |
31089 | ||
31090 | <TTCN_TC:EXEC> | |
31091 | ||
31092 | ||
31093 | ||
31094 | ||
31095 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31096 | ||
31097 | <RESULT> | |
31098 | ||
31099 | Overall verdict: pass | |
31100 | ||
31101 | <END_TC> | |
31102 | ||
31103 | :exmp. | |
31104 | ||
31105 | .*---------------------------------------------------------------------* | |
31106 | :h3. encoding of TAGGED SET (different order) (both elements are used) | |
31107 | .*---------------------------------------------------------------------* | |
31108 | :xmp tab=0. | |
31109 | ||
31110 | <TC - encoding of TAGGED SET (different order) (both elements are used)> | |
31111 | ||
31112 | <STATIC:ASN> | |
31113 | ||
31114 | TempA | |
31115 | ||
31116 | DEFINITIONS ::= | |
31117 | BEGIN | |
31118 | ||
31119 | BERPDU ::= [0] SET | |
31120 | { | |
31121 | b BOOLEAN OPTIONAL, | |
31122 | c INTEGER OPTIONAL | |
31123 | } | |
31124 | ||
31125 | ||
31126 | END | |
31127 | ||
31128 | <STATIC> | |
31129 | ||
31130 | import from TempA all; | |
31131 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31132 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31133 | ||
31134 | const BERPDU myValue := { | |
31135 | c := 5, | |
31136 | b := true } | |
31137 | ||
31138 | <TTCN_TC:EXEC> | |
31139 | ||
31140 | ||
31141 | ||
31142 | ||
31143 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31144 | ||
31145 | <RESULT> | |
31146 | ||
31147 | Overall verdict: pass | |
31148 | ||
31149 | <END_TC> | |
31150 | ||
31151 | :exmp. | |
31152 | ||
31153 | .*---------------------------------------------------------------------* | |
31154 | :h3.CER + DER encoding of TAGGED SET (different order2) (both elements are used) | |
31155 | .*---------------------------------------------------------------------* | |
31156 | :xmp tab=0. | |
31157 | ||
31158 | <TC - CER + DER encoding of TAGGED SET (different order2) (both elements are used)> | |
31159 | ||
31160 | <STATIC:ASN> | |
31161 | ||
31162 | TempA | |
31163 | ||
31164 | DEFINITIONS ::= | |
31165 | BEGIN | |
31166 | ||
31167 | BERPDU ::= [0] SET | |
31168 | { | |
31169 | ||
31170 | c INTEGER OPTIONAL, | |
31171 | b BOOLEAN OPTIONAL | |
31172 | } | |
31173 | ||
31174 | ||
31175 | END | |
31176 | ||
31177 | <STATIC> | |
31178 | ||
31179 | import from TempA all; | |
31180 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31181 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31182 | ||
31183 | const BERPDU myValue := {b := true, | |
31184 | c := 5 } | |
31185 | ||
31186 | <TTCN_TC:EXEC> | |
31187 | ||
31188 | ||
31189 | ||
31190 | ||
31191 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31192 | ||
31193 | <RESULT> | |
31194 | ||
31195 | Overall verdict: pass | |
31196 | ||
31197 | <END_TC> | |
31198 | ||
31199 | :exmp. | |
31200 | ||
31201 | .*---------------------------------------------------------------------* | |
31202 | :h3.CER + DER encoding of TAGGED SET (both elements are used), AUTOMATIC TAGGING ENVIRONMENT | |
31203 | .*---------------------------------------------------------------------* | |
31204 | :xmp tab=0. | |
31205 | ||
31206 | <TC - CER + DER encoding of TAGGED SET (both elements are used), AUTOMATIC TAGGING ENVIRONMENT> | |
31207 | ||
31208 | <STATIC:ASN> | |
31209 | ||
31210 | TempA | |
31211 | ||
31212 | DEFINITIONS | |
31213 | ||
31214 | AUTOMATIC TAGS | |
31215 | ||
31216 | ::= | |
31217 | ||
31218 | BEGIN | |
31219 | ||
31220 | BERPDU ::= [0] SET | |
31221 | { | |
31222 | b BOOLEAN OPTIONAL, | |
31223 | c INTEGER OPTIONAL | |
31224 | } | |
31225 | ||
31226 | ||
31227 | END | |
31228 | ||
31229 | <STATIC> | |
31230 | ||
31231 | import from TempA all; | |
31232 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31233 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31234 | ||
31235 | const BERPDU myValue := {b := true, | |
31236 | c := 5 } | |
31237 | ||
31238 | <TTCN_TC:EXEC> | |
31239 | ||
31240 | ||
31241 | ||
31242 | ||
31243 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31244 | ||
31245 | <RESULT> | |
31246 | ||
31247 | Overall verdict: pass | |
31248 | ||
31249 | <END_TC> | |
31250 | ||
31251 | :exmp. | |
31252 | ||
31253 | .*---------------------------------------------------------------------* | |
31254 | :h3. encoding of TAGGED SET (different order) (both elements are used), AUTOMATIC TAGGING ENVIRONMENT | |
31255 | .*---------------------------------------------------------------------* | |
31256 | :xmp tab=0. | |
31257 | ||
31258 | <TC - encoding of TAGGED SET (different order) (both elements are used), AUTOMATIC TAGGING ENVIRONMENT> | |
31259 | ||
31260 | <STATIC:ASN> | |
31261 | ||
31262 | TempA | |
31263 | ||
31264 | DEFINITIONS | |
31265 | ||
31266 | AUTOMATIC TAGS | |
31267 | ||
31268 | ::= | |
31269 | ||
31270 | BEGIN | |
31271 | ||
31272 | BERPDU ::= [0] SET | |
31273 | { | |
31274 | b BOOLEAN OPTIONAL, | |
31275 | c INTEGER OPTIONAL | |
31276 | } | |
31277 | ||
31278 | ||
31279 | END | |
31280 | ||
31281 | <STATIC> | |
31282 | ||
31283 | import from TempA all; | |
31284 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31285 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31286 | ||
31287 | const BERPDU myValue := { | |
31288 | c := 5, | |
31289 | b := true } | |
31290 | ||
31291 | <TTCN_TC:EXEC> | |
31292 | ||
31293 | ||
31294 | ||
31295 | ||
31296 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31297 | ||
31298 | <RESULT> | |
31299 | ||
31300 | Overall verdict: pass | |
31301 | ||
31302 | <END_TC> | |
31303 | ||
31304 | :exmp. | |
31305 | ||
31306 | .*---------------------------------------------------------------------* | |
31307 | :h3.CER + DER encoding of TAGGED SET (different order2) (both elements are used), AUTOMATIC TAGGING ENVIRONMENT | |
31308 | .*---------------------------------------------------------------------* | |
31309 | :xmp tab=0. | |
31310 | ||
31311 | <TC - CER + DER encoding of TAGGED SET (different order2) (both elements are used), AUTOMATIC TAGGING ENVIRONMENT> | |
31312 | ||
31313 | <STATIC:ASN> | |
31314 | ||
31315 | TempA | |
31316 | ||
31317 | DEFINITIONS | |
31318 | ||
31319 | AUTOMATIC TAGS | |
31320 | ||
31321 | ::= | |
31322 | ||
31323 | BEGIN | |
31324 | ||
31325 | BERPDU ::= [0] SET | |
31326 | { | |
31327 | c INTEGER OPTIONAL, | |
31328 | b BOOLEAN OPTIONAL | |
31329 | } | |
31330 | ||
31331 | ||
31332 | END | |
31333 | ||
31334 | <STATIC> | |
31335 | ||
31336 | import from TempA all; | |
31337 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31338 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31339 | ||
31340 | const BERPDU myValue := {b := true, | |
31341 | c := 5 } | |
31342 | ||
31343 | <TTCN_TC:EXEC> | |
31344 | ||
31345 | ||
31346 | ||
31347 | ||
31348 | if ((enc_DER_PDU(myValue) == 'A0068001058101FF'O)and(enc_CER_PDU(myValue) == 'A0808001058101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31349 | ||
31350 | <RESULT> | |
31351 | ||
31352 | Overall verdict: pass | |
31353 | ||
31354 | <END_TC> | |
31355 | ||
31356 | :exmp. | |
31357 | ||
31358 | .*---------------------------------------------------------------------* | |
31359 | :h3.CER + DER encoding of TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
31360 | .*---------------------------------------------------------------------* | |
31361 | :xmp tab=0. | |
31362 | ||
31363 | <TC - CER + DER encoding of TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
31364 | ||
31365 | <STATIC:ASN> | |
31366 | ||
31367 | TempA | |
31368 | ||
31369 | DEFINITIONS | |
31370 | ||
31371 | IMPLICIT TAGS | |
31372 | ||
31373 | ::= | |
31374 | ||
31375 | BEGIN | |
31376 | ||
31377 | BERPDU ::= [0] SET | |
31378 | { | |
31379 | b BOOLEAN OPTIONAL, | |
31380 | c INTEGER OPTIONAL | |
31381 | } | |
31382 | ||
31383 | ||
31384 | END | |
31385 | ||
31386 | <STATIC> | |
31387 | ||
31388 | import from TempA all; | |
31389 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31390 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31391 | ||
31392 | const BERPDU myValue := {b := true, | |
31393 | c := 5 } | |
31394 | ||
31395 | <TTCN_TC:EXEC> | |
31396 | ||
31397 | ||
31398 | ||
31399 | ||
31400 | if ((enc_DER_PDU(myValue) == 'A0060101FF020105'O)and(enc_CER_PDU(myValue) == 'A0800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31401 | ||
31402 | <RESULT> | |
31403 | ||
31404 | Overall verdict: pass | |
31405 | ||
31406 | <END_TC> | |
31407 | ||
31408 | :exmp. | |
31409 | ||
31410 | .*---------------------------------------------------------------------* | |
31411 | :h3. encoding of TAGGED SET (different order)(both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
31412 | .*---------------------------------------------------------------------* | |
31413 | :xmp tab=0. | |
31414 | ||
31415 | <TC - encoding of TAGGED SET (different order)(both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
31416 | ||
31417 | <STATIC:ASN> | |
31418 | ||
31419 | TempA | |
31420 | ||
31421 | DEFINITIONS | |
31422 | ||
31423 | IMPLICIT TAGS | |
31424 | ||
31425 | ::= | |
31426 | ||
31427 | BEGIN | |
31428 | ||
31429 | BERPDU ::= [0] SET | |
31430 | { | |
31431 | b BOOLEAN OPTIONAL, | |
31432 | c INTEGER OPTIONAL | |
31433 | } | |
31434 | ||
31435 | ||
31436 | END | |
31437 | ||
31438 | <STATIC> | |
31439 | ||
31440 | import from TempA all; | |
31441 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31442 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31443 | ||
31444 | const BERPDU myValue := { | |
31445 | c := 5, | |
31446 | b := true } | |
31447 | ||
31448 | <TTCN_TC:EXEC> | |
31449 | ||
31450 | ||
31451 | ||
31452 | ||
31453 | if ((enc_DER_PDU(myValue) == 'A0060101FF020105'O)and(enc_CER_PDU(myValue) == 'A0800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31454 | ||
31455 | <RESULT> | |
31456 | ||
31457 | Overall verdict: pass | |
31458 | ||
31459 | <END_TC> | |
31460 | ||
31461 | :exmp. | |
31462 | ||
31463 | .*---------------------------------------------------------------------* | |
31464 | :h3.CER + DER encoding of TAGGED SET (different order2)(both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
31465 | .*---------------------------------------------------------------------* | |
31466 | :xmp tab=0. | |
31467 | ||
31468 | <TC - CER + DER encoding of TAGGED SET (different order2)(both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
31469 | ||
31470 | <STATIC:ASN> | |
31471 | ||
31472 | TempA | |
31473 | ||
31474 | DEFINITIONS | |
31475 | ||
31476 | IMPLICIT TAGS | |
31477 | ||
31478 | ::= | |
31479 | ||
31480 | BEGIN | |
31481 | ||
31482 | BERPDU ::= [0] SET | |
31483 | { | |
31484 | ||
31485 | c INTEGER OPTIONAL, | |
31486 | b BOOLEAN OPTIONAL | |
31487 | } | |
31488 | ||
31489 | ||
31490 | END | |
31491 | ||
31492 | <STATIC> | |
31493 | ||
31494 | import from TempA all; | |
31495 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31496 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31497 | ||
31498 | const BERPDU myValue := {b := true, | |
31499 | c := 5 } | |
31500 | ||
31501 | <TTCN_TC:EXEC> | |
31502 | ||
31503 | ||
31504 | ||
31505 | ||
31506 | if ((enc_DER_PDU(myValue) == 'A0060101FF020105'O)and(enc_CER_PDU(myValue) == 'A0800101FF0201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31507 | ||
31508 | <RESULT> | |
31509 | ||
31510 | Overall verdict: pass | |
31511 | ||
31512 | <END_TC> | |
31513 | ||
31514 | :exmp. | |
31515 | ||
31516 | .*---------------------------------------------------------------------* | |
31517 | :h3.CER + DER encoding of TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
31518 | .*---------------------------------------------------------------------* | |
31519 | :xmp tab=0. | |
31520 | ||
31521 | <TC - CER + DER encoding of TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
31522 | ||
31523 | <STATIC:ASN> | |
31524 | ||
31525 | TempA | |
31526 | ||
31527 | DEFINITIONS | |
31528 | ||
31529 | EXPLICIT TAGS | |
31530 | ||
31531 | ::= | |
31532 | ||
31533 | BEGIN | |
31534 | ||
31535 | BERPDU ::= [0] SET | |
31536 | { | |
31537 | b BOOLEAN OPTIONAL, | |
31538 | c INTEGER OPTIONAL | |
31539 | } | |
31540 | ||
31541 | ||
31542 | END | |
31543 | ||
31544 | <STATIC> | |
31545 | ||
31546 | import from TempA all; | |
31547 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31548 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31549 | ||
31550 | const BERPDU myValue := {b := true, | |
31551 | c := 5 } | |
31552 | ||
31553 | <TTCN_TC:EXEC> | |
31554 | ||
31555 | ||
31556 | ||
31557 | ||
31558 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31559 | ||
31560 | <RESULT> | |
31561 | ||
31562 | Overall verdict: pass | |
31563 | ||
31564 | <END_TC> | |
31565 | ||
31566 | :exmp. | |
31567 | ||
31568 | .*---------------------------------------------------------------------* | |
31569 | :h3. encoding of TAGGED SET (different order) (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
31570 | .*---------------------------------------------------------------------* | |
31571 | :xmp tab=0. | |
31572 | ||
31573 | <TC - encoding of TAGGED SET (different order) (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
31574 | ||
31575 | <STATIC:ASN> | |
31576 | ||
31577 | TempA | |
31578 | ||
31579 | DEFINITIONS | |
31580 | ||
31581 | EXPLICIT TAGS | |
31582 | ||
31583 | ::= | |
31584 | ||
31585 | BEGIN | |
31586 | ||
31587 | BERPDU ::= [0] SET | |
31588 | { | |
31589 | b BOOLEAN OPTIONAL, | |
31590 | c INTEGER OPTIONAL | |
31591 | } | |
31592 | ||
31593 | ||
31594 | END | |
31595 | ||
31596 | <STATIC> | |
31597 | ||
31598 | import from TempA all; | |
31599 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31600 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31601 | ||
31602 | const BERPDU myValue := { | |
31603 | c := 5, | |
31604 | b := true } | |
31605 | ||
31606 | <TTCN_TC:EXEC> | |
31607 | ||
31608 | ||
31609 | ||
31610 | ||
31611 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31612 | ||
31613 | <RESULT> | |
31614 | ||
31615 | Overall verdict: pass | |
31616 | ||
31617 | <END_TC> | |
31618 | ||
31619 | :exmp. | |
31620 | ||
31621 | .*---------------------------------------------------------------------* | |
31622 | :h3.CER + DER encoding of TAGGED SET (different order2) (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
31623 | .*---------------------------------------------------------------------* | |
31624 | :xmp tab=0. | |
31625 | ||
31626 | <TC - CER + DER encoding of TAGGED SET (different order2) (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
31627 | ||
31628 | <STATIC:ASN> | |
31629 | ||
31630 | TempA | |
31631 | ||
31632 | DEFINITIONS | |
31633 | ||
31634 | EXPLICIT TAGS | |
31635 | ||
31636 | ::= | |
31637 | ||
31638 | BEGIN | |
31639 | ||
31640 | BERPDU ::= [0] SET | |
31641 | { | |
31642 | c INTEGER OPTIONAL, | |
31643 | b BOOLEAN OPTIONAL | |
31644 | } | |
31645 | ||
31646 | ||
31647 | END | |
31648 | ||
31649 | <STATIC> | |
31650 | ||
31651 | import from TempA all; | |
31652 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31653 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31654 | ||
31655 | const BERPDU myValue := {b := true, | |
31656 | c := 5 } | |
31657 | ||
31658 | <TTCN_TC:EXEC> | |
31659 | ||
31660 | ||
31661 | ||
31662 | ||
31663 | if ((enc_DER_PDU(myValue) == 'A00831060101FF020105'O)and(enc_CER_PDU(myValue) == 'A08031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31664 | ||
31665 | <RESULT> | |
31666 | ||
31667 | Overall verdict: pass | |
31668 | ||
31669 | <END_TC> | |
31670 | ||
31671 | :exmp. | |
31672 | ||
31673 | .*---------------------------------------------------------------------* | |
31674 | :h3.CER + DER encoding of TAGGED SET (both elements are TAGGED and used) | |
31675 | .*---------------------------------------------------------------------* | |
31676 | :xmp tab=0. | |
31677 | ||
31678 | <TC - CER + DER encoding of TAGGED SET (both elements are TAGGED and used)> | |
31679 | ||
31680 | <STATIC:ASN> | |
31681 | ||
31682 | TempA | |
31683 | ||
31684 | DEFINITIONS ::= | |
31685 | BEGIN | |
31686 | ||
31687 | BERPDU ::= [0] SET | |
31688 | { | |
31689 | b [0] BOOLEAN OPTIONAL, | |
31690 | c [1] INTEGER OPTIONAL | |
31691 | } | |
31692 | ||
31693 | ||
31694 | END | |
31695 | ||
31696 | <STATIC> | |
31697 | ||
31698 | import from TempA all; | |
31699 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31700 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31701 | ||
31702 | const BERPDU myValue := {b := true, | |
31703 | c := 5 } | |
31704 | ||
31705 | <TTCN_TC:EXEC> | |
31706 | ||
31707 | ||
31708 | ||
31709 | ||
31710 | if ((enc_DER_PDU(myValue) == 'A00C310AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803180A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31711 | ||
31712 | <RESULT> | |
31713 | ||
31714 | Overall verdict: pass | |
31715 | ||
31716 | <END_TC> | |
31717 | ||
31718 | :exmp. | |
31719 | ||
31720 | .*---------------------------------------------------------------------* | |
31721 | :h3. encoding of TAGGED SET (both elements are TAGGED and used) | |
31722 | .*---------------------------------------------------------------------* | |
31723 | :xmp tab=0. | |
31724 | ||
31725 | <TC - encoding of TAGGED SET (both elements are TAGGED and used)> | |
31726 | ||
31727 | <STATIC:ASN> | |
31728 | ||
31729 | TempA | |
31730 | ||
31731 | DEFINITIONS ::= | |
31732 | BEGIN | |
31733 | ||
31734 | BERPDU ::= [0] SET | |
31735 | { | |
31736 | b [0] BOOLEAN OPTIONAL, | |
31737 | c [1] INTEGER OPTIONAL | |
31738 | } | |
31739 | ||
31740 | ||
31741 | END | |
31742 | ||
31743 | <STATIC> | |
31744 | ||
31745 | import from TempA all; | |
31746 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31747 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31748 | ||
31749 | const BERPDU myValue := { | |
31750 | c := 5, | |
31751 | b := true } | |
31752 | ||
31753 | <TTCN_TC:EXEC> | |
31754 | ||
31755 | ||
31756 | ||
31757 | ||
31758 | if ((enc_DER_PDU(myValue) == 'A00C310AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803180A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31759 | ||
31760 | <RESULT> | |
31761 | ||
31762 | Overall verdict: pass | |
31763 | ||
31764 | <END_TC> | |
31765 | ||
31766 | :exmp. | |
31767 | ||
31768 | .*---------------------------------------------------------------------* | |
31769 | :h3.CER + DER encoding of TAGGED SET (different order) (both elements are TAGGED and used) | |
31770 | .*---------------------------------------------------------------------* | |
31771 | :xmp tab=0. | |
31772 | ||
31773 | <TC - CER + DER encoding of TAGGED SET (different order) (both elements are TAGGED and used)> | |
31774 | ||
31775 | <STATIC:ASN> | |
31776 | ||
31777 | TempA | |
31778 | ||
31779 | DEFINITIONS ::= | |
31780 | BEGIN | |
31781 | ||
31782 | BERPDU ::= [0] SET | |
31783 | { | |
31784 | b [1] BOOLEAN OPTIONAL, | |
31785 | c [0] INTEGER OPTIONAL | |
31786 | } | |
31787 | ||
31788 | ||
31789 | END | |
31790 | ||
31791 | <STATIC> | |
31792 | ||
31793 | import from TempA all; | |
31794 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31795 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31796 | ||
31797 | const BERPDU myValue := {b := true, | |
31798 | c := 5 } | |
31799 | ||
31800 | <TTCN_TC:EXEC> | |
31801 | ||
31802 | ||
31803 | ||
31804 | ||
31805 | if ((enc_DER_PDU(myValue) == 'A00C310AA003020105A1030101FF'O)and(enc_CER_PDU(myValue) == 'A0803180A0800201050000A1800101FF000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31806 | ||
31807 | <RESULT> | |
31808 | ||
31809 | Overall verdict: pass | |
31810 | ||
31811 | <END_TC> | |
31812 | ||
31813 | :exmp. | |
31814 | ||
31815 | .*---------------------------------------------------------------------* | |
31816 | :h3.CER + DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
31817 | .*---------------------------------------------------------------------* | |
31818 | :xmp tab=0. | |
31819 | ||
31820 | <TC - CER + DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
31821 | ||
31822 | <STATIC:ASN> | |
31823 | ||
31824 | TempA | |
31825 | ||
31826 | DEFINITIONS | |
31827 | ||
31828 | EXPLICIT TAGS | |
31829 | ||
31830 | ::= | |
31831 | ||
31832 | BEGIN | |
31833 | ||
31834 | BERPDU ::= [0] SET | |
31835 | { | |
31836 | b [0] BOOLEAN OPTIONAL, | |
31837 | c [1] INTEGER OPTIONAL | |
31838 | } | |
31839 | ||
31840 | ||
31841 | END | |
31842 | ||
31843 | <STATIC> | |
31844 | ||
31845 | import from TempA all; | |
31846 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31847 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31848 | ||
31849 | const BERPDU myValue := {b := true, | |
31850 | c := 5 } | |
31851 | ||
31852 | <TTCN_TC:EXEC> | |
31853 | ||
31854 | ||
31855 | ||
31856 | ||
31857 | if ((enc_DER_PDU(myValue) == 'A00C310AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803180A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31858 | ||
31859 | <RESULT> | |
31860 | ||
31861 | Overall verdict: pass | |
31862 | ||
31863 | <END_TC> | |
31864 | ||
31865 | :exmp. | |
31866 | ||
31867 | .*---------------------------------------------------------------------* | |
31868 | :h3. encoding of TAGGED SET (different order)(both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
31869 | .*---------------------------------------------------------------------* | |
31870 | :xmp tab=0. | |
31871 | ||
31872 | <TC - encoding of TAGGED SET (different order)(both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
31873 | ||
31874 | <STATIC:ASN> | |
31875 | ||
31876 | TempA | |
31877 | ||
31878 | DEFINITIONS | |
31879 | ||
31880 | EXPLICIT TAGS | |
31881 | ||
31882 | ::= | |
31883 | ||
31884 | BEGIN | |
31885 | ||
31886 | BERPDU ::= [0] SET | |
31887 | { | |
31888 | b [0] BOOLEAN OPTIONAL, | |
31889 | c [1] INTEGER OPTIONAL | |
31890 | } | |
31891 | ||
31892 | ||
31893 | END | |
31894 | ||
31895 | <STATIC> | |
31896 | ||
31897 | import from TempA all; | |
31898 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31899 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31900 | ||
31901 | const BERPDU myValue := { | |
31902 | c := 5, | |
31903 | b := true } | |
31904 | ||
31905 | <TTCN_TC:EXEC> | |
31906 | ||
31907 | ||
31908 | ||
31909 | ||
31910 | if ((enc_DER_PDU(myValue) == 'A00C310AA0030101FFA103020105'O)and(enc_CER_PDU(myValue) == 'A0803180A0800101FF0000A180020105000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31911 | ||
31912 | <RESULT> | |
31913 | ||
31914 | Overall verdict: pass | |
31915 | ||
31916 | <END_TC> | |
31917 | ||
31918 | :exmp. | |
31919 | ||
31920 | .*---------------------------------------------------------------------* | |
31921 | :h3.CER + DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
31922 | .*---------------------------------------------------------------------* | |
31923 | :xmp tab=0. | |
31924 | ||
31925 | <TC - CER + DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
31926 | ||
31927 | <STATIC:ASN> | |
31928 | ||
31929 | TempA | |
31930 | ||
31931 | DEFINITIONS | |
31932 | ||
31933 | EXPLICIT TAGS | |
31934 | ||
31935 | ::= | |
31936 | ||
31937 | BEGIN | |
31938 | ||
31939 | BERPDU ::= [0] SET | |
31940 | { | |
31941 | b [1] BOOLEAN OPTIONAL, | |
31942 | c [0] INTEGER OPTIONAL | |
31943 | } | |
31944 | ||
31945 | ||
31946 | END | |
31947 | ||
31948 | <STATIC> | |
31949 | ||
31950 | import from TempA all; | |
31951 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
31952 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
31953 | ||
31954 | const BERPDU myValue := {b := true, | |
31955 | c := 5 } | |
31956 | ||
31957 | <TTCN_TC:EXEC> | |
31958 | ||
31959 | ||
31960 | ||
31961 | ||
31962 | if ((enc_DER_PDU(myValue) == 'A00C310AA003020105A1030101FF'O)and(enc_CER_PDU(myValue) == 'A0803180A0800201050000A1800101FF000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
31963 | ||
31964 | <RESULT> | |
31965 | ||
31966 | Overall verdict: pass | |
31967 | ||
31968 | <END_TC> | |
31969 | ||
31970 | :exmp. | |
31971 | ||
31972 | .*---------------------------------------------------------------------* | |
31973 | :h3.CER + DER encoding of TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
31974 | .*---------------------------------------------------------------------* | |
31975 | :xmp tab=0. | |
31976 | ||
31977 | <TC - CER + DER encoding of TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
31978 | ||
31979 | <STATIC:ASN> | |
31980 | ||
31981 | TempA | |
31982 | ||
31983 | DEFINITIONS | |
31984 | ||
31985 | IMPLICIT TAGS | |
31986 | ||
31987 | ::= | |
31988 | ||
31989 | BEGIN | |
31990 | ||
31991 | BERPDU ::= [0] SET | |
31992 | { | |
31993 | b [0] BOOLEAN OPTIONAL, | |
31994 | c [1] INTEGER OPTIONAL | |
31995 | } | |
31996 | ||
31997 | ||
31998 | END | |
31999 | ||
32000 | <STATIC> | |
32001 | ||
32002 | import from TempA all; | |
32003 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32004 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32005 | ||
32006 | const BERPDU myValue := {b := true, | |
32007 | c := 5 } | |
32008 | ||
32009 | <TTCN_TC:EXEC> | |
32010 | ||
32011 | ||
32012 | ||
32013 | ||
32014 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32015 | ||
32016 | <RESULT> | |
32017 | ||
32018 | Overall verdict: pass | |
32019 | ||
32020 | <END_TC> | |
32021 | ||
32022 | :exmp. | |
32023 | ||
32024 | .*---------------------------------------------------------------------* | |
32025 | :h3. encoding of TAGGED SET (different order) (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
32026 | .*---------------------------------------------------------------------* | |
32027 | :xmp tab=0. | |
32028 | ||
32029 | <TC - encoding of TAGGED SET (different order) (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
32030 | ||
32031 | <STATIC:ASN> | |
32032 | ||
32033 | TempA | |
32034 | ||
32035 | DEFINITIONS | |
32036 | ||
32037 | IMPLICIT TAGS | |
32038 | ||
32039 | ::= | |
32040 | ||
32041 | BEGIN | |
32042 | ||
32043 | BERPDU ::= [0] SET | |
32044 | { | |
32045 | b [0] BOOLEAN OPTIONAL, | |
32046 | c [1] INTEGER OPTIONAL | |
32047 | } | |
32048 | ||
32049 | ||
32050 | END | |
32051 | ||
32052 | <STATIC> | |
32053 | ||
32054 | import from TempA all; | |
32055 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32056 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32057 | ||
32058 | const BERPDU myValue := { | |
32059 | c := 5, | |
32060 | b := true } | |
32061 | ||
32062 | <TTCN_TC:EXEC> | |
32063 | ||
32064 | ||
32065 | ||
32066 | ||
32067 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32068 | ||
32069 | <RESULT> | |
32070 | ||
32071 | Overall verdict: pass | |
32072 | ||
32073 | <END_TC> | |
32074 | ||
32075 | :exmp. | |
32076 | ||
32077 | .*---------------------------------------------------------------------* | |
32078 | :h3.CER + DER encoding of TAGGED SET (different order2)(both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
32079 | .*---------------------------------------------------------------------* | |
32080 | :xmp tab=0. | |
32081 | ||
32082 | <TC - CER + DER encoding of TAGGED SET (different order2)(both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
32083 | ||
32084 | <STATIC:ASN> | |
32085 | ||
32086 | TempA | |
32087 | ||
32088 | DEFINITIONS | |
32089 | ||
32090 | IMPLICIT TAGS | |
32091 | ||
32092 | ::= | |
32093 | ||
32094 | BEGIN | |
32095 | ||
32096 | BERPDU ::= [0] SET | |
32097 | { | |
32098 | ||
32099 | c [1] INTEGER OPTIONAL, | |
32100 | b [0] BOOLEAN OPTIONAL | |
32101 | } | |
32102 | ||
32103 | ||
32104 | END | |
32105 | ||
32106 | <STATIC> | |
32107 | ||
32108 | import from TempA all; | |
32109 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32110 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32111 | ||
32112 | const BERPDU myValue := {b := true, | |
32113 | c := 5 } | |
32114 | ||
32115 | <TTCN_TC:EXEC> | |
32116 | ||
32117 | ||
32118 | ||
32119 | ||
32120 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32121 | ||
32122 | <RESULT> | |
32123 | ||
32124 | Overall verdict: pass | |
32125 | ||
32126 | <END_TC> | |
32127 | ||
32128 | :exmp. | |
32129 | ||
32130 | .*---------------------------------------------------------------------* | |
32131 | :h3.CER + DER encoding of TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
32132 | .*---------------------------------------------------------------------* | |
32133 | :xmp tab=0. | |
32134 | ||
32135 | <TC - CER + DER encoding of TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
32136 | ||
32137 | <STATIC:ASN> | |
32138 | ||
32139 | TempA | |
32140 | ||
32141 | DEFINITIONS | |
32142 | ||
32143 | AUTOMATIC TAGS | |
32144 | ||
32145 | ::= | |
32146 | ||
32147 | BEGIN | |
32148 | ||
32149 | BERPDU ::= [0] SET | |
32150 | { | |
32151 | b [0] BOOLEAN OPTIONAL, | |
32152 | c [1] INTEGER OPTIONAL | |
32153 | } | |
32154 | ||
32155 | ||
32156 | END | |
32157 | ||
32158 | <STATIC> | |
32159 | ||
32160 | import from TempA all; | |
32161 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32162 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32163 | ||
32164 | const BERPDU myValue := {b := true, | |
32165 | c := 5 } | |
32166 | ||
32167 | <TTCN_TC:EXEC> | |
32168 | ||
32169 | ||
32170 | ||
32171 | ||
32172 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32173 | ||
32174 | ||
32175 | <RESULT> | |
32176 | ||
32177 | Overall verdict: pass | |
32178 | ||
32179 | <END_TC> | |
32180 | ||
32181 | :exmp. | |
32182 | ||
32183 | .*---------------------------------------------------------------------* | |
32184 | :h3.encoding of TAGGED SET (different order) (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
32185 | .*---------------------------------------------------------------------* | |
32186 | :xmp tab=0. | |
32187 | ||
32188 | <TC - encoding of TAGGED SET (different order) (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
32189 | ||
32190 | <STATIC:ASN> | |
32191 | ||
32192 | TempA | |
32193 | ||
32194 | DEFINITIONS | |
32195 | ||
32196 | AUTOMATIC TAGS | |
32197 | ||
32198 | ::= | |
32199 | ||
32200 | BEGIN | |
32201 | ||
32202 | BERPDU ::= [0] SET | |
32203 | { | |
32204 | b [0] BOOLEAN OPTIONAL, | |
32205 | c [1] INTEGER OPTIONAL | |
32206 | } | |
32207 | ||
32208 | ||
32209 | END | |
32210 | ||
32211 | <STATIC> | |
32212 | ||
32213 | import from TempA all; | |
32214 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32215 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32216 | ||
32217 | const BERPDU myValue := { | |
32218 | c := 5, | |
32219 | b := true } | |
32220 | ||
32221 | <TTCN_TC:EXEC> | |
32222 | ||
32223 | ||
32224 | ||
32225 | ||
32226 | if ((enc_DER_PDU(myValue) == 'A0068001FF810105'O)and(enc_CER_PDU(myValue) == 'A0808001FF8101050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32227 | ||
32228 | ||
32229 | <RESULT> | |
32230 | ||
32231 | Overall verdict: pass | |
32232 | ||
32233 | <END_TC> | |
32234 | ||
32235 | :exmp. | |
32236 | ||
32237 | .*---------------------------------------------------------------------* | |
32238 | :h3.CER + DER encoding of TAGGED SET (different order2) (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
32239 | .*---------------------------------------------------------------------* | |
32240 | :xmp tab=0. | |
32241 | ||
32242 | <TC - CER + DER encoding of TAGGED SET (different order2) (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
32243 | ||
32244 | <STATIC:ASN> | |
32245 | ||
32246 | TempA | |
32247 | ||
32248 | DEFINITIONS | |
32249 | ||
32250 | AUTOMATIC TAGS | |
32251 | ||
32252 | ::= | |
32253 | ||
32254 | BEGIN | |
32255 | ||
32256 | BERPDU ::= [0] SET | |
32257 | { | |
32258 | ||
32259 | c [0] INTEGER OPTIONAL, | |
32260 | b [1] BOOLEAN OPTIONAL | |
32261 | } | |
32262 | ||
32263 | ||
32264 | END | |
32265 | ||
32266 | <STATIC> | |
32267 | ||
32268 | import from TempA all; | |
32269 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32270 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32271 | ||
32272 | const BERPDU myValue := {b := true, | |
32273 | c := 5 } | |
32274 | ||
32275 | <TTCN_TC:EXEC> | |
32276 | ||
32277 | ||
32278 | ||
32279 | ||
32280 | if ((enc_DER_PDU(myValue) == 'A0068001058101FF'O)and(enc_CER_PDU(myValue) == 'A0808001058101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32281 | ||
32282 | ||
32283 | <RESULT> | |
32284 | ||
32285 | Overall verdict: pass | |
32286 | ||
32287 | <END_TC> | |
32288 | ||
32289 | :exmp. | |
32290 | ||
32291 | .*---------------------------------------------------------------------* | |
32292 | :h3.CER + DER encoding of SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
32293 | .*---------------------------------------------------------------------* | |
32294 | :xmp tab=0. | |
32295 | ||
32296 | <TC - CER + DER encoding of SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
32297 | ||
32298 | <STATIC:ASN> | |
32299 | ||
32300 | TempA | |
32301 | ||
32302 | DEFINITIONS | |
32303 | ||
32304 | AUTOMATIC TAGS | |
32305 | ||
32306 | ::= | |
32307 | ||
32308 | BEGIN | |
32309 | ||
32310 | BERPDU ::= SET | |
32311 | { | |
32312 | b [5] BOOLEAN OPTIONAL, | |
32313 | c INTEGER OPTIONAL | |
32314 | } | |
32315 | ||
32316 | ||
32317 | END | |
32318 | ||
32319 | <STATIC> | |
32320 | ||
32321 | import from TempA all; | |
32322 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32323 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32324 | ||
32325 | const BERPDU myValue := {b := true, | |
32326 | c := 5 } | |
32327 | ||
32328 | <TTCN_TC:EXEC> | |
32329 | ||
32330 | ||
32331 | ||
32332 | ||
32333 | if ((enc_DER_PDU(myValue) == '31060201058501FF'O)and(enc_CER_PDU(myValue) == '31800201058501FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32334 | ||
32335 | <RESULT> | |
32336 | ||
32337 | Overall verdict: pass | |
32338 | ||
32339 | <END_TC> | |
32340 | ||
32341 | :exmp. | |
32342 | ||
32343 | .*---------------------------------------------------------------------* | |
32344 | :h3. encoding of SET , (different order) one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
32345 | .*---------------------------------------------------------------------* | |
32346 | :xmp tab=0. | |
32347 | ||
32348 | <TC - encoding of SET , (different order) one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
32349 | ||
32350 | <STATIC:ASN> | |
32351 | ||
32352 | TempA | |
32353 | ||
32354 | DEFINITIONS | |
32355 | ||
32356 | AUTOMATIC TAGS | |
32357 | ||
32358 | ::= | |
32359 | ||
32360 | BEGIN | |
32361 | ||
32362 | BERPDU ::= SET | |
32363 | { | |
32364 | b [5] BOOLEAN OPTIONAL, | |
32365 | c INTEGER OPTIONAL | |
32366 | } | |
32367 | ||
32368 | ||
32369 | END | |
32370 | ||
32371 | <STATIC> | |
32372 | ||
32373 | import from TempA all; | |
32374 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32375 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32376 | ||
32377 | const BERPDU myValue := { c := 5 , | |
32378 | b := true } | |
32379 | ||
32380 | <TTCN_TC:EXEC> | |
32381 | ||
32382 | ||
32383 | ||
32384 | ||
32385 | if ((enc_DER_PDU(myValue) == '31060201058501FF'O)and(enc_CER_PDU(myValue) == '31800201058501FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32386 | ||
32387 | <RESULT> | |
32388 | ||
32389 | Overall verdict: pass | |
32390 | ||
32391 | <END_TC> | |
32392 | ||
32393 | :exmp. | |
32394 | ||
32395 | .*---------------------------------------------------------------------* | |
32396 | :h3.CER + DER encoding of SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
32397 | .*---------------------------------------------------------------------* | |
32398 | :xmp tab=0. | |
32399 | ||
32400 | <TC - CER + DER encoding of SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
32401 | ||
32402 | <STATIC:ASN> | |
32403 | ||
32404 | TempA | |
32405 | ||
32406 | DEFINITIONS | |
32407 | ||
32408 | AUTOMATIC TAGS | |
32409 | ||
32410 | ||
32411 | ::= | |
32412 | ||
32413 | BEGIN | |
32414 | ||
32415 | MySeq ::= SET | |
32416 | {x INTEGER OPTIONAL, | |
32417 | y OCTET STRING} | |
32418 | ||
32419 | ||
32420 | ||
32421 | BERPDU ::= SET | |
32422 | { | |
32423 | b BOOLEAN OPTIONAL, | |
32424 | c INTEGER OPTIONAL, | |
32425 | COMPONENTS OF MySeq | |
32426 | } | |
32427 | ||
32428 | ||
32429 | END | |
32430 | ||
32431 | <STATIC> | |
32432 | ||
32433 | import from TempA all; | |
32434 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32435 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32436 | ||
32437 | const BERPDU myValue := {b := true, | |
32438 | c := 5 , | |
32439 | x := 6, | |
32440 | y := 'FF'O } | |
32441 | ||
32442 | <TTCN_TC:EXEC> | |
32443 | ||
32444 | ||
32445 | ||
32446 | ||
32447 | if ((enc_DER_PDU(myValue) == '310C8001FF8101058201068301FF'O)and(enc_CER_PDU(myValue) == '31808001FF8101058201068301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32448 | ||
32449 | <RESULT> | |
32450 | ||
32451 | Overall verdict: pass | |
32452 | ||
32453 | <END_TC> | |
32454 | ||
32455 | :exmp. | |
32456 | ||
32457 | .*---------------------------------------------------------------------* | |
32458 | :h3. encoding of SET (different order) ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
32459 | .*---------------------------------------------------------------------* | |
32460 | :xmp tab=0. | |
32461 | ||
32462 | <TC - encoding of SET (different order) ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
32463 | ||
32464 | <STATIC:ASN> | |
32465 | ||
32466 | TempA | |
32467 | ||
32468 | DEFINITIONS | |
32469 | ||
32470 | AUTOMATIC TAGS | |
32471 | ||
32472 | ||
32473 | ::= | |
32474 | ||
32475 | BEGIN | |
32476 | ||
32477 | MySeq ::= SET | |
32478 | {y OCTET STRING, | |
32479 | ||
32480 | x INTEGER OPTIONAL | |
32481 | } | |
32482 | ||
32483 | ||
32484 | ||
32485 | BERPDU ::= SET | |
32486 | { | |
32487 | b BOOLEAN OPTIONAL, | |
32488 | c INTEGER OPTIONAL, | |
32489 | COMPONENTS OF MySeq | |
32490 | } | |
32491 | ||
32492 | ||
32493 | END | |
32494 | ||
32495 | <STATIC> | |
32496 | ||
32497 | import from TempA all; | |
32498 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32499 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32500 | ||
32501 | const BERPDU myValue := {b := true, | |
32502 | c := 5 , | |
32503 | x := 6, | |
32504 | y := 'FF'O } | |
32505 | ||
32506 | <TTCN_TC:EXEC> | |
32507 | ||
32508 | ||
32509 | ||
32510 | ||
32511 | if ((enc_DER_PDU(myValue) == '310C8001FF8101058201FF830106'O)and(enc_CER_PDU(myValue) == '31808001FF8101058201FF8301060000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32512 | ||
32513 | <RESULT> | |
32514 | ||
32515 | Overall verdict: pass | |
32516 | ||
32517 | <END_TC> | |
32518 | ||
32519 | :exmp. | |
32520 | ||
32521 | .*---------------------------------------------------------------------* | |
32522 | :h3.CER + DER encoding of SET , one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32523 | .*---------------------------------------------------------------------* | |
32524 | :xmp tab=0. | |
32525 | ||
32526 | <TC - CER + DER encoding of SET , one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32527 | ||
32528 | <STATIC:ASN> | |
32529 | ||
32530 | TempA | |
32531 | ||
32532 | DEFINITIONS | |
32533 | ||
32534 | AUTOMATIC TAGS | |
32535 | ||
32536 | ::= | |
32537 | ||
32538 | BEGIN | |
32539 | ||
32540 | MySeq ::= SET | |
32541 | {x [0] INTEGER OPTIONAL, | |
32542 | y OCTET STRING} | |
32543 | ||
32544 | ||
32545 | ||
32546 | BERPDU ::= SET | |
32547 | { | |
32548 | b BOOLEAN OPTIONAL, | |
32549 | c INTEGER OPTIONAL, | |
32550 | COMPONENTS OF MySeq | |
32551 | } | |
32552 | ||
32553 | ||
32554 | END | |
32555 | ||
32556 | <STATIC> | |
32557 | ||
32558 | import from TempA all; | |
32559 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32560 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32561 | ||
32562 | const BERPDU myValue := {b := true, | |
32563 | c := 5 , | |
32564 | x := 6, | |
32565 | y := 'FF'O } | |
32566 | ||
32567 | <TTCN_TC:EXEC> | |
32568 | ||
32569 | ||
32570 | ||
32571 | ||
32572 | if ((enc_DER_PDU(myValue) == '310C8001FF8101058201068301FF'O)and(enc_CER_PDU(myValue) == '31808001FF8101058201068301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32573 | ||
32574 | <RESULT> | |
32575 | ||
32576 | Overall verdict: pass | |
32577 | ||
32578 | <END_TC> | |
32579 | ||
32580 | :exmp. | |
32581 | ||
32582 | .*---------------------------------------------------------------------* | |
32583 | :h3.CER + DER encoding of SET , (different order) one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32584 | .*---------------------------------------------------------------------* | |
32585 | :xmp tab=0. | |
32586 | ||
32587 | <TC - CER + DER encoding of SET , (different order) one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32588 | ||
32589 | <STATIC:ASN> | |
32590 | ||
32591 | TempA | |
32592 | ||
32593 | DEFINITIONS | |
32594 | ||
32595 | AUTOMATIC TAGS | |
32596 | ||
32597 | ::= | |
32598 | ||
32599 | BEGIN | |
32600 | ||
32601 | MySeq ::= SET | |
32602 | {y OCTET STRING, | |
32603 | ||
32604 | x [0] INTEGER OPTIONAL | |
32605 | } | |
32606 | ||
32607 | ||
32608 | ||
32609 | BERPDU ::= SET | |
32610 | { | |
32611 | b BOOLEAN OPTIONAL, | |
32612 | c INTEGER OPTIONAL, | |
32613 | COMPONENTS OF MySeq | |
32614 | } | |
32615 | ||
32616 | ||
32617 | END | |
32618 | ||
32619 | <STATIC> | |
32620 | ||
32621 | import from TempA all; | |
32622 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32623 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32624 | ||
32625 | const BERPDU myValue := {b := true, | |
32626 | c := 5 , | |
32627 | x := 6, | |
32628 | y := 'FF'O } | |
32629 | ||
32630 | <TTCN_TC:EXEC> | |
32631 | ||
32632 | ||
32633 | ||
32634 | ||
32635 | if ((enc_DER_PDU(myValue) == '310C8001FF8101058201FF830106'O)and(enc_CER_PDU(myValue) == '31808001FF8101058201FF8301060000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32636 | ||
32637 | <RESULT> | |
32638 | ||
32639 | Overall verdict: pass | |
32640 | ||
32641 | <END_TC> | |
32642 | ||
32643 | :exmp. | |
32644 | ||
32645 | .*---------------------------------------------------------------------* | |
32646 | :h3.CER + DER encoding of SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32647 | .*---------------------------------------------------------------------* | |
32648 | :xmp tab=0. | |
32649 | ||
32650 | <TC - CER + DER encoding of SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32651 | ||
32652 | <STATIC:ASN> | |
32653 | ||
32654 | TempA | |
32655 | ||
32656 | DEFINITIONS | |
32657 | ||
32658 | AUTOMATIC TAGS | |
32659 | ||
32660 | ::= | |
32661 | ||
32662 | BEGIN | |
32663 | ||
32664 | ||
32665 | MySeq ::= SET | |
32666 | {x INTEGER OPTIONAL, | |
32667 | y OCTET STRING} | |
32668 | ||
32669 | ||
32670 | ||
32671 | BERPDU ::= SET | |
32672 | { | |
32673 | b [0] BOOLEAN OPTIONAL, | |
32674 | c BIT STRING OPTIONAL, | |
32675 | COMPONENTS OF MySeq | |
32676 | } | |
32677 | ||
32678 | ||
32679 | END | |
32680 | ||
32681 | <STATIC> | |
32682 | ||
32683 | import from TempA all; | |
32684 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32685 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32686 | ||
32687 | const BERPDU myValue := {b := true, | |
32688 | c := '1'B , | |
32689 | x := 6, | |
32690 | y := 'FF'O } | |
32691 | ||
32692 | <TTCN_TC:EXEC> | |
32693 | ||
32694 | ||
32695 | ||
32696 | ||
32697 | if ((enc_DER_PDU(myValue) == '310D020106030207800401FF8001FF'O)and(enc_CER_PDU(myValue) == '3180020106030207800401FF8001FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32698 | ||
32699 | <RESULT> | |
32700 | ||
32701 | Overall verdict: pass | |
32702 | ||
32703 | <END_TC> | |
32704 | ||
32705 | :exmp. | |
32706 | ||
32707 | .*---------------------------------------------------------------------* | |
32708 | :h3.CER + DER encoding of SET , (different order)one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32709 | .*---------------------------------------------------------------------* | |
32710 | :xmp tab=0. | |
32711 | ||
32712 | <TC - CER + DER encoding of SET , (different order)one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32713 | ||
32714 | <STATIC:ASN> | |
32715 | ||
32716 | TempA | |
32717 | ||
32718 | DEFINITIONS | |
32719 | ||
32720 | AUTOMATIC TAGS | |
32721 | ||
32722 | ::= | |
32723 | ||
32724 | BEGIN | |
32725 | ||
32726 | ||
32727 | MySeq ::= SET | |
32728 | {y OCTET STRING, | |
32729 | x INTEGER OPTIONAL | |
32730 | } | |
32731 | ||
32732 | ||
32733 | ||
32734 | BERPDU ::= SET | |
32735 | { | |
32736 | b [0] BOOLEAN OPTIONAL, | |
32737 | c BIT STRING OPTIONAL, | |
32738 | COMPONENTS OF MySeq | |
32739 | } | |
32740 | ||
32741 | ||
32742 | END | |
32743 | ||
32744 | <STATIC> | |
32745 | ||
32746 | import from TempA all; | |
32747 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32748 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32749 | ||
32750 | const BERPDU myValue := {b := true, | |
32751 | c := '1'B , | |
32752 | x := 6, | |
32753 | y := 'FF'O } | |
32754 | ||
32755 | <TTCN_TC:EXEC> | |
32756 | ||
32757 | ||
32758 | ||
32759 | ||
32760 | if ((enc_DER_PDU(myValue) == '310D020106030207800401FF8001FF'O)and(enc_CER_PDU(myValue) == '3180020106030207800401FF8001FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32761 | ||
32762 | <RESULT> | |
32763 | ||
32764 | Overall verdict: pass | |
32765 | ||
32766 | <END_TC> | |
32767 | ||
32768 | :exmp. | |
32769 | ||
32770 | .*---------------------------------------------------------------------* | |
32771 | :h3.CER + DER encoding of SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32772 | .*---------------------------------------------------------------------* | |
32773 | :xmp tab=0. | |
32774 | ||
32775 | <TC - CER + DER encoding of SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32776 | ||
32777 | <STATIC:ASN> | |
32778 | ||
32779 | TempA | |
32780 | ||
32781 | DEFINITIONS | |
32782 | ||
32783 | AUTOMATIC TAGS | |
32784 | ||
32785 | ::= | |
32786 | ||
32787 | BEGIN | |
32788 | ||
32789 | MySeq ::= SET | |
32790 | {x [1] INTEGER OPTIONAL, | |
32791 | y OCTET STRING} | |
32792 | ||
32793 | ||
32794 | ||
32795 | BERPDU ::= SET | |
32796 | { | |
32797 | b [0] BOOLEAN OPTIONAL, | |
32798 | c BIT STRING OPTIONAL, | |
32799 | COMPONENTS OF MySeq | |
32800 | } | |
32801 | ||
32802 | ||
32803 | ||
32804 | END | |
32805 | ||
32806 | <STATIC> | |
32807 | ||
32808 | import from TempA all; | |
32809 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32810 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32811 | ||
32812 | const BERPDU myValue := {b := true, | |
32813 | c := '1'B , | |
32814 | x := 6, | |
32815 | y := 'FF'O } | |
32816 | ||
32817 | <TTCN_TC:EXEC> | |
32818 | 030 | |
32819 | ||
32820 | ||
32821 | ||
32822 | if ((enc_DER_PDU(myValue) == '310D030207800401FF8001FF810106'O)and(enc_CER_PDU(myValue) == '3180030207800401FF8001FF8101060000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32823 | ||
32824 | <RESULT> | |
32825 | ||
32826 | Overall verdict: pass | |
32827 | ||
32828 | <END_TC> | |
32829 | ||
32830 | :exmp. | |
32831 | ||
32832 | .*---------------------------------------------------------------------* | |
32833 | :h3.CER + DER encoding of SET ,(different order) one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
32834 | .*---------------------------------------------------------------------* | |
32835 | :xmp tab=0. | |
32836 | ||
32837 | <TC - CER + DER encoding of SET ,(different order) one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
32838 | ||
32839 | <STATIC:ASN> | |
32840 | ||
32841 | TempA | |
32842 | ||
32843 | DEFINITIONS | |
32844 | ||
32845 | AUTOMATIC TAGS | |
32846 | ||
32847 | ::= | |
32848 | ||
32849 | BEGIN | |
32850 | ||
32851 | MySeq ::= SET | |
32852 | { y OCTET STRING, | |
32853 | x [1] INTEGER OPTIONAL | |
32854 | } | |
32855 | ||
32856 | ||
32857 | ||
32858 | BERPDU ::= SET | |
32859 | { | |
32860 | b [0] BOOLEAN OPTIONAL, | |
32861 | c BIT STRING OPTIONAL, | |
32862 | COMPONENTS OF MySeq | |
32863 | } | |
32864 | ||
32865 | ||
32866 | ||
32867 | END | |
32868 | ||
32869 | <STATIC> | |
32870 | ||
32871 | import from TempA all; | |
32872 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32873 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32874 | ||
32875 | const BERPDU myValue := {b := true, | |
32876 | c := '1'B , | |
32877 | x := 6, | |
32878 | y := 'FF'O } | |
32879 | ||
32880 | <TTCN_TC:EXEC> | |
32881 | ||
32882 | ||
32883 | ||
32884 | ||
32885 | if ((enc_DER_PDU(myValue) == '310D030207800401FF8001FF810106'O)and(enc_CER_PDU(myValue) == '3180030207800401FF8001FF8101060000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32886 | ||
32887 | <RESULT> | |
32888 | ||
32889 | Overall verdict: pass | |
32890 | ||
32891 | <END_TC> | |
32892 | ||
32893 | :exmp. | |
32894 | ||
32895 | .*---------------------------------------------------------------------* | |
32896 | :h3.CER + DER encoding of SET with CHOICE element, AUTOMATIC TAGS | |
32897 | .*---------------------------------------------------------------------* | |
32898 | :xmp tab=0. | |
32899 | ||
32900 | <TC - CER + DER encoding of SET with CHOICE element, AUTOMATIC TAGS> | |
32901 | ||
32902 | <STATIC:ASN> | |
32903 | ||
32904 | TempA | |
32905 | ||
32906 | DEFINITIONS | |
32907 | ||
32908 | AUTOMATIC TAGS | |
32909 | ||
32910 | ::= | |
32911 | ||
32912 | BEGIN | |
32913 | ||
32914 | ||
32915 | ||
32916 | ||
32917 | BERPDU ::= SET | |
32918 | { | |
32919 | b CHOICE { | |
32920 | x BOOLEAN, | |
32921 | y OCTET STRING | |
32922 | } | |
32923 | OPTIONAL, | |
32924 | ||
32925 | ||
32926 | c INTEGER OPTIONAL | |
32927 | ||
32928 | } | |
32929 | ||
32930 | ||
32931 | ||
32932 | END | |
32933 | ||
32934 | <STATIC> | |
32935 | ||
32936 | import from TempA all; | |
32937 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
32938 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
32939 | ||
32940 | const BERPDU myValue := {b := {x := true}, | |
32941 | c := 4 | |
32942 | } | |
32943 | <TTCN_TC:EXEC> | |
32944 | ||
32945 | ||
32946 | ||
32947 | ||
32948 | if ((enc_DER_PDU(myValue) == '3108A0038001FF810104'O)and(enc_CER_PDU(myValue) == '3180A0808001FF00008101040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
32949 | ||
32950 | <RESULT> | |
32951 | ||
32952 | Overall verdict: pass | |
32953 | ||
32954 | <END_TC> | |
32955 | ||
32956 | :exmp. | |
32957 | ||
32958 | .*---------------------------------------------------------------------* | |
32959 | :h3. encoding of SET with CHOICE element (different order), AUTOMATIC TAGS | |
32960 | .*---------------------------------------------------------------------* | |
32961 | :xmp tab=0. | |
32962 | ||
32963 | <TC - encoding of SET with CHOICE element (different order), AUTOMATIC TAGS> | |
32964 | ||
32965 | <STATIC:ASN> | |
32966 | ||
32967 | TempA | |
32968 | ||
32969 | DEFINITIONS | |
32970 | ||
32971 | AUTOMATIC TAGS | |
32972 | ||
32973 | ::= | |
32974 | ||
32975 | BEGIN | |
32976 | ||
32977 | ||
32978 | ||
32979 | ||
32980 | BERPDU ::= SET | |
32981 | { | |
32982 | b CHOICE { | |
32983 | x BOOLEAN, | |
32984 | y OCTET STRING | |
32985 | } | |
32986 | OPTIONAL, | |
32987 | ||
32988 | ||
32989 | c INTEGER OPTIONAL | |
32990 | ||
32991 | } | |
32992 | ||
32993 | ||
32994 | ||
32995 | END | |
32996 | ||
32997 | <STATIC> | |
32998 | ||
32999 | import from TempA all; | |
33000 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33001 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33002 | ||
33003 | const BERPDU myValue := { | |
33004 | c := 4, | |
33005 | b := {x := true} } | |
33006 | <TTCN_TC:EXEC> | |
33007 | ||
33008 | ||
33009 | ||
33010 | ||
33011 | if ((enc_DER_PDU(myValue) == '3108A0038001FF810104'O)and(enc_CER_PDU(myValue) == '3180A0808001FF00008101040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33012 | ||
33013 | <RESULT> | |
33014 | ||
33015 | Overall verdict: pass | |
33016 | ||
33017 | <END_TC> | |
33018 | ||
33019 | :exmp. | |
33020 | ||
33021 | .*---------------------------------------------------------------------* | |
33022 | :h3. encoding of SET with CHOICE element (different order2), AUTOMATIC TAGS | |
33023 | .*---------------------------------------------------------------------* | |
33024 | :xmp tab=0. | |
33025 | ||
33026 | <TC - encoding of SET with CHOICE element (different order2), AUTOMATIC TAGS> | |
33027 | ||
33028 | <STATIC:ASN> | |
33029 | ||
33030 | TempA | |
33031 | ||
33032 | DEFINITIONS | |
33033 | ||
33034 | AUTOMATIC TAGS | |
33035 | ||
33036 | ::= | |
33037 | ||
33038 | BEGIN | |
33039 | ||
33040 | ||
33041 | ||
33042 | ||
33043 | BERPDU ::= SET | |
33044 | { | |
33045 | ||
33046 | ||
33047 | c INTEGER OPTIONAL, | |
33048 | b CHOICE { | |
33049 | x BOOLEAN, | |
33050 | y OCTET STRING | |
33051 | } | |
33052 | OPTIONAL | |
33053 | ||
33054 | } | |
33055 | ||
33056 | ||
33057 | ||
33058 | END | |
33059 | ||
33060 | <STATIC> | |
33061 | ||
33062 | import from TempA all; | |
33063 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33064 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33065 | ||
33066 | const BERPDU myValue := { | |
33067 | c := 4, | |
33068 | b := {x := true} } | |
33069 | <TTCN_TC:EXEC> | |
33070 | ||
33071 | ||
33072 | ||
33073 | ||
33074 | if ((enc_DER_PDU(myValue) == '3108800104A1038001FF'O)and(enc_CER_PDU(myValue) == '3180800104A1808001FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33075 | ||
33076 | <RESULT> | |
33077 | ||
33078 | Overall verdict: pass | |
33079 | ||
33080 | <END_TC> | |
33081 | ||
33082 | :exmp. | |
33083 | ||
33084 | .*---------------------------------------------------------------------* | |
33085 | :h3.CER + DER encoding of SET with CHOICE element, | |
33086 | .*---------------------------------------------------------------------* | |
33087 | :xmp tab=0. | |
33088 | ||
33089 | <TC - CER + DER encoding of SET with CHOICE element, > | |
33090 | ||
33091 | <STATIC:ASN> | |
33092 | ||
33093 | TempA | |
33094 | ||
33095 | DEFINITIONS | |
33096 | ||
33097 | ||
33098 | ||
33099 | ::= | |
33100 | ||
33101 | BEGIN | |
33102 | ||
33103 | ||
33104 | ||
33105 | ||
33106 | BERPDU ::= SET | |
33107 | { | |
33108 | b CHOICE { | |
33109 | x BOOLEAN, | |
33110 | y OCTET STRING | |
33111 | } | |
33112 | OPTIONAL, | |
33113 | ||
33114 | ||
33115 | c INTEGER OPTIONAL | |
33116 | ||
33117 | } | |
33118 | ||
33119 | ||
33120 | ||
33121 | END | |
33122 | ||
33123 | <STATIC> | |
33124 | ||
33125 | import from TempA all; | |
33126 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33127 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33128 | ||
33129 | const BERPDU myValue := {b := {x := true}, | |
33130 | c := 4 | |
33131 | } | |
33132 | <TTCN_TC:EXEC> | |
33133 | ||
33134 | ||
33135 | ||
33136 | ||
33137 | if ((enc_DER_PDU(myValue) == '31060101FF020104'O)and(enc_CER_PDU(myValue) == '31800101FF0201040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33138 | ||
33139 | <RESULT> | |
33140 | ||
33141 | Overall verdict: pass | |
33142 | ||
33143 | <END_TC> | |
33144 | ||
33145 | :exmp. | |
33146 | ||
33147 | .*---------------------------------------------------------------------* | |
33148 | :h3. encoding of SET with CHOICE element,(different order) | |
33149 | .*---------------------------------------------------------------------* | |
33150 | :xmp tab=0. | |
33151 | ||
33152 | <TC - encoding of SET with CHOICE element,(different order) > | |
33153 | ||
33154 | <STATIC:ASN> | |
33155 | ||
33156 | TempA | |
33157 | ||
33158 | DEFINITIONS | |
33159 | ||
33160 | ||
33161 | ||
33162 | ::= | |
33163 | ||
33164 | BEGIN | |
33165 | ||
33166 | ||
33167 | ||
33168 | ||
33169 | BERPDU ::= SET | |
33170 | { | |
33171 | b CHOICE { | |
33172 | x BOOLEAN, | |
33173 | y OCTET STRING | |
33174 | } | |
33175 | OPTIONAL, | |
33176 | ||
33177 | ||
33178 | c INTEGER OPTIONAL | |
33179 | ||
33180 | } | |
33181 | ||
33182 | ||
33183 | ||
33184 | END | |
33185 | ||
33186 | <STATIC> | |
33187 | ||
33188 | import from TempA all; | |
33189 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33190 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33191 | ||
33192 | const BERPDU myValue := { | |
33193 | c := 4 , | |
33194 | b := {x := true} | |
33195 | } | |
33196 | <TTCN_TC:EXEC> | |
33197 | ||
33198 | ||
33199 | ||
33200 | ||
33201 | if ((enc_DER_PDU(myValue) == '31060101FF020104'O)and(enc_CER_PDU(myValue) == '31800101FF0201040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33202 | ||
33203 | <RESULT> | |
33204 | ||
33205 | Overall verdict: pass | |
33206 | ||
33207 | <END_TC> | |
33208 | ||
33209 | :exmp. | |
33210 | ||
33211 | .*---------------------------------------------------------------------* | |
33212 | :h3.CER + DER encoding of SET with CHOICE element, | |
33213 | .*---------------------------------------------------------------------* | |
33214 | :xmp tab=0. | |
33215 | ||
33216 | <TC - CER + DER encoding of SET with CHOICE element, > | |
33217 | ||
33218 | <STATIC:ASN> | |
33219 | ||
33220 | TempA | |
33221 | ||
33222 | DEFINITIONS | |
33223 | ||
33224 | ||
33225 | ||
33226 | ::= | |
33227 | ||
33228 | BEGIN | |
33229 | ||
33230 | ||
33231 | ||
33232 | ||
33233 | BERPDU ::= SET | |
33234 | { | |
33235 | b CHOICE { | |
33236 | x BOOLEAN, | |
33237 | y OCTET STRING | |
33238 | } | |
33239 | OPTIONAL, | |
33240 | ||
33241 | ||
33242 | c INTEGER OPTIONAL | |
33243 | ||
33244 | } | |
33245 | ||
33246 | ||
33247 | ||
33248 | END | |
33249 | ||
33250 | <STATIC> | |
33251 | ||
33252 | import from TempA all; | |
33253 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33254 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33255 | ||
33256 | const BERPDU myValue := {b := {y := 'FF'O}, | |
33257 | c := 4 | |
33258 | } | |
33259 | <TTCN_TC:EXEC> | |
33260 | ||
33261 | ||
33262 | ||
33263 | ||
33264 | if ((enc_DER_PDU(myValue) == '31060201040401FF'O)and(enc_CER_PDU(myValue) == '31800401FF0201040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33265 | ||
33266 | <RESULT> | |
33267 | ||
33268 | Overall verdict: pass | |
33269 | ||
33270 | <END_TC> | |
33271 | ||
33272 | :exmp. | |
33273 | ||
33274 | .*---------------------------------------------------------------------* | |
33275 | :h3.CER + DER encoding of SET with EXTENSION , AUTOMATIC TAGS | |
33276 | .*---------------------------------------------------------------------* | |
33277 | :xmp tab=0. | |
33278 | ||
33279 | <TC - CER + DER encoding of SET with EXTENSION , AUTOMATIC TAGS> | |
33280 | ||
33281 | <STATIC:ASN> | |
33282 | ||
33283 | TempA | |
33284 | ||
33285 | DEFINITIONS | |
33286 | ||
33287 | AUTOMATIC TAGS | |
33288 | ||
33289 | ::= | |
33290 | ||
33291 | BEGIN | |
33292 | ||
33293 | ||
33294 | ||
33295 | ||
33296 | BERPDU ::= SET | |
33297 | { | |
33298 | ||
33299 | a OCTET STRING, | |
33300 | ||
33301 | b BOOLEAN, | |
33302 | ||
33303 | c INTEGER OPTIONAL, | |
33304 | ||
33305 | ..., | |
33306 | ||
33307 | d BIT STRING | |
33308 | ||
33309 | ||
33310 | ||
33311 | ||
33312 | } | |
33313 | ||
33314 | ||
33315 | ||
33316 | END | |
33317 | ||
33318 | <STATIC> | |
33319 | ||
33320 | import from TempA all; | |
33321 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33322 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33323 | ||
33324 | const BERPDU myValue := { | |
33325 | a := 'FF'O, | |
33326 | b := true, | |
33327 | d := '1'B, | |
33328 | c := 4 | |
33329 | } | |
33330 | <TTCN_TC:EXEC> | |
33331 | ||
33332 | ||
33333 | ||
33334 | ||
33335 | if ((enc_DER_PDU(myValue) == '310D8001FF8101FF82010483020780'O)and(enc_CER_PDU(myValue) == '31808001FF8101FF820104830207800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33336 | ||
33337 | <RESULT> | |
33338 | ||
33339 | Overall verdict: pass | |
33340 | ||
33341 | <END_TC> | |
33342 | ||
33343 | :exmp. | |
33344 | ||
33345 | .*---------------------------------------------------------------------* | |
33346 | :h3. encoding of SET with EXTENSION , (different order) AUTOMATIC TAGS | |
33347 | .*---------------------------------------------------------------------* | |
33348 | :xmp tab=0. | |
33349 | ||
33350 | <TC - encoding of SET with EXTENSION , (different order) AUTOMATIC TAGS> | |
33351 | ||
33352 | <STATIC:ASN> | |
33353 | ||
33354 | TempA | |
33355 | ||
33356 | DEFINITIONS | |
33357 | ||
33358 | AUTOMATIC TAGS | |
33359 | ||
33360 | ::= | |
33361 | ||
33362 | BEGIN | |
33363 | ||
33364 | ||
33365 | ||
33366 | ||
33367 | BERPDU ::= SET | |
33368 | { | |
33369 | ||
33370 | a OCTET STRING, | |
33371 | ||
33372 | b BOOLEAN, | |
33373 | ||
33374 | c INTEGER OPTIONAL, | |
33375 | ||
33376 | ..., | |
33377 | ||
33378 | d BIT STRING | |
33379 | ||
33380 | ||
33381 | ||
33382 | ||
33383 | } | |
33384 | ||
33385 | ||
33386 | ||
33387 | END | |
33388 | ||
33389 | <STATIC> | |
33390 | ||
33391 | import from TempA all; | |
33392 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33393 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33394 | ||
33395 | const BERPDU myValue := { | |
33396 | a := 'FF'O, | |
33397 | d := '1'B, | |
33398 | b := true, | |
33399 | c := 4 | |
33400 | } | |
33401 | <TTCN_TC:EXEC> | |
33402 | ||
33403 | ||
33404 | ||
33405 | ||
33406 | if ((enc_DER_PDU(myValue) == '310D8001FF8101FF82010483020780'O)and(enc_CER_PDU(myValue) == '31808001FF8101FF820104830207800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33407 | ||
33408 | <RESULT> | |
33409 | ||
33410 | Overall verdict: pass | |
33411 | ||
33412 | <END_TC> | |
33413 | ||
33414 | :exmp. | |
33415 | ||
33416 | .*---------------------------------------------------------------------* | |
33417 | :h3.CER + DER encoding of SET (EMPTY) | |
33418 | .*---------------------------------------------------------------------* | |
33419 | :xmp tab=0. | |
33420 | ||
33421 | <TC - CER + DER encoding of SET (EMPTY)> | |
33422 | ||
33423 | <STATIC:ASN> | |
33424 | ||
33425 | TempA | |
33426 | ||
33427 | DEFINITIONS ::= | |
33428 | BEGIN | |
33429 | ||
33430 | BERPDU ::= SET | |
33431 | { | |
33432 | a NULL, | |
33433 | b BOOLEAN, | |
33434 | c INTEGER, | |
33435 | d ENUMERATED {first ,second ,third}, | |
33436 | e REAL, | |
33437 | f BIT STRING, | |
33438 | g OCTET STRING, | |
33439 | ||
33440 | h OBJECT IDENTIFIER, | |
33441 | i IA5String, | |
33442 | j CHOICE {x1 [1] BOOLEAN, | |
33443 | y1 [2] OCTET STRING}, | |
33444 | ||
33445 | k SEQUENCE{x2 NULL, | |
33446 | y2 BOOLEAN}, | |
33447 | ||
33448 | l SET { x3 BIT STRING, | |
33449 | y3 REAL}, | |
33450 | ||
33451 | m [3] SEQUENCE OF INTEGER, | |
33452 | n [4] SET OF BOOLEAN | |
33453 | } | |
33454 | ||
33455 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
33456 | ||
33457 | ||
33458 | END | |
33459 | ||
33460 | <STATIC> | |
33461 | ||
33462 | import from TempA all; | |
33463 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33464 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33465 | ||
33466 | const BERPDU myValue := {a := NULL, | |
33467 | b := true, | |
33468 | c := 2, | |
33469 | d := first, | |
33470 | e := 1.0, | |
33471 | f := '1'B, | |
33472 | g := 'FFFF'O, | |
33473 | h := myOBJID, | |
33474 | i := "ABC", | |
33475 | j := {x1 := true } , | |
33476 | k := {x2 := NULL, | |
33477 | ||
33478 | y2 := true } , | |
33479 | l := {y3 := 1.0 , | |
33480 | ||
33481 | x3 := '1'B } , | |
33482 | m := | |
33483 | { 1 ,2 } , | |
33484 | n := | |
33485 | { true, true } | |
33486 | } | |
33487 | ||
33488 | ||
33489 | ||
33490 | <TTCN_TC:EXEC> | |
33491 | ||
33492 | ||
33493 | ||
33494 | ||
33495 | if ((enc_DER_PDU(myValue) == '31530101FF020102030207800402FFFF05000603000203090603312E452B300A0100300505000101FF310C03020780090603312E452B301603414243A1030101FFA3083006020101020102A40831060101FF0101FF'O)and(enc_CER_PDU(myValue) == '31800101FF020102030207800402FFFF05000603000203090603312E452B300A0100308005000101FF0000318003020780090603312E452B3000001603414243A1800101FF0000A380308002010102010200000000A48031800101FF0101FF000000000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33496 | ||
33497 | <RESULT> | |
33498 | ||
33499 | Overall verdict: pass | |
33500 | ||
33501 | <END_TC> | |
33502 | ||
33503 | :exmp. | |
33504 | ||
33505 | .*---------------------------------------------------------------------* | |
33506 | :h3.CER + DER encoding of SET with fields of different types, AUTOMATIC TAGS | |
33507 | .*---------------------------------------------------------------------* | |
33508 | :xmp tab=0. | |
33509 | ||
33510 | <TC - CER + DER encoding of SET with fields of different types, AUTOMATIC TAGS> | |
33511 | ||
33512 | <STATIC:ASN> | |
33513 | ||
33514 | TempA | |
33515 | ||
33516 | DEFINITIONS | |
33517 | ||
33518 | AUTOMATIC TAGS | |
33519 | ||
33520 | ::= | |
33521 | ||
33522 | BEGIN | |
33523 | ||
33524 | BERPDU ::= SET | |
33525 | { | |
33526 | a NULL, | |
33527 | b BOOLEAN, | |
33528 | c INTEGER, | |
33529 | d ENUMERATED {first ,second ,third}, | |
33530 | e REAL, | |
33531 | f BIT STRING, | |
33532 | g OCTET STRING, | |
33533 | ||
33534 | h OBJECT IDENTIFIER, | |
33535 | i IA5String, | |
33536 | j CHOICE {x1 BOOLEAN, | |
33537 | y1 OCTET STRING}, | |
33538 | ||
33539 | k SEQUENCE{x2 NULL, | |
33540 | y2 BOOLEAN}, | |
33541 | ||
33542 | l SET { x3 BIT STRING, | |
33543 | y3 REAL}, | |
33544 | ||
33545 | m SEQUENCE OF INTEGER, | |
33546 | n SET OF BOOLEAN | |
33547 | } | |
33548 | ||
33549 | ||
33550 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
33551 | ||
33552 | ||
33553 | END | |
33554 | ||
33555 | <STATIC> | |
33556 | ||
33557 | import from TempA all; | |
33558 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33559 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33560 | ||
33561 | const BERPDU myValue := {a := NULL, | |
33562 | b := true, | |
33563 | c := 2, | |
33564 | d := first, | |
33565 | e := 1.0, | |
33566 | f := '1'B, | |
33567 | g := 'FFFF'O, | |
33568 | h := myOBJID, | |
33569 | i := "ABC", | |
33570 | j := {x1 := true } , | |
33571 | k := {x2 := NULL, | |
33572 | ||
33573 | y2 := true } , | |
33574 | l := {y3 := 1.0 , | |
33575 | ||
33576 | x3 := '1'B } , | |
33577 | m := | |
33578 | { 1 ,2 } , | |
33579 | n := | |
33580 | { true, true } | |
33581 | } | |
33582 | ||
33583 | ||
33584 | ||
33585 | ||
33586 | ||
33587 | <TTCN_TC:EXEC> | |
33588 | ||
33589 | ||
33590 | ||
33591 | ||
33592 | if ((enc_DER_PDU(myValue) == '314F80008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB0C80020780810603312E452B30AC06020101020102AD060101FF0101FF'O)and(enc_CER_PDU(myValue) == '318080008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB8080020780810603312E452B300000AC800201010201020000AD800101FF0101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33593 | ||
33594 | <RESULT> | |
33595 | ||
33596 | Overall verdict: pass | |
33597 | ||
33598 | <END_TC> | |
33599 | ||
33600 | :exmp. | |
33601 | ||
33602 | .*---------------------------------------------------------------------* | |
33603 | :h3.CER + DER encoding of SET with fields of different types (different order), AUTOMATIC TAGS | |
33604 | .*---------------------------------------------------------------------* | |
33605 | :xmp tab=0. | |
33606 | ||
33607 | <TC - CER + DER encoding of SET with fields of different types (different order), AUTOMATIC TAGS> | |
33608 | ||
33609 | <STATIC:ASN> | |
33610 | ||
33611 | TempA | |
33612 | ||
33613 | DEFINITIONS | |
33614 | ||
33615 | AUTOMATIC TAGS | |
33616 | ||
33617 | ::= | |
33618 | ||
33619 | BEGIN | |
33620 | ||
33621 | BERPDU ::= SET | |
33622 | { | |
33623 | a NULL, | |
33624 | b BOOLEAN, | |
33625 | c INTEGER, | |
33626 | d ENUMERATED {first ,second ,third}, | |
33627 | e REAL, | |
33628 | f BIT STRING, | |
33629 | g OCTET STRING, | |
33630 | ||
33631 | h OBJECT IDENTIFIER, | |
33632 | i IA5String, | |
33633 | j CHOICE {x1 BOOLEAN, | |
33634 | y1 OCTET STRING}, | |
33635 | ||
33636 | k SEQUENCE{x2 NULL, | |
33637 | y2 BOOLEAN}, | |
33638 | ||
33639 | l SET { x3 BIT STRING, | |
33640 | y3 REAL}, | |
33641 | ||
33642 | m SEQUENCE OF INTEGER, | |
33643 | n SET OF BOOLEAN | |
33644 | } | |
33645 | ||
33646 | ||
33647 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
33648 | ||
33649 | ||
33650 | END | |
33651 | ||
33652 | <STATIC> | |
33653 | ||
33654 | import from TempA all; | |
33655 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33656 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33657 | ||
33658 | const BERPDU myValue := {a := NULL, | |
33659 | c := 2, | |
33660 | d := first, | |
33661 | e := 1.0, | |
33662 | b := true, | |
33663 | f := '1'B, | |
33664 | g := 'FFFF'O, | |
33665 | ||
33666 | i := "ABC", | |
33667 | j := {x1 := true } , | |
33668 | k := {x2 := NULL, | |
33669 | ||
33670 | y2 := true } , | |
33671 | l := {y3 := 1.0 , | |
33672 | ||
33673 | x3 := '1'B } , | |
33674 | h := myOBJID, | |
33675 | m := | |
33676 | { 1 ,2 } , | |
33677 | n := | |
33678 | { true, true } | |
33679 | } | |
33680 | ||
33681 | ||
33682 | ||
33683 | <TTCN_TC:EXEC> | |
33684 | ||
33685 | if ((enc_DER_PDU(myValue) == '314F80008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB0C80020780810603312E452B30AC06020101020102AD060101FF0101FF'O)and(enc_CER_PDU(myValue) == '318080008101FF820102830100840603312E452B30850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB8080020780810603312E452B300000AC800201010201020000AD800101FF0101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33686 | ||
33687 | <RESULT> | |
33688 | ||
33689 | Overall verdict: pass | |
33690 | ||
33691 | <END_TC> | |
33692 | ||
33693 | :exmp. | |
33694 | ||
33695 | .*---------------------------------------------------------------------* | |
33696 | :h3.CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGGING | |
33697 | .*---------------------------------------------------------------------* | |
33698 | :xmp tab=0. | |
33699 | ||
33700 | <TC - CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGGING> | |
33701 | ||
33702 | <STATIC:ASN> | |
33703 | ||
33704 | TempA | |
33705 | ||
33706 | DEFINITIONS | |
33707 | ||
33708 | IMPLICIT TAGS | |
33709 | ||
33710 | ||
33711 | ::= | |
33712 | ||
33713 | BEGIN | |
33714 | ||
33715 | BERPDU ::= SET | |
33716 | { | |
33717 | d [PRIVATE 0] INTEGER OPTIONAL, | |
33718 | a INTEGER OPTIONAL, | |
33719 | b [APPLICATION 0] INTEGER OPTIONAL, | |
33720 | c [0] INTEGER OPTIONAL | |
33721 | ||
33722 | } | |
33723 | ||
33724 | ||
33725 | END | |
33726 | ||
33727 | <STATIC> | |
33728 | ||
33729 | import from TempA all; | |
33730 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33731 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33732 | ||
33733 | const BERPDU myValue := { | |
33734 | a := 1, | |
33735 | c := 3, | |
33736 | d := 4, | |
33737 | b := 2 } | |
33738 | ||
33739 | <TTCN_TC:EXEC> | |
33740 | ||
33741 | ||
33742 | ||
33743 | ||
33744 | if ((enc_DER_PDU(myValue) == '310C020101400102800103C00104'O)and(enc_CER_PDU(myValue) == '3180020101400102800103C001040000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33745 | ||
33746 | <RESULT> | |
33747 | ||
33748 | Overall verdict: pass | |
33749 | ||
33750 | <END_TC> | |
33751 | ||
33752 | :exmp. | |
33753 | ||
33754 | .*---------------------------------------------------------------------* | |
33755 | :h3.CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) | |
33756 | .*---------------------------------------------------------------------* | |
33757 | :xmp tab=0. | |
33758 | ||
33759 | <TC - CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE )> | |
33760 | ||
33761 | <STATIC:ASN> | |
33762 | ||
33763 | TempA | |
33764 | ||
33765 | DEFINITIONS | |
33766 | ||
33767 | ||
33768 | ::= | |
33769 | ||
33770 | BEGIN | |
33771 | ||
33772 | BERPDU ::= SET | |
33773 | { | |
33774 | d [PRIVATE 0] INTEGER OPTIONAL, | |
33775 | a INTEGER OPTIONAL, | |
33776 | b [APPLICATION 0] INTEGER OPTIONAL, | |
33777 | c [0] INTEGER OPTIONAL | |
33778 | ||
33779 | } | |
33780 | ||
33781 | ||
33782 | END | |
33783 | ||
33784 | <STATIC> | |
33785 | ||
33786 | import from TempA all; | |
33787 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33788 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33789 | ||
33790 | const BERPDU myValue := { | |
33791 | a := 1, | |
33792 | c := 3, | |
33793 | d := 4, | |
33794 | b := 2 } | |
33795 | ||
33796 | <TTCN_TC:EXEC> | |
33797 | ||
33798 | ||
33799 | ||
33800 | ||
33801 | if ((enc_DER_PDU(myValue) == '31120201016003020102A003020103E003020104'O)and(enc_CER_PDU(myValue) == '318002010160800201020000A0800201030000E08002010400000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33802 | ||
33803 | <RESULT> | |
33804 | ||
33805 | Overall verdict: pass | |
33806 | ||
33807 | <END_TC> | |
33808 | ||
33809 | :exmp. | |
33810 | ||
33811 | .*---------------------------------------------------------------------* | |
33812 | :h3.CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGGING | |
33813 | .*---------------------------------------------------------------------* | |
33814 | :xmp tab=0. | |
33815 | ||
33816 | <TC - CER + DER encoding of SET (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGGING> | |
33817 | ||
33818 | <STATIC:ASN> | |
33819 | ||
33820 | TempA | |
33821 | ||
33822 | DEFINITIONS | |
33823 | ||
33824 | EXPLICIT TAGS | |
33825 | ||
33826 | ::= | |
33827 | ||
33828 | BEGIN | |
33829 | ||
33830 | BERPDU ::= SET | |
33831 | { | |
33832 | d [PRIVATE 0] INTEGER OPTIONAL, | |
33833 | a INTEGER OPTIONAL, | |
33834 | b [APPLICATION 0] INTEGER OPTIONAL, | |
33835 | c [0] INTEGER OPTIONAL | |
33836 | ||
33837 | } | |
33838 | ||
33839 | ||
33840 | END | |
33841 | ||
33842 | <STATIC> | |
33843 | ||
33844 | import from TempA all; | |
33845 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33846 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33847 | ||
33848 | const BERPDU myValue := { | |
33849 | a := 1, | |
33850 | c := 3, | |
33851 | d := 4, | |
33852 | b := 2 } | |
33853 | ||
33854 | <TTCN_TC:EXEC> | |
33855 | ||
33856 | ||
33857 | ||
33858 | ||
33859 | if ((enc_DER_PDU(myValue) == '31120201016003020102A003020103E003020104'O)and(enc_CER_PDU(myValue) == '318002010160800201020000A0800201030000E08002010400000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33860 | ||
33861 | <RESULT> | |
33862 | ||
33863 | Overall verdict: pass | |
33864 | ||
33865 | <END_TC> | |
33866 | ||
33867 | :exmp. | |
33868 | ||
33869 | .*---------------------------------------------------------------------* | |
33870 | :h3.CER + DER encoding of SET including untagged CHOICE (spec example) IMPLICIT TAGS | |
33871 | .*---------------------------------------------------------------------* | |
33872 | :xmp tab=0. | |
33873 | ||
33874 | <TC - CER + DER encoding of SET including untagged CHOICE (spec example) IMPLICIT TAGS> | |
33875 | ||
33876 | <STATIC:ASN> | |
33877 | ||
33878 | TempA | |
33879 | ||
33880 | DEFINITIONS | |
33881 | ||
33882 | IMPLICIT TAGS | |
33883 | ||
33884 | ::= | |
33885 | ||
33886 | BEGIN | |
33887 | ||
33888 | BERPDU ::= SET | |
33889 | { | |
33890 | a [3] INTEGER, | |
33891 | b [1] CHOICE | |
33892 | { | |
33893 | c [2] INTEGER, | |
33894 | d [4] INTEGER | |
33895 | }, | |
33896 | e CHOICE | |
33897 | { | |
33898 | f CHOICE | |
33899 | { | |
33900 | g [5] INTEGER, | |
33901 | h [6] INTEGER | |
33902 | }, | |
33903 | i CHOICE | |
33904 | { | |
33905 | ||
33906 | ||
33907 | j [0] INTEGER | |
33908 | ||
33909 | } | |
33910 | } | |
33911 | } | |
33912 | ||
33913 | ||
33914 | END | |
33915 | ||
33916 | <STATIC> | |
33917 | ||
33918 | import from TempA all; | |
33919 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33920 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33921 | ||
33922 | const BERPDU myValue := { | |
33923 | a := 1, | |
33924 | b := {c:= 2}, | |
33925 | e := { f := {g := 3 } } | |
33926 | } | |
33927 | ||
33928 | <TTCN_TC:EXEC> | |
33929 | ||
33930 | ||
33931 | ||
33932 | ||
33933 | if ((enc_DER_PDU(myValue) == '310BA103820102830101850103'O)and(enc_CER_PDU(myValue) == '3180850103A18082010200008301010000'O)) {setverdict(pass);} else {setverdict(fail);} | |
33934 | ||
33935 | <RESULT> | |
33936 | ||
33937 | Overall verdict: pass | |
33938 | ||
33939 | <END_TC> | |
33940 | ||
33941 | :exmp. | |
33942 | ||
33943 | .*---------------------------------------------------------------------* | |
33944 | :h3.CER + DER encoding of SET including untagged CHOICE (spec example) EXPLICIT TAGS | |
33945 | .*---------------------------------------------------------------------* | |
33946 | :xmp tab=0. | |
33947 | ||
33948 | <TC - CER + DER encoding of SET including untagged CHOICE (spec example) EXPLICIT TAGS> | |
33949 | ||
33950 | <STATIC:ASN> | |
33951 | ||
33952 | TempA | |
33953 | ||
33954 | DEFINITIONS | |
33955 | ||
33956 | EXPLICIT TAGS | |
33957 | ||
33958 | ::= | |
33959 | ||
33960 | BEGIN | |
33961 | ||
33962 | BERPDU ::= SET | |
33963 | { | |
33964 | a [3] INTEGER, | |
33965 | b [1] CHOICE | |
33966 | { | |
33967 | c [2] INTEGER, | |
33968 | d [4] INTEGER | |
33969 | }, | |
33970 | e CHOICE | |
33971 | { | |
33972 | f CHOICE | |
33973 | { | |
33974 | g [5] INTEGER, | |
33975 | h [6] INTEGER | |
33976 | }, | |
33977 | i CHOICE | |
33978 | { | |
33979 | ||
33980 | ||
33981 | j [0] INTEGER | |
33982 | ||
33983 | } | |
33984 | } | |
33985 | } | |
33986 | ||
33987 | ||
33988 | END | |
33989 | ||
33990 | <STATIC> | |
33991 | ||
33992 | import from TempA all; | |
33993 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
33994 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
33995 | ||
33996 | const BERPDU myValue := { | |
33997 | a := 1, | |
33998 | b := {c:= 2}, | |
33999 | e := { f := { g := 3 } } | |
34000 | } | |
34001 | ||
34002 | <TTCN_TC:EXEC> | |
34003 | ||
34004 | ||
34005 | ||
34006 | ||
34007 | if ((enc_DER_PDU(myValue) == '3111A105A203020102A303020101A503020103'O)and(enc_CER_PDU(myValue) == '3180A5800201030000A180A28002010200000000A38002010100000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
34008 | ||
34009 | <RESULT> | |
34010 | ||
34011 | Overall verdict: pass | |
34012 | ||
34013 | <END_TC> | |
34014 | ||
34015 | :exmp. | |
34016 | ||
34017 | .*---------------------------------------------------------------------* | |
34018 | :h3. DECODING DER , SET (EMPTY) | |
34019 | .*---------------------------------------------------------------------* | |
34020 | :xmp tab=0. | |
34021 | ||
34022 | <TC - DECODING DER , SET (EMPTY)> | |
34023 | ||
34024 | <STATIC:ASN> | |
34025 | ||
34026 | TempA | |
34027 | ||
34028 | DEFINITIONS ::= | |
34029 | BEGIN | |
34030 | BERPDU ::= SET | |
34031 | { | |
34032 | b BOOLEAN OPTIONAL, | |
34033 | c INTEGER OPTIONAL | |
34034 | } | |
34035 | ||
34036 | END | |
34037 | ||
34038 | <STATIC> | |
34039 | ||
34040 | import from TempA all; | |
34041 | ||
34042 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34043 | ||
34044 | ||
34045 | const BERPDU myValue := {b := omit, | |
34046 | c := omit } | |
34047 | ||
34048 | <TTCN_TC:EXEC> | |
34049 | ||
34050 | if (dec_BER_PDU('3100'O) == myValue) | |
34051 | ||
34052 | ||
34053 | ||
34054 | {setverdict(pass);} else {setverdict(fail);} | |
34055 | ||
34056 | ||
34057 | <RESULT> | |
34058 | ||
34059 | Overall verdict: pass | |
34060 | ||
34061 | <END_TC> | |
34062 | ||
34063 | :exmp. | |
34064 | ||
34065 | .*---------------------------------------------------------------------* | |
34066 | :h3. DECODING CER , SET (EMPTY) | |
34067 | .*---------------------------------------------------------------------* | |
34068 | :xmp tab=0. | |
34069 | ||
34070 | <TC - DECODING CER , SET (EMPTY)> | |
34071 | ||
34072 | <STATIC:ASN> | |
34073 | ||
34074 | TempA | |
34075 | ||
34076 | DEFINITIONS ::= | |
34077 | BEGIN | |
34078 | BERPDU ::= SET | |
34079 | { | |
34080 | b BOOLEAN OPTIONAL, | |
34081 | c INTEGER OPTIONAL | |
34082 | } | |
34083 | ||
34084 | END | |
34085 | ||
34086 | <STATIC> | |
34087 | ||
34088 | import from TempA all; | |
34089 | ||
34090 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34091 | ||
34092 | ||
34093 | const BERPDU myValue := {b := omit, | |
34094 | c := omit } | |
34095 | ||
34096 | <TTCN_TC:EXEC> | |
34097 | ||
34098 | if (dec_BER_PDU('31800000'O) == myValue) | |
34099 | ||
34100 | ||
34101 | ||
34102 | {setverdict(pass);} else {setverdict(fail);} | |
34103 | ||
34104 | ||
34105 | <RESULT> | |
34106 | ||
34107 | Overall verdict: pass | |
34108 | ||
34109 | <END_TC> | |
34110 | ||
34111 | :exmp. | |
34112 | ||
34113 | .*---------------------------------------------------------------------* | |
34114 | :h3.DECODING DER , SET (only one element is used) | |
34115 | .*---------------------------------------------------------------------* | |
34116 | :xmp tab=0. | |
34117 | ||
34118 | <TC - DECODING DER , SET (only one element is used)> | |
34119 | ||
34120 | <STATIC:ASN> | |
34121 | ||
34122 | TempA | |
34123 | ||
34124 | DEFINITIONS ::= | |
34125 | BEGIN | |
34126 | BERPDU ::= SET | |
34127 | { | |
34128 | b BOOLEAN OPTIONAL, | |
34129 | c INTEGER OPTIONAL | |
34130 | } | |
34131 | ||
34132 | ||
34133 | END | |
34134 | ||
34135 | <STATIC> | |
34136 | ||
34137 | import from TempA all; | |
34138 | ||
34139 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34140 | ||
34141 | ||
34142 | const BERPDU myValue := {b := true, | |
34143 | c := omit } | |
34144 | ||
34145 | <TTCN_TC:EXEC> | |
34146 | ||
34147 | if (dec_BER_PDU('31030101FF'O) == myValue) | |
34148 | ||
34149 | ||
34150 | ||
34151 | {setverdict(pass);} else {setverdict(fail);} | |
34152 | ||
34153 | ||
34154 | <RESULT> | |
34155 | ||
34156 | Overall verdict: pass | |
34157 | ||
34158 | <END_TC> | |
34159 | ||
34160 | :exmp. | |
34161 | ||
34162 | .*---------------------------------------------------------------------* | |
34163 | :h3.DECODING CER , SET (only one element is used) | |
34164 | .*---------------------------------------------------------------------* | |
34165 | :xmp tab=0. | |
34166 | ||
34167 | <TC - DECODING CER , SET (only one element is used)> | |
34168 | ||
34169 | <STATIC:ASN> | |
34170 | ||
34171 | TempA | |
34172 | ||
34173 | DEFINITIONS ::= | |
34174 | BEGIN | |
34175 | BERPDU ::= SET | |
34176 | { | |
34177 | b BOOLEAN OPTIONAL, | |
34178 | c INTEGER OPTIONAL | |
34179 | } | |
34180 | ||
34181 | ||
34182 | END | |
34183 | ||
34184 | <STATIC> | |
34185 | ||
34186 | import from TempA all; | |
34187 | ||
34188 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34189 | ||
34190 | ||
34191 | const BERPDU myValue := {b := true, | |
34192 | c := omit } | |
34193 | ||
34194 | <TTCN_TC:EXEC> | |
34195 | ||
34196 | if (dec_BER_PDU('31800101FF0000'O) == myValue) | |
34197 | ||
34198 | ||
34199 | ||
34200 | {setverdict(pass);} else {setverdict(fail);} | |
34201 | ||
34202 | ||
34203 | <RESULT> | |
34204 | ||
34205 | Overall verdict: pass | |
34206 | ||
34207 | <END_TC> | |
34208 | ||
34209 | :exmp. | |
34210 | ||
34211 | .*---------------------------------------------------------------------* | |
34212 | :h3. DECODING DER , SET (both elements are used) | |
34213 | .*---------------------------------------------------------------------* | |
34214 | :xmp tab=0. | |
34215 | ||
34216 | <TC - DECODING DER , SET (both elements are used)> | |
34217 | ||
34218 | <STATIC:ASN> | |
34219 | ||
34220 | TempA | |
34221 | ||
34222 | DEFINITIONS ::= | |
34223 | BEGIN | |
34224 | BERPDU ::= SET | |
34225 | { | |
34226 | b BOOLEAN OPTIONAL, | |
34227 | c INTEGER OPTIONAL | |
34228 | } | |
34229 | ||
34230 | ||
34231 | END | |
34232 | ||
34233 | <STATIC> | |
34234 | ||
34235 | import from TempA all; | |
34236 | ||
34237 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34238 | ||
34239 | ||
34240 | const BERPDU myValue := {b := true, | |
34241 | c := 5 } | |
34242 | ||
34243 | ||
34244 | <TTCN_TC:EXEC> | |
34245 | ||
34246 | if (dec_BER_PDU('31060101FF020105'O) == myValue) | |
34247 | ||
34248 | ||
34249 | ||
34250 | {setverdict(pass);} else {setverdict(fail);} | |
34251 | ||
34252 | ||
34253 | <RESULT> | |
34254 | ||
34255 | Overall verdict: pass | |
34256 | ||
34257 | <END_TC> | |
34258 | ||
34259 | :exmp. | |
34260 | ||
34261 | .*---------------------------------------------------------------------* | |
34262 | :h3. DECODING CER , SET (both elements are used) | |
34263 | .*---------------------------------------------------------------------* | |
34264 | :xmp tab=0. | |
34265 | ||
34266 | <TC - DECODING CER , SET (both elements are used)> | |
34267 | ||
34268 | <STATIC:ASN> | |
34269 | ||
34270 | TempA | |
34271 | ||
34272 | DEFINITIONS ::= | |
34273 | BEGIN | |
34274 | BERPDU ::= SET | |
34275 | { | |
34276 | b BOOLEAN OPTIONAL, | |
34277 | c INTEGER OPTIONAL | |
34278 | } | |
34279 | ||
34280 | ||
34281 | END | |
34282 | ||
34283 | <STATIC> | |
34284 | ||
34285 | import from TempA all; | |
34286 | ||
34287 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34288 | ||
34289 | ||
34290 | const BERPDU myValue := {b := true, | |
34291 | c := 5 } | |
34292 | ||
34293 | ||
34294 | <TTCN_TC:EXEC> | |
34295 | ||
34296 | if (dec_BER_PDU('31800101FF0201050000'O) == myValue) | |
34297 | ||
34298 | ||
34299 | ||
34300 | {setverdict(pass);} else {setverdict(fail);} | |
34301 | ||
34302 | ||
34303 | <RESULT> | |
34304 | ||
34305 | Overall verdict: pass | |
34306 | ||
34307 | <END_TC> | |
34308 | ||
34309 | :exmp. | |
34310 | ||
34311 | .*---------------------------------------------------------------------* | |
34312 | :h3. DECODING ,different order , SET (both elements are used) | |
34313 | .*---------------------------------------------------------------------* | |
34314 | :xmp tab=0. | |
34315 | ||
34316 | <TC - DECODING ,different order , SET (both elements are used)> | |
34317 | ||
34318 | <STATIC:ASN> | |
34319 | ||
34320 | TempA | |
34321 | ||
34322 | DEFINITIONS ::= | |
34323 | BEGIN | |
34324 | BERPDU ::= SET | |
34325 | { | |
34326 | ||
34327 | c INTEGER OPTIONAL, | |
34328 | b BOOLEAN OPTIONAL | |
34329 | } | |
34330 | ||
34331 | ||
34332 | END | |
34333 | ||
34334 | <STATIC> | |
34335 | ||
34336 | import from TempA all; | |
34337 | ||
34338 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34339 | ||
34340 | ||
34341 | const BERPDU myValue := {b := true, | |
34342 | c := 5 } | |
34343 | ||
34344 | ||
34345 | <TTCN_TC:EXEC> | |
34346 | ||
34347 | if (dec_BER_PDU('31060201050101FF'O) == myValue) | |
34348 | ||
34349 | ||
34350 | ||
34351 | {setverdict(pass);} else {setverdict(fail);} | |
34352 | ||
34353 | ||
34354 | <RESULT> | |
34355 | ||
34356 | Overall verdict: pass | |
34357 | ||
34358 | <END_TC> | |
34359 | ||
34360 | :exmp. | |
34361 | ||
34362 | .*---------------------------------------------------------------------* | |
34363 | :h3. DECODING , different order, SET (both elements are used) | |
34364 | .*---------------------------------------------------------------------* | |
34365 | :xmp tab=0. | |
34366 | ||
34367 | <TC - DECODING , different order, SET (both elements are used)> | |
34368 | ||
34369 | <STATIC:ASN> | |
34370 | ||
34371 | TempA | |
34372 | ||
34373 | DEFINITIONS ::= | |
34374 | BEGIN | |
34375 | BERPDU ::= SET | |
34376 | { | |
34377 | ||
34378 | c INTEGER OPTIONAL, | |
34379 | b BOOLEAN OPTIONAL | |
34380 | } | |
34381 | ||
34382 | ||
34383 | END | |
34384 | ||
34385 | <STATIC> | |
34386 | ||
34387 | import from TempA all; | |
34388 | ||
34389 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34390 | ||
34391 | ||
34392 | const BERPDU myValue := { | |
34393 | c := 5, | |
34394 | b := true } | |
34395 | ||
34396 | ||
34397 | <TTCN_TC:EXEC> | |
34398 | ||
34399 | if (dec_BER_PDU('31800201050101FF0000'O) == myValue) | |
34400 | ||
34401 | ||
34402 | ||
34403 | {setverdict(pass);} else {setverdict(fail);} | |
34404 | ||
34405 | ||
34406 | <RESULT> | |
34407 | ||
34408 | Overall verdict: pass | |
34409 | ||
34410 | <END_TC> | |
34411 | ||
34412 | :exmp. | |
34413 | ||
34414 | .*---------------------------------------------------------------------* | |
34415 | :h3. DECODING DER , SET (one element is equal to Default) | |
34416 | .*---------------------------------------------------------------------* | |
34417 | :xmp tab=0. | |
34418 | ||
34419 | <TC - DECODING DER , SET (one element is equal to Default)> | |
34420 | ||
34421 | <STATIC:ASN> | |
34422 | ||
34423 | TempA | |
34424 | ||
34425 | DEFINITIONS ::= | |
34426 | BEGIN | |
34427 | BERPDU ::= SET | |
34428 | { | |
34429 | b BOOLEAN DEFAULT TRUE, | |
34430 | c INTEGER OPTIONAL | |
34431 | } | |
34432 | ||
34433 | END | |
34434 | ||
34435 | <STATIC> | |
34436 | ||
34437 | import from TempA all; | |
34438 | ||
34439 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34440 | ||
34441 | ||
34442 | const BERPDU myValue := {b := true, | |
34443 | c := 5 } | |
34444 | <TTCN_TC:EXEC> | |
34445 | ||
34446 | if (dec_BER_PDU('3103020105'O) == myValue) | |
34447 | ||
34448 | ||
34449 | ||
34450 | {setverdict(pass);} else {setverdict(fail);} | |
34451 | ||
34452 | ||
34453 | <RESULT> | |
34454 | ||
34455 | Overall verdict: pass | |
34456 | ||
34457 | <END_TC> | |
34458 | ||
34459 | :exmp. | |
34460 | ||
34461 | .*---------------------------------------------------------------------* | |
34462 | :h3. DECODING CER, SET (one element is equal to Default) | |
34463 | .*---------------------------------------------------------------------* | |
34464 | :xmp tab=0. | |
34465 | ||
34466 | <TC - DECODING CER, SET (one element is equal to Default)> | |
34467 | ||
34468 | <STATIC:ASN> | |
34469 | ||
34470 | TempA | |
34471 | ||
34472 | DEFINITIONS ::= | |
34473 | BEGIN | |
34474 | BERPDU ::= SET | |
34475 | { | |
34476 | b BOOLEAN DEFAULT TRUE, | |
34477 | c INTEGER OPTIONAL | |
34478 | } | |
34479 | ||
34480 | END | |
34481 | ||
34482 | <STATIC> | |
34483 | ||
34484 | import from TempA all; | |
34485 | ||
34486 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34487 | ||
34488 | ||
34489 | const BERPDU myValue := {b := true, | |
34490 | c := 5 } | |
34491 | <TTCN_TC:EXEC> | |
34492 | ||
34493 | if (dec_BER_PDU('31800201050000'O) == myValue) | |
34494 | ||
34495 | ||
34496 | ||
34497 | {setverdict(pass);} else {setverdict(fail);} | |
34498 | ||
34499 | ||
34500 | <RESULT> | |
34501 | ||
34502 | Overall verdict: pass | |
34503 | ||
34504 | <END_TC> | |
34505 | ||
34506 | :exmp. | |
34507 | ||
34508 | .*---------------------------------------------------------------------* | |
34509 | :h3. DECODING, default included , SET (one element is equal to Default) | |
34510 | .*---------------------------------------------------------------------* | |
34511 | :xmp tab=0. | |
34512 | ||
34513 | <TC - DECODING, default included , SET (one element is equal to Default)> | |
34514 | ||
34515 | <STATIC:ASN> | |
34516 | ||
34517 | TempA | |
34518 | ||
34519 | DEFINITIONS ::= | |
34520 | BEGIN | |
34521 | BERPDU ::= SET | |
34522 | { | |
34523 | b BOOLEAN DEFAULT TRUE, | |
34524 | c INTEGER OPTIONAL | |
34525 | } | |
34526 | ||
34527 | END | |
34528 | ||
34529 | <STATIC> | |
34530 | ||
34531 | import from TempA all; | |
34532 | ||
34533 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34534 | ||
34535 | ||
34536 | const BERPDU myValue := {b := true, | |
34537 | c := 5 } | |
34538 | <TTCN_TC:EXEC> | |
34539 | ||
34540 | if (dec_BER_PDU('31060201050101FF'O) == myValue) | |
34541 | ||
34542 | ||
34543 | ||
34544 | {setverdict(pass);} else {setverdict(fail);} | |
34545 | ||
34546 | ||
34547 | <RESULT> | |
34548 | ||
34549 | Overall verdict: pass | |
34550 | ||
34551 | <END_TC> | |
34552 | ||
34553 | :exmp. | |
34554 | ||
34555 | .*---------------------------------------------------------------------* | |
34556 | :h3. DECODING , default included, SET (one element is equal to Default) | |
34557 | .*---------------------------------------------------------------------* | |
34558 | :xmp tab=0. | |
34559 | ||
34560 | <TC - DECODING , default included, SET (one element is equal to Default)> | |
34561 | ||
34562 | <STATIC:ASN> | |
34563 | ||
34564 | TempA | |
34565 | ||
34566 | DEFINITIONS ::= | |
34567 | BEGIN | |
34568 | BERPDU ::= SET | |
34569 | { | |
34570 | b BOOLEAN DEFAULT TRUE, | |
34571 | c INTEGER OPTIONAL | |
34572 | } | |
34573 | ||
34574 | END | |
34575 | ||
34576 | <STATIC> | |
34577 | ||
34578 | import from TempA all; | |
34579 | ||
34580 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34581 | ||
34582 | ||
34583 | const BERPDU myValue := {b := true, | |
34584 | c := 5 } | |
34585 | <TTCN_TC:EXEC> | |
34586 | ||
34587 | if (dec_BER_PDU('31800101FF0201050000'O) == myValue) | |
34588 | ||
34589 | ||
34590 | ||
34591 | {setverdict(pass);} else {setverdict(fail);} | |
34592 | ||
34593 | ||
34594 | <RESULT> | |
34595 | ||
34596 | Overall verdict: pass | |
34597 | ||
34598 | <END_TC> | |
34599 | ||
34600 | :exmp. | |
34601 | ||
34602 | .*---------------------------------------------------------------------* | |
34603 | :h3. DECODING DER , SET (one element is not equal to Default) | |
34604 | .*---------------------------------------------------------------------* | |
34605 | :xmp tab=0. | |
34606 | ||
34607 | <TC - DECODING DER , SET (one element is not equal to Default)> | |
34608 | ||
34609 | <STATIC:ASN> | |
34610 | ||
34611 | TempA | |
34612 | ||
34613 | DEFINITIONS ::= | |
34614 | BEGIN | |
34615 | ||
34616 | BERPDU ::= SET | |
34617 | { | |
34618 | b BOOLEAN DEFAULT TRUE, | |
34619 | c INTEGER OPTIONAL | |
34620 | } | |
34621 | ||
34622 | ||
34623 | END | |
34624 | ||
34625 | <STATIC> | |
34626 | ||
34627 | import from TempA all; | |
34628 | ||
34629 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34630 | ||
34631 | ||
34632 | const BERPDU myValue := {b := false, | |
34633 | c := 5 } | |
34634 | <TTCN_TC:EXEC> | |
34635 | ||
34636 | if (dec_BER_PDU('3106010100020105'O) == myValue) | |
34637 | ||
34638 | ||
34639 | ||
34640 | {setverdict(pass);} else {setverdict(fail);} | |
34641 | ||
34642 | ||
34643 | <RESULT> | |
34644 | ||
34645 | Overall verdict: pass | |
34646 | ||
34647 | <END_TC> | |
34648 | ||
34649 | :exmp. | |
34650 | ||
34651 | .*---------------------------------------------------------------------* | |
34652 | :h3. DECODING CER , SET (one element is not equal to Default) | |
34653 | .*---------------------------------------------------------------------* | |
34654 | :xmp tab=0. | |
34655 | ||
34656 | <TC - DECODING CER , SET (one element is not equal to Default)> | |
34657 | ||
34658 | <STATIC:ASN> | |
34659 | ||
34660 | TempA | |
34661 | ||
34662 | DEFINITIONS ::= | |
34663 | BEGIN | |
34664 | ||
34665 | BERPDU ::= SET | |
34666 | { | |
34667 | b BOOLEAN DEFAULT TRUE, | |
34668 | c INTEGER OPTIONAL | |
34669 | } | |
34670 | ||
34671 | ||
34672 | END | |
34673 | ||
34674 | <STATIC> | |
34675 | ||
34676 | import from TempA all; | |
34677 | ||
34678 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34679 | ||
34680 | ||
34681 | const BERPDU myValue := {b := false, | |
34682 | c := 5 } | |
34683 | <TTCN_TC:EXEC> | |
34684 | ||
34685 | if (dec_BER_PDU('31800101000201050000'O) == myValue) | |
34686 | ||
34687 | ||
34688 | ||
34689 | {setverdict(pass);} else {setverdict(fail);} | |
34690 | ||
34691 | ||
34692 | <RESULT> | |
34693 | ||
34694 | Overall verdict: pass | |
34695 | ||
34696 | <END_TC> | |
34697 | ||
34698 | :exmp. | |
34699 | ||
34700 | .*---------------------------------------------------------------------* | |
34701 | :h3. DECODING, reverse order , SET (one element is not equal to Default) | |
34702 | .*---------------------------------------------------------------------* | |
34703 | :xmp tab=0. | |
34704 | ||
34705 | <TC - DECODING, reverse order , SET (one element is not equal to Default)> | |
34706 | ||
34707 | <STATIC:ASN> | |
34708 | ||
34709 | TempA | |
34710 | ||
34711 | DEFINITIONS ::= | |
34712 | BEGIN | |
34713 | ||
34714 | BERPDU ::= SET | |
34715 | { | |
34716 | b BOOLEAN DEFAULT TRUE, | |
34717 | c INTEGER OPTIONAL | |
34718 | } | |
34719 | ||
34720 | ||
34721 | END | |
34722 | ||
34723 | <STATIC> | |
34724 | ||
34725 | import from TempA all; | |
34726 | ||
34727 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34728 | ||
34729 | ||
34730 | const BERPDU myValue := {b := false, | |
34731 | c := 5 } | |
34732 | <TTCN_TC:EXEC> | |
34733 | ||
34734 | if (dec_BER_PDU('3106020105010100'O) == myValue) | |
34735 | ||
34736 | ||
34737 | ||
34738 | {setverdict(pass);} else {setverdict(fail);} | |
34739 | ||
34740 | ||
34741 | <RESULT> | |
34742 | ||
34743 | Overall verdict: pass | |
34744 | ||
34745 | <END_TC> | |
34746 | ||
34747 | :exmp. | |
34748 | ||
34749 | .*---------------------------------------------------------------------* | |
34750 | :h3. DECODING ,reverse order , SET (one element is not equal to Default) | |
34751 | .*---------------------------------------------------------------------* | |
34752 | :xmp tab=0. | |
34753 | ||
34754 | <TC - DECODING ,reverse order , SET (one element is not equal to Default)> | |
34755 | ||
34756 | <STATIC:ASN> | |
34757 | ||
34758 | TempA | |
34759 | ||
34760 | DEFINITIONS ::= | |
34761 | BEGIN | |
34762 | ||
34763 | BERPDU ::= SET | |
34764 | { | |
34765 | b BOOLEAN DEFAULT TRUE, | |
34766 | c INTEGER OPTIONAL | |
34767 | } | |
34768 | ||
34769 | ||
34770 | END | |
34771 | ||
34772 | <STATIC> | |
34773 | ||
34774 | import from TempA all; | |
34775 | ||
34776 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34777 | ||
34778 | ||
34779 | const BERPDU myValue := {b := false, | |
34780 | c := 5 } | |
34781 | <TTCN_TC:EXEC> | |
34782 | ||
34783 | if (dec_BER_PDU('31800201050101000000'O) == myValue) | |
34784 | ||
34785 | ||
34786 | ||
34787 | {setverdict(pass);} else {setverdict(fail);} | |
34788 | ||
34789 | ||
34790 | <RESULT> | |
34791 | ||
34792 | Overall verdict: pass | |
34793 | ||
34794 | <END_TC> | |
34795 | ||
34796 | :exmp. | |
34797 | ||
34798 | .*---------------------------------------------------------------------* | |
34799 | :h3. DECODING DER , SET (EMPTY), AUTOMATIC TAGGING | |
34800 | .*---------------------------------------------------------------------* | |
34801 | :xmp tab=0. | |
34802 | ||
34803 | <TC - DECODING DER , SET (EMPTY), AUTOMATIC TAGGING> | |
34804 | ||
34805 | <STATIC:ASN> | |
34806 | ||
34807 | TempA | |
34808 | ||
34809 | DEFINITIONS | |
34810 | ||
34811 | AUTOMATIC TAGS | |
34812 | ||
34813 | ||
34814 | ::= | |
34815 | ||
34816 | BEGIN | |
34817 | ||
34818 | BERPDU ::= SET | |
34819 | { | |
34820 | b BOOLEAN OPTIONAL, | |
34821 | c INTEGER OPTIONAL | |
34822 | } | |
34823 | ||
34824 | ||
34825 | END | |
34826 | ||
34827 | <STATIC> | |
34828 | ||
34829 | import from TempA all; | |
34830 | ||
34831 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34832 | ||
34833 | ||
34834 | const BERPDU myValue := {b := omit, | |
34835 | c := omit } | |
34836 | ||
34837 | <TTCN_TC:EXEC> | |
34838 | ||
34839 | if (dec_BER_PDU('3100'O) == myValue) | |
34840 | ||
34841 | ||
34842 | ||
34843 | {setverdict(pass);} else {setverdict(fail);} | |
34844 | ||
34845 | ||
34846 | <RESULT> | |
34847 | ||
34848 | Overall verdict: pass | |
34849 | ||
34850 | <END_TC> | |
34851 | ||
34852 | :exmp. | |
34853 | ||
34854 | .*---------------------------------------------------------------------* | |
34855 | :h3. DECODING CER , SET (EMPTY), AUTOMATIC TAGGING | |
34856 | .*---------------------------------------------------------------------* | |
34857 | :xmp tab=0. | |
34858 | ||
34859 | <TC - DECODING CER , SET (EMPTY), AUTOMATIC TAGGING> | |
34860 | ||
34861 | <STATIC:ASN> | |
34862 | ||
34863 | TempA | |
34864 | ||
34865 | DEFINITIONS | |
34866 | ||
34867 | AUTOMATIC TAGS | |
34868 | ||
34869 | ||
34870 | ::= | |
34871 | ||
34872 | BEGIN | |
34873 | ||
34874 | BERPDU ::= SET | |
34875 | { | |
34876 | b BOOLEAN OPTIONAL, | |
34877 | c INTEGER OPTIONAL | |
34878 | } | |
34879 | ||
34880 | ||
34881 | END | |
34882 | ||
34883 | <STATIC> | |
34884 | ||
34885 | import from TempA all; | |
34886 | ||
34887 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34888 | ||
34889 | ||
34890 | const BERPDU myValue := {b := omit, | |
34891 | c := omit } | |
34892 | ||
34893 | <TTCN_TC:EXEC> | |
34894 | ||
34895 | if (dec_BER_PDU('31800000'O) == myValue) | |
34896 | ||
34897 | ||
34898 | ||
34899 | {setverdict(pass);} else {setverdict(fail);} | |
34900 | ||
34901 | ||
34902 | <RESULT> | |
34903 | ||
34904 | Overall verdict: pass | |
34905 | ||
34906 | <END_TC> | |
34907 | ||
34908 | :exmp. | |
34909 | ||
34910 | .*---------------------------------------------------------------------* | |
34911 | :h3. DECODING DER , SET (only one element is used) AUTOMATIC TAGGING | |
34912 | .*---------------------------------------------------------------------* | |
34913 | :xmp tab=0. | |
34914 | ||
34915 | <TC - DECODING DER , SET (only one element is used) AUTOMATIC TAGGING> | |
34916 | ||
34917 | <STATIC:ASN> | |
34918 | ||
34919 | TempA | |
34920 | ||
34921 | DEFINITIONS | |
34922 | ||
34923 | AUTOMATIC TAGS | |
34924 | ||
34925 | ||
34926 | ::= | |
34927 | ||
34928 | BEGIN | |
34929 | ||
34930 | ||
34931 | BERPDU ::= SET | |
34932 | { | |
34933 | b BOOLEAN OPTIONAL, | |
34934 | c INTEGER OPTIONAL | |
34935 | } | |
34936 | ||
34937 | ||
34938 | END | |
34939 | ||
34940 | <STATIC> | |
34941 | ||
34942 | import from TempA all; | |
34943 | ||
34944 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
34945 | ||
34946 | ||
34947 | const BERPDU myValue := {b := true, | |
34948 | c := omit } | |
34949 | ||
34950 | <TTCN_TC:EXEC> | |
34951 | ||
34952 | if (dec_BER_PDU('31038001FF'O) == myValue) | |
34953 | ||
34954 | ||
34955 | ||
34956 | {setverdict(pass);} else {setverdict(fail);} | |
34957 | ||
34958 | ||
34959 | <RESULT> | |
34960 | ||
34961 | Overall verdict: pass | |
34962 | ||
34963 | <END_TC> | |
34964 | ||
34965 | :exmp. | |
34966 | ||
34967 | .*---------------------------------------------------------------------* | |
34968 | :h3. DECODING CER , SET (only one element is used) AUTOMATIC TAGGING | |
34969 | .*---------------------------------------------------------------------* | |
34970 | :xmp tab=0. | |
34971 | ||
34972 | <TC - DECODING CER , SET (only one element is used) AUTOMATIC TAGGING> | |
34973 | ||
34974 | <STATIC:ASN> | |
34975 | ||
34976 | TempA | |
34977 | ||
34978 | DEFINITIONS | |
34979 | ||
34980 | AUTOMATIC TAGS | |
34981 | ||
34982 | ||
34983 | ::= | |
34984 | ||
34985 | BEGIN | |
34986 | ||
34987 | ||
34988 | BERPDU ::= SET | |
34989 | { | |
34990 | b BOOLEAN OPTIONAL, | |
34991 | c INTEGER OPTIONAL | |
34992 | } | |
34993 | ||
34994 | ||
34995 | END | |
34996 | ||
34997 | <STATIC> | |
34998 | ||
34999 | import from TempA all; | |
35000 | ||
35001 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35002 | ||
35003 | ||
35004 | const BERPDU myValue := {b := true, | |
35005 | c := omit } | |
35006 | ||
35007 | <TTCN_TC:EXEC> | |
35008 | ||
35009 | if (dec_BER_PDU('31808001FF0000'O) == myValue) | |
35010 | ||
35011 | ||
35012 | ||
35013 | {setverdict(pass);} else {setverdict(fail);} | |
35014 | ||
35015 | ||
35016 | <RESULT> | |
35017 | ||
35018 | Overall verdict: pass | |
35019 | ||
35020 | <END_TC> | |
35021 | ||
35022 | :exmp. | |
35023 | ||
35024 | .*---------------------------------------------------------------------* | |
35025 | :h3. DECODING DER , SET (both elements are used) AUTOMATIC TAGGING | |
35026 | .*---------------------------------------------------------------------* | |
35027 | :xmp tab=0. | |
35028 | ||
35029 | <TC - DECODING DER , SET (both elements are used) AUTOMATIC TAGGING> | |
35030 | ||
35031 | <STATIC:ASN> | |
35032 | ||
35033 | TempA | |
35034 | ||
35035 | DEFINITIONS | |
35036 | ||
35037 | AUTOMATIC TAGS | |
35038 | ||
35039 | ||
35040 | ::= | |
35041 | ||
35042 | BEGIN | |
35043 | ||
35044 | ||
35045 | BERPDU ::= SET | |
35046 | { | |
35047 | b BOOLEAN OPTIONAL, | |
35048 | c INTEGER OPTIONAL | |
35049 | } | |
35050 | ||
35051 | ||
35052 | ||
35053 | END | |
35054 | ||
35055 | <STATIC> | |
35056 | ||
35057 | import from TempA all; | |
35058 | ||
35059 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35060 | ||
35061 | ||
35062 | const BERPDU myValue := {b := true, | |
35063 | c := 5 } | |
35064 | ||
35065 | <TTCN_TC:EXEC> | |
35066 | ||
35067 | if (dec_BER_PDU('31068001FF810105'O) == myValue) | |
35068 | ||
35069 | ||
35070 | ||
35071 | {setverdict(pass);} else {setverdict(fail);} | |
35072 | ||
35073 | ||
35074 | <RESULT> | |
35075 | ||
35076 | Overall verdict: pass | |
35077 | ||
35078 | <END_TC> | |
35079 | ||
35080 | :exmp. | |
35081 | ||
35082 | .*---------------------------------------------------------------------* | |
35083 | :h3. DECODING CER , SET (both elements are used) AUTOMATIC TAGGING | |
35084 | .*---------------------------------------------------------------------* | |
35085 | :xmp tab=0. | |
35086 | ||
35087 | <TC - DECODING CER , SET (both elements are used) AUTOMATIC TAGGING> | |
35088 | ||
35089 | <STATIC:ASN> | |
35090 | ||
35091 | TempA | |
35092 | ||
35093 | DEFINITIONS | |
35094 | ||
35095 | AUTOMATIC TAGS | |
35096 | ||
35097 | ||
35098 | ::= | |
35099 | ||
35100 | BEGIN | |
35101 | ||
35102 | ||
35103 | BERPDU ::= SET | |
35104 | { | |
35105 | b BOOLEAN OPTIONAL, | |
35106 | c INTEGER OPTIONAL | |
35107 | } | |
35108 | ||
35109 | ||
35110 | ||
35111 | END | |
35112 | ||
35113 | <STATIC> | |
35114 | ||
35115 | import from TempA all; | |
35116 | ||
35117 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35118 | ||
35119 | ||
35120 | const BERPDU myValue := {b := true, | |
35121 | c := 5 } | |
35122 | ||
35123 | <TTCN_TC:EXEC> | |
35124 | ||
35125 | if (dec_BER_PDU('31808001FF8101050000'O) == myValue) | |
35126 | ||
35127 | ||
35128 | ||
35129 | {setverdict(pass);} else {setverdict(fail);} | |
35130 | ||
35131 | ||
35132 | <RESULT> | |
35133 | ||
35134 | Overall verdict: pass | |
35135 | ||
35136 | <END_TC> | |
35137 | ||
35138 | :exmp. | |
35139 | ||
35140 | .*---------------------------------------------------------------------* | |
35141 | :h3. DECODING ,reverse order , SET (both elements are used) AUTOMATIC TAGGING | |
35142 | .*---------------------------------------------------------------------* | |
35143 | :xmp tab=0. | |
35144 | ||
35145 | <TC - DECODING ,reverse order , SET (both elements are used) AUTOMATIC TAGGING> | |
35146 | ||
35147 | <STATIC:ASN> | |
35148 | ||
35149 | TempA | |
35150 | ||
35151 | DEFINITIONS | |
35152 | ||
35153 | AUTOMATIC TAGS | |
35154 | ||
35155 | ||
35156 | ::= | |
35157 | ||
35158 | BEGIN | |
35159 | ||
35160 | ||
35161 | BERPDU ::= SET | |
35162 | { | |
35163 | b BOOLEAN OPTIONAL, | |
35164 | c INTEGER OPTIONAL | |
35165 | } | |
35166 | ||
35167 | ||
35168 | ||
35169 | END | |
35170 | ||
35171 | <STATIC> | |
35172 | ||
35173 | import from TempA all; | |
35174 | ||
35175 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35176 | ||
35177 | ||
35178 | const BERPDU myValue := {b := true, | |
35179 | c := 5 } | |
35180 | ||
35181 | <TTCN_TC:EXEC> | |
35182 | ||
35183 | if (dec_BER_PDU('31068101058001FF'O) == myValue) | |
35184 | ||
35185 | ||
35186 | ||
35187 | {setverdict(pass);} else {setverdict(fail);} | |
35188 | ||
35189 | ||
35190 | <RESULT> | |
35191 | ||
35192 | Overall verdict: pass | |
35193 | ||
35194 | <END_TC> | |
35195 | ||
35196 | :exmp. | |
35197 | ||
35198 | .*---------------------------------------------------------------------* | |
35199 | :h3. DECODING, reverse order , SET (both elements are used) AUTOMATIC TAGGING | |
35200 | .*---------------------------------------------------------------------* | |
35201 | :xmp tab=0. | |
35202 | ||
35203 | <TC - DECODING, reverse order , SET (both elements are used) AUTOMATIC TAGGING> | |
35204 | ||
35205 | <STATIC:ASN> | |
35206 | ||
35207 | TempA | |
35208 | ||
35209 | DEFINITIONS | |
35210 | ||
35211 | AUTOMATIC TAGS | |
35212 | ||
35213 | ||
35214 | ::= | |
35215 | ||
35216 | BEGIN | |
35217 | ||
35218 | ||
35219 | BERPDU ::= SET | |
35220 | { | |
35221 | b BOOLEAN OPTIONAL, | |
35222 | c INTEGER OPTIONAL | |
35223 | } | |
35224 | ||
35225 | ||
35226 | ||
35227 | END | |
35228 | ||
35229 | <STATIC> | |
35230 | ||
35231 | import from TempA all; | |
35232 | ||
35233 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35234 | ||
35235 | ||
35236 | const BERPDU myValue := {b := true, | |
35237 | c := 5 } | |
35238 | ||
35239 | <TTCN_TC:EXEC> | |
35240 | ||
35241 | if (dec_BER_PDU('31808101058001FF0000'O) == myValue) | |
35242 | ||
35243 | ||
35244 | ||
35245 | {setverdict(pass);} else {setverdict(fail);} | |
35246 | ||
35247 | ||
35248 | <RESULT> | |
35249 | ||
35250 | Overall verdict: pass | |
35251 | ||
35252 | <END_TC> | |
35253 | ||
35254 | :exmp. | |
35255 | ||
35256 | .*---------------------------------------------------------------------* | |
35257 | :h3. DECODING DER , SET (one element is equal to Default) AUTOMATIC TAGGING | |
35258 | .*---------------------------------------------------------------------* | |
35259 | :xmp tab=0. | |
35260 | ||
35261 | <TC - DECODING DER , SET (one element is equal to Default) AUTOMATIC TAGGING > | |
35262 | ||
35263 | <STATIC:ASN> | |
35264 | ||
35265 | TempA | |
35266 | ||
35267 | DEFINITIONS | |
35268 | ||
35269 | AUTOMATIC TAGS | |
35270 | ||
35271 | ||
35272 | ::= | |
35273 | ||
35274 | BEGIN | |
35275 | ||
35276 | ||
35277 | BERPDU ::= SET | |
35278 | { | |
35279 | b BOOLEAN DEFAULT TRUE, | |
35280 | c INTEGER OPTIONAL | |
35281 | } | |
35282 | ||
35283 | ||
35284 | ||
35285 | END | |
35286 | ||
35287 | <STATIC> | |
35288 | ||
35289 | import from TempA all; | |
35290 | ||
35291 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35292 | ||
35293 | ||
35294 | const BERPDU myValue := {b := true, | |
35295 | c := 5 } | |
35296 | ||
35297 | <TTCN_TC:EXEC> | |
35298 | ||
35299 | if (dec_BER_PDU('3103810105'O) == myValue) | |
35300 | ||
35301 | ||
35302 | ||
35303 | {setverdict(pass);} else {setverdict(fail);} | |
35304 | ||
35305 | ||
35306 | <RESULT> | |
35307 | ||
35308 | Overall verdict: pass | |
35309 | ||
35310 | <END_TC> | |
35311 | ||
35312 | :exmp. | |
35313 | ||
35314 | .*---------------------------------------------------------------------* | |
35315 | :h3. DECODING CER , SET (one element is equal to Default) AUTOMATIC TAGGING | |
35316 | .*---------------------------------------------------------------------* | |
35317 | :xmp tab=0. | |
35318 | ||
35319 | <TC - DECODING CER , SET (one element is equal to Default) AUTOMATIC TAGGING > | |
35320 | ||
35321 | <STATIC:ASN> | |
35322 | ||
35323 | TempA | |
35324 | ||
35325 | DEFINITIONS | |
35326 | ||
35327 | AUTOMATIC TAGS | |
35328 | ||
35329 | ||
35330 | ::= | |
35331 | ||
35332 | BEGIN | |
35333 | ||
35334 | ||
35335 | BERPDU ::= SET | |
35336 | { | |
35337 | b BOOLEAN DEFAULT TRUE, | |
35338 | c INTEGER OPTIONAL | |
35339 | } | |
35340 | ||
35341 | ||
35342 | ||
35343 | END | |
35344 | ||
35345 | <STATIC> | |
35346 | ||
35347 | import from TempA all; | |
35348 | ||
35349 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35350 | ||
35351 | ||
35352 | const BERPDU myValue := {b := true, | |
35353 | c := 5 } | |
35354 | ||
35355 | <TTCN_TC:EXEC> | |
35356 | ||
35357 | if (dec_BER_PDU('31808101050000'O) == myValue) | |
35358 | ||
35359 | ||
35360 | ||
35361 | {setverdict(pass);} else {setverdict(fail);} | |
35362 | ||
35363 | ||
35364 | <RESULT> | |
35365 | ||
35366 | Overall verdict: pass | |
35367 | ||
35368 | <END_TC> | |
35369 | ||
35370 | :exmp. | |
35371 | ||
35372 | .*---------------------------------------------------------------------* | |
35373 | :h3. DECODING , default included , SET (one element is equal to Default) AUTOMATIC TAGGING | |
35374 | .*---------------------------------------------------------------------* | |
35375 | :xmp tab=0. | |
35376 | ||
35377 | <TC - DECODING , default included , SET (one element is equal to Default) AUTOMATIC TAGGING > | |
35378 | ||
35379 | <STATIC:ASN> | |
35380 | ||
35381 | TempA | |
35382 | ||
35383 | DEFINITIONS | |
35384 | ||
35385 | AUTOMATIC TAGS | |
35386 | ||
35387 | ||
35388 | ::= | |
35389 | ||
35390 | BEGIN | |
35391 | ||
35392 | ||
35393 | BERPDU ::= SET | |
35394 | { | |
35395 | b BOOLEAN DEFAULT TRUE, | |
35396 | c INTEGER OPTIONAL | |
35397 | } | |
35398 | ||
35399 | ||
35400 | ||
35401 | END | |
35402 | ||
35403 | <STATIC> | |
35404 | ||
35405 | import from TempA all; | |
35406 | ||
35407 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35408 | ||
35409 | ||
35410 | const BERPDU myValue := {b := true, | |
35411 | c := 5 } | |
35412 | ||
35413 | <TTCN_TC:EXEC> | |
35414 | ||
35415 | if (dec_BER_PDU('31068001FF810105'O) == myValue) | |
35416 | ||
35417 | ||
35418 | ||
35419 | {setverdict(pass);} else {setverdict(fail);} | |
35420 | ||
35421 | ||
35422 | <RESULT> | |
35423 | ||
35424 | Overall verdict: pass | |
35425 | ||
35426 | <END_TC> | |
35427 | ||
35428 | :exmp. | |
35429 | ||
35430 | .*---------------------------------------------------------------------* | |
35431 | :h3. DECODING , default included, SET (one element is equal to Default) AUTOMATIC TAGGING | |
35432 | .*---------------------------------------------------------------------* | |
35433 | :xmp tab=0. | |
35434 | ||
35435 | <TC - DECODING , default included, SET (one element is equal to Default) AUTOMATIC TAGGING > | |
35436 | ||
35437 | <STATIC:ASN> | |
35438 | ||
35439 | TempA | |
35440 | ||
35441 | DEFINITIONS | |
35442 | ||
35443 | AUTOMATIC TAGS | |
35444 | ||
35445 | ||
35446 | ::= | |
35447 | ||
35448 | BEGIN | |
35449 | ||
35450 | ||
35451 | BERPDU ::= SET | |
35452 | { | |
35453 | b BOOLEAN DEFAULT TRUE, | |
35454 | c INTEGER OPTIONAL | |
35455 | } | |
35456 | ||
35457 | ||
35458 | ||
35459 | END | |
35460 | ||
35461 | <STATIC> | |
35462 | ||
35463 | import from TempA all; | |
35464 | ||
35465 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35466 | ||
35467 | ||
35468 | const BERPDU myValue := {b := true, | |
35469 | c := 5 } | |
35470 | ||
35471 | <TTCN_TC:EXEC> | |
35472 | ||
35473 | if (dec_BER_PDU('31808101058001FF0000'O) == myValue) | |
35474 | ||
35475 | ||
35476 | ||
35477 | {setverdict(pass);} else {setverdict(fail);} | |
35478 | ||
35479 | ||
35480 | <RESULT> | |
35481 | ||
35482 | Overall verdict: pass | |
35483 | ||
35484 | <END_TC> | |
35485 | ||
35486 | :exmp. | |
35487 | ||
35488 | .*---------------------------------------------------------------------* | |
35489 | :h3. DECODING DER ,SET (one element is not equal to Default) AUTOMATIC TAGGING | |
35490 | .*---------------------------------------------------------------------* | |
35491 | :xmp tab=0. | |
35492 | ||
35493 | <TC - DECODING DER ,SET (one element is not equal to Default) AUTOMATIC TAGGING> | |
35494 | ||
35495 | <STATIC:ASN> | |
35496 | ||
35497 | TempA | |
35498 | ||
35499 | DEFINITIONS | |
35500 | ||
35501 | AUTOMATIC TAGS | |
35502 | ||
35503 | ||
35504 | ::= | |
35505 | ||
35506 | BEGIN | |
35507 | ||
35508 | ||
35509 | BERPDU ::= SET | |
35510 | { | |
35511 | b BOOLEAN DEFAULT TRUE, | |
35512 | c INTEGER OPTIONAL | |
35513 | } | |
35514 | ||
35515 | ||
35516 | ||
35517 | END | |
35518 | ||
35519 | <STATIC> | |
35520 | ||
35521 | import from TempA all; | |
35522 | ||
35523 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35524 | ||
35525 | ||
35526 | const BERPDU myValue := {b := false, | |
35527 | c := 5 } | |
35528 | ||
35529 | <TTCN_TC:EXEC> | |
35530 | ||
35531 | if (dec_BER_PDU('3106800100810105'O) == myValue) | |
35532 | ||
35533 | ||
35534 | ||
35535 | {setverdict(pass);} else {setverdict(fail);} | |
35536 | ||
35537 | ||
35538 | <RESULT> | |
35539 | ||
35540 | Overall verdict: pass | |
35541 | ||
35542 | <END_TC> | |
35543 | ||
35544 | :exmp. | |
35545 | ||
35546 | .*---------------------------------------------------------------------* | |
35547 | :h3. DECODING CER ,SET (one element is not equal to Default) AUTOMATIC TAGGING | |
35548 | .*---------------------------------------------------------------------* | |
35549 | :xmp tab=0. | |
35550 | ||
35551 | <TC - DECODING CER ,SET (one element is not equal to Default) AUTOMATIC TAGGING> | |
35552 | ||
35553 | <STATIC:ASN> | |
35554 | ||
35555 | TempA | |
35556 | ||
35557 | DEFINITIONS | |
35558 | ||
35559 | AUTOMATIC TAGS | |
35560 | ||
35561 | ||
35562 | ::= | |
35563 | ||
35564 | BEGIN | |
35565 | ||
35566 | ||
35567 | BERPDU ::= SET | |
35568 | { | |
35569 | b BOOLEAN DEFAULT TRUE, | |
35570 | c INTEGER OPTIONAL | |
35571 | } | |
35572 | ||
35573 | ||
35574 | ||
35575 | END | |
35576 | ||
35577 | <STATIC> | |
35578 | ||
35579 | import from TempA all; | |
35580 | ||
35581 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35582 | ||
35583 | ||
35584 | const BERPDU myValue := {b := false, | |
35585 | c := 5 } | |
35586 | ||
35587 | <TTCN_TC:EXEC> | |
35588 | ||
35589 | if (dec_BER_PDU('31808001008101050000'O) == myValue) | |
35590 | ||
35591 | ||
35592 | ||
35593 | {setverdict(pass);} else {setverdict(fail);} | |
35594 | ||
35595 | ||
35596 | <RESULT> | |
35597 | ||
35598 | Overall verdict: pass | |
35599 | ||
35600 | <END_TC> | |
35601 | ||
35602 | :exmp. | |
35603 | ||
35604 | .*---------------------------------------------------------------------* | |
35605 | :h3. DECODING,reverse order,SET (one element is not equal to Default) AUTOMATIC TAGGING | |
35606 | .*---------------------------------------------------------------------* | |
35607 | :xmp tab=0. | |
35608 | ||
35609 | <TC - DECODING,reverse order,SET (one element is not equal to Default) AUTOMATIC TAGGING> | |
35610 | ||
35611 | <STATIC:ASN> | |
35612 | ||
35613 | TempA | |
35614 | ||
35615 | DEFINITIONS | |
35616 | ||
35617 | AUTOMATIC TAGS | |
35618 | ||
35619 | ||
35620 | ::= | |
35621 | ||
35622 | BEGIN | |
35623 | ||
35624 | ||
35625 | BERPDU ::= SET | |
35626 | { | |
35627 | b BOOLEAN DEFAULT TRUE, | |
35628 | c INTEGER OPTIONAL | |
35629 | } | |
35630 | ||
35631 | ||
35632 | ||
35633 | END | |
35634 | ||
35635 | <STATIC> | |
35636 | ||
35637 | import from TempA all; | |
35638 | ||
35639 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35640 | ||
35641 | ||
35642 | const BERPDU myValue := {b := false, | |
35643 | c := 5 } | |
35644 | ||
35645 | <TTCN_TC:EXEC> | |
35646 | ||
35647 | if (dec_BER_PDU('3106810105800100'O) == myValue) | |
35648 | ||
35649 | ||
35650 | ||
35651 | {setverdict(pass);} else {setverdict(fail);} | |
35652 | ||
35653 | ||
35654 | <RESULT> | |
35655 | ||
35656 | Overall verdict: pass | |
35657 | ||
35658 | <END_TC> | |
35659 | ||
35660 | :exmp. | |
35661 | ||
35662 | .*---------------------------------------------------------------------* | |
35663 | :h3. DECODING CER ,SET (one element is not equal to Default) AUTOMATIC TAGGING | |
35664 | .*---------------------------------------------------------------------* | |
35665 | :xmp tab=0. | |
35666 | ||
35667 | <TC - DECODING CER ,SET (one element is not equal to Default) AUTOMATIC TAGGING> | |
35668 | ||
35669 | <STATIC:ASN> | |
35670 | ||
35671 | TempA | |
35672 | ||
35673 | DEFINITIONS | |
35674 | ||
35675 | AUTOMATIC TAGS | |
35676 | ||
35677 | ||
35678 | ::= | |
35679 | ||
35680 | BEGIN | |
35681 | ||
35682 | ||
35683 | BERPDU ::= SET | |
35684 | { | |
35685 | b BOOLEAN DEFAULT TRUE, | |
35686 | c INTEGER OPTIONAL | |
35687 | } | |
35688 | ||
35689 | ||
35690 | ||
35691 | END | |
35692 | ||
35693 | <STATIC> | |
35694 | ||
35695 | import from TempA all; | |
35696 | ||
35697 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35698 | ||
35699 | ||
35700 | const BERPDU myValue := {b := false, | |
35701 | c := 5 } | |
35702 | ||
35703 | <TTCN_TC:EXEC> | |
35704 | ||
35705 | if (dec_BER_PDU('31808101058001000000'O) == myValue) | |
35706 | ||
35707 | ||
35708 | ||
35709 | {setverdict(pass);} else {setverdict(fail);} | |
35710 | ||
35711 | ||
35712 | <RESULT> | |
35713 | ||
35714 | Overall verdict: pass | |
35715 | ||
35716 | <END_TC> | |
35717 | ||
35718 | :exmp. | |
35719 | ||
35720 | .*---------------------------------------------------------------------* | |
35721 | :h3. DECODING DER , SET (both elements are used) IMPLICIT TAGS for elements | |
35722 | .*---------------------------------------------------------------------* | |
35723 | :xmp tab=0. | |
35724 | ||
35725 | <TC - DECODING DER , SET (both elements are used) IMPLICIT TAGS for elements> | |
35726 | ||
35727 | <STATIC:ASN> | |
35728 | ||
35729 | TempA | |
35730 | ||
35731 | DEFINITIONS | |
35732 | ||
35733 | ||
35734 | ||
35735 | ||
35736 | ::= | |
35737 | ||
35738 | BEGIN | |
35739 | ||
35740 | ||
35741 | BERPDU ::= SET | |
35742 | { | |
35743 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
35744 | c [31] IMPLICIT INTEGER OPTIONAL | |
35745 | } | |
35746 | ||
35747 | ||
35748 | END | |
35749 | ||
35750 | <STATIC> | |
35751 | ||
35752 | import from TempA all; | |
35753 | ||
35754 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35755 | ||
35756 | ||
35757 | const BERPDU myValue := {b := true, | |
35758 | c := 5 } | |
35759 | ||
35760 | <TTCN_TC:EXEC> | |
35761 | ||
35762 | if (dec_BER_PDU('31079E01FF9F1F0105'O) == myValue) | |
35763 | ||
35764 | ||
35765 | ||
35766 | {setverdict(pass);} else {setverdict(fail);} | |
35767 | ||
35768 | ||
35769 | <RESULT> | |
35770 | ||
35771 | Overall verdict: pass | |
35772 | ||
35773 | <END_TC> | |
35774 | ||
35775 | :exmp. | |
35776 | ||
35777 | .*---------------------------------------------------------------------* | |
35778 | :h3. DECODING CER , SET (both elements are used) IMPLICIT TAGS for elements | |
35779 | .*---------------------------------------------------------------------* | |
35780 | :xmp tab=0. | |
35781 | ||
35782 | <TC - DECODING CER , SET (both elements are used) IMPLICIT TAGS for elements> | |
35783 | ||
35784 | <STATIC:ASN> | |
35785 | ||
35786 | TempA | |
35787 | ||
35788 | DEFINITIONS | |
35789 | ||
35790 | ||
35791 | ||
35792 | ||
35793 | ::= | |
35794 | ||
35795 | BEGIN | |
35796 | ||
35797 | ||
35798 | BERPDU ::= SET | |
35799 | { | |
35800 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
35801 | c [31] IMPLICIT INTEGER OPTIONAL | |
35802 | } | |
35803 | ||
35804 | ||
35805 | END | |
35806 | ||
35807 | <STATIC> | |
35808 | ||
35809 | import from TempA all; | |
35810 | ||
35811 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35812 | ||
35813 | ||
35814 | const BERPDU myValue := {b := true, | |
35815 | c := 5 } | |
35816 | ||
35817 | <TTCN_TC:EXEC> | |
35818 | ||
35819 | if (dec_BER_PDU('31809E01FF9F1F01050000'O) == myValue) | |
35820 | ||
35821 | ||
35822 | ||
35823 | {setverdict(pass);} else {setverdict(fail);} | |
35824 | ||
35825 | ||
35826 | <RESULT> | |
35827 | ||
35828 | Overall verdict: pass | |
35829 | ||
35830 | <END_TC> | |
35831 | ||
35832 | :exmp. | |
35833 | ||
35834 | .*---------------------------------------------------------------------* | |
35835 | :h3. DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements | |
35836 | .*---------------------------------------------------------------------* | |
35837 | :xmp tab=0. | |
35838 | ||
35839 | <TC - DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements> | |
35840 | ||
35841 | <STATIC:ASN> | |
35842 | ||
35843 | TempA | |
35844 | ||
35845 | DEFINITIONS | |
35846 | ||
35847 | ||
35848 | ||
35849 | ||
35850 | ::= | |
35851 | ||
35852 | BEGIN | |
35853 | ||
35854 | ||
35855 | BERPDU ::= SET | |
35856 | { | |
35857 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
35858 | c [31] IMPLICIT INTEGER OPTIONAL | |
35859 | } | |
35860 | ||
35861 | ||
35862 | END | |
35863 | ||
35864 | <STATIC> | |
35865 | ||
35866 | import from TempA all; | |
35867 | ||
35868 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35869 | ||
35870 | ||
35871 | const BERPDU myValue := {b := true, | |
35872 | c := 5 } | |
35873 | ||
35874 | <TTCN_TC:EXEC> | |
35875 | ||
35876 | if (dec_BER_PDU('31079F1F01059E01FF'O) == myValue) | |
35877 | ||
35878 | ||
35879 | ||
35880 | {setverdict(pass);} else {setverdict(fail);} | |
35881 | ||
35882 | ||
35883 | <RESULT> | |
35884 | ||
35885 | Overall verdict: pass | |
35886 | ||
35887 | <END_TC> | |
35888 | ||
35889 | :exmp. | |
35890 | ||
35891 | .*---------------------------------------------------------------------* | |
35892 | :h3. DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements | |
35893 | .*---------------------------------------------------------------------* | |
35894 | :xmp tab=0. | |
35895 | ||
35896 | <TC - DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements> | |
35897 | ||
35898 | <STATIC:ASN> | |
35899 | ||
35900 | TempA | |
35901 | ||
35902 | DEFINITIONS | |
35903 | ||
35904 | ||
35905 | ||
35906 | ||
35907 | ::= | |
35908 | ||
35909 | BEGIN | |
35910 | ||
35911 | ||
35912 | BERPDU ::= SET | |
35913 | { | |
35914 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
35915 | c [31] IMPLICIT INTEGER OPTIONAL | |
35916 | } | |
35917 | ||
35918 | ||
35919 | END | |
35920 | ||
35921 | <STATIC> | |
35922 | ||
35923 | import from TempA all; | |
35924 | ||
35925 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35926 | ||
35927 | ||
35928 | const BERPDU myValue := {b := true, | |
35929 | c := 5 } | |
35930 | ||
35931 | <TTCN_TC:EXEC> | |
35932 | ||
35933 | if (dec_BER_PDU('31809F1F01059E01FF0000'O) == myValue) | |
35934 | ||
35935 | ||
35936 | ||
35937 | {setverdict(pass);} else {setverdict(fail);} | |
35938 | ||
35939 | ||
35940 | <RESULT> | |
35941 | ||
35942 | Overall verdict: pass | |
35943 | ||
35944 | <END_TC> | |
35945 | ||
35946 | :exmp. | |
35947 | ||
35948 | .*---------------------------------------------------------------------* | |
35949 | :h3. DECODING DER , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
35950 | .*---------------------------------------------------------------------* | |
35951 | :xmp tab=0. | |
35952 | ||
35953 | <TC - DECODING DER , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
35954 | ||
35955 | <STATIC:ASN> | |
35956 | ||
35957 | TempA | |
35958 | ||
35959 | DEFINITIONS | |
35960 | ||
35961 | EXPLICIT TAGS | |
35962 | ||
35963 | ||
35964 | ::= | |
35965 | ||
35966 | BEGIN | |
35967 | ||
35968 | ||
35969 | BERPDU ::= SET | |
35970 | { | |
35971 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
35972 | c [31] IMPLICIT INTEGER OPTIONAL | |
35973 | } | |
35974 | ||
35975 | ||
35976 | ||
35977 | END | |
35978 | ||
35979 | <STATIC> | |
35980 | ||
35981 | import from TempA all; | |
35982 | ||
35983 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
35984 | ||
35985 | ||
35986 | const BERPDU myValue := {b := true, | |
35987 | c := 5 } | |
35988 | ||
35989 | ||
35990 | <TTCN_TC:EXEC> | |
35991 | ||
35992 | if (dec_BER_PDU('31079E01FF9F1F0105'O) == myValue) | |
35993 | ||
35994 | ||
35995 | ||
35996 | {setverdict(pass);} else {setverdict(fail);} | |
35997 | ||
35998 | ||
35999 | <RESULT> | |
36000 | ||
36001 | Overall verdict: pass | |
36002 | ||
36003 | <END_TC> | |
36004 | ||
36005 | :exmp. | |
36006 | ||
36007 | .*---------------------------------------------------------------------* | |
36008 | :h3. DECODING CER , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
36009 | .*---------------------------------------------------------------------* | |
36010 | :xmp tab=0. | |
36011 | ||
36012 | <TC - DECODING CER , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
36013 | ||
36014 | <STATIC:ASN> | |
36015 | ||
36016 | TempA | |
36017 | ||
36018 | DEFINITIONS | |
36019 | ||
36020 | EXPLICIT TAGS | |
36021 | ||
36022 | ||
36023 | ::= | |
36024 | ||
36025 | BEGIN | |
36026 | ||
36027 | ||
36028 | BERPDU ::= SET | |
36029 | { | |
36030 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
36031 | c [31] IMPLICIT INTEGER OPTIONAL | |
36032 | } | |
36033 | ||
36034 | ||
36035 | ||
36036 | END | |
36037 | ||
36038 | <STATIC> | |
36039 | ||
36040 | import from TempA all; | |
36041 | ||
36042 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36043 | ||
36044 | ||
36045 | const BERPDU myValue := {b := true, | |
36046 | c := 5 } | |
36047 | ||
36048 | ||
36049 | <TTCN_TC:EXEC> | |
36050 | ||
36051 | if (dec_BER_PDU('31809E01FF9F1F01050000'O) == myValue) | |
36052 | ||
36053 | ||
36054 | ||
36055 | {setverdict(pass);} else {setverdict(fail);} | |
36056 | ||
36057 | ||
36058 | <RESULT> | |
36059 | ||
36060 | Overall verdict: pass | |
36061 | ||
36062 | <END_TC> | |
36063 | ||
36064 | :exmp. | |
36065 | ||
36066 | .*---------------------------------------------------------------------* | |
36067 | :h3. DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
36068 | .*---------------------------------------------------------------------* | |
36069 | :xmp tab=0. | |
36070 | ||
36071 | <TC - DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
36072 | ||
36073 | <STATIC:ASN> | |
36074 | ||
36075 | TempA | |
36076 | ||
36077 | DEFINITIONS | |
36078 | ||
36079 | EXPLICIT TAGS | |
36080 | ||
36081 | ||
36082 | ::= | |
36083 | ||
36084 | BEGIN | |
36085 | ||
36086 | ||
36087 | BERPDU ::= SET | |
36088 | { | |
36089 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
36090 | c [31] IMPLICIT INTEGER OPTIONAL | |
36091 | } | |
36092 | ||
36093 | ||
36094 | ||
36095 | END | |
36096 | ||
36097 | <STATIC> | |
36098 | ||
36099 | import from TempA all; | |
36100 | ||
36101 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36102 | ||
36103 | ||
36104 | const BERPDU myValue := {b := true, | |
36105 | c := 5 } | |
36106 | ||
36107 | ||
36108 | <TTCN_TC:EXEC> | |
36109 | ||
36110 | if (dec_BER_PDU('31079F1F01059E01FF'O) == myValue) | |
36111 | ||
36112 | ||
36113 | ||
36114 | {setverdict(pass);} else {setverdict(fail);} | |
36115 | ||
36116 | ||
36117 | <RESULT> | |
36118 | ||
36119 | Overall verdict: pass | |
36120 | ||
36121 | <END_TC> | |
36122 | ||
36123 | :exmp. | |
36124 | ||
36125 | .*---------------------------------------------------------------------* | |
36126 | :h3. DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT | |
36127 | .*---------------------------------------------------------------------* | |
36128 | :xmp tab=0. | |
36129 | ||
36130 | <TC - DECODING , reverse order , SET (both elements are used) IMPLICIT TAGS for elements, EXPLICIT TAGGING ENVIRONMENT> | |
36131 | ||
36132 | <STATIC:ASN> | |
36133 | ||
36134 | TempA | |
36135 | ||
36136 | DEFINITIONS | |
36137 | ||
36138 | EXPLICIT TAGS | |
36139 | ||
36140 | ||
36141 | ::= | |
36142 | ||
36143 | BEGIN | |
36144 | ||
36145 | ||
36146 | BERPDU ::= SET | |
36147 | { | |
36148 | b [30] IMPLICIT BOOLEAN OPTIONAL, | |
36149 | c [31] IMPLICIT INTEGER OPTIONAL | |
36150 | } | |
36151 | ||
36152 | ||
36153 | ||
36154 | END | |
36155 | ||
36156 | <STATIC> | |
36157 | ||
36158 | import from TempA all; | |
36159 | ||
36160 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36161 | ||
36162 | ||
36163 | const BERPDU myValue := {b := true, | |
36164 | c := 5 } | |
36165 | ||
36166 | ||
36167 | <TTCN_TC:EXEC> | |
36168 | ||
36169 | if (dec_BER_PDU('31809F1F01059E01FF0000'O) == myValue) | |
36170 | ||
36171 | ||
36172 | ||
36173 | {setverdict(pass);} else {setverdict(fail);} | |
36174 | ||
36175 | ||
36176 | <RESULT> | |
36177 | ||
36178 | Overall verdict: pass | |
36179 | ||
36180 | <END_TC> | |
36181 | ||
36182 | :exmp. | |
36183 | ||
36184 | .*---------------------------------------------------------------------* | |
36185 | :h3. DECODING DER, SET (both elements are used) EXPLICIT TAGS for elements | |
36186 | .*---------------------------------------------------------------------* | |
36187 | :xmp tab=0. | |
36188 | ||
36189 | <TC - DECODING DER, SET (both elements are used) EXPLICIT TAGS for elements> | |
36190 | ||
36191 | <STATIC:ASN> | |
36192 | ||
36193 | TempA | |
36194 | ||
36195 | DEFINITIONS | |
36196 | ||
36197 | ||
36198 | ||
36199 | ::= | |
36200 | ||
36201 | BEGIN | |
36202 | ||
36203 | ||
36204 | BERPDU ::= SET | |
36205 | { | |
36206 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36207 | c [31] EXPLICIT INTEGER OPTIONAL | |
36208 | } | |
36209 | ||
36210 | ||
36211 | ||
36212 | END | |
36213 | ||
36214 | <STATIC> | |
36215 | ||
36216 | import from TempA all; | |
36217 | ||
36218 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36219 | ||
36220 | ||
36221 | const BERPDU myValue := {b := true, | |
36222 | c := 5 } | |
36223 | ||
36224 | ||
36225 | <TTCN_TC:EXEC> | |
36226 | ||
36227 | if (dec_BER_PDU('310BBE030101FFBF1F03020105'O) == myValue) | |
36228 | ||
36229 | ||
36230 | ||
36231 | {setverdict(pass);} else {setverdict(fail);} | |
36232 | ||
36233 | ||
36234 | <RESULT> | |
36235 | ||
36236 | Overall verdict: pass | |
36237 | ||
36238 | <END_TC> | |
36239 | ||
36240 | :exmp. | |
36241 | ||
36242 | .*---------------------------------------------------------------------* | |
36243 | :h3. DECODING CER, SET (both elements are used) EXPLICIT TAGS for elements | |
36244 | .*---------------------------------------------------------------------* | |
36245 | :xmp tab=0. | |
36246 | ||
36247 | <TC - DECODING CER, SET (both elements are used) EXPLICIT TAGS for elements> | |
36248 | ||
36249 | <STATIC:ASN> | |
36250 | ||
36251 | TempA | |
36252 | ||
36253 | DEFINITIONS | |
36254 | ||
36255 | ||
36256 | ||
36257 | ::= | |
36258 | ||
36259 | BEGIN | |
36260 | ||
36261 | ||
36262 | BERPDU ::= SET | |
36263 | { | |
36264 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36265 | c [31] EXPLICIT INTEGER OPTIONAL | |
36266 | } | |
36267 | ||
36268 | ||
36269 | ||
36270 | END | |
36271 | ||
36272 | <STATIC> | |
36273 | ||
36274 | import from TempA all; | |
36275 | ||
36276 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36277 | ||
36278 | ||
36279 | const BERPDU myValue := {b := true, | |
36280 | c := 5 } | |
36281 | ||
36282 | ||
36283 | <TTCN_TC:EXEC> | |
36284 | ||
36285 | if (dec_BER_PDU('3180BE800101FF0000BF1F8002010500000000'O) == myValue) | |
36286 | ||
36287 | ||
36288 | ||
36289 | {setverdict(pass);} else {setverdict(fail);} | |
36290 | ||
36291 | ||
36292 | <RESULT> | |
36293 | ||
36294 | Overall verdict: pass | |
36295 | ||
36296 | <END_TC> | |
36297 | ||
36298 | :exmp. | |
36299 | ||
36300 | .*---------------------------------------------------------------------* | |
36301 | :h3. DECODING , reverse order, SET (both elements are used) EXPLICIT TAGS for elements | |
36302 | .*---------------------------------------------------------------------* | |
36303 | :xmp tab=0. | |
36304 | ||
36305 | <TC - DECODING , reverse order, SET (both elements are used) EXPLICIT TAGS for elements> | |
36306 | ||
36307 | <STATIC:ASN> | |
36308 | ||
36309 | TempA | |
36310 | ||
36311 | DEFINITIONS | |
36312 | ||
36313 | ||
36314 | ||
36315 | ::= | |
36316 | ||
36317 | BEGIN | |
36318 | ||
36319 | ||
36320 | BERPDU ::= SET | |
36321 | { | |
36322 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36323 | c [31] EXPLICIT INTEGER OPTIONAL | |
36324 | } | |
36325 | ||
36326 | ||
36327 | ||
36328 | END | |
36329 | ||
36330 | <STATIC> | |
36331 | ||
36332 | import from TempA all; | |
36333 | ||
36334 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36335 | ||
36336 | ||
36337 | const BERPDU myValue := {b := true, | |
36338 | c := 5 } | |
36339 | ||
36340 | ||
36341 | <TTCN_TC:EXEC> | |
36342 | ||
36343 | if (dec_BER_PDU('310BBF1F03020105BE030101FF'O) == myValue) | |
36344 | ||
36345 | ||
36346 | ||
36347 | {setverdict(pass);} else {setverdict(fail);} | |
36348 | ||
36349 | ||
36350 | <RESULT> | |
36351 | ||
36352 | Overall verdict: pass | |
36353 | ||
36354 | <END_TC> | |
36355 | ||
36356 | :exmp. | |
36357 | ||
36358 | .*---------------------------------------------------------------------* | |
36359 | :h3. DECODING , reverse order, SET (both elements are used) EXPLICIT TAGS for elements | |
36360 | .*---------------------------------------------------------------------* | |
36361 | :xmp tab=0. | |
36362 | ||
36363 | <TC - DECODING , reverse order, SET (both elements are used) EXPLICIT TAGS for elements> | |
36364 | ||
36365 | <STATIC:ASN> | |
36366 | ||
36367 | TempA | |
36368 | ||
36369 | DEFINITIONS | |
36370 | ||
36371 | ||
36372 | ||
36373 | ::= | |
36374 | ||
36375 | BEGIN | |
36376 | ||
36377 | ||
36378 | BERPDU ::= SET | |
36379 | { | |
36380 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36381 | c [31] EXPLICIT INTEGER OPTIONAL | |
36382 | } | |
36383 | ||
36384 | ||
36385 | ||
36386 | END | |
36387 | ||
36388 | <STATIC> | |
36389 | ||
36390 | import from TempA all; | |
36391 | ||
36392 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36393 | ||
36394 | ||
36395 | const BERPDU myValue := {b := true, | |
36396 | c := 5 } | |
36397 | ||
36398 | ||
36399 | <TTCN_TC:EXEC> | |
36400 | ||
36401 | if (dec_BER_PDU('3180BF1F800201050000BE800101FF00000000'O) == myValue) | |
36402 | ||
36403 | ||
36404 | ||
36405 | {setverdict(pass);} else {setverdict(fail);} | |
36406 | ||
36407 | ||
36408 | <RESULT> | |
36409 | ||
36410 | Overall verdict: pass | |
36411 | ||
36412 | <END_TC> | |
36413 | ||
36414 | :exmp. | |
36415 | ||
36416 | .*---------------------------------------------------------------------* | |
36417 | :h3. DECODING DER , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
36418 | .*---------------------------------------------------------------------* | |
36419 | :xmp tab=0. | |
36420 | ||
36421 | <TC - DECODING DER , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
36422 | ||
36423 | <STATIC:ASN> | |
36424 | ||
36425 | TempA | |
36426 | ||
36427 | DEFINITIONS | |
36428 | ||
36429 | IMPLICIT TAGS | |
36430 | ||
36431 | ||
36432 | ::= | |
36433 | ||
36434 | BEGIN | |
36435 | ||
36436 | ||
36437 | BERPDU ::= SET | |
36438 | { | |
36439 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36440 | c [31] EXPLICIT INTEGER OPTIONAL | |
36441 | } | |
36442 | ||
36443 | ||
36444 | END | |
36445 | ||
36446 | <STATIC> | |
36447 | ||
36448 | import from TempA all; | |
36449 | ||
36450 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36451 | ||
36452 | ||
36453 | const BERPDU myValue := {b := true, | |
36454 | c := 5 } | |
36455 | ||
36456 | ||
36457 | ||
36458 | <TTCN_TC:EXEC> | |
36459 | ||
36460 | if (dec_BER_PDU('310BBE030101FFBF1F03020105'O) == myValue) | |
36461 | ||
36462 | ||
36463 | ||
36464 | {setverdict(pass);} else {setverdict(fail);} | |
36465 | ||
36466 | ||
36467 | <RESULT> | |
36468 | ||
36469 | Overall verdict: pass | |
36470 | ||
36471 | <END_TC> | |
36472 | ||
36473 | :exmp. | |
36474 | ||
36475 | .*---------------------------------------------------------------------* | |
36476 | :h3. DECODING CER , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
36477 | .*---------------------------------------------------------------------* | |
36478 | :xmp tab=0. | |
36479 | ||
36480 | <TC - DECODING CER , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
36481 | ||
36482 | <STATIC:ASN> | |
36483 | ||
36484 | TempA | |
36485 | ||
36486 | DEFINITIONS | |
36487 | ||
36488 | IMPLICIT TAGS | |
36489 | ||
36490 | ||
36491 | ::= | |
36492 | ||
36493 | BEGIN | |
36494 | ||
36495 | ||
36496 | BERPDU ::= SET | |
36497 | { | |
36498 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36499 | c [31] EXPLICIT INTEGER OPTIONAL | |
36500 | } | |
36501 | ||
36502 | ||
36503 | END | |
36504 | ||
36505 | <STATIC> | |
36506 | ||
36507 | import from TempA all; | |
36508 | ||
36509 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36510 | ||
36511 | ||
36512 | const BERPDU myValue := {b := true, | |
36513 | c := 5 } | |
36514 | ||
36515 | ||
36516 | ||
36517 | <TTCN_TC:EXEC> | |
36518 | ||
36519 | if (dec_BER_PDU('3180BE800101FF0000BF1F8002010500000000'O) == myValue) | |
36520 | ||
36521 | ||
36522 | ||
36523 | {setverdict(pass);} else {setverdict(fail);} | |
36524 | ||
36525 | ||
36526 | <RESULT> | |
36527 | ||
36528 | Overall verdict: pass | |
36529 | ||
36530 | <END_TC> | |
36531 | ||
36532 | :exmp. | |
36533 | ||
36534 | .*---------------------------------------------------------------------* | |
36535 | :h3. DECODING , reverse order , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
36536 | .*---------------------------------------------------------------------* | |
36537 | :xmp tab=0. | |
36538 | ||
36539 | <TC - DECODING , reverse order , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
36540 | ||
36541 | <STATIC:ASN> | |
36542 | ||
36543 | TempA | |
36544 | ||
36545 | DEFINITIONS | |
36546 | ||
36547 | IMPLICIT TAGS | |
36548 | ||
36549 | ||
36550 | ::= | |
36551 | ||
36552 | BEGIN | |
36553 | ||
36554 | ||
36555 | BERPDU ::= SET | |
36556 | { | |
36557 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36558 | c [31] EXPLICIT INTEGER OPTIONAL | |
36559 | } | |
36560 | ||
36561 | ||
36562 | END | |
36563 | ||
36564 | <STATIC> | |
36565 | ||
36566 | import from TempA all; | |
36567 | ||
36568 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36569 | ||
36570 | ||
36571 | const BERPDU myValue := {b := true, | |
36572 | c := 5 } | |
36573 | ||
36574 | ||
36575 | ||
36576 | <TTCN_TC:EXEC> | |
36577 | ||
36578 | if (dec_BER_PDU('310BBF1F03020105BE030101FF'O) == myValue) | |
36579 | ||
36580 | ||
36581 | ||
36582 | {setverdict(pass);} else {setverdict(fail);} | |
36583 | ||
36584 | ||
36585 | <RESULT> | |
36586 | ||
36587 | Overall verdict: pass | |
36588 | ||
36589 | <END_TC> | |
36590 | ||
36591 | :exmp. | |
36592 | ||
36593 | .*---------------------------------------------------------------------* | |
36594 | :h3. DECODING , reverse order , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT | |
36595 | .*---------------------------------------------------------------------* | |
36596 | :xmp tab=0. | |
36597 | ||
36598 | <TC - DECODING , reverse order , SET (both elements are used) EXPLICIT TAGS for elements, IMPLICIT TAGGING ENVIRONMENT> | |
36599 | ||
36600 | <STATIC:ASN> | |
36601 | ||
36602 | TempA | |
36603 | ||
36604 | DEFINITIONS | |
36605 | ||
36606 | IMPLICIT TAGS | |
36607 | ||
36608 | ||
36609 | ::= | |
36610 | ||
36611 | BEGIN | |
36612 | ||
36613 | ||
36614 | BERPDU ::= SET | |
36615 | { | |
36616 | b [30] EXPLICIT BOOLEAN OPTIONAL, | |
36617 | c [31] EXPLICIT INTEGER OPTIONAL | |
36618 | } | |
36619 | ||
36620 | ||
36621 | END | |
36622 | ||
36623 | <STATIC> | |
36624 | ||
36625 | import from TempA all; | |
36626 | ||
36627 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36628 | ||
36629 | ||
36630 | const BERPDU myValue := {b := true, | |
36631 | c := 5 } | |
36632 | ||
36633 | ||
36634 | ||
36635 | <TTCN_TC:EXEC> | |
36636 | ||
36637 | if (dec_BER_PDU('3180BF1F800201050000BE800101FF00000000'O) == myValue) | |
36638 | ||
36639 | ||
36640 | ||
36641 | {setverdict(pass);} else {setverdict(fail);} | |
36642 | ||
36643 | ||
36644 | <RESULT> | |
36645 | ||
36646 | Overall verdict: pass | |
36647 | ||
36648 | <END_TC> | |
36649 | ||
36650 | :exmp. | |
36651 | ||
36652 | .*---------------------------------------------------------------------* | |
36653 | :h3. DECODING , DER , TAGGED SET (both elements are used) | |
36654 | .*---------------------------------------------------------------------* | |
36655 | :xmp tab=0. | |
36656 | ||
36657 | <TC - DECODING , DER , TAGGED SET (both elements are used)> | |
36658 | ||
36659 | <STATIC:ASN> | |
36660 | ||
36661 | TempA | |
36662 | ||
36663 | DEFINITIONS | |
36664 | ||
36665 | ||
36666 | ||
36667 | ::= | |
36668 | ||
36669 | BEGIN | |
36670 | ||
36671 | ||
36672 | BERPDU ::= [0] SET | |
36673 | { | |
36674 | b BOOLEAN OPTIONAL, | |
36675 | c INTEGER OPTIONAL | |
36676 | } | |
36677 | ||
36678 | ||
36679 | END | |
36680 | ||
36681 | <STATIC> | |
36682 | ||
36683 | import from TempA all; | |
36684 | ||
36685 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36686 | ||
36687 | ||
36688 | const BERPDU myValue := {b := true, | |
36689 | c := 5 } | |
36690 | ||
36691 | ||
36692 | ||
36693 | <TTCN_TC:EXEC> | |
36694 | ||
36695 | if (dec_BER_PDU('A00831060101FF020105'O) == myValue) | |
36696 | ||
36697 | ||
36698 | ||
36699 | {setverdict(pass);} else {setverdict(fail);} | |
36700 | ||
36701 | ||
36702 | <RESULT> | |
36703 | ||
36704 | Overall verdict: pass | |
36705 | ||
36706 | <END_TC> | |
36707 | ||
36708 | :exmp. | |
36709 | ||
36710 | .*---------------------------------------------------------------------* | |
36711 | :h3. DECODING , CER , TAGGED SET (both elements are used) | |
36712 | .*---------------------------------------------------------------------* | |
36713 | :xmp tab=0. | |
36714 | ||
36715 | <TC - DECODING , CER , TAGGED SET (both elements are used)> | |
36716 | ||
36717 | <STATIC:ASN> | |
36718 | ||
36719 | TempA | |
36720 | ||
36721 | DEFINITIONS | |
36722 | ||
36723 | ||
36724 | ||
36725 | ::= | |
36726 | ||
36727 | BEGIN | |
36728 | ||
36729 | ||
36730 | BERPDU ::= [0] SET | |
36731 | { | |
36732 | b BOOLEAN OPTIONAL, | |
36733 | c INTEGER OPTIONAL | |
36734 | } | |
36735 | ||
36736 | ||
36737 | END | |
36738 | ||
36739 | <STATIC> | |
36740 | ||
36741 | import from TempA all; | |
36742 | ||
36743 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36744 | ||
36745 | ||
36746 | const BERPDU myValue := {b := true, | |
36747 | c := 5 } | |
36748 | ||
36749 | ||
36750 | ||
36751 | <TTCN_TC:EXEC> | |
36752 | ||
36753 | if (dec_BER_PDU('A08031800101FF02010500000000'O) == myValue) | |
36754 | ||
36755 | ||
36756 | ||
36757 | {setverdict(pass);} else {setverdict(fail);} | |
36758 | ||
36759 | ||
36760 | <RESULT> | |
36761 | ||
36762 | Overall verdict: pass | |
36763 | ||
36764 | <END_TC> | |
36765 | ||
36766 | :exmp. | |
36767 | ||
36768 | .*---------------------------------------------------------------------* | |
36769 | :h3. DECODING , reverse order , TAGGED SET (both elements are used) | |
36770 | .*---------------------------------------------------------------------* | |
36771 | :xmp tab=0. | |
36772 | ||
36773 | <TC - DECODING , reverse order , TAGGED SET (both elements are used)> | |
36774 | ||
36775 | <STATIC:ASN> | |
36776 | ||
36777 | TempA | |
36778 | ||
36779 | DEFINITIONS | |
36780 | ||
36781 | ||
36782 | ||
36783 | ::= | |
36784 | ||
36785 | BEGIN | |
36786 | ||
36787 | ||
36788 | BERPDU ::= [0] SET | |
36789 | { | |
36790 | b BOOLEAN OPTIONAL, | |
36791 | c INTEGER OPTIONAL | |
36792 | } | |
36793 | ||
36794 | ||
36795 | END | |
36796 | ||
36797 | <STATIC> | |
36798 | ||
36799 | import from TempA all; | |
36800 | ||
36801 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36802 | ||
36803 | ||
36804 | const BERPDU myValue := {b := true, | |
36805 | c := 5 } | |
36806 | ||
36807 | ||
36808 | ||
36809 | <TTCN_TC:EXEC> | |
36810 | ||
36811 | if (dec_BER_PDU('A00831060201050101FF'O) == myValue) | |
36812 | ||
36813 | ||
36814 | ||
36815 | {setverdict(pass);} else {setverdict(fail);} | |
36816 | ||
36817 | ||
36818 | <RESULT> | |
36819 | ||
36820 | Overall verdict: pass | |
36821 | ||
36822 | <END_TC> | |
36823 | ||
36824 | :exmp. | |
36825 | ||
36826 | .*---------------------------------------------------------------------* | |
36827 | :h3. DECODING ,reverse order , TAGGED SET (both elements are used) | |
36828 | .*---------------------------------------------------------------------* | |
36829 | :xmp tab=0. | |
36830 | ||
36831 | <TC - DECODING ,reverse order , TAGGED SET (both elements are used)> | |
36832 | ||
36833 | <STATIC:ASN> | |
36834 | ||
36835 | TempA | |
36836 | ||
36837 | DEFINITIONS | |
36838 | ||
36839 | ||
36840 | ||
36841 | ::= | |
36842 | ||
36843 | BEGIN | |
36844 | ||
36845 | ||
36846 | BERPDU ::= [0] SET | |
36847 | { | |
36848 | b BOOLEAN OPTIONAL, | |
36849 | c INTEGER OPTIONAL | |
36850 | } | |
36851 | ||
36852 | ||
36853 | END | |
36854 | ||
36855 | <STATIC> | |
36856 | ||
36857 | import from TempA all; | |
36858 | ||
36859 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36860 | ||
36861 | ||
36862 | const BERPDU myValue := {b := true, | |
36863 | c := 5 } | |
36864 | ||
36865 | ||
36866 | ||
36867 | <TTCN_TC:EXEC> | |
36868 | ||
36869 | if (dec_BER_PDU('A08031800201050101FF00000000'O) == myValue) | |
36870 | ||
36871 | ||
36872 | ||
36873 | {setverdict(pass);} else {setverdict(fail);} | |
36874 | ||
36875 | ||
36876 | <RESULT> | |
36877 | ||
36878 | Overall verdict: pass | |
36879 | ||
36880 | <END_TC> | |
36881 | ||
36882 | :exmp. | |
36883 | ||
36884 | .*---------------------------------------------------------------------* | |
36885 | :h3. DECODING DER , TAGGED SEQUENCE (both elements are used) | |
36886 | .*---------------------------------------------------------------------* | |
36887 | :xmp tab=0. | |
36888 | ||
36889 | <TC - DECODING DER , TAGGED SEQUENCE (both elements are used)> | |
36890 | ||
36891 | <STATIC:ASN> | |
36892 | ||
36893 | TempA | |
36894 | ||
36895 | DEFINITIONS | |
36896 | ||
36897 | ||
36898 | ||
36899 | ::= | |
36900 | ||
36901 | BEGIN | |
36902 | ||
36903 | ||
36904 | BERPDU ::= [0] SEQUENCE | |
36905 | { | |
36906 | b BOOLEAN OPTIONAL, | |
36907 | c INTEGER OPTIONAL | |
36908 | } | |
36909 | ||
36910 | END | |
36911 | ||
36912 | <STATIC> | |
36913 | ||
36914 | import from TempA all; | |
36915 | ||
36916 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36917 | ||
36918 | ||
36919 | const BERPDU myValue := {b := true, | |
36920 | c := 5 } | |
36921 | ||
36922 | ||
36923 | ||
36924 | <TTCN_TC:EXEC> | |
36925 | ||
36926 | if (dec_BER_PDU('A00831060101FF020105'O) == myValue) | |
36927 | ||
36928 | ||
36929 | ||
36930 | {setverdict(pass);} else {setverdict(fail);} | |
36931 | ||
36932 | ||
36933 | <RESULT> | |
36934 | ||
36935 | Overall verdict: pass | |
36936 | ||
36937 | <END_TC> | |
36938 | ||
36939 | :exmp. | |
36940 | ||
36941 | .*---------------------------------------------------------------------* | |
36942 | :h3. DECODING CER , TAGGED SET (both elements are used) | |
36943 | .*---------------------------------------------------------------------* | |
36944 | :xmp tab=0. | |
36945 | ||
36946 | <TC - DECODING CER , TAGGED SET (both elements are used)> | |
36947 | ||
36948 | <STATIC:ASN> | |
36949 | ||
36950 | TempA | |
36951 | ||
36952 | DEFINITIONS | |
36953 | ||
36954 | ||
36955 | ||
36956 | ::= | |
36957 | ||
36958 | BEGIN | |
36959 | ||
36960 | ||
36961 | BERPDU ::= [0] SET | |
36962 | { | |
36963 | b BOOLEAN OPTIONAL, | |
36964 | c INTEGER OPTIONAL | |
36965 | } | |
36966 | ||
36967 | END | |
36968 | ||
36969 | <STATIC> | |
36970 | ||
36971 | import from TempA all; | |
36972 | ||
36973 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
36974 | ||
36975 | ||
36976 | const BERPDU myValue := {b := true, | |
36977 | c := 5 } | |
36978 | ||
36979 | ||
36980 | ||
36981 | <TTCN_TC:EXEC> | |
36982 | ||
36983 | if (dec_BER_PDU('A08031800101FF02010500000000'O) == myValue) | |
36984 | ||
36985 | ||
36986 | ||
36987 | {setverdict(pass);} else {setverdict(fail);} | |
36988 | ||
36989 | ||
36990 | <RESULT> | |
36991 | ||
36992 | Overall verdict: pass | |
36993 | ||
36994 | <END_TC> | |
36995 | ||
36996 | :exmp. | |
36997 | ||
36998 | .*---------------------------------------------------------------------* | |
36999 | :h3. DECODING , reverse order , TAGGED SEQUENCE (both elements are used) | |
37000 | .*---------------------------------------------------------------------* | |
37001 | :xmp tab=0. | |
37002 | ||
37003 | <TC - DECODING , reverse order , TAGGED SEQUENCE (both elements are used)> | |
37004 | ||
37005 | <STATIC:ASN> | |
37006 | ||
37007 | TempA | |
37008 | ||
37009 | DEFINITIONS | |
37010 | ||
37011 | ||
37012 | ||
37013 | ::= | |
37014 | ||
37015 | BEGIN | |
37016 | ||
37017 | ||
37018 | BERPDU ::= [0] SEQUENCE | |
37019 | { | |
37020 | b BOOLEAN OPTIONAL, | |
37021 | c INTEGER OPTIONAL | |
37022 | } | |
37023 | ||
37024 | END | |
37025 | ||
37026 | <STATIC> | |
37027 | ||
37028 | import from TempA all; | |
37029 | ||
37030 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37031 | ||
37032 | ||
37033 | const BERPDU myValue := {b := true, | |
37034 | c := 5 } | |
37035 | ||
37036 | ||
37037 | ||
37038 | <TTCN_TC:EXEC> | |
37039 | ||
37040 | if (dec_BER_PDU('A00831060101FF020105'O) == myValue) | |
37041 | ||
37042 | ||
37043 | ||
37044 | {setverdict(pass);} else {setverdict(fail);} | |
37045 | ||
37046 | ||
37047 | <RESULT> | |
37048 | ||
37049 | Overall verdict: pass | |
37050 | ||
37051 | <END_TC> | |
37052 | ||
37053 | :exmp. | |
37054 | ||
37055 | .*---------------------------------------------------------------------* | |
37056 | :h3. DECODING , reverse order , TAGGED SET (both elements are used) | |
37057 | .*---------------------------------------------------------------------* | |
37058 | :xmp tab=0. | |
37059 | ||
37060 | <TC - DECODING , reverse order , TAGGED SET (both elements are used)> | |
37061 | ||
37062 | <STATIC:ASN> | |
37063 | ||
37064 | TempA | |
37065 | ||
37066 | DEFINITIONS | |
37067 | ||
37068 | ||
37069 | ||
37070 | ::= | |
37071 | ||
37072 | BEGIN | |
37073 | ||
37074 | ||
37075 | BERPDU ::= [0] SET | |
37076 | { | |
37077 | b BOOLEAN OPTIONAL, | |
37078 | c INTEGER OPTIONAL | |
37079 | } | |
37080 | ||
37081 | END | |
37082 | ||
37083 | <STATIC> | |
37084 | ||
37085 | import from TempA all; | |
37086 | ||
37087 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37088 | ||
37089 | ||
37090 | const BERPDU myValue := {b := true, | |
37091 | c := 5 } | |
37092 | ||
37093 | ||
37094 | ||
37095 | <TTCN_TC:EXEC> | |
37096 | ||
37097 | if (dec_BER_PDU('A08031800201050101FF00000000'O) == myValue) | |
37098 | ||
37099 | ||
37100 | ||
37101 | {setverdict(pass);} else {setverdict(fail);} | |
37102 | ||
37103 | ||
37104 | <RESULT> | |
37105 | ||
37106 | Overall verdict: pass | |
37107 | ||
37108 | <END_TC> | |
37109 | ||
37110 | :exmp. | |
37111 | ||
37112 | .*---------------------------------------------------------------------* | |
37113 | :h3. DECODING DER , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
37114 | .*---------------------------------------------------------------------* | |
37115 | :xmp tab=0. | |
37116 | ||
37117 | <TC - DECODING DER , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
37118 | ||
37119 | <STATIC:ASN> | |
37120 | ||
37121 | TempA | |
37122 | ||
37123 | DEFINITIONS | |
37124 | ||
37125 | IMPLICIT TAGS | |
37126 | ||
37127 | ||
37128 | ::= | |
37129 | ||
37130 | BEGIN | |
37131 | ||
37132 | ||
37133 | BERPDU ::= [0] SET | |
37134 | { | |
37135 | b BOOLEAN OPTIONAL, | |
37136 | c INTEGER OPTIONAL | |
37137 | } | |
37138 | ||
37139 | ||
37140 | END | |
37141 | ||
37142 | <STATIC> | |
37143 | ||
37144 | import from TempA all; | |
37145 | ||
37146 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37147 | ||
37148 | ||
37149 | const BERPDU myValue := {b := true, | |
37150 | c := 5 } | |
37151 | ||
37152 | ||
37153 | <TTCN_TC:EXEC> | |
37154 | ||
37155 | if (dec_BER_PDU('A0060101FF020105'O) == myValue) | |
37156 | ||
37157 | ||
37158 | ||
37159 | {setverdict(pass);} else {setverdict(fail);} | |
37160 | ||
37161 | ||
37162 | <RESULT> | |
37163 | ||
37164 | Overall verdict: pass | |
37165 | ||
37166 | <END_TC> | |
37167 | ||
37168 | :exmp. | |
37169 | ||
37170 | .*---------------------------------------------------------------------* | |
37171 | :h3. DECODING CER , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
37172 | .*---------------------------------------------------------------------* | |
37173 | :xmp tab=0. | |
37174 | ||
37175 | <TC - DECODING CER , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
37176 | ||
37177 | <STATIC:ASN> | |
37178 | ||
37179 | TempA | |
37180 | ||
37181 | DEFINITIONS | |
37182 | ||
37183 | IMPLICIT TAGS | |
37184 | ||
37185 | ||
37186 | ::= | |
37187 | ||
37188 | BEGIN | |
37189 | ||
37190 | ||
37191 | BERPDU ::= [0] SET | |
37192 | { | |
37193 | b BOOLEAN OPTIONAL, | |
37194 | c INTEGER OPTIONAL | |
37195 | } | |
37196 | ||
37197 | ||
37198 | END | |
37199 | ||
37200 | <STATIC> | |
37201 | ||
37202 | import from TempA all; | |
37203 | ||
37204 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37205 | ||
37206 | ||
37207 | const BERPDU myValue := {b := true, | |
37208 | c := 5 } | |
37209 | ||
37210 | ||
37211 | <TTCN_TC:EXEC> | |
37212 | ||
37213 | if (dec_BER_PDU('A0800101FF0201050000'O) == myValue) | |
37214 | ||
37215 | ||
37216 | ||
37217 | {setverdict(pass);} else {setverdict(fail);} | |
37218 | ||
37219 | ||
37220 | <RESULT> | |
37221 | ||
37222 | Overall verdict: pass | |
37223 | ||
37224 | <END_TC> | |
37225 | ||
37226 | :exmp. | |
37227 | ||
37228 | .*---------------------------------------------------------------------* | |
37229 | :h3. DECODING , reverse order , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
37230 | .*---------------------------------------------------------------------* | |
37231 | :xmp tab=0. | |
37232 | ||
37233 | <TC - DECODING , reverse order , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
37234 | ||
37235 | <STATIC:ASN> | |
37236 | ||
37237 | TempA | |
37238 | ||
37239 | DEFINITIONS | |
37240 | ||
37241 | IMPLICIT TAGS | |
37242 | ||
37243 | ||
37244 | ::= | |
37245 | ||
37246 | BEGIN | |
37247 | ||
37248 | ||
37249 | BERPDU ::= [0] SET | |
37250 | { | |
37251 | b BOOLEAN OPTIONAL, | |
37252 | c INTEGER OPTIONAL | |
37253 | } | |
37254 | ||
37255 | ||
37256 | END | |
37257 | ||
37258 | <STATIC> | |
37259 | ||
37260 | import from TempA all; | |
37261 | ||
37262 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37263 | ||
37264 | ||
37265 | const BERPDU myValue := {b := true, | |
37266 | c := 5 } | |
37267 | ||
37268 | ||
37269 | <TTCN_TC:EXEC> | |
37270 | ||
37271 | if (dec_BER_PDU('A0060201050101FF'O) == myValue) | |
37272 | ||
37273 | ||
37274 | ||
37275 | {setverdict(pass);} else {setverdict(fail);} | |
37276 | ||
37277 | ||
37278 | <RESULT> | |
37279 | ||
37280 | Overall verdict: pass | |
37281 | ||
37282 | <END_TC> | |
37283 | ||
37284 | :exmp. | |
37285 | ||
37286 | .*---------------------------------------------------------------------* | |
37287 | :h3. DECODING, reverse order , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT | |
37288 | .*---------------------------------------------------------------------* | |
37289 | :xmp tab=0. | |
37290 | ||
37291 | <TC - DECODING, reverse order , TAGGED SET (both elements are used), IMPLICIT TAGGING ENVIRONMENT> | |
37292 | ||
37293 | <STATIC:ASN> | |
37294 | ||
37295 | TempA | |
37296 | ||
37297 | DEFINITIONS | |
37298 | ||
37299 | IMPLICIT TAGS | |
37300 | ||
37301 | ||
37302 | ::= | |
37303 | ||
37304 | BEGIN | |
37305 | ||
37306 | ||
37307 | BERPDU ::= [0] SET | |
37308 | { | |
37309 | b BOOLEAN OPTIONAL, | |
37310 | c INTEGER OPTIONAL | |
37311 | } | |
37312 | ||
37313 | ||
37314 | END | |
37315 | ||
37316 | <STATIC> | |
37317 | ||
37318 | import from TempA all; | |
37319 | ||
37320 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37321 | ||
37322 | ||
37323 | const BERPDU myValue := {b := true, | |
37324 | c := 5 } | |
37325 | ||
37326 | ||
37327 | <TTCN_TC:EXEC> | |
37328 | ||
37329 | if (dec_BER_PDU('A0800201050101FF0000'O) == myValue) | |
37330 | ||
37331 | ||
37332 | ||
37333 | {setverdict(pass);} else {setverdict(fail);} | |
37334 | ||
37335 | ||
37336 | <RESULT> | |
37337 | ||
37338 | Overall verdict: pass | |
37339 | ||
37340 | <END_TC> | |
37341 | ||
37342 | :exmp. | |
37343 | ||
37344 | .*---------------------------------------------------------------------* | |
37345 | :h3. DECODING DER , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
37346 | .*---------------------------------------------------------------------* | |
37347 | :xmp tab=0. | |
37348 | ||
37349 | <TC - DECODING DER , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
37350 | ||
37351 | <STATIC:ASN> | |
37352 | ||
37353 | TempA | |
37354 | ||
37355 | DEFINITIONS | |
37356 | ||
37357 | EXPLICIT TAGS | |
37358 | ||
37359 | ||
37360 | ::= | |
37361 | ||
37362 | BEGIN | |
37363 | ||
37364 | ||
37365 | BERPDU ::= [0] SET | |
37366 | { | |
37367 | b BOOLEAN OPTIONAL, | |
37368 | c INTEGER OPTIONAL | |
37369 | } | |
37370 | ||
37371 | ||
37372 | END | |
37373 | ||
37374 | <STATIC> | |
37375 | ||
37376 | import from TempA all; | |
37377 | ||
37378 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37379 | ||
37380 | ||
37381 | const BERPDU myValue := {b := true, | |
37382 | c := 5 } | |
37383 | ||
37384 | ||
37385 | ||
37386 | <TTCN_TC:EXEC> | |
37387 | ||
37388 | if (dec_BER_PDU('A00831060101FF020105'O) == myValue) | |
37389 | ||
37390 | ||
37391 | ||
37392 | {setverdict(pass);} else {setverdict(fail);} | |
37393 | ||
37394 | ||
37395 | <RESULT> | |
37396 | ||
37397 | Overall verdict: pass | |
37398 | ||
37399 | <END_TC> | |
37400 | ||
37401 | :exmp. | |
37402 | ||
37403 | .*---------------------------------------------------------------------* | |
37404 | :h3. DECODING CER , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
37405 | .*---------------------------------------------------------------------* | |
37406 | :xmp tab=0. | |
37407 | ||
37408 | <TC - DECODING CER , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
37409 | ||
37410 | <STATIC:ASN> | |
37411 | ||
37412 | TempA | |
37413 | ||
37414 | DEFINITIONS | |
37415 | ||
37416 | EXPLICIT TAGS | |
37417 | ||
37418 | ||
37419 | ::= | |
37420 | ||
37421 | BEGIN | |
37422 | ||
37423 | ||
37424 | BERPDU ::= [0] SET | |
37425 | { | |
37426 | b BOOLEAN OPTIONAL, | |
37427 | c INTEGER OPTIONAL | |
37428 | } | |
37429 | ||
37430 | ||
37431 | END | |
37432 | ||
37433 | <STATIC> | |
37434 | ||
37435 | import from TempA all; | |
37436 | ||
37437 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37438 | ||
37439 | ||
37440 | const BERPDU myValue := {b := true, | |
37441 | c := 5 } | |
37442 | ||
37443 | ||
37444 | ||
37445 | <TTCN_TC:EXEC> | |
37446 | ||
37447 | if (dec_BER_PDU('A08031800101FF02010500000000'O) == myValue) | |
37448 | ||
37449 | ||
37450 | ||
37451 | {setverdict(pass);} else {setverdict(fail);} | |
37452 | ||
37453 | ||
37454 | <RESULT> | |
37455 | ||
37456 | Overall verdict: pass | |
37457 | ||
37458 | <END_TC> | |
37459 | ||
37460 | :exmp. | |
37461 | ||
37462 | .*---------------------------------------------------------------------* | |
37463 | :h3. DECODING, reverse order , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
37464 | .*---------------------------------------------------------------------* | |
37465 | :xmp tab=0. | |
37466 | ||
37467 | <TC - DECODING, reverse order , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
37468 | ||
37469 | <STATIC:ASN> | |
37470 | ||
37471 | TempA | |
37472 | ||
37473 | DEFINITIONS | |
37474 | ||
37475 | EXPLICIT TAGS | |
37476 | ||
37477 | ||
37478 | ::= | |
37479 | ||
37480 | BEGIN | |
37481 | ||
37482 | ||
37483 | BERPDU ::= [0] SET | |
37484 | { | |
37485 | b BOOLEAN OPTIONAL, | |
37486 | c INTEGER OPTIONAL | |
37487 | } | |
37488 | ||
37489 | ||
37490 | END | |
37491 | ||
37492 | <STATIC> | |
37493 | ||
37494 | import from TempA all; | |
37495 | ||
37496 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37497 | ||
37498 | ||
37499 | const BERPDU myValue := {b := true, | |
37500 | c := 5 } | |
37501 | ||
37502 | ||
37503 | ||
37504 | <TTCN_TC:EXEC> | |
37505 | ||
37506 | if (dec_BER_PDU('A00831060201050101FF'O) == myValue) | |
37507 | ||
37508 | ||
37509 | ||
37510 | {setverdict(pass);} else {setverdict(fail);} | |
37511 | ||
37512 | ||
37513 | <RESULT> | |
37514 | ||
37515 | Overall verdict: pass | |
37516 | ||
37517 | <END_TC> | |
37518 | ||
37519 | :exmp. | |
37520 | ||
37521 | .*---------------------------------------------------------------------* | |
37522 | :h3. DECODING, reverse order , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT | |
37523 | .*---------------------------------------------------------------------* | |
37524 | :xmp tab=0. | |
37525 | ||
37526 | <TC - DECODING, reverse order , TAGGED SET (both elements are used), EXPLICIT TAGGING ENVIRONMENT> | |
37527 | ||
37528 | <STATIC:ASN> | |
37529 | ||
37530 | TempA | |
37531 | ||
37532 | DEFINITIONS | |
37533 | ||
37534 | EXPLICIT TAGS | |
37535 | ||
37536 | ||
37537 | ::= | |
37538 | ||
37539 | BEGIN | |
37540 | ||
37541 | ||
37542 | BERPDU ::= [0] SET | |
37543 | { | |
37544 | b BOOLEAN OPTIONAL, | |
37545 | c INTEGER OPTIONAL | |
37546 | } | |
37547 | ||
37548 | ||
37549 | END | |
37550 | ||
37551 | <STATIC> | |
37552 | ||
37553 | import from TempA all; | |
37554 | ||
37555 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37556 | ||
37557 | ||
37558 | const BERPDU myValue := {b := true, | |
37559 | c := 5 } | |
37560 | ||
37561 | ||
37562 | ||
37563 | <TTCN_TC:EXEC> | |
37564 | ||
37565 | if (dec_BER_PDU('A08031800201050101FF00000000'O) == myValue) | |
37566 | ||
37567 | ||
37568 | ||
37569 | {setverdict(pass);} else {setverdict(fail);} | |
37570 | ||
37571 | ||
37572 | <RESULT> | |
37573 | ||
37574 | Overall verdict: pass | |
37575 | ||
37576 | <END_TC> | |
37577 | ||
37578 | :exmp. | |
37579 | ||
37580 | .*---------------------------------------------------------------------* | |
37581 | :h3. DECODING DER, TAGGED SET (both elements are TAGGED and used) | |
37582 | .*---------------------------------------------------------------------* | |
37583 | :xmp tab=0. | |
37584 | ||
37585 | <TC - DECODING DER, TAGGED SET (both elements are TAGGED and used)> | |
37586 | ||
37587 | <STATIC:ASN> | |
37588 | ||
37589 | TempA | |
37590 | ||
37591 | DEFINITIONS | |
37592 | ||
37593 | ||
37594 | ||
37595 | ::= | |
37596 | ||
37597 | BEGIN | |
37598 | ||
37599 | ||
37600 | BERPDU ::= [0] SET | |
37601 | { | |
37602 | b [0] BOOLEAN OPTIONAL, | |
37603 | c [1] INTEGER OPTIONAL | |
37604 | } | |
37605 | ||
37606 | ||
37607 | ||
37608 | END | |
37609 | ||
37610 | <STATIC> | |
37611 | ||
37612 | import from TempA all; | |
37613 | ||
37614 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37615 | ||
37616 | ||
37617 | const BERPDU myValue := {b := true, | |
37618 | c := 5 } | |
37619 | ||
37620 | ||
37621 | ||
37622 | <TTCN_TC:EXEC> | |
37623 | ||
37624 | if (dec_BER_PDU('A00C310AA0030101FFA103020105'O) == myValue) | |
37625 | ||
37626 | ||
37627 | ||
37628 | {setverdict(pass);} else {setverdict(fail);} | |
37629 | ||
37630 | ||
37631 | <RESULT> | |
37632 | ||
37633 | Overall verdict: pass | |
37634 | ||
37635 | <END_TC> | |
37636 | ||
37637 | :exmp. | |
37638 | ||
37639 | .*---------------------------------------------------------------------* | |
37640 | :h3. DECODING CER, TAGGED SET (both elements are TAGGED and used) | |
37641 | .*---------------------------------------------------------------------* | |
37642 | :xmp tab=0. | |
37643 | ||
37644 | <TC - DECODING CER, TAGGED SET (both elements are TAGGED and used)> | |
37645 | ||
37646 | <STATIC:ASN> | |
37647 | ||
37648 | TempA | |
37649 | ||
37650 | DEFINITIONS | |
37651 | ||
37652 | ||
37653 | ||
37654 | ::= | |
37655 | ||
37656 | BEGIN | |
37657 | ||
37658 | ||
37659 | BERPDU ::= [0] SET | |
37660 | { | |
37661 | b [0] BOOLEAN OPTIONAL, | |
37662 | c [1] INTEGER OPTIONAL | |
37663 | } | |
37664 | ||
37665 | ||
37666 | ||
37667 | END | |
37668 | ||
37669 | <STATIC> | |
37670 | ||
37671 | import from TempA all; | |
37672 | ||
37673 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37674 | ||
37675 | ||
37676 | const BERPDU myValue := {b := true, | |
37677 | c := 5 } | |
37678 | ||
37679 | ||
37680 | ||
37681 | <TTCN_TC:EXEC> | |
37682 | ||
37683 | if (dec_BER_PDU('A0803180A0800101FF0000A180020105000000000000'O) == myValue) | |
37684 | ||
37685 | ||
37686 | ||
37687 | {setverdict(pass);} else {setverdict(fail);} | |
37688 | ||
37689 | ||
37690 | <RESULT> | |
37691 | ||
37692 | Overall verdict: pass | |
37693 | ||
37694 | <END_TC> | |
37695 | ||
37696 | :exmp. | |
37697 | ||
37698 | .*---------------------------------------------------------------------* | |
37699 | :h3. DECODING reverse order, TAGGED SET (both elements are TAGGED and used) | |
37700 | .*---------------------------------------------------------------------* | |
37701 | :xmp tab=0. | |
37702 | ||
37703 | <TC - DECODING reverse order, TAGGED SET (both elements are TAGGED and used)> | |
37704 | ||
37705 | <STATIC:ASN> | |
37706 | ||
37707 | TempA | |
37708 | ||
37709 | DEFINITIONS | |
37710 | ||
37711 | ||
37712 | ||
37713 | ::= | |
37714 | ||
37715 | BEGIN | |
37716 | ||
37717 | ||
37718 | BERPDU ::= [0] SET | |
37719 | { | |
37720 | b [0] BOOLEAN OPTIONAL, | |
37721 | c [1] INTEGER OPTIONAL | |
37722 | } | |
37723 | ||
37724 | ||
37725 | ||
37726 | END | |
37727 | ||
37728 | <STATIC> | |
37729 | ||
37730 | import from TempA all; | |
37731 | ||
37732 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37733 | ||
37734 | ||
37735 | const BERPDU myValue := {b := true, | |
37736 | c := 5 } | |
37737 | ||
37738 | ||
37739 | ||
37740 | <TTCN_TC:EXEC> | |
37741 | ||
37742 | if (dec_BER_PDU('A00C310AA103020105A0030101FF'O) == myValue) | |
37743 | ||
37744 | ||
37745 | ||
37746 | {setverdict(pass);} else {setverdict(fail);} | |
37747 | ||
37748 | ||
37749 | <RESULT> | |
37750 | ||
37751 | Overall verdict: pass | |
37752 | ||
37753 | <END_TC> | |
37754 | ||
37755 | :exmp. | |
37756 | ||
37757 | .*---------------------------------------------------------------------* | |
37758 | :h3. DECODING reverse order, TAGGED SET (both elements are TAGGED and used) | |
37759 | .*---------------------------------------------------------------------* | |
37760 | :xmp tab=0. | |
37761 | ||
37762 | <TC - DECODING reverse order, TAGGED SET (both elements are TAGGED and used)> | |
37763 | ||
37764 | <STATIC:ASN> | |
37765 | ||
37766 | TempA | |
37767 | ||
37768 | DEFINITIONS | |
37769 | ||
37770 | ||
37771 | ||
37772 | ::= | |
37773 | ||
37774 | BEGIN | |
37775 | ||
37776 | ||
37777 | BERPDU ::= [0] SET | |
37778 | { | |
37779 | b [0] BOOLEAN OPTIONAL, | |
37780 | c [1] INTEGER OPTIONAL | |
37781 | } | |
37782 | ||
37783 | ||
37784 | ||
37785 | END | |
37786 | ||
37787 | <STATIC> | |
37788 | ||
37789 | import from TempA all; | |
37790 | ||
37791 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37792 | ||
37793 | ||
37794 | const BERPDU myValue := {b := true, | |
37795 | c := 5 } | |
37796 | ||
37797 | ||
37798 | ||
37799 | <TTCN_TC:EXEC> | |
37800 | ||
37801 | if (dec_BER_PDU('A0803180A1800201050000A0800101FF000000000000'O) == myValue) | |
37802 | ||
37803 | ||
37804 | ||
37805 | {setverdict(pass);} else {setverdict(fail);} | |
37806 | ||
37807 | ||
37808 | <RESULT> | |
37809 | ||
37810 | Overall verdict: pass | |
37811 | ||
37812 | <END_TC> | |
37813 | ||
37814 | :exmp. | |
37815 | ||
37816 | .*---------------------------------------------------------------------* | |
37817 | :h3. DECODING DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
37818 | .*---------------------------------------------------------------------* | |
37819 | :xmp tab=0. | |
37820 | ||
37821 | <TC - DECODING DER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
37822 | ||
37823 | <STATIC:ASN> | |
37824 | ||
37825 | TempA | |
37826 | ||
37827 | DEFINITIONS | |
37828 | ||
37829 | EXPLICIT TAGS | |
37830 | ||
37831 | ||
37832 | ::= | |
37833 | ||
37834 | BEGIN | |
37835 | ||
37836 | ||
37837 | BERPDU ::= [0] SET | |
37838 | { | |
37839 | b [0] BOOLEAN OPTIONAL, | |
37840 | c [1] INTEGER OPTIONAL | |
37841 | } | |
37842 | ||
37843 | ||
37844 | END | |
37845 | ||
37846 | <STATIC> | |
37847 | ||
37848 | import from TempA all; | |
37849 | ||
37850 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37851 | ||
37852 | ||
37853 | const BERPDU myValue := {b := true, | |
37854 | c := 5 } | |
37855 | ||
37856 | ||
37857 | ||
37858 | <TTCN_TC:EXEC> | |
37859 | ||
37860 | if (dec_BER_PDU('A00C310AA0030101FFA103020105'O) == myValue) | |
37861 | ||
37862 | ||
37863 | ||
37864 | {setverdict(pass);} else {setverdict(fail);} | |
37865 | ||
37866 | ||
37867 | <RESULT> | |
37868 | ||
37869 | Overall verdict: pass | |
37870 | ||
37871 | <END_TC> | |
37872 | ||
37873 | :exmp. | |
37874 | ||
37875 | .*---------------------------------------------------------------------* | |
37876 | :h3. DECODING CER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
37877 | .*---------------------------------------------------------------------* | |
37878 | :xmp tab=0. | |
37879 | ||
37880 | <TC - DECODING CER encoding of TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
37881 | ||
37882 | <STATIC:ASN> | |
37883 | ||
37884 | TempA | |
37885 | ||
37886 | DEFINITIONS | |
37887 | ||
37888 | EXPLICIT TAGS | |
37889 | ||
37890 | ||
37891 | ::= | |
37892 | ||
37893 | BEGIN | |
37894 | ||
37895 | ||
37896 | BERPDU ::= [0] SET | |
37897 | { | |
37898 | b [0] BOOLEAN OPTIONAL, | |
37899 | c [1] INTEGER OPTIONAL | |
37900 | } | |
37901 | ||
37902 | ||
37903 | END | |
37904 | ||
37905 | <STATIC> | |
37906 | ||
37907 | import from TempA all; | |
37908 | ||
37909 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37910 | ||
37911 | ||
37912 | const BERPDU myValue := {b := true, | |
37913 | c := 5 } | |
37914 | ||
37915 | ||
37916 | ||
37917 | <TTCN_TC:EXEC> | |
37918 | ||
37919 | if (dec_BER_PDU('A0803180A0800101FF0000A180020105000000000000'O) == myValue) | |
37920 | ||
37921 | ||
37922 | ||
37923 | {setverdict(pass);} else {setverdict(fail);} | |
37924 | ||
37925 | ||
37926 | <RESULT> | |
37927 | ||
37928 | Overall verdict: pass | |
37929 | ||
37930 | <END_TC> | |
37931 | ||
37932 | :exmp. | |
37933 | ||
37934 | .*---------------------------------------------------------------------* | |
37935 | :h3. DECODING ,reverse order, TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
37936 | .*---------------------------------------------------------------------* | |
37937 | :xmp tab=0. | |
37938 | ||
37939 | <TC - DECODING ,reverse order, TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
37940 | ||
37941 | <STATIC:ASN> | |
37942 | ||
37943 | TempA | |
37944 | ||
37945 | DEFINITIONS | |
37946 | ||
37947 | EXPLICIT TAGS | |
37948 | ||
37949 | ||
37950 | ::= | |
37951 | ||
37952 | BEGIN | |
37953 | ||
37954 | ||
37955 | BERPDU ::= [0] SET | |
37956 | { | |
37957 | b [0] BOOLEAN OPTIONAL, | |
37958 | c [1] INTEGER OPTIONAL | |
37959 | } | |
37960 | ||
37961 | ||
37962 | END | |
37963 | ||
37964 | <STATIC> | |
37965 | ||
37966 | import from TempA all; | |
37967 | ||
37968 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
37969 | ||
37970 | ||
37971 | const BERPDU myValue := {b := true, | |
37972 | c := 5 } | |
37973 | ||
37974 | ||
37975 | ||
37976 | <TTCN_TC:EXEC> | |
37977 | ||
37978 | if (dec_BER_PDU('A00C310AA103020105A0030101FF'O) == myValue) | |
37979 | ||
37980 | ||
37981 | ||
37982 | {setverdict(pass);} else {setverdict(fail);} | |
37983 | ||
37984 | ||
37985 | <RESULT> | |
37986 | ||
37987 | Overall verdict: pass | |
37988 | ||
37989 | <END_TC> | |
37990 | ||
37991 | :exmp. | |
37992 | ||
37993 | .*---------------------------------------------------------------------* | |
37994 | :h3. DECODING, reverse order, TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT | |
37995 | .*---------------------------------------------------------------------* | |
37996 | :xmp tab=0. | |
37997 | ||
37998 | <TC - DECODING, reverse order, TAGGED SET (both elements are TAGGED and used), EXPLICIT TAGGING ENVIRONMENT> | |
37999 | ||
38000 | <STATIC:ASN> | |
38001 | ||
38002 | TempA | |
38003 | ||
38004 | DEFINITIONS | |
38005 | ||
38006 | EXPLICIT TAGS | |
38007 | ||
38008 | ||
38009 | ::= | |
38010 | ||
38011 | BEGIN | |
38012 | ||
38013 | ||
38014 | BERPDU ::= [0] SET | |
38015 | { | |
38016 | b [0] BOOLEAN OPTIONAL, | |
38017 | c [1] INTEGER OPTIONAL | |
38018 | } | |
38019 | ||
38020 | ||
38021 | END | |
38022 | ||
38023 | <STATIC> | |
38024 | ||
38025 | import from TempA all; | |
38026 | ||
38027 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38028 | ||
38029 | ||
38030 | const BERPDU myValue := {b := true, | |
38031 | c := 5 } | |
38032 | ||
38033 | ||
38034 | ||
38035 | <TTCN_TC:EXEC> | |
38036 | ||
38037 | if (dec_BER_PDU('A0803180A1800201050000A0800101FF000000000000'O) == myValue) | |
38038 | ||
38039 | ||
38040 | ||
38041 | {setverdict(pass);} else {setverdict(fail);} | |
38042 | ||
38043 | ||
38044 | <RESULT> | |
38045 | ||
38046 | Overall verdict: pass | |
38047 | ||
38048 | <END_TC> | |
38049 | ||
38050 | :exmp. | |
38051 | ||
38052 | .*---------------------------------------------------------------------* | |
38053 | :h3. DECODING , DER , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
38054 | .*---------------------------------------------------------------------* | |
38055 | :xmp tab=0. | |
38056 | ||
38057 | <TC - DECODING , DER , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
38058 | ||
38059 | <STATIC:ASN> | |
38060 | ||
38061 | TempA | |
38062 | ||
38063 | DEFINITIONS | |
38064 | ||
38065 | IMPLICIT TAGS | |
38066 | ||
38067 | ||
38068 | ::= | |
38069 | ||
38070 | BEGIN | |
38071 | ||
38072 | ||
38073 | BERPDU ::= [0] SET | |
38074 | { | |
38075 | b [0] BOOLEAN OPTIONAL, | |
38076 | c [1] INTEGER OPTIONAL | |
38077 | } | |
38078 | ||
38079 | ||
38080 | END | |
38081 | ||
38082 | <STATIC> | |
38083 | ||
38084 | import from TempA all; | |
38085 | ||
38086 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38087 | ||
38088 | ||
38089 | const BERPDU myValue := {b := true, | |
38090 | c := 5 } | |
38091 | ||
38092 | ||
38093 | <TTCN_TC:EXEC> | |
38094 | ||
38095 | if (dec_BER_PDU('A0068001FF810105'O) == myValue) | |
38096 | ||
38097 | ||
38098 | ||
38099 | {setverdict(pass);} else {setverdict(fail);} | |
38100 | ||
38101 | ||
38102 | <RESULT> | |
38103 | ||
38104 | Overall verdict: pass | |
38105 | ||
38106 | <END_TC> | |
38107 | ||
38108 | :exmp. | |
38109 | ||
38110 | .*---------------------------------------------------------------------* | |
38111 | :h3. DECODING , CER , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
38112 | .*---------------------------------------------------------------------* | |
38113 | :xmp tab=0. | |
38114 | ||
38115 | <TC - DECODING , CER , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
38116 | ||
38117 | <STATIC:ASN> | |
38118 | ||
38119 | TempA | |
38120 | ||
38121 | DEFINITIONS | |
38122 | ||
38123 | IMPLICIT TAGS | |
38124 | ||
38125 | ||
38126 | ::= | |
38127 | ||
38128 | BEGIN | |
38129 | ||
38130 | ||
38131 | BERPDU ::= [0] SET | |
38132 | { | |
38133 | b [0] BOOLEAN OPTIONAL, | |
38134 | c [1] INTEGER OPTIONAL | |
38135 | } | |
38136 | ||
38137 | ||
38138 | END | |
38139 | ||
38140 | <STATIC> | |
38141 | ||
38142 | import from TempA all; | |
38143 | ||
38144 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38145 | ||
38146 | ||
38147 | const BERPDU myValue := {b := true, | |
38148 | c := 5 } | |
38149 | ||
38150 | ||
38151 | <TTCN_TC:EXEC> | |
38152 | ||
38153 | if (dec_BER_PDU('A0808001FF8101050000'O) == myValue) | |
38154 | ||
38155 | ||
38156 | ||
38157 | {setverdict(pass);} else {setverdict(fail);} | |
38158 | ||
38159 | ||
38160 | <RESULT> | |
38161 | ||
38162 | Overall verdict: pass | |
38163 | ||
38164 | <END_TC> | |
38165 | ||
38166 | :exmp. | |
38167 | ||
38168 | .*---------------------------------------------------------------------* | |
38169 | :h3. DECODING , reverse order, TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
38170 | .*---------------------------------------------------------------------* | |
38171 | :xmp tab=0. | |
38172 | ||
38173 | <TC - DECODING , reverse order, TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
38174 | ||
38175 | <STATIC:ASN> | |
38176 | ||
38177 | TempA | |
38178 | ||
38179 | DEFINITIONS | |
38180 | ||
38181 | IMPLICIT TAGS | |
38182 | ||
38183 | ||
38184 | ::= | |
38185 | ||
38186 | BEGIN | |
38187 | ||
38188 | ||
38189 | BERPDU ::= [0] SET | |
38190 | { | |
38191 | b [0] BOOLEAN OPTIONAL, | |
38192 | c [1] INTEGER OPTIONAL | |
38193 | } | |
38194 | ||
38195 | ||
38196 | END | |
38197 | ||
38198 | <STATIC> | |
38199 | ||
38200 | import from TempA all; | |
38201 | ||
38202 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38203 | ||
38204 | ||
38205 | const BERPDU myValue := {b := true, | |
38206 | c := 5 } | |
38207 | ||
38208 | ||
38209 | <TTCN_TC:EXEC> | |
38210 | ||
38211 | if (dec_BER_PDU('A0068101058001FF'O) == myValue) | |
38212 | ||
38213 | ||
38214 | ||
38215 | {setverdict(pass);} else {setverdict(fail);} | |
38216 | ||
38217 | ||
38218 | <RESULT> | |
38219 | ||
38220 | Overall verdict: pass | |
38221 | ||
38222 | <END_TC> | |
38223 | ||
38224 | :exmp. | |
38225 | ||
38226 | .*---------------------------------------------------------------------* | |
38227 | :h3. DECODING , reverse order , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT | |
38228 | .*---------------------------------------------------------------------* | |
38229 | :xmp tab=0. | |
38230 | ||
38231 | <TC - DECODING , reverse order , TAGGED SET (both elements are TAGGED and used), IMPLICIT TAGGING ENVIRONMENT> | |
38232 | ||
38233 | <STATIC:ASN> | |
38234 | ||
38235 | TempA | |
38236 | ||
38237 | DEFINITIONS | |
38238 | ||
38239 | IMPLICIT TAGS | |
38240 | ||
38241 | ||
38242 | ::= | |
38243 | ||
38244 | BEGIN | |
38245 | ||
38246 | ||
38247 | BERPDU ::= [0] SET | |
38248 | { | |
38249 | b [0] BOOLEAN OPTIONAL, | |
38250 | c [1] INTEGER OPTIONAL | |
38251 | } | |
38252 | ||
38253 | ||
38254 | END | |
38255 | ||
38256 | <STATIC> | |
38257 | ||
38258 | import from TempA all; | |
38259 | ||
38260 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38261 | ||
38262 | ||
38263 | const BERPDU myValue := {b := true, | |
38264 | c := 5 } | |
38265 | ||
38266 | ||
38267 | <TTCN_TC:EXEC> | |
38268 | ||
38269 | if (dec_BER_PDU('A0808101058001FF0000'O) == myValue) | |
38270 | ||
38271 | ||
38272 | ||
38273 | {setverdict(pass);} else {setverdict(fail);} | |
38274 | ||
38275 | ||
38276 | <RESULT> | |
38277 | ||
38278 | Overall verdict: pass | |
38279 | ||
38280 | <END_TC> | |
38281 | ||
38282 | :exmp. | |
38283 | ||
38284 | .*---------------------------------------------------------------------* | |
38285 | :h3. DECODING , DER , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
38286 | .*---------------------------------------------------------------------* | |
38287 | :xmp tab=0. | |
38288 | ||
38289 | <TC - DECODING , DER , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
38290 | ||
38291 | <STATIC:ASN> | |
38292 | ||
38293 | TempA | |
38294 | ||
38295 | DEFINITIONS | |
38296 | ||
38297 | AUTOMATIC TAGS | |
38298 | ||
38299 | ||
38300 | ::= | |
38301 | ||
38302 | BEGIN | |
38303 | ||
38304 | ||
38305 | BERPDU ::= [0] SET | |
38306 | { | |
38307 | b [0] BOOLEAN OPTIONAL, | |
38308 | c [1] INTEGER OPTIONAL | |
38309 | } | |
38310 | ||
38311 | ||
38312 | END | |
38313 | ||
38314 | <STATIC> | |
38315 | ||
38316 | import from TempA all; | |
38317 | ||
38318 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38319 | ||
38320 | ||
38321 | const BERPDU myValue := {b := true, | |
38322 | c := 5 } | |
38323 | ||
38324 | ||
38325 | <TTCN_TC:EXEC> | |
38326 | ||
38327 | if (dec_BER_PDU('A0068001FF810105'O) == myValue) | |
38328 | ||
38329 | ||
38330 | ||
38331 | {setverdict(pass);} else {setverdict(fail);} | |
38332 | ||
38333 | ||
38334 | <RESULT> | |
38335 | ||
38336 | Overall verdict: pass | |
38337 | ||
38338 | <END_TC> | |
38339 | ||
38340 | :exmp. | |
38341 | ||
38342 | .*---------------------------------------------------------------------* | |
38343 | :h3. DECODING , CER , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
38344 | .*---------------------------------------------------------------------* | |
38345 | :xmp tab=0. | |
38346 | ||
38347 | <TC - DECODING , CER , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
38348 | ||
38349 | <STATIC:ASN> | |
38350 | ||
38351 | TempA | |
38352 | ||
38353 | DEFINITIONS | |
38354 | ||
38355 | AUTOMATIC TAGS | |
38356 | ||
38357 | ||
38358 | ::= | |
38359 | ||
38360 | BEGIN | |
38361 | ||
38362 | ||
38363 | BERPDU ::= [0] SET | |
38364 | { | |
38365 | b [0] BOOLEAN OPTIONAL, | |
38366 | c [1] INTEGER OPTIONAL | |
38367 | } | |
38368 | ||
38369 | ||
38370 | END | |
38371 | ||
38372 | <STATIC> | |
38373 | ||
38374 | import from TempA all; | |
38375 | ||
38376 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38377 | ||
38378 | ||
38379 | const BERPDU myValue := {b := true, | |
38380 | c := 5 } | |
38381 | ||
38382 | ||
38383 | <TTCN_TC:EXEC> | |
38384 | ||
38385 | if (dec_BER_PDU('A0808001FF8101050000'O) == myValue) | |
38386 | ||
38387 | ||
38388 | ||
38389 | {setverdict(pass);} else {setverdict(fail);} | |
38390 | ||
38391 | ||
38392 | <RESULT> | |
38393 | ||
38394 | Overall verdict: pass | |
38395 | ||
38396 | <END_TC> | |
38397 | ||
38398 | :exmp. | |
38399 | ||
38400 | .*---------------------------------------------------------------------* | |
38401 | :h3. DECODING , reverse order , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
38402 | .*---------------------------------------------------------------------* | |
38403 | :xmp tab=0. | |
38404 | ||
38405 | <TC - DECODING , reverse order , TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
38406 | ||
38407 | <STATIC:ASN> | |
38408 | ||
38409 | TempA | |
38410 | ||
38411 | DEFINITIONS | |
38412 | ||
38413 | AUTOMATIC TAGS | |
38414 | ||
38415 | ||
38416 | ::= | |
38417 | ||
38418 | BEGIN | |
38419 | ||
38420 | ||
38421 | BERPDU ::= [0] SET | |
38422 | { | |
38423 | b [0] BOOLEAN OPTIONAL, | |
38424 | c [1] INTEGER OPTIONAL | |
38425 | } | |
38426 | ||
38427 | ||
38428 | END | |
38429 | ||
38430 | <STATIC> | |
38431 | ||
38432 | import from TempA all; | |
38433 | ||
38434 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38435 | ||
38436 | ||
38437 | const BERPDU myValue := {b := true, | |
38438 | c := 5 } | |
38439 | ||
38440 | ||
38441 | <TTCN_TC:EXEC> | |
38442 | ||
38443 | if (dec_BER_PDU('A0068101058001FF'O) == myValue) | |
38444 | ||
38445 | ||
38446 | ||
38447 | {setverdict(pass);} else {setverdict(fail);} | |
38448 | ||
38449 | ||
38450 | <RESULT> | |
38451 | ||
38452 | Overall verdict: pass | |
38453 | ||
38454 | <END_TC> | |
38455 | ||
38456 | :exmp. | |
38457 | ||
38458 | .*---------------------------------------------------------------------* | |
38459 | :h3. DECODING , reverse order, TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT | |
38460 | .*---------------------------------------------------------------------* | |
38461 | :xmp tab=0. | |
38462 | ||
38463 | <TC - DECODING , reverse order, TAGGED SET (both elements are TAGGED and used), AUTOMATIC TAGGING ENVIRONMENT> | |
38464 | ||
38465 | <STATIC:ASN> | |
38466 | ||
38467 | TempA | |
38468 | ||
38469 | DEFINITIONS | |
38470 | ||
38471 | AUTOMATIC TAGS | |
38472 | ||
38473 | ||
38474 | ::= | |
38475 | ||
38476 | BEGIN | |
38477 | ||
38478 | ||
38479 | BERPDU ::= [0] SET | |
38480 | { | |
38481 | b [0] BOOLEAN OPTIONAL, | |
38482 | c [1] INTEGER OPTIONAL | |
38483 | } | |
38484 | ||
38485 | ||
38486 | END | |
38487 | ||
38488 | <STATIC> | |
38489 | ||
38490 | import from TempA all; | |
38491 | ||
38492 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38493 | ||
38494 | ||
38495 | const BERPDU myValue := {b := true, | |
38496 | c := 5 } | |
38497 | ||
38498 | ||
38499 | <TTCN_TC:EXEC> | |
38500 | ||
38501 | if (dec_BER_PDU('A0808101058001FF0000'O) == myValue) | |
38502 | ||
38503 | ||
38504 | ||
38505 | {setverdict(pass);} else {setverdict(fail);} | |
38506 | ||
38507 | ||
38508 | <RESULT> | |
38509 | ||
38510 | Overall verdict: pass | |
38511 | ||
38512 | <END_TC> | |
38513 | ||
38514 | :exmp. | |
38515 | ||
38516 | .*---------------------------------------------------------------------* | |
38517 | :h3. DECODING ,DER, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
38518 | .*---------------------------------------------------------------------* | |
38519 | :xmp tab=0. | |
38520 | ||
38521 | <TC - DECODING ,DER, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
38522 | ||
38523 | <STATIC:ASN> | |
38524 | ||
38525 | TempA | |
38526 | ||
38527 | DEFINITIONS | |
38528 | ||
38529 | AUTOMATIC TAGS | |
38530 | ||
38531 | ||
38532 | ::= | |
38533 | ||
38534 | BEGIN | |
38535 | ||
38536 | ||
38537 | BERPDU ::= SET | |
38538 | { | |
38539 | b [5] BOOLEAN OPTIONAL, | |
38540 | c INTEGER OPTIONAL | |
38541 | } | |
38542 | ||
38543 | ||
38544 | END | |
38545 | ||
38546 | <STATIC> | |
38547 | ||
38548 | import from TempA all; | |
38549 | ||
38550 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38551 | ||
38552 | ||
38553 | const BERPDU myValue := {b := true, | |
38554 | c := 5 } | |
38555 | ||
38556 | ||
38557 | <TTCN_TC:EXEC> | |
38558 | ||
38559 | if (dec_BER_PDU('31060201058501FF'O) == myValue) | |
38560 | ||
38561 | ||
38562 | ||
38563 | {setverdict(pass);} else {setverdict(fail);} | |
38564 | ||
38565 | ||
38566 | <RESULT> | |
38567 | ||
38568 | Overall verdict: pass | |
38569 | ||
38570 | <END_TC> | |
38571 | ||
38572 | :exmp. | |
38573 | ||
38574 | .*---------------------------------------------------------------------* | |
38575 | :h3. DECODING ,CER, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
38576 | .*---------------------------------------------------------------------* | |
38577 | :xmp tab=0. | |
38578 | ||
38579 | <TC - DECODING ,CER, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
38580 | ||
38581 | <STATIC:ASN> | |
38582 | ||
38583 | TempA | |
38584 | ||
38585 | DEFINITIONS | |
38586 | ||
38587 | AUTOMATIC TAGS | |
38588 | ||
38589 | ||
38590 | ::= | |
38591 | ||
38592 | BEGIN | |
38593 | ||
38594 | ||
38595 | BERPDU ::= SET | |
38596 | { | |
38597 | b [5] BOOLEAN OPTIONAL, | |
38598 | c INTEGER OPTIONAL | |
38599 | } | |
38600 | ||
38601 | ||
38602 | END | |
38603 | ||
38604 | <STATIC> | |
38605 | ||
38606 | import from TempA all; | |
38607 | ||
38608 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38609 | ||
38610 | ||
38611 | const BERPDU myValue := {b := true, | |
38612 | c := 5 } | |
38613 | ||
38614 | ||
38615 | <TTCN_TC:EXEC> | |
38616 | ||
38617 | if (dec_BER_PDU('31800201058501FF0000'O) == myValue) | |
38618 | ||
38619 | ||
38620 | ||
38621 | {setverdict(pass);} else {setverdict(fail);} | |
38622 | ||
38623 | ||
38624 | <RESULT> | |
38625 | ||
38626 | Overall verdict: pass | |
38627 | ||
38628 | <END_TC> | |
38629 | ||
38630 | :exmp. | |
38631 | ||
38632 | .*---------------------------------------------------------------------* | |
38633 | :h3. DECODING ,reverse order, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
38634 | .*---------------------------------------------------------------------* | |
38635 | :xmp tab=0. | |
38636 | ||
38637 | <TC - DECODING ,reverse order, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
38638 | ||
38639 | <STATIC:ASN> | |
38640 | ||
38641 | TempA | |
38642 | ||
38643 | DEFINITIONS | |
38644 | ||
38645 | AUTOMATIC TAGS | |
38646 | ||
38647 | ||
38648 | ::= | |
38649 | ||
38650 | BEGIN | |
38651 | ||
38652 | ||
38653 | BERPDU ::= SET | |
38654 | { | |
38655 | b [5] BOOLEAN OPTIONAL, | |
38656 | c INTEGER OPTIONAL | |
38657 | } | |
38658 | ||
38659 | ||
38660 | END | |
38661 | ||
38662 | <STATIC> | |
38663 | ||
38664 | import from TempA all; | |
38665 | ||
38666 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38667 | ||
38668 | ||
38669 | const BERPDU myValue := {b := true, | |
38670 | c := 5 } | |
38671 | ||
38672 | ||
38673 | <TTCN_TC:EXEC> | |
38674 | ||
38675 | if (dec_BER_PDU('31068501FF020105'O) == myValue) | |
38676 | ||
38677 | ||
38678 | ||
38679 | {setverdict(pass);} else {setverdict(fail);} | |
38680 | ||
38681 | ||
38682 | <RESULT> | |
38683 | ||
38684 | Overall verdict: pass | |
38685 | ||
38686 | <END_TC> | |
38687 | ||
38688 | :exmp. | |
38689 | ||
38690 | .*---------------------------------------------------------------------* | |
38691 | :h3. DECODING ,reverse order, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT | |
38692 | .*---------------------------------------------------------------------* | |
38693 | :xmp tab=0. | |
38694 | ||
38695 | <TC - DECODING ,reverse order, SET , one element is manually tagged, AUTOMATIC TAGGING ENVIRONMENT> | |
38696 | ||
38697 | <STATIC:ASN> | |
38698 | ||
38699 | TempA | |
38700 | ||
38701 | DEFINITIONS | |
38702 | ||
38703 | AUTOMATIC TAGS | |
38704 | ||
38705 | ||
38706 | ::= | |
38707 | ||
38708 | BEGIN | |
38709 | ||
38710 | ||
38711 | BERPDU ::= SET | |
38712 | { | |
38713 | b [5] BOOLEAN OPTIONAL, | |
38714 | c INTEGER OPTIONAL | |
38715 | } | |
38716 | ||
38717 | ||
38718 | END | |
38719 | ||
38720 | <STATIC> | |
38721 | ||
38722 | import from TempA all; | |
38723 | ||
38724 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38725 | ||
38726 | ||
38727 | const BERPDU myValue := {b := true, | |
38728 | c := 5 } | |
38729 | ||
38730 | ||
38731 | <TTCN_TC:EXEC> | |
38732 | ||
38733 | if (dec_BER_PDU('31808501FF0201050000'O) == myValue) | |
38734 | ||
38735 | ||
38736 | ||
38737 | {setverdict(pass);} else {setverdict(fail);} | |
38738 | ||
38739 | ||
38740 | <RESULT> | |
38741 | ||
38742 | Overall verdict: pass | |
38743 | ||
38744 | <END_TC> | |
38745 | ||
38746 | :exmp. | |
38747 | ||
38748 | .*---------------------------------------------------------------------* | |
38749 | :h3. DECODING ,DER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
38750 | .*---------------------------------------------------------------------* | |
38751 | :xmp tab=0. | |
38752 | ||
38753 | <TC - DECODING ,DER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
38754 | ||
38755 | <STATIC:ASN> | |
38756 | ||
38757 | TempA | |
38758 | ||
38759 | DEFINITIONS | |
38760 | ||
38761 | AUTOMATIC TAGS | |
38762 | ||
38763 | ||
38764 | ::= | |
38765 | ||
38766 | BEGIN | |
38767 | ||
38768 | MySeq ::= SET | |
38769 | {x INTEGER OPTIONAL, | |
38770 | y OCTET STRING} | |
38771 | ||
38772 | ||
38773 | ||
38774 | BERPDU ::= SET | |
38775 | { | |
38776 | b BOOLEAN OPTIONAL, | |
38777 | c INTEGER OPTIONAL, | |
38778 | COMPONENTS OF MySeq | |
38779 | } | |
38780 | ||
38781 | ||
38782 | END | |
38783 | ||
38784 | <STATIC> | |
38785 | ||
38786 | import from TempA all; | |
38787 | ||
38788 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38789 | ||
38790 | ||
38791 | const BERPDU myValue := {b := true, | |
38792 | c := 5 , | |
38793 | x := 6, | |
38794 | y := 'FF'O } | |
38795 | ||
38796 | ||
38797 | ||
38798 | <TTCN_TC:EXEC> | |
38799 | ||
38800 | if (dec_BER_PDU('310C8001FF8101058201068301FF'O) == myValue) | |
38801 | ||
38802 | ||
38803 | ||
38804 | {setverdict(pass);} else {setverdict(fail);} | |
38805 | ||
38806 | ||
38807 | <RESULT> | |
38808 | ||
38809 | Overall verdict: pass | |
38810 | ||
38811 | <END_TC> | |
38812 | ||
38813 | :exmp. | |
38814 | ||
38815 | .*---------------------------------------------------------------------* | |
38816 | :h3. DECODING ,CER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
38817 | .*---------------------------------------------------------------------* | |
38818 | :xmp tab=0. | |
38819 | ||
38820 | <TC - DECODING ,CER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
38821 | ||
38822 | <STATIC:ASN> | |
38823 | ||
38824 | TempA | |
38825 | ||
38826 | DEFINITIONS | |
38827 | ||
38828 | AUTOMATIC TAGS | |
38829 | ||
38830 | ||
38831 | ::= | |
38832 | ||
38833 | BEGIN | |
38834 | ||
38835 | ||
38836 | MySeq ::= SET | |
38837 | {x INTEGER OPTIONAL, | |
38838 | y OCTET STRING} | |
38839 | ||
38840 | ||
38841 | ||
38842 | BERPDU ::= SET | |
38843 | { | |
38844 | b BOOLEAN OPTIONAL, | |
38845 | c INTEGER OPTIONAL, | |
38846 | COMPONENTS OF MySeq | |
38847 | } | |
38848 | ||
38849 | ||
38850 | END | |
38851 | ||
38852 | <STATIC> | |
38853 | ||
38854 | import from TempA all; | |
38855 | ||
38856 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38857 | ||
38858 | const BERPDU myValue := {b := true, | |
38859 | c := 5 , | |
38860 | x := 6, | |
38861 | y := 'FF'O } | |
38862 | ||
38863 | ||
38864 | ||
38865 | ||
38866 | <TTCN_TC:EXEC> | |
38867 | ||
38868 | if (dec_BER_PDU('31808001FF8101058201068301FF0000'O) == myValue){setverdict(pass);} else {setverdict(fail);} | |
38869 | ||
38870 | ||
38871 | <RESULT> | |
38872 | ||
38873 | Overall verdict: pass | |
38874 | ||
38875 | <END_TC> | |
38876 | ||
38877 | :exmp. | |
38878 | ||
38879 | .*---------------------------------------------------------------------* | |
38880 | :h3. DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
38881 | .*---------------------------------------------------------------------* | |
38882 | :xmp tab=0. | |
38883 | ||
38884 | <TC - DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
38885 | ||
38886 | <STATIC:ASN> | |
38887 | ||
38888 | TempA | |
38889 | ||
38890 | DEFINITIONS | |
38891 | ||
38892 | AUTOMATIC TAGS | |
38893 | ||
38894 | ||
38895 | ::= | |
38896 | ||
38897 | BEGIN | |
38898 | ||
38899 | MySeq ::= SET | |
38900 | {x INTEGER OPTIONAL, | |
38901 | y OCTET STRING} | |
38902 | ||
38903 | ||
38904 | ||
38905 | BERPDU ::= SET | |
38906 | { | |
38907 | b BOOLEAN OPTIONAL, | |
38908 | c INTEGER OPTIONAL, | |
38909 | COMPONENTS OF MySeq | |
38910 | } | |
38911 | ||
38912 | ||
38913 | END | |
38914 | ||
38915 | <STATIC> | |
38916 | ||
38917 | import from TempA all; | |
38918 | ||
38919 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38920 | ||
38921 | ||
38922 | const BERPDU myValue := {b := true, | |
38923 | c := 5 , | |
38924 | x := 6, | |
38925 | y := 'FF'O } | |
38926 | ||
38927 | ||
38928 | ||
38929 | <TTCN_TC:EXEC> | |
38930 | ||
38931 | if (dec_BER_PDU('310C8001FF8201068101058301FF'O) == myValue) | |
38932 | ||
38933 | ||
38934 | ||
38935 | {setverdict(pass);} else {setverdict(fail);} | |
38936 | ||
38937 | ||
38938 | <RESULT> | |
38939 | ||
38940 | Overall verdict: pass | |
38941 | ||
38942 | <END_TC> | |
38943 | ||
38944 | :exmp. | |
38945 | ||
38946 | .*---------------------------------------------------------------------* | |
38947 | :h3. DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
38948 | .*---------------------------------------------------------------------* | |
38949 | :xmp tab=0. | |
38950 | ||
38951 | <TC - DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
38952 | ||
38953 | <STATIC:ASN> | |
38954 | ||
38955 | TempA | |
38956 | ||
38957 | DEFINITIONS | |
38958 | ||
38959 | AUTOMATIC TAGS | |
38960 | ||
38961 | ||
38962 | ::= | |
38963 | ||
38964 | BEGIN | |
38965 | ||
38966 | ||
38967 | MySeq ::= SET | |
38968 | {x INTEGER OPTIONAL, | |
38969 | y OCTET STRING} | |
38970 | ||
38971 | ||
38972 | ||
38973 | BERPDU ::= SET | |
38974 | { | |
38975 | b BOOLEAN OPTIONAL, | |
38976 | c INTEGER OPTIONAL, | |
38977 | COMPONENTS OF MySeq | |
38978 | } | |
38979 | ||
38980 | ||
38981 | END | |
38982 | ||
38983 | <STATIC> | |
38984 | ||
38985 | import from TempA all; | |
38986 | ||
38987 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
38988 | ||
38989 | const BERPDU myValue := {b := true, | |
38990 | c := 5 , | |
38991 | x := 6, | |
38992 | y := 'FF'O } | |
38993 | ||
38994 | ||
38995 | ||
38996 | ||
38997 | <TTCN_TC:EXEC> | |
38998 | ||
38999 | if (dec_BER_PDU('31808001FF8201068101058301FF0000'O) == myValue) | |
39000 | ||
39001 | ||
39002 | ||
39003 | {setverdict(pass);} else {setverdict(fail);} | |
39004 | ||
39005 | ||
39006 | <RESULT> | |
39007 | ||
39008 | Overall verdict: pass | |
39009 | ||
39010 | <END_TC> | |
39011 | ||
39012 | :exmp. | |
39013 | ||
39014 | .*---------------------------------------------------------------------* | |
39015 | :h3. DECODING ,DER, SET ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39016 | .*---------------------------------------------------------------------* | |
39017 | :xmp tab=0. | |
39018 | ||
39019 | <TC - DECODING ,DER, SET ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39020 | ||
39021 | <STATIC:ASN> | |
39022 | ||
39023 | TempA | |
39024 | ||
39025 | DEFINITIONS | |
39026 | ||
39027 | AUTOMATIC TAGS | |
39028 | ||
39029 | ||
39030 | ::= | |
39031 | ||
39032 | BEGIN | |
39033 | ||
39034 | MySeq ::= SET | |
39035 | {x [0] INTEGER OPTIONAL, | |
39036 | y OCTET STRING} | |
39037 | ||
39038 | ||
39039 | ||
39040 | BERPDU ::= SET | |
39041 | { | |
39042 | b BOOLEAN OPTIONAL, | |
39043 | c INTEGER OPTIONAL, | |
39044 | COMPONENTS OF MySeq | |
39045 | } | |
39046 | ||
39047 | ||
39048 | ||
39049 | END | |
39050 | ||
39051 | <STATIC> | |
39052 | ||
39053 | import from TempA all; | |
39054 | ||
39055 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39056 | ||
39057 | ||
39058 | const BERPDU myValue := {b := true, | |
39059 | c := 5 , | |
39060 | x := 6, | |
39061 | y := 'FF'O } | |
39062 | ||
39063 | ||
39064 | ||
39065 | <TTCN_TC:EXEC> | |
39066 | ||
39067 | if (dec_BER_PDU('310C8001FF8101058201068301FF'O) == myValue) | |
39068 | ||
39069 | ||
39070 | ||
39071 | {setverdict(pass);} else {setverdict(fail);} | |
39072 | ||
39073 | ||
39074 | <RESULT> | |
39075 | ||
39076 | Overall verdict: pass | |
39077 | ||
39078 | <END_TC> | |
39079 | ||
39080 | :exmp. | |
39081 | ||
39082 | .*---------------------------------------------------------------------* | |
39083 | :h3. DECODING ,CER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
39084 | .*---------------------------------------------------------------------* | |
39085 | :xmp tab=0. | |
39086 | ||
39087 | <TC - DECODING ,CER, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
39088 | ||
39089 | <STATIC:ASN> | |
39090 | ||
39091 | TempA | |
39092 | ||
39093 | DEFINITIONS | |
39094 | ||
39095 | AUTOMATIC TAGS | |
39096 | ||
39097 | ||
39098 | ::= | |
39099 | ||
39100 | BEGIN | |
39101 | ||
39102 | ||
39103 | MySeq ::= SET | |
39104 | {x [0] INTEGER OPTIONAL, | |
39105 | y OCTET STRING} | |
39106 | ||
39107 | ||
39108 | ||
39109 | BERPDU ::= SET | |
39110 | { | |
39111 | b BOOLEAN OPTIONAL, | |
39112 | c INTEGER OPTIONAL, | |
39113 | COMPONENTS OF MySeq | |
39114 | } | |
39115 | ||
39116 | ||
39117 | ||
39118 | ||
39119 | END | |
39120 | ||
39121 | <STATIC> | |
39122 | ||
39123 | import from TempA all; | |
39124 | ||
39125 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39126 | ||
39127 | ||
39128 | const BERPDU myValue := {b := true, | |
39129 | c := 5 , | |
39130 | x := 6, | |
39131 | y := 'FF'O } | |
39132 | ||
39133 | ||
39134 | ||
39135 | <TTCN_TC:EXEC> | |
39136 | ||
39137 | if (dec_BER_PDU('31808001FF8101058201068301FF0000'O) == myValue) | |
39138 | ||
39139 | ||
39140 | ||
39141 | {setverdict(pass);} else {setverdict(fail);} | |
39142 | ||
39143 | ||
39144 | <RESULT> | |
39145 | ||
39146 | Overall verdict: pass | |
39147 | ||
39148 | <END_TC> | |
39149 | ||
39150 | :exmp. | |
39151 | ||
39152 | .*---------------------------------------------------------------------* | |
39153 | :h3. DECODING ,different order, SET ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39154 | .*---------------------------------------------------------------------* | |
39155 | :xmp tab=0. | |
39156 | ||
39157 | <TC - DECODING ,different order, SET ,one component element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39158 | ||
39159 | <STATIC:ASN> | |
39160 | ||
39161 | TempA | |
39162 | ||
39163 | DEFINITIONS | |
39164 | ||
39165 | AUTOMATIC TAGS | |
39166 | ||
39167 | ||
39168 | ::= | |
39169 | ||
39170 | BEGIN | |
39171 | ||
39172 | MySeq ::= SET | |
39173 | {x [0] INTEGER OPTIONAL, | |
39174 | y OCTET STRING} | |
39175 | ||
39176 | ||
39177 | ||
39178 | BERPDU ::= SET | |
39179 | { | |
39180 | b BOOLEAN OPTIONAL, | |
39181 | c INTEGER OPTIONAL, | |
39182 | COMPONENTS OF MySeq | |
39183 | } | |
39184 | ||
39185 | ||
39186 | ||
39187 | END | |
39188 | ||
39189 | <STATIC> | |
39190 | ||
39191 | import from TempA all; | |
39192 | ||
39193 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39194 | ||
39195 | ||
39196 | const BERPDU myValue := {b := true, | |
39197 | c := 5 , | |
39198 | x := 6, | |
39199 | y := 'FF'O } | |
39200 | ||
39201 | ||
39202 | ||
39203 | <TTCN_TC:EXEC> | |
39204 | ||
39205 | if (dec_BER_PDU('310C8301FF8001FF820106810105'O) == myValue) | |
39206 | ||
39207 | ||
39208 | ||
39209 | {setverdict(pass);} else {setverdict(fail);} | |
39210 | ||
39211 | ||
39212 | <RESULT> | |
39213 | ||
39214 | Overall verdict: pass | |
39215 | ||
39216 | <END_TC> | |
39217 | ||
39218 | :exmp. | |
39219 | ||
39220 | .*---------------------------------------------------------------------* | |
39221 | :h3. DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags | |
39222 | .*---------------------------------------------------------------------* | |
39223 | :xmp tab=0. | |
39224 | ||
39225 | <TC - DECODING ,different order, SET ,COMPONENTS OF used, AUTOMATIC TAGS, no manual tags> | |
39226 | ||
39227 | <STATIC:ASN> | |
39228 | ||
39229 | TempA | |
39230 | ||
39231 | DEFINITIONS | |
39232 | ||
39233 | AUTOMATIC TAGS | |
39234 | ||
39235 | ||
39236 | ::= | |
39237 | ||
39238 | BEGIN | |
39239 | ||
39240 | ||
39241 | MySeq ::= SET | |
39242 | {x [0] INTEGER OPTIONAL, | |
39243 | y OCTET STRING} | |
39244 | ||
39245 | ||
39246 | ||
39247 | BERPDU ::= SET | |
39248 | { | |
39249 | b BOOLEAN OPTIONAL, | |
39250 | c INTEGER OPTIONAL, | |
39251 | COMPONENTS OF MySeq | |
39252 | } | |
39253 | ||
39254 | ||
39255 | ||
39256 | ||
39257 | END | |
39258 | ||
39259 | <STATIC> | |
39260 | ||
39261 | import from TempA all; | |
39262 | ||
39263 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39264 | ||
39265 | ||
39266 | const BERPDU myValue := {b := true, | |
39267 | c := 5 , | |
39268 | x := 6, | |
39269 | y := 'FF'O } | |
39270 | ||
39271 | ||
39272 | ||
39273 | <TTCN_TC:EXEC> | |
39274 | ||
39275 | if (dec_BER_PDU('31808301FF8101058201068001FF0000'O) == myValue) | |
39276 | ||
39277 | ||
39278 | ||
39279 | {setverdict(pass);} else {setverdict(fail);} | |
39280 | ||
39281 | ||
39282 | <RESULT> | |
39283 | ||
39284 | Overall verdict: pass | |
39285 | ||
39286 | <END_TC> | |
39287 | ||
39288 | :exmp. | |
39289 | ||
39290 | .*---------------------------------------------------------------------* | |
39291 | :h3. DECODING ,DER, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39292 | .*---------------------------------------------------------------------* | |
39293 | :xmp tab=0. | |
39294 | ||
39295 | <TC - DECODING ,DER, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39296 | ||
39297 | <STATIC:ASN> | |
39298 | ||
39299 | TempA | |
39300 | ||
39301 | DEFINITIONS | |
39302 | ||
39303 | AUTOMATIC TAGS | |
39304 | ||
39305 | ||
39306 | ::= | |
39307 | ||
39308 | BEGIN | |
39309 | ||
39310 | ||
39311 | MySeq ::= SET | |
39312 | {x INTEGER OPTIONAL, | |
39313 | y OCTET STRING} | |
39314 | ||
39315 | ||
39316 | ||
39317 | BERPDU ::= SET | |
39318 | { | |
39319 | b [0] BOOLEAN OPTIONAL, | |
39320 | c BIT STRING OPTIONAL, | |
39321 | COMPONENTS OF MySeq | |
39322 | } | |
39323 | ||
39324 | END | |
39325 | ||
39326 | <STATIC> | |
39327 | ||
39328 | import from TempA all; | |
39329 | ||
39330 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39331 | ||
39332 | ||
39333 | ||
39334 | const BERPDU myValue := {b := true, | |
39335 | c := '1'B , | |
39336 | x := 6, | |
39337 | y := 'FF'O } | |
39338 | ||
39339 | ||
39340 | <TTCN_TC:EXEC> | |
39341 | ||
39342 | if (dec_BER_PDU('310D020106030207800401FF8001FF'O) == myValue) | |
39343 | ||
39344 | ||
39345 | {setverdict(pass);} else {setverdict(fail);} | |
39346 | ||
39347 | ||
39348 | <RESULT> | |
39349 | ||
39350 | Overall verdict: pass | |
39351 | ||
39352 | <END_TC> | |
39353 | ||
39354 | :exmp. | |
39355 | ||
39356 | .*---------------------------------------------------------------------* | |
39357 | :h3. DECODING ,CER, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39358 | .*---------------------------------------------------------------------* | |
39359 | :xmp tab=0. | |
39360 | ||
39361 | <TC - DECODING ,CER, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39362 | ||
39363 | <STATIC:ASN> | |
39364 | ||
39365 | TempA | |
39366 | ||
39367 | DEFINITIONS | |
39368 | ||
39369 | AUTOMATIC TAGS | |
39370 | ||
39371 | ||
39372 | ::= | |
39373 | ||
39374 | BEGIN | |
39375 | ||
39376 | ||
39377 | MySeq ::= SET | |
39378 | {x INTEGER OPTIONAL, | |
39379 | y OCTET STRING} | |
39380 | ||
39381 | ||
39382 | ||
39383 | BERPDU ::= SET | |
39384 | { | |
39385 | b [0] BOOLEAN OPTIONAL, | |
39386 | c BIT STRING OPTIONAL, | |
39387 | COMPONENTS OF MySeq | |
39388 | } | |
39389 | ||
39390 | ||
39391 | ||
39392 | ||
39393 | END | |
39394 | ||
39395 | <STATIC> | |
39396 | ||
39397 | import from TempA all; | |
39398 | ||
39399 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39400 | ||
39401 | ||
39402 | const BERPDU myValue := {b := true, | |
39403 | c := '1'B , | |
39404 | x := 6, | |
39405 | y := 'FF'O } | |
39406 | ||
39407 | ||
39408 | <TTCN_TC:EXEC> | |
39409 | ||
39410 | if (dec_BER_PDU('3180020106030207800401FF8001FF0000'O) == myValue) | |
39411 | ||
39412 | ||
39413 | ||
39414 | {setverdict(pass);} else {setverdict(fail);} | |
39415 | ||
39416 | ||
39417 | <RESULT> | |
39418 | ||
39419 | Overall verdict: pass | |
39420 | ||
39421 | <END_TC> | |
39422 | ||
39423 | :exmp. | |
39424 | ||
39425 | .*---------------------------------------------------------------------* | |
39426 | :h3. DECODING ,different order, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39427 | .*---------------------------------------------------------------------* | |
39428 | :xmp tab=0. | |
39429 | ||
39430 | <TC - DECODING ,different order, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39431 | ||
39432 | <STATIC:ASN> | |
39433 | ||
39434 | TempA | |
39435 | ||
39436 | DEFINITIONS | |
39437 | ||
39438 | AUTOMATIC TAGS | |
39439 | ||
39440 | ||
39441 | ::= | |
39442 | ||
39443 | BEGIN | |
39444 | ||
39445 | ||
39446 | MySeq ::= SET | |
39447 | {x INTEGER OPTIONAL, | |
39448 | y OCTET STRING} | |
39449 | ||
39450 | ||
39451 | ||
39452 | BERPDU ::= SET | |
39453 | { | |
39454 | b [0] BOOLEAN OPTIONAL, | |
39455 | c BIT STRING OPTIONAL, | |
39456 | COMPONENTS OF MySeq | |
39457 | } | |
39458 | ||
39459 | END | |
39460 | ||
39461 | <STATIC> | |
39462 | ||
39463 | import from TempA all; | |
39464 | ||
39465 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39466 | ||
39467 | ||
39468 | ||
39469 | const BERPDU myValue := {b := true, | |
39470 | c := '1'B , | |
39471 | x := 6, | |
39472 | y := 'FF'O } | |
39473 | ||
39474 | ||
39475 | <TTCN_TC:EXEC> | |
39476 | ||
39477 | if (dec_BER_PDU('310D030207800201060401FF8001FF'O) == myValue) | |
39478 | ||
39479 | ||
39480 | ||
39481 | {setverdict(pass);} else {setverdict(fail);} | |
39482 | ||
39483 | ||
39484 | <RESULT> | |
39485 | ||
39486 | Overall verdict: pass | |
39487 | ||
39488 | <END_TC> | |
39489 | ||
39490 | :exmp. | |
39491 | ||
39492 | .*---------------------------------------------------------------------* | |
39493 | :h3. DECODING ,different order, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39494 | .*---------------------------------------------------------------------* | |
39495 | :xmp tab=0. | |
39496 | ||
39497 | <TC - DECODING ,different order, SET , one base element is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39498 | ||
39499 | <STATIC:ASN> | |
39500 | ||
39501 | TempA | |
39502 | ||
39503 | DEFINITIONS | |
39504 | ||
39505 | AUTOMATIC TAGS | |
39506 | ||
39507 | ||
39508 | ::= | |
39509 | ||
39510 | BEGIN | |
39511 | ||
39512 | ||
39513 | MySeq ::= SET | |
39514 | {x INTEGER OPTIONAL, | |
39515 | y OCTET STRING} | |
39516 | ||
39517 | ||
39518 | ||
39519 | BERPDU ::= SET | |
39520 | { | |
39521 | b [0] BOOLEAN OPTIONAL, | |
39522 | c BIT STRING OPTIONAL, | |
39523 | COMPONENTS OF MySeq | |
39524 | } | |
39525 | ||
39526 | ||
39527 | ||
39528 | ||
39529 | END | |
39530 | ||
39531 | <STATIC> | |
39532 | ||
39533 | import from TempA all; | |
39534 | ||
39535 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39536 | ||
39537 | ||
39538 | const BERPDU myValue := {b := true, | |
39539 | c := '1'B , | |
39540 | x := 6, | |
39541 | y := 'FF'O } | |
39542 | ||
39543 | ||
39544 | <TTCN_TC:EXEC> | |
39545 | ||
39546 | if (dec_BER_PDU('3180030207800201060401FF8001FF0000'O) == myValue) | |
39547 | ||
39548 | ||
39549 | ||
39550 | {setverdict(pass);} else {setverdict(fail);} | |
39551 | ||
39552 | ||
39553 | <RESULT> | |
39554 | ||
39555 | Overall verdict: pass | |
39556 | ||
39557 | <END_TC> | |
39558 | ||
39559 | :exmp. | |
39560 | ||
39561 | .*---------------------------------------------------------------------* | |
39562 | :h3. DECODING ,DER, SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39563 | .*---------------------------------------------------------------------* | |
39564 | :xmp tab=0. | |
39565 | ||
39566 | <TC - DECODING ,DER, SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39567 | ||
39568 | <STATIC:ASN> | |
39569 | ||
39570 | TempA | |
39571 | ||
39572 | DEFINITIONS | |
39573 | ||
39574 | AUTOMATIC TAGS | |
39575 | ||
39576 | ||
39577 | ::= | |
39578 | ||
39579 | BEGIN | |
39580 | ||
39581 | ||
39582 | MySeq ::= SET | |
39583 | {x [1] INTEGER OPTIONAL, | |
39584 | y OCTET STRING} | |
39585 | ||
39586 | ||
39587 | ||
39588 | BERPDU ::= SET | |
39589 | { | |
39590 | b [0] BOOLEAN OPTIONAL, | |
39591 | c BIT STRING OPTIONAL, | |
39592 | COMPONENTS OF MySeq | |
39593 | } | |
39594 | ||
39595 | END | |
39596 | ||
39597 | <STATIC> | |
39598 | ||
39599 | import from TempA all; | |
39600 | ||
39601 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39602 | ||
39603 | ||
39604 | ||
39605 | const BERPDU myValue := {b := true, | |
39606 | c := '1'B , | |
39607 | x := 6, | |
39608 | y := 'FF'O } | |
39609 | ||
39610 | ||
39611 | ||
39612 | <TTCN_TC:EXEC> | |
39613 | ||
39614 | if (dec_BER_PDU('310D030207800401FF8001FF810106'O) == myValue) | |
39615 | ||
39616 | ||
39617 | ||
39618 | {setverdict(pass);} else {setverdict(fail);} | |
39619 | ||
39620 | ||
39621 | <RESULT> | |
39622 | ||
39623 | Overall verdict: pass | |
39624 | ||
39625 | <END_TC> | |
39626 | ||
39627 | :exmp. | |
39628 | ||
39629 | .*---------------------------------------------------------------------* | |
39630 | :h3. DECODING ,CER, SET, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39631 | .*---------------------------------------------------------------------* | |
39632 | :xmp tab=0. | |
39633 | ||
39634 | <TC - DECODING ,CER, SET, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39635 | ||
39636 | <STATIC:ASN> | |
39637 | ||
39638 | TempA | |
39639 | ||
39640 | DEFINITIONS | |
39641 | ||
39642 | AUTOMATIC TAGS | |
39643 | ||
39644 | ||
39645 | ::= | |
39646 | ||
39647 | BEGIN | |
39648 | ||
39649 | ||
39650 | MySeq ::= SET | |
39651 | {x [1] INTEGER OPTIONAL, | |
39652 | y OCTET STRING} | |
39653 | ||
39654 | ||
39655 | ||
39656 | BERPDU ::= SET | |
39657 | { | |
39658 | b [0] BOOLEAN OPTIONAL, | |
39659 | c BIT STRING OPTIONAL, | |
39660 | COMPONENTS OF MySeq | |
39661 | } | |
39662 | ||
39663 | ||
39664 | ||
39665 | ||
39666 | END | |
39667 | ||
39668 | <STATIC> | |
39669 | ||
39670 | import from TempA all; | |
39671 | ||
39672 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39673 | ||
39674 | ||
39675 | const BERPDU myValue := {b := true, | |
39676 | c := '1'B , | |
39677 | x := 6, | |
39678 | y := 'FF'O } | |
39679 | ||
39680 | ||
39681 | ||
39682 | <TTCN_TC:EXEC> | |
39683 | ||
39684 | if (dec_BER_PDU('3180030207800401FF8001FF8101060000'O) == myValue) | |
39685 | ||
39686 | ||
39687 | ||
39688 | {setverdict(pass);} else {setverdict(fail);} | |
39689 | ||
39690 | ||
39691 | <RESULT> | |
39692 | ||
39693 | Overall verdict: pass | |
39694 | ||
39695 | <END_TC> | |
39696 | ||
39697 | :exmp. | |
39698 | ||
39699 | .*---------------------------------------------------------------------* | |
39700 | :h3. DECODING ,different order, SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39701 | .*---------------------------------------------------------------------* | |
39702 | :xmp tab=0. | |
39703 | ||
39704 | <TC - DECODING ,different order, SET , one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39705 | ||
39706 | <STATIC:ASN> | |
39707 | ||
39708 | TempA | |
39709 | ||
39710 | DEFINITIONS | |
39711 | ||
39712 | AUTOMATIC TAGS | |
39713 | ||
39714 | ||
39715 | ::= | |
39716 | ||
39717 | BEGIN | |
39718 | ||
39719 | ||
39720 | MySeq ::= SET | |
39721 | {x [1] INTEGER OPTIONAL, | |
39722 | y OCTET STRING} | |
39723 | ||
39724 | ||
39725 | ||
39726 | BERPDU ::= SET | |
39727 | { | |
39728 | b [0] BOOLEAN OPTIONAL, | |
39729 | c BIT STRING OPTIONAL, | |
39730 | COMPONENTS OF MySeq | |
39731 | } | |
39732 | ||
39733 | END | |
39734 | ||
39735 | <STATIC> | |
39736 | ||
39737 | import from TempA all; | |
39738 | ||
39739 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39740 | ||
39741 | ||
39742 | ||
39743 | const BERPDU myValue := {b := true, | |
39744 | c := '1'B , | |
39745 | x := 6, | |
39746 | y := 'FF'O } | |
39747 | ||
39748 | ||
39749 | ||
39750 | <TTCN_TC:EXEC> | |
39751 | ||
39752 | if (dec_BER_PDU('310D8101060401FF8001FF03020780'O) == myValue) | |
39753 | ||
39754 | ||
39755 | ||
39756 | {setverdict(pass);} else {setverdict(fail);} | |
39757 | ||
39758 | ||
39759 | <RESULT> | |
39760 | ||
39761 | Overall verdict: pass | |
39762 | ||
39763 | <END_TC> | |
39764 | ||
39765 | :exmp. | |
39766 | ||
39767 | .*---------------------------------------------------------------------* | |
39768 | :h3. DECODING ,different order, SET, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS | |
39769 | .*---------------------------------------------------------------------* | |
39770 | :xmp tab=0. | |
39771 | ||
39772 | <TC - DECODING ,different order, SET, one base element and one component is manually tagged,COMPONENTS OF used, AUTOMATIC TAGS> | |
39773 | ||
39774 | <STATIC:ASN> | |
39775 | ||
39776 | TempA | |
39777 | ||
39778 | DEFINITIONS | |
39779 | ||
39780 | AUTOMATIC TAGS | |
39781 | ||
39782 | ||
39783 | ::= | |
39784 | ||
39785 | BEGIN | |
39786 | ||
39787 | ||
39788 | MySeq ::= SET | |
39789 | {x [1] INTEGER OPTIONAL, | |
39790 | y OCTET STRING} | |
39791 | ||
39792 | ||
39793 | ||
39794 | BERPDU ::= SET | |
39795 | { | |
39796 | b [0] BOOLEAN OPTIONAL, | |
39797 | c BIT STRING OPTIONAL, | |
39798 | COMPONENTS OF MySeq | |
39799 | } | |
39800 | ||
39801 | ||
39802 | ||
39803 | ||
39804 | END | |
39805 | ||
39806 | <STATIC> | |
39807 | ||
39808 | import from TempA all; | |
39809 | ||
39810 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39811 | ||
39812 | ||
39813 | const BERPDU myValue := {b := true, | |
39814 | c := '1'B , | |
39815 | x := 6, | |
39816 | y := 'FF'O } | |
39817 | ||
39818 | ||
39819 | ||
39820 | <TTCN_TC:EXEC> | |
39821 | ||
39822 | if (dec_BER_PDU('31808001FF0401FF030207808101060000'O) == myValue) | |
39823 | ||
39824 | ||
39825 | ||
39826 | {setverdict(pass);} else {setverdict(fail);} | |
39827 | ||
39828 | ||
39829 | <RESULT> | |
39830 | ||
39831 | Overall verdict: pass | |
39832 | ||
39833 | <END_TC> | |
39834 | ||
39835 | :exmp. | |
39836 | ||
39837 | .*---------------------------------------------------------------------* | |
39838 | :h3. DECODING ,DER, SET with CHOICE element, AUTOMATIC TAGS | |
39839 | .*---------------------------------------------------------------------* | |
39840 | :xmp tab=0. | |
39841 | ||
39842 | <TC - DECODING ,DER, SET with CHOICE element, AUTOMATIC TAGS> | |
39843 | ||
39844 | <STATIC:ASN> | |
39845 | ||
39846 | TempA | |
39847 | ||
39848 | DEFINITIONS | |
39849 | ||
39850 | AUTOMATIC TAGS | |
39851 | ||
39852 | ||
39853 | ::= | |
39854 | ||
39855 | BEGIN | |
39856 | ||
39857 | ||
39858 | BERPDU ::= SET | |
39859 | { | |
39860 | b CHOICE { | |
39861 | x BOOLEAN, | |
39862 | y OCTET STRING | |
39863 | } | |
39864 | OPTIONAL, | |
39865 | ||
39866 | ||
39867 | c INTEGER OPTIONAL | |
39868 | ||
39869 | } | |
39870 | ||
39871 | ||
39872 | ||
39873 | END | |
39874 | ||
39875 | <STATIC> | |
39876 | ||
39877 | import from TempA all; | |
39878 | ||
39879 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39880 | ||
39881 | ||
39882 | const BERPDU myValue := {b := {x := true}, | |
39883 | c := 4 | |
39884 | } | |
39885 | ||
39886 | ||
39887 | ||
39888 | <TTCN_TC:EXEC> | |
39889 | ||
39890 | if (dec_BER_PDU('3108A0038001FF810104'O) == myValue) | |
39891 | ||
39892 | ||
39893 | ||
39894 | {setverdict(pass);} else {setverdict(fail);} | |
39895 | ||
39896 | ||
39897 | <RESULT> | |
39898 | ||
39899 | Overall verdict: pass | |
39900 | ||
39901 | <END_TC> | |
39902 | ||
39903 | :exmp. | |
39904 | ||
39905 | .*---------------------------------------------------------------------* | |
39906 | :h3. DECODING ,CER, SET with CHOICE element, AUTOMATIC TAGS | |
39907 | .*---------------------------------------------------------------------* | |
39908 | :xmp tab=0. | |
39909 | ||
39910 | <TC - DECODING ,CER, SET with CHOICE element, AUTOMATIC TAGS> | |
39911 | ||
39912 | <STATIC:ASN> | |
39913 | ||
39914 | TempA | |
39915 | ||
39916 | DEFINITIONS | |
39917 | ||
39918 | AUTOMATIC TAGS | |
39919 | ||
39920 | ||
39921 | ::= | |
39922 | ||
39923 | BEGIN | |
39924 | ||
39925 | BERPDU ::= SET | |
39926 | { | |
39927 | b CHOICE { | |
39928 | x BOOLEAN, | |
39929 | y OCTET STRING | |
39930 | } | |
39931 | OPTIONAL, | |
39932 | ||
39933 | ||
39934 | c INTEGER OPTIONAL | |
39935 | ||
39936 | } | |
39937 | ||
39938 | ||
39939 | END | |
39940 | ||
39941 | <STATIC> | |
39942 | ||
39943 | import from TempA all; | |
39944 | ||
39945 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
39946 | ||
39947 | ||
39948 | const BERPDU myValue := {b := {x := true}, | |
39949 | c := 4 | |
39950 | } | |
39951 | ||
39952 | ||
39953 | <TTCN_TC:EXEC> | |
39954 | ||
39955 | if (dec_BER_PDU('3180A0808001FF00008101040000'O) == myValue) | |
39956 | ||
39957 | ||
39958 | ||
39959 | {setverdict(pass);} else {setverdict(fail);} | |
39960 | ||
39961 | ||
39962 | <RESULT> | |
39963 | ||
39964 | Overall verdict: pass | |
39965 | ||
39966 | <END_TC> | |
39967 | ||
39968 | :exmp. | |
39969 | ||
39970 | .*---------------------------------------------------------------------* | |
39971 | :h3. DECODING ,reverse order, SET with CHOICE element, AUTOMATIC TAGS | |
39972 | .*---------------------------------------------------------------------* | |
39973 | :xmp tab=0. | |
39974 | ||
39975 | <TC - DECODING ,reverse order, SET with CHOICE element, AUTOMATIC TAGS> | |
39976 | ||
39977 | <STATIC:ASN> | |
39978 | ||
39979 | TempA | |
39980 | ||
39981 | DEFINITIONS | |
39982 | ||
39983 | AUTOMATIC TAGS | |
39984 | ||
39985 | ||
39986 | ::= | |
39987 | ||
39988 | BEGIN | |
39989 | ||
39990 | ||
39991 | BERPDU ::= SET | |
39992 | { | |
39993 | b CHOICE { | |
39994 | x BOOLEAN, | |
39995 | y OCTET STRING | |
39996 | } | |
39997 | OPTIONAL, | |
39998 | ||
39999 | ||
40000 | c INTEGER OPTIONAL | |
40001 | ||
40002 | } | |
40003 | ||
40004 | ||
40005 | ||
40006 | END | |
40007 | ||
40008 | <STATIC> | |
40009 | ||
40010 | import from TempA all; | |
40011 | ||
40012 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40013 | ||
40014 | ||
40015 | const BERPDU myValue := {b := {x := true}, | |
40016 | c := 4 | |
40017 | } | |
40018 | ||
40019 | ||
40020 | ||
40021 | <TTCN_TC:EXEC> | |
40022 | ||
40023 | if (dec_BER_PDU('3108810104A0038001FF'O) == myValue) | |
40024 | ||
40025 | ||
40026 | ||
40027 | {setverdict(pass);} else {setverdict(fail);} | |
40028 | ||
40029 | ||
40030 | <RESULT> | |
40031 | ||
40032 | Overall verdict: pass | |
40033 | ||
40034 | <END_TC> | |
40035 | ||
40036 | :exmp. | |
40037 | ||
40038 | .*---------------------------------------------------------------------* | |
40039 | :h3. DECODING ,reverse order, SET with CHOICE element, AUTOMATIC TAGS | |
40040 | .*---------------------------------------------------------------------* | |
40041 | :xmp tab=0. | |
40042 | ||
40043 | <TC - DECODING ,reverse order, SET with CHOICE element, AUTOMATIC TAGS> | |
40044 | ||
40045 | <STATIC:ASN> | |
40046 | ||
40047 | TempA | |
40048 | ||
40049 | DEFINITIONS | |
40050 | ||
40051 | AUTOMATIC TAGS | |
40052 | ||
40053 | ||
40054 | ::= | |
40055 | ||
40056 | BEGIN | |
40057 | ||
40058 | BERPDU ::= SET | |
40059 | { | |
40060 | b CHOICE { | |
40061 | x BOOLEAN, | |
40062 | y OCTET STRING | |
40063 | } | |
40064 | OPTIONAL, | |
40065 | ||
40066 | ||
40067 | c INTEGER OPTIONAL | |
40068 | ||
40069 | } | |
40070 | ||
40071 | ||
40072 | END | |
40073 | ||
40074 | <STATIC> | |
40075 | ||
40076 | import from TempA all; | |
40077 | ||
40078 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40079 | ||
40080 | ||
40081 | const BERPDU myValue := {b := {x := true}, | |
40082 | c := 4 | |
40083 | } | |
40084 | ||
40085 | ||
40086 | <TTCN_TC:EXEC> | |
40087 | ||
40088 | if (dec_BER_PDU('3180810104A0808001FF00000000'O) == myValue) | |
40089 | ||
40090 | ||
40091 | ||
40092 | {setverdict(pass);} else {setverdict(fail);} | |
40093 | ||
40094 | ||
40095 | <RESULT> | |
40096 | ||
40097 | Overall verdict: pass | |
40098 | ||
40099 | <END_TC> | |
40100 | ||
40101 | :exmp. | |
40102 | ||
40103 | .*---------------------------------------------------------------------* | |
40104 | :h3. DECODING ,DER, SET with CHOICE element, | |
40105 | .*---------------------------------------------------------------------* | |
40106 | :xmp tab=0. | |
40107 | ||
40108 | <TC - DECODING ,DER, SET with CHOICE element, > | |
40109 | ||
40110 | <STATIC:ASN> | |
40111 | ||
40112 | TempA | |
40113 | ||
40114 | DEFINITIONS | |
40115 | ||
40116 | ||
40117 | ||
40118 | ::= | |
40119 | ||
40120 | BEGIN | |
40121 | ||
40122 | ||
40123 | BERPDU ::= SET | |
40124 | { | |
40125 | b CHOICE { | |
40126 | x BOOLEAN, | |
40127 | y OCTET STRING | |
40128 | } | |
40129 | OPTIONAL, | |
40130 | ||
40131 | ||
40132 | c INTEGER OPTIONAL | |
40133 | ||
40134 | } | |
40135 | ||
40136 | ||
40137 | END | |
40138 | ||
40139 | <STATIC> | |
40140 | ||
40141 | import from TempA all; | |
40142 | ||
40143 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40144 | ||
40145 | const BERPDU myValue := {b := {x := true}, | |
40146 | c := 4 | |
40147 | } | |
40148 | ||
40149 | ||
40150 | ||
40151 | <TTCN_TC:EXEC> | |
40152 | ||
40153 | if (dec_BER_PDU('31060101FF020104'O) == myValue) {setverdict(pass);} else {setverdict(fail);} | |
40154 | ||
40155 | ||
40156 | <RESULT> | |
40157 | ||
40158 | Overall verdict: pass | |
40159 | ||
40160 | <END_TC> | |
40161 | ||
40162 | :exmp. | |
40163 | ||
40164 | .*---------------------------------------------------------------------* | |
40165 | :h3. DECODING ,CER, SET with CHOICE element, | |
40166 | .*---------------------------------------------------------------------* | |
40167 | :xmp tab=0. | |
40168 | ||
40169 | <TC - DECODING ,CER, SET with CHOICE element, > | |
40170 | ||
40171 | <STATIC:ASN> | |
40172 | ||
40173 | TempA | |
40174 | ||
40175 | DEFINITIONS | |
40176 | ||
40177 | ||
40178 | ||
40179 | ::= | |
40180 | ||
40181 | BEGIN | |
40182 | ||
40183 | ||
40184 | BERPDU ::= SET | |
40185 | { | |
40186 | b CHOICE { | |
40187 | x BOOLEAN, | |
40188 | y OCTET STRING | |
40189 | } | |
40190 | OPTIONAL, | |
40191 | ||
40192 | ||
40193 | c INTEGER OPTIONAL | |
40194 | ||
40195 | } | |
40196 | ||
40197 | END | |
40198 | ||
40199 | <STATIC> | |
40200 | ||
40201 | import from TempA all; | |
40202 | ||
40203 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40204 | ||
40205 | ||
40206 | const BERPDU myValue := {b := {x := true}, | |
40207 | c := 4 | |
40208 | } | |
40209 | ||
40210 | ||
40211 | <TTCN_TC:EXEC> | |
40212 | ||
40213 | if (dec_BER_PDU('31800101FF0201040000'O) == myValue){setverdict(pass);} else {setverdict(fail);} | |
40214 | ||
40215 | ||
40216 | <RESULT> | |
40217 | ||
40218 | Overall verdict: pass | |
40219 | ||
40220 | <END_TC> | |
40221 | ||
40222 | :exmp. | |
40223 | ||
40224 | .*---------------------------------------------------------------------* | |
40225 | :h3. DECODING ,reverse order, SET with CHOICE element, | |
40226 | .*---------------------------------------------------------------------* | |
40227 | :xmp tab=0. | |
40228 | ||
40229 | <TC - DECODING ,reverse order, SET with CHOICE element, > | |
40230 | ||
40231 | <STATIC:ASN> | |
40232 | ||
40233 | TempA | |
40234 | ||
40235 | DEFINITIONS | |
40236 | ||
40237 | ||
40238 | ||
40239 | ::= | |
40240 | ||
40241 | BEGIN | |
40242 | ||
40243 | ||
40244 | BERPDU ::= SET | |
40245 | { | |
40246 | b CHOICE { | |
40247 | x BOOLEAN, | |
40248 | y OCTET STRING | |
40249 | } | |
40250 | OPTIONAL, | |
40251 | ||
40252 | ||
40253 | c INTEGER OPTIONAL | |
40254 | ||
40255 | } | |
40256 | ||
40257 | ||
40258 | END | |
40259 | ||
40260 | <STATIC> | |
40261 | ||
40262 | import from TempA all; | |
40263 | ||
40264 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40265 | ||
40266 | const BERPDU myValue := {b := {x := true}, | |
40267 | c := 4 | |
40268 | } | |
40269 | ||
40270 | ||
40271 | ||
40272 | <TTCN_TC:EXEC> | |
40273 | ||
40274 | if (dec_BER_PDU('31060201040101FF'O) == myValue) | |
40275 | ||
40276 | ||
40277 | ||
40278 | {setverdict(pass);} else {setverdict(fail);} | |
40279 | ||
40280 | ||
40281 | <RESULT> | |
40282 | ||
40283 | Overall verdict: pass | |
40284 | ||
40285 | <END_TC> | |
40286 | ||
40287 | :exmp. | |
40288 | ||
40289 | .*---------------------------------------------------------------------* | |
40290 | :h3. DECODING ,reverse order, SET with CHOICE element, | |
40291 | .*---------------------------------------------------------------------* | |
40292 | :xmp tab=0. | |
40293 | ||
40294 | <TC - DECODING ,reverse order, SET with CHOICE element, > | |
40295 | ||
40296 | <STATIC:ASN> | |
40297 | ||
40298 | TempA | |
40299 | ||
40300 | DEFINITIONS | |
40301 | ||
40302 | ||
40303 | ||
40304 | ::= | |
40305 | ||
40306 | BEGIN | |
40307 | ||
40308 | ||
40309 | BERPDU ::= SET | |
40310 | { | |
40311 | b CHOICE { | |
40312 | x BOOLEAN, | |
40313 | y OCTET STRING | |
40314 | } | |
40315 | OPTIONAL, | |
40316 | ||
40317 | ||
40318 | c INTEGER OPTIONAL | |
40319 | ||
40320 | } | |
40321 | ||
40322 | END | |
40323 | ||
40324 | <STATIC> | |
40325 | ||
40326 | import from TempA all; | |
40327 | ||
40328 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40329 | ||
40330 | ||
40331 | const BERPDU myValue := {b := {x := true}, | |
40332 | c := 4 | |
40333 | } | |
40334 | ||
40335 | ||
40336 | <TTCN_TC:EXEC> | |
40337 | ||
40338 | if (dec_BER_PDU('31800201040101FF0000'O) == myValue) | |
40339 | ||
40340 | ||
40341 | ||
40342 | {setverdict(pass);} else {setverdict(fail);} | |
40343 | ||
40344 | ||
40345 | <RESULT> | |
40346 | ||
40347 | Overall verdict: pass | |
40348 | ||
40349 | <END_TC> | |
40350 | ||
40351 | :exmp. | |
40352 | ||
40353 | .*---------------------------------------------------------------------* | |
40354 | :h3. DECODING DER, SET with CHOICE element, different choice | |
40355 | .*---------------------------------------------------------------------* | |
40356 | :xmp tab=0. | |
40357 | ||
40358 | <TC - DECODING DER, SET with CHOICE element, different choice > | |
40359 | ||
40360 | <STATIC:ASN> | |
40361 | ||
40362 | TempA | |
40363 | ||
40364 | DEFINITIONS | |
40365 | ||
40366 | ||
40367 | ||
40368 | ::= | |
40369 | ||
40370 | BEGIN | |
40371 | ||
40372 | ||
40373 | BERPDU ::= SET | |
40374 | { | |
40375 | b CHOICE { | |
40376 | x BOOLEAN, | |
40377 | y OCTET STRING | |
40378 | } | |
40379 | OPTIONAL, | |
40380 | ||
40381 | ||
40382 | c INTEGER OPTIONAL | |
40383 | ||
40384 | } | |
40385 | ||
40386 | END | |
40387 | ||
40388 | <STATIC> | |
40389 | ||
40390 | import from TempA all; | |
40391 | ||
40392 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40393 | ||
40394 | ||
40395 | const BERPDU myValue := {b := {y := 'FF'O}, | |
40396 | c := 4 | |
40397 | } | |
40398 | ||
40399 | ||
40400 | <TTCN_TC:EXEC> | |
40401 | ||
40402 | if (dec_BER_PDU('31060201040401FF'O) == myValue) | |
40403 | ||
40404 | ||
40405 | ||
40406 | {setverdict(pass);} else {setverdict(fail);} | |
40407 | ||
40408 | ||
40409 | <RESULT> | |
40410 | ||
40411 | Overall verdict: pass | |
40412 | ||
40413 | <END_TC> | |
40414 | ||
40415 | :exmp. | |
40416 | ||
40417 | .*---------------------------------------------------------------------* | |
40418 | :h3. DECODING CER, SET with CHOICE element, different choice | |
40419 | .*---------------------------------------------------------------------* | |
40420 | :xmp tab=0. | |
40421 | ||
40422 | <TC - DECODING CER, SET with CHOICE element, different choice > | |
40423 | ||
40424 | <STATIC:ASN> | |
40425 | ||
40426 | TempA | |
40427 | ||
40428 | DEFINITIONS | |
40429 | ||
40430 | ||
40431 | ||
40432 | ::= | |
40433 | ||
40434 | BEGIN | |
40435 | ||
40436 | ||
40437 | BERPDU ::= SET | |
40438 | { | |
40439 | b CHOICE { | |
40440 | x BOOLEAN, | |
40441 | y OCTET STRING | |
40442 | } | |
40443 | OPTIONAL, | |
40444 | ||
40445 | ||
40446 | c INTEGER OPTIONAL | |
40447 | ||
40448 | } | |
40449 | ||
40450 | END | |
40451 | ||
40452 | <STATIC> | |
40453 | ||
40454 | import from TempA all; | |
40455 | ||
40456 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40457 | ||
40458 | ||
40459 | const BERPDU myValue := {b := {y := 'FF'O}, | |
40460 | c := 4 | |
40461 | } | |
40462 | ||
40463 | ||
40464 | <TTCN_TC:EXEC> | |
40465 | ||
40466 | if (dec_BER_PDU('31800401FF0201040000'O) == myValue) | |
40467 | ||
40468 | ||
40469 | ||
40470 | {setverdict(pass);} else {setverdict(fail);} | |
40471 | ||
40472 | ||
40473 | <RESULT> | |
40474 | ||
40475 | Overall verdict: pass | |
40476 | ||
40477 | <END_TC> | |
40478 | ||
40479 | :exmp. | |
40480 | ||
40481 | .*---------------------------------------------------------------------* | |
40482 | :h3. DECODING , SET with CHOICE element, different choice | |
40483 | .*---------------------------------------------------------------------* | |
40484 | :xmp tab=0. | |
40485 | ||
40486 | <TC - DECODING , SET with CHOICE element, different choice > | |
40487 | ||
40488 | <STATIC:ASN> | |
40489 | ||
40490 | TempA | |
40491 | ||
40492 | DEFINITIONS | |
40493 | ||
40494 | ||
40495 | ||
40496 | ::= | |
40497 | ||
40498 | BEGIN | |
40499 | ||
40500 | ||
40501 | BERPDU ::= SET | |
40502 | { | |
40503 | b CHOICE { | |
40504 | x BOOLEAN, | |
40505 | y OCTET STRING | |
40506 | } | |
40507 | OPTIONAL, | |
40508 | ||
40509 | ||
40510 | c INTEGER OPTIONAL | |
40511 | ||
40512 | } | |
40513 | ||
40514 | END | |
40515 | ||
40516 | <STATIC> | |
40517 | ||
40518 | import from TempA all; | |
40519 | ||
40520 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40521 | ||
40522 | ||
40523 | const BERPDU myValue := {b := {y := 'FF'O}, | |
40524 | c := 4 | |
40525 | } | |
40526 | ||
40527 | ||
40528 | <TTCN_TC:EXEC> | |
40529 | ||
40530 | if (dec_BER_PDU('31060401FF020104'O) == myValue) | |
40531 | ||
40532 | ||
40533 | ||
40534 | {setverdict(pass);} else {setverdict(fail);} | |
40535 | ||
40536 | ||
40537 | <RESULT> | |
40538 | ||
40539 | Overall verdict: pass | |
40540 | ||
40541 | <END_TC> | |
40542 | ||
40543 | :exmp. | |
40544 | ||
40545 | .*---------------------------------------------------------------------* | |
40546 | :h3. DECODING , SET with CHOICE element, different choice | |
40547 | .*---------------------------------------------------------------------* | |
40548 | :xmp tab=0. | |
40549 | ||
40550 | <TC - DECODING , SET with CHOICE element, different choice > | |
40551 | ||
40552 | <STATIC:ASN> | |
40553 | ||
40554 | TempA | |
40555 | ||
40556 | DEFINITIONS | |
40557 | ||
40558 | ||
40559 | ||
40560 | ::= | |
40561 | ||
40562 | BEGIN | |
40563 | ||
40564 | ||
40565 | BERPDU ::= SET | |
40566 | { | |
40567 | b CHOICE { | |
40568 | x BOOLEAN, | |
40569 | y OCTET STRING | |
40570 | } | |
40571 | OPTIONAL, | |
40572 | ||
40573 | ||
40574 | c INTEGER OPTIONAL | |
40575 | ||
40576 | } | |
40577 | ||
40578 | END | |
40579 | ||
40580 | <STATIC> | |
40581 | ||
40582 | import from TempA all; | |
40583 | ||
40584 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40585 | ||
40586 | ||
40587 | const BERPDU myValue := {b := {y := 'FF'O}, | |
40588 | c := 4 | |
40589 | } | |
40590 | ||
40591 | ||
40592 | <TTCN_TC:EXEC> | |
40593 | ||
40594 | if (dec_BER_PDU('31800201040401FF0000'O) == myValue) | |
40595 | ||
40596 | ||
40597 | ||
40598 | {setverdict(pass);} else {setverdict(fail);} | |
40599 | ||
40600 | ||
40601 | <RESULT> | |
40602 | ||
40603 | Overall verdict: pass | |
40604 | ||
40605 | <END_TC> | |
40606 | ||
40607 | :exmp. | |
40608 | ||
40609 | .*---------------------------------------------------------------------* | |
40610 | :h3. DECODING ,DER, SET with EXTENSION , AUTOMATIC TAGS | |
40611 | .*---------------------------------------------------------------------* | |
40612 | :xmp tab=0. | |
40613 | ||
40614 | <TC - DECODING ,DER, SET with EXTENSION , AUTOMATIC TAGS> | |
40615 | ||
40616 | <STATIC:ASN> | |
40617 | ||
40618 | TempA | |
40619 | ||
40620 | DEFINITIONS | |
40621 | ||
40622 | AUTOMATIC TAGS | |
40623 | ||
40624 | ::= | |
40625 | ||
40626 | BEGIN | |
40627 | ||
40628 | ||
40629 | ||
40630 | BERPDU ::= SET | |
40631 | { | |
40632 | ||
40633 | a OCTET STRING, | |
40634 | ||
40635 | b BOOLEAN, | |
40636 | ||
40637 | c INTEGER OPTIONAL, | |
40638 | ||
40639 | ..., | |
40640 | ||
40641 | d BIT STRING | |
40642 | ||
40643 | ||
40644 | ||
40645 | ||
40646 | } | |
40647 | ||
40648 | END | |
40649 | ||
40650 | <STATIC> | |
40651 | ||
40652 | import from TempA all; | |
40653 | ||
40654 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40655 | ||
40656 | ||
40657 | const BERPDU myValue := { | |
40658 | a := 'FF'O, | |
40659 | b := true, | |
40660 | d := '1'B, | |
40661 | c := 4 | |
40662 | } | |
40663 | ||
40664 | <TTCN_TC:EXEC> | |
40665 | ||
40666 | if (dec_BER_PDU('310D8001FF8101FF82010483020780'O) == myValue) | |
40667 | ||
40668 | ||
40669 | ||
40670 | {setverdict(pass);} else {setverdict(fail);} | |
40671 | ||
40672 | ||
40673 | <RESULT> | |
40674 | ||
40675 | Overall verdict: pass | |
40676 | ||
40677 | <END_TC> | |
40678 | ||
40679 | :exmp. | |
40680 | ||
40681 | .*---------------------------------------------------------------------* | |
40682 | :h3. DECODING ,CER, SET with EXTENSION , AUTOMATIC TAGS | |
40683 | .*---------------------------------------------------------------------* | |
40684 | :xmp tab=0. | |
40685 | ||
40686 | <TC - DECODING ,CER, SET with EXTENSION , AUTOMATIC TAGS> | |
40687 | ||
40688 | <STATIC:ASN> | |
40689 | ||
40690 | TempA | |
40691 | ||
40692 | DEFINITIONS | |
40693 | ||
40694 | AUTOMATIC TAGS | |
40695 | ||
40696 | ::= | |
40697 | ||
40698 | BEGIN | |
40699 | ||
40700 | ||
40701 | ||
40702 | BERPDU ::= SET | |
40703 | { | |
40704 | ||
40705 | a OCTET STRING, | |
40706 | ||
40707 | b BOOLEAN, | |
40708 | ||
40709 | c INTEGER OPTIONAL, | |
40710 | ||
40711 | ..., | |
40712 | ||
40713 | d BIT STRING | |
40714 | ||
40715 | ||
40716 | } | |
40717 | ||
40718 | END | |
40719 | ||
40720 | <STATIC> | |
40721 | ||
40722 | import from TempA all; | |
40723 | ||
40724 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40725 | ||
40726 | ||
40727 | const BERPDU myValue := { | |
40728 | a := 'FF'O, | |
40729 | b := true, | |
40730 | d := '1'B, | |
40731 | c := 4 | |
40732 | } | |
40733 | ||
40734 | <TTCN_TC:EXEC> | |
40735 | ||
40736 | if (dec_BER_PDU('31808001FF8101FF820104830207800000'O) == myValue) | |
40737 | ||
40738 | ||
40739 | ||
40740 | {setverdict(pass);} else {setverdict(fail);} | |
40741 | ||
40742 | ||
40743 | <RESULT> | |
40744 | ||
40745 | Overall verdict: pass | |
40746 | ||
40747 | <END_TC> | |
40748 | ||
40749 | :exmp. | |
40750 | ||
40751 | .*---------------------------------------------------------------------* | |
40752 | :h3. DECODING ,different order, SET with EXTENSION , AUTOMATIC TAGS | |
40753 | .*---------------------------------------------------------------------* | |
40754 | :xmp tab=0. | |
40755 | ||
40756 | <TC - DECODING ,different order, SET with EXTENSION , AUTOMATIC TAGS> | |
40757 | ||
40758 | <STATIC:ASN> | |
40759 | ||
40760 | TempA | |
40761 | ||
40762 | DEFINITIONS | |
40763 | ||
40764 | AUTOMATIC TAGS | |
40765 | ||
40766 | ::= | |
40767 | ||
40768 | BEGIN | |
40769 | ||
40770 | ||
40771 | ||
40772 | BERPDU ::= SET | |
40773 | { | |
40774 | ||
40775 | a OCTET STRING, | |
40776 | ||
40777 | b BOOLEAN, | |
40778 | ||
40779 | c INTEGER OPTIONAL, | |
40780 | ||
40781 | ..., | |
40782 | ||
40783 | d BIT STRING | |
40784 | ||
40785 | ||
40786 | ||
40787 | ||
40788 | } | |
40789 | ||
40790 | END | |
40791 | ||
40792 | <STATIC> | |
40793 | ||
40794 | import from TempA all; | |
40795 | ||
40796 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40797 | ||
40798 | ||
40799 | const BERPDU myValue := { | |
40800 | a := 'FF'O, | |
40801 | b := true, | |
40802 | d := '1'B, | |
40803 | c := 4 | |
40804 | } | |
40805 | ||
40806 | <TTCN_TC:EXEC> | |
40807 | ||
40808 | if (dec_BER_PDU('310D8001FF830207808101FF820104'O) == myValue) | |
40809 | ||
40810 | ||
40811 | ||
40812 | {setverdict(pass);} else {setverdict(fail);} | |
40813 | ||
40814 | ||
40815 | <RESULT> | |
40816 | ||
40817 | Overall verdict: pass | |
40818 | ||
40819 | <END_TC> | |
40820 | ||
40821 | :exmp. | |
40822 | ||
40823 | .*---------------------------------------------------------------------* | |
40824 | :h3. DECODING ,different order, SET with EXTENSION , AUTOMATIC TAGS | |
40825 | .*---------------------------------------------------------------------* | |
40826 | :xmp tab=0. | |
40827 | ||
40828 | <TC - DECODING ,different order, SET with EXTENSION , AUTOMATIC TAGS> | |
40829 | ||
40830 | <STATIC:ASN> | |
40831 | ||
40832 | TempA | |
40833 | ||
40834 | DEFINITIONS | |
40835 | ||
40836 | AUTOMATIC TAGS | |
40837 | ||
40838 | ::= | |
40839 | ||
40840 | BEGIN | |
40841 | ||
40842 | ||
40843 | ||
40844 | BERPDU ::= SET | |
40845 | { | |
40846 | ||
40847 | a OCTET STRING, | |
40848 | ||
40849 | b BOOLEAN, | |
40850 | ||
40851 | c INTEGER OPTIONAL, | |
40852 | ||
40853 | ..., | |
40854 | ||
40855 | d BIT STRING | |
40856 | ||
40857 | ||
40858 | } | |
40859 | ||
40860 | END | |
40861 | ||
40862 | <STATIC> | |
40863 | ||
40864 | import from TempA all; | |
40865 | ||
40866 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40867 | ||
40868 | ||
40869 | const BERPDU myValue := { | |
40870 | a := 'FF'O, | |
40871 | b := true, | |
40872 | d := '1'B, | |
40873 | c := 4 | |
40874 | } | |
40875 | ||
40876 | <TTCN_TC:EXEC> | |
40877 | ||
40878 | if (dec_BER_PDU('31808001FF830207808101FF8201040000'O) == myValue) | |
40879 | ||
40880 | ||
40881 | ||
40882 | {setverdict(pass);} else {setverdict(fail);} | |
40883 | ||
40884 | ||
40885 | <RESULT> | |
40886 | ||
40887 | Overall verdict: pass | |
40888 | ||
40889 | <END_TC> | |
40890 | ||
40891 | :exmp. | |
40892 | ||
40893 | .*---------------------------------------------------------------------* | |
40894 | :h3. DECODING SET with Long Form , AUTOMATIC TAGS | |
40895 | .*---------------------------------------------------------------------* | |
40896 | :xmp tab=0. | |
40897 | ||
40898 | <TC - DECODING SET with Long Form , AUTOMATIC TAGS> | |
40899 | ||
40900 | <STATIC:ASN> | |
40901 | ||
40902 | TempA | |
40903 | ||
40904 | DEFINITIONS | |
40905 | ||
40906 | AUTOMATIC TAGS | |
40907 | ||
40908 | ::= | |
40909 | ||
40910 | BEGIN | |
40911 | ||
40912 | ||
40913 | ||
40914 | BERPDU ::= SET | |
40915 | { | |
40916 | ||
40917 | a OCTET STRING, | |
40918 | ||
40919 | b BOOLEAN, | |
40920 | ||
40921 | c INTEGER OPTIONAL, | |
40922 | ||
40923 | ..., | |
40924 | ||
40925 | d BIT STRING | |
40926 | ||
40927 | ||
40928 | ||
40929 | ||
40930 | } | |
40931 | ||
40932 | END | |
40933 | ||
40934 | <STATIC> | |
40935 | ||
40936 | import from TempA all; | |
40937 | ||
40938 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
40939 | ||
40940 | ||
40941 | const BERPDU myValue := { | |
40942 | a := 'FF'O, | |
40943 | b := true, | |
40944 | d := '1'B, | |
40945 | c := 4 | |
40946 | } | |
40947 | ||
40948 | <TTCN_TC:EXEC> | |
40949 | ||
40950 | if (dec_BER_PDU('318300000D8001FF8101FF82010483020780'O) == myValue) | |
40951 | ||
40952 | ||
40953 | ||
40954 | {setverdict(pass);} else {setverdict(fail);} | |
40955 | ||
40956 | ||
40957 | <RESULT> | |
40958 | ||
40959 | Overall verdict: pass | |
40960 | ||
40961 | <END_TC> | |
40962 | ||
40963 | :exmp. | |
40964 | ||
40965 | .*---------------------------------------------------------------------* | |
40966 | :h3. DECODING, different order, SET with Long Form , AUTOMATIC TAGS | |
40967 | .*---------------------------------------------------------------------* | |
40968 | :xmp tab=0. | |
40969 | ||
40970 | <TC - DECODING, different order, SET with Long Form , AUTOMATIC TAGS> | |
40971 | ||
40972 | <STATIC:ASN> | |
40973 | ||
40974 | TempA | |
40975 | ||
40976 | DEFINITIONS | |
40977 | ||
40978 | AUTOMATIC TAGS | |
40979 | ||
40980 | ::= | |
40981 | ||
40982 | BEGIN | |
40983 | ||
40984 | ||
40985 | ||
40986 | BERPDU ::= SET | |
40987 | { | |
40988 | ||
40989 | a OCTET STRING, | |
40990 | ||
40991 | b BOOLEAN, | |
40992 | ||
40993 | c INTEGER OPTIONAL, | |
40994 | ||
40995 | ..., | |
40996 | ||
40997 | d BIT STRING | |
40998 | ||
40999 | ||
41000 | ||
41001 | ||
41002 | } | |
41003 | ||
41004 | END | |
41005 | ||
41006 | <STATIC> | |
41007 | ||
41008 | import from TempA all; | |
41009 | ||
41010 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41011 | ||
41012 | ||
41013 | const BERPDU myValue := { | |
41014 | a := 'FF'O, | |
41015 | b := true, | |
41016 | d := '1'B, | |
41017 | c := 4 | |
41018 | } | |
41019 | ||
41020 | <TTCN_TC:EXEC> | |
41021 | ||
41022 | if (dec_BER_PDU('318300000D8101FF820104830207808001FF'O) == myValue) | |
41023 | ||
41024 | ||
41025 | ||
41026 | {setverdict(pass);} else {setverdict(fail);} | |
41027 | ||
41028 | ||
41029 | <RESULT> | |
41030 | ||
41031 | Overall verdict: pass | |
41032 | ||
41033 | <END_TC> | |
41034 | ||
41035 | :exmp. | |
41036 | ||
41037 | .*---------------------------------------------------------------------* | |
41038 | :h3. DECODING , DER, SET with fields of different types , | |
41039 | .*---------------------------------------------------------------------* | |
41040 | :xmp tab=0. | |
41041 | ||
41042 | <TC - DECODING , DER, SET with fields of different types ,> | |
41043 | ||
41044 | <STATIC:ASN> | |
41045 | ||
41046 | TempA | |
41047 | ||
41048 | DEFINITIONS | |
41049 | ||
41050 | ||
41051 | ::= | |
41052 | ||
41053 | BEGIN | |
41054 | ||
41055 | ||
41056 | BERPDU ::= SET | |
41057 | { | |
41058 | a NULL, | |
41059 | b BOOLEAN, | |
41060 | c INTEGER, | |
41061 | d ENUMERATED {first ,second ,third}, | |
41062 | --e REAL, | |
41063 | f BIT STRING, | |
41064 | g OCTET STRING, | |
41065 | ||
41066 | h OBJECT IDENTIFIER, | |
41067 | i IA5String, | |
41068 | j CHOICE {x1 [1] BOOLEAN, | |
41069 | y1 [2] OCTET STRING}, | |
41070 | ||
41071 | k SEQUENCE{x2 NULL, | |
41072 | y2 BOOLEAN}, | |
41073 | ||
41074 | l SET { x3 BIT STRING, | |
41075 | y3 NULL}, | |
41076 | ||
41077 | m [3] SEQUENCE OF INTEGER, | |
41078 | n [4] SET OF BOOLEAN | |
41079 | } | |
41080 | ||
41081 | ||
41082 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41083 | ||
41084 | ||
41085 | END | |
41086 | ||
41087 | <STATIC> | |
41088 | ||
41089 | import from TempA all; | |
41090 | ||
41091 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41092 | ||
41093 | ||
41094 | const BERPDU myValue := {a := NULL, | |
41095 | b := true, | |
41096 | c := 2, | |
41097 | d := first, | |
41098 | // e := 1.0, | |
41099 | f := '1'B, | |
41100 | g := 'FFFF'O, | |
41101 | h := myOBJID, | |
41102 | i := "ABC", | |
41103 | j := {x1 := true } , | |
41104 | k := {x2 := NULL, | |
41105 | ||
41106 | y2 := true } , | |
41107 | l := {y3 := NULL , | |
41108 | ||
41109 | x3 := '1'B } , | |
41110 | m := | |
41111 | { 1 ,2 } , | |
41112 | n := | |
41113 | { true, true } | |
41114 | } | |
41115 | ||
41116 | ||
41117 | ||
41118 | ||
41119 | ||
41120 | <TTCN_TC:EXEC> | |
41121 | ||
41122 | if (dec_BER_PDU('31450101FF020102030207800402FFFF050006030002030A01001603414243300505000101FF3106030207800500A1030101FFA3083006020101020102A40831060101FF0101FF'O) == myValue) | |
41123 | ||
41124 | ||
41125 | ||
41126 | {setverdict(pass);} else {setverdict(fail);} | |
41127 | ||
41128 | ||
41129 | <RESULT> | |
41130 | ||
41131 | Overall verdict: pass | |
41132 | ||
41133 | <END_TC> | |
41134 | ||
41135 | :exmp. | |
41136 | ||
41137 | .*---------------------------------------------------------------------* | |
41138 | :h3. DECODING , CER, SET with fields of different types , | |
41139 | .*---------------------------------------------------------------------* | |
41140 | :xmp tab=0. | |
41141 | ||
41142 | <TC - DECODING , CER, SET with fields of different types ,> | |
41143 | ||
41144 | <STATIC:ASN> | |
41145 | ||
41146 | TempA | |
41147 | ||
41148 | DEFINITIONS | |
41149 | ||
41150 | ||
41151 | ::= | |
41152 | ||
41153 | BEGIN | |
41154 | ||
41155 | ||
41156 | BERPDU ::= SET | |
41157 | { | |
41158 | a NULL, | |
41159 | b BOOLEAN, | |
41160 | c INTEGER, | |
41161 | d ENUMERATED {first ,second ,third}, | |
41162 | -- e REAL, | |
41163 | f BIT STRING, | |
41164 | g OCTET STRING, | |
41165 | ||
41166 | h OBJECT IDENTIFIER, | |
41167 | i IA5String, | |
41168 | j CHOICE {x1 [1] BOOLEAN, | |
41169 | y1 [2] OCTET STRING}, | |
41170 | ||
41171 | k SEQUENCE{x2 NULL, | |
41172 | y2 BOOLEAN}, | |
41173 | ||
41174 | l SET { x3 BIT STRING, | |
41175 | y3 NULL}, | |
41176 | ||
41177 | m [3] SEQUENCE OF INTEGER, | |
41178 | n [4] SET OF BOOLEAN | |
41179 | } | |
41180 | ||
41181 | ||
41182 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41183 | ||
41184 | ||
41185 | END | |
41186 | ||
41187 | <STATIC> | |
41188 | ||
41189 | import from TempA all; | |
41190 | ||
41191 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41192 | ||
41193 | ||
41194 | const BERPDU myValue := {a := NULL, | |
41195 | b := true, | |
41196 | c := 2, | |
41197 | d := first, | |
41198 | // e := 1.0, 090603312E452B30 | |
41199 | f := '1'B, | |
41200 | g := 'FFFF'O, | |
41201 | h := myOBJID, | |
41202 | i := "ABC", | |
41203 | j := {x1 := true } , | |
41204 | k := {x2 := NULL, | |
41205 | ||
41206 | y2 := true } , | |
41207 | l := {y3 := NULL , | |
41208 | ||
41209 | x3 := '1'B } , | |
41210 | m := | |
41211 | { 1 ,2 } , | |
41212 | n := | |
41213 | { true, true } | |
41214 | } | |
41215 | ||
41216 | ||
41217 | ||
41218 | ||
41219 | ||
41220 | <TTCN_TC:EXEC> | |
41221 | ||
41222 | if (dec_BER_PDU('31800101FF020102030207800402FFFF050006030002030A01001603414243308005000101FF000031800302078005000000A1800101FF0000A380308002010102010200000000A48031800101FF0101FF000000000000'O) == myValue) | |
41223 | ||
41224 | ||
41225 | ||
41226 | {setverdict(pass);} else {setverdict(fail);} | |
41227 | ||
41228 | ||
41229 | <RESULT> | |
41230 | ||
41231 | Overall verdict: pass | |
41232 | ||
41233 | <END_TC> | |
41234 | ||
41235 | :exmp. | |
41236 | ||
41237 | .*---------------------------------------------------------------------* | |
41238 | :h3. DECODING , different order, SET with fields of different types , different order | |
41239 | .*---------------------------------------------------------------------* | |
41240 | :xmp tab=0. | |
41241 | ||
41242 | <TC - DECODING , different order, SET with fields of different types , different order > | |
41243 | ||
41244 | <STATIC:ASN> | |
41245 | ||
41246 | TempA | |
41247 | ||
41248 | DEFINITIONS | |
41249 | ||
41250 | ||
41251 | ::= | |
41252 | ||
41253 | BEGIN | |
41254 | ||
41255 | ||
41256 | BERPDU ::= SET | |
41257 | { | |
41258 | a NULL, | |
41259 | b BOOLEAN, | |
41260 | c INTEGER, | |
41261 | d ENUMERATED {first ,second ,third}, | |
41262 | --e REAL, | |
41263 | f BIT STRING, | |
41264 | g OCTET STRING, | |
41265 | ||
41266 | h OBJECT IDENTIFIER, | |
41267 | i IA5String, | |
41268 | j CHOICE {x1 [1] BOOLEAN, | |
41269 | y1 [2] OCTET STRING}, | |
41270 | ||
41271 | k SEQUENCE{x2 NULL, | |
41272 | y2 BOOLEAN}, | |
41273 | ||
41274 | l SET { x3 BIT STRING, | |
41275 | y3 NULL}, | |
41276 | ||
41277 | m [3] SEQUENCE OF INTEGER, | |
41278 | n [4] SET OF BOOLEAN | |
41279 | } | |
41280 | ||
41281 | ||
41282 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41283 | ||
41284 | ||
41285 | END | |
41286 | ||
41287 | <STATIC> | |
41288 | ||
41289 | import from TempA all; | |
41290 | ||
41291 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41292 | ||
41293 | ||
41294 | const BERPDU myValue := {a := NULL, | |
41295 | b := true, | |
41296 | c := 2, | |
41297 | d := first, | |
41298 | // e := 1.0, | |
41299 | f := '1'B, | |
41300 | g := 'FFFF'O, | |
41301 | h := myOBJID, | |
41302 | i := "ABC", | |
41303 | j := {x1 := true } , | |
41304 | k := {x2 := NULL, | |
41305 | ||
41306 | y2 := true } , | |
41307 | l := {y3 := NULL , | |
41308 | ||
41309 | x3 := '1'B } , | |
41310 | m := | |
41311 | { 1 ,2 } , | |
41312 | n := | |
41313 | { true, true } | |
41314 | } | |
41315 | ||
41316 | ||
41317 | ||
41318 | ||
41319 | ||
41320 | <TTCN_TC:EXEC> | |
41321 | ||
41322 | if (dec_BER_PDU('31450101FF0201020A0100030207800402FFFF06030002031603414243A1030101FF300505000101FF3106030207800500A3083006020101020102A40831060101FF0101FF0500'O) == myValue) | |
41323 | ||
41324 | ||
41325 | ||
41326 | {setverdict(pass);} else {setverdict(fail);} | |
41327 | ||
41328 | ||
41329 | <RESULT> | |
41330 | ||
41331 | Overall verdict: pass | |
41332 | ||
41333 | <END_TC> | |
41334 | ||
41335 | :exmp. | |
41336 | ||
41337 | .*---------------------------------------------------------------------* | |
41338 | :h3. DECODING , different order, SET with fields of different types , different order2 | |
41339 | .*---------------------------------------------------------------------* | |
41340 | :xmp tab=0. | |
41341 | ||
41342 | <TC - DECODING , different order, SET with fields of different types , different order2> | |
41343 | ||
41344 | <STATIC:ASN> | |
41345 | ||
41346 | TempA | |
41347 | ||
41348 | DEFINITIONS | |
41349 | ||
41350 | ||
41351 | ::= | |
41352 | ||
41353 | BEGIN | |
41354 | ||
41355 | ||
41356 | BERPDU ::= SET | |
41357 | { | |
41358 | a NULL, | |
41359 | b BOOLEAN, | |
41360 | c INTEGER, | |
41361 | d ENUMERATED {first ,second ,third}, | |
41362 | -- e REAL, | |
41363 | f BIT STRING, | |
41364 | g OCTET STRING, | |
41365 | ||
41366 | h OBJECT IDENTIFIER, | |
41367 | i IA5String, | |
41368 | j CHOICE {x1 [1] BOOLEAN, | |
41369 | y1 [2] OCTET STRING}, | |
41370 | ||
41371 | k SEQUENCE{x2 NULL, | |
41372 | y2 BOOLEAN}, | |
41373 | ||
41374 | l SET { x3 BIT STRING, | |
41375 | y3 NULL}, | |
41376 | ||
41377 | m [3] SEQUENCE OF INTEGER, | |
41378 | n [4] SET OF BOOLEAN | |
41379 | } | |
41380 | ||
41381 | ||
41382 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41383 | ||
41384 | ||
41385 | END | |
41386 | ||
41387 | <STATIC> | |
41388 | ||
41389 | import from TempA all; | |
41390 | ||
41391 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41392 | ||
41393 | ||
41394 | const BERPDU myValue := {a := NULL, | |
41395 | b := true, | |
41396 | c := 2, | |
41397 | d := first, | |
41398 | // e := 1.0, 090603312E452B30 | |
41399 | f := '1'B, | |
41400 | g := 'FFFF'O, | |
41401 | h := myOBJID, | |
41402 | i := "ABC", | |
41403 | j := {x1 := true } , | |
41404 | k := {x2 := NULL, | |
41405 | ||
41406 | y2 := true } , | |
41407 | l := {y3 := NULL , | |
41408 | ||
41409 | x3 := '1'B } , | |
41410 | m := | |
41411 | { 1 ,2 } , | |
41412 | n := | |
41413 | { true, true } | |
41414 | } | |
41415 | ||
41416 | ||
41417 | ||
41418 | ||
41419 | ||
41420 | <TTCN_TC:EXEC> | |
41421 | ||
41422 | if (dec_BER_PDU('31800101FF0201020A0100030207800402FFFF050006030002031603414243A1800101FF0000308005000101FF000031800302078005000000A380308002010102010200000000A48031800101FF0101FF000000000000'O) == myValue) | |
41423 | ||
41424 | ||
41425 | ||
41426 | {setverdict(pass);} else {setverdict(fail);} | |
41427 | ||
41428 | ||
41429 | <RESULT> | |
41430 | ||
41431 | Overall verdict: pass | |
41432 | ||
41433 | <END_TC> | |
41434 | ||
41435 | :exmp. | |
41436 | ||
41437 | .*---------------------------------------------------------------------* | |
41438 | :h3. DECODING , DER, SET with fields of different types , AUTOMATIC TAGS | |
41439 | .*---------------------------------------------------------------------* | |
41440 | :xmp tab=0. | |
41441 | ||
41442 | <TC - DECODING , DER, SET with fields of different types , AUTOMATIC TAGS> | |
41443 | ||
41444 | <STATIC:ASN> | |
41445 | ||
41446 | TempA | |
41447 | ||
41448 | DEFINITIONS | |
41449 | AUTOMATIC TAGS | |
41450 | ||
41451 | ::= | |
41452 | ||
41453 | BEGIN | |
41454 | ||
41455 | ||
41456 | ||
41457 | BERPDU ::= SET | |
41458 | { | |
41459 | a NULL, | |
41460 | b BOOLEAN, | |
41461 | c INTEGER, | |
41462 | d ENUMERATED {first ,second ,third}, | |
41463 | e NULL, | |
41464 | f BIT STRING, | |
41465 | g OCTET STRING, | |
41466 | ||
41467 | h OBJECT IDENTIFIER, | |
41468 | i IA5String, | |
41469 | j CHOICE {x1 BOOLEAN, | |
41470 | y1 OCTET STRING}, | |
41471 | ||
41472 | k SEQUENCE{x2 NULL, | |
41473 | y2 BOOLEAN}, | |
41474 | ||
41475 | l SET { x3 BIT STRING, | |
41476 | y3 NULL}, | |
41477 | ||
41478 | m SEQUENCE OF INTEGER, | |
41479 | n SET OF BOOLEAN | |
41480 | } | |
41481 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41482 | ||
41483 | ||
41484 | END | |
41485 | ||
41486 | <STATIC> | |
41487 | ||
41488 | import from TempA all; | |
41489 | ||
41490 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41491 | ||
41492 | ||
41493 | const BERPDU myValue := {a := NULL, | |
41494 | b := true, | |
41495 | c := 2, | |
41496 | d := first, | |
41497 | e := NULL, | |
41498 | f := '1'B, | |
41499 | g := 'FFFF'O, | |
41500 | h := myOBJID, | |
41501 | i := "ABC", | |
41502 | j := {x1 := true } , | |
41503 | k := {x2 := NULL, | |
41504 | ||
41505 | y2 := true } , | |
41506 | l := {y3 := NULL , | |
41507 | ||
41508 | x3 := '1'B } , | |
41509 | m := | |
41510 | { 1 ,2 } , | |
41511 | n := | |
41512 | { true, true } | |
41513 | } | |
41514 | ||
41515 | ||
41516 | ||
41517 | ||
41518 | ||
41519 | ||
41520 | <TTCN_TC:EXEC> | |
41521 | ||
41522 | if (dec_BER_PDU('314380008101FF8201028301008400850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB06800207808100AC06020101020102AD060101FF0101FF'O) == myValue) | |
41523 | ||
41524 | ||
41525 | ||
41526 | {setverdict(pass);} else {setverdict(fail);} | |
41527 | ||
41528 | ||
41529 | <RESULT> | |
41530 | ||
41531 | Overall verdict: pass | |
41532 | ||
41533 | <END_TC> | |
41534 | ||
41535 | :exmp. | |
41536 | ||
41537 | .*---------------------------------------------------------------------* | |
41538 | :h3. DECODING , DER, SET with fields of different types ,AUTOMATIC TAGS | |
41539 | .*---------------------------------------------------------------------* | |
41540 | :xmp tab=0. | |
41541 | ||
41542 | <TC - DECODING , DER, SET with fields of different types ,AUTOMATIC TAGS> | |
41543 | ||
41544 | <STATIC:ASN> | |
41545 | ||
41546 | TempA | |
41547 | ||
41548 | DEFINITIONS | |
41549 | ||
41550 | AUTOMATIC TAGS | |
41551 | ::= | |
41552 | ||
41553 | BEGIN | |
41554 | ||
41555 | ||
41556 | BERPDU ::= SET | |
41557 | { | |
41558 | a NULL, | |
41559 | b BOOLEAN, | |
41560 | c INTEGER, | |
41561 | d ENUMERATED {first ,second ,third}, | |
41562 | e NULL, | |
41563 | f BIT STRING, | |
41564 | g OCTET STRING, | |
41565 | ||
41566 | h OBJECT IDENTIFIER, | |
41567 | i IA5String, | |
41568 | j CHOICE {x1 BOOLEAN, | |
41569 | y1 OCTET STRING}, | |
41570 | ||
41571 | k SEQUENCE{x2 NULL, | |
41572 | y2 BOOLEAN}, | |
41573 | ||
41574 | l SET { x3 BIT STRING, | |
41575 | y3 NULL}, | |
41576 | ||
41577 | m SEQUENCE OF INTEGER, | |
41578 | n SET OF BOOLEAN | |
41579 | } | |
41580 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41581 | ||
41582 | ||
41583 | ||
41584 | END | |
41585 | ||
41586 | <STATIC> | |
41587 | ||
41588 | import from TempA all; | |
41589 | ||
41590 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41591 | ||
41592 | ||
41593 | const BERPDU myValue := {a := NULL, | |
41594 | b := true, | |
41595 | c := 2, | |
41596 | d := first, | |
41597 | e := NULL, | |
41598 | f := '1'B, | |
41599 | g := 'FFFF'O, | |
41600 | h := myOBJID, | |
41601 | i := "ABC", | |
41602 | j := {x1 := true } , | |
41603 | k := {x2 := NULL, | |
41604 | ||
41605 | y2 := true } , | |
41606 | l := {y3 := NULL , | |
41607 | ||
41608 | x3 := '1'B } , | |
41609 | m := | |
41610 | { 1 ,2 } , | |
41611 | n := | |
41612 | { true, true } | |
41613 | } | |
41614 | ||
41615 | ||
41616 | ||
41617 | ||
41618 | ||
41619 | ||
41620 | <TTCN_TC:EXEC> | |
41621 | ||
41622 | if (dec_BER_PDU('318080008101FF8201028301008400850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB808002078081000000AC800201010201020000AD800101FF0101FF00000000'O) == myValue) | |
41623 | ||
41624 | ||
41625 | ||
41626 | {setverdict(pass);} else {setverdict(fail);} | |
41627 | ||
41628 | ||
41629 | <RESULT> | |
41630 | ||
41631 | Overall verdict: pass | |
41632 | ||
41633 | <END_TC> | |
41634 | ||
41635 | :exmp. | |
41636 | ||
41637 | .*---------------------------------------------------------------------* | |
41638 | :h3. DECODING , different order, SET with fields of different types , AUTOMATIC TAGS | |
41639 | .*---------------------------------------------------------------------* | |
41640 | :xmp tab=0. | |
41641 | ||
41642 | <TC - DECODING , different order, SET with fields of different types , AUTOMATIC TAGS> | |
41643 | ||
41644 | <STATIC:ASN> | |
41645 | ||
41646 | TempA | |
41647 | ||
41648 | DEFINITIONS | |
41649 | AUTOMATIC TAGS | |
41650 | ||
41651 | ::= | |
41652 | ||
41653 | BEGIN | |
41654 | ||
41655 | ||
41656 | ||
41657 | BERPDU ::= SET | |
41658 | { | |
41659 | a NULL, | |
41660 | b BOOLEAN, | |
41661 | c INTEGER, | |
41662 | d ENUMERATED {first ,second ,third}, | |
41663 | e NULL, | |
41664 | f BIT STRING, | |
41665 | g OCTET STRING, | |
41666 | ||
41667 | h OBJECT IDENTIFIER, | |
41668 | i IA5String, | |
41669 | j CHOICE {x1 BOOLEAN, | |
41670 | y1 OCTET STRING}, | |
41671 | ||
41672 | k SEQUENCE{x2 NULL, | |
41673 | y2 BOOLEAN}, | |
41674 | ||
41675 | l SET { x3 BIT STRING, | |
41676 | y3 NULL}, | |
41677 | ||
41678 | m SEQUENCE OF INTEGER, | |
41679 | n SET OF BOOLEAN | |
41680 | } | |
41681 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41682 | ||
41683 | ||
41684 | END | |
41685 | ||
41686 | <STATIC> | |
41687 | ||
41688 | import from TempA all; | |
41689 | ||
41690 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41691 | ||
41692 | ||
41693 | const BERPDU myValue := {a := NULL, | |
41694 | b := true, | |
41695 | c := 2, | |
41696 | d := first, | |
41697 | e := NULL, | |
41698 | f := '1'B, | |
41699 | g := 'FFFF'O, | |
41700 | h := myOBJID, | |
41701 | i := "ABC", | |
41702 | j := {x1 := true } , | |
41703 | k := {x2 := NULL, | |
41704 | ||
41705 | y2 := true } , | |
41706 | l := {y3 := NULL , | |
41707 | ||
41708 | x3 := '1'B } , | |
41709 | m := | |
41710 | { 1 ,2 } , | |
41711 | n := | |
41712 | { true, true } | |
41713 | } | |
41714 | ||
41715 | ||
41716 | ||
41717 | ||
41718 | ||
41719 | ||
41720 | <TTCN_TC:EXEC> | |
41721 | ||
41722 | if (dec_BER_PDU('31438101FF8201028301008400850207808602FFFF87030002038803414243A9038001FFAA0580008101FFAB06800207808100AC06020101020102AD060101FF0101FF8000'O) == myValue) | |
41723 | ||
41724 | ||
41725 | ||
41726 | {setverdict(pass);} else {setverdict(fail);} | |
41727 | ||
41728 | ||
41729 | <RESULT> | |
41730 | ||
41731 | Overall verdict: pass | |
41732 | ||
41733 | <END_TC> | |
41734 | ||
41735 | :exmp. | |
41736 | ||
41737 | .*---------------------------------------------------------------------* | |
41738 | :h3. DECODING , different order, SET with fields of different types ,AUTOMATIC TAGS | |
41739 | .*---------------------------------------------------------------------* | |
41740 | :xmp tab=0. | |
41741 | ||
41742 | <TC - DECODING , different order, SET with fields of different types ,AUTOMATIC TAGS> | |
41743 | ||
41744 | <STATIC:ASN> | |
41745 | ||
41746 | TempA | |
41747 | ||
41748 | DEFINITIONS | |
41749 | ||
41750 | AUTOMATIC TAGS | |
41751 | ::= | |
41752 | ||
41753 | BEGIN | |
41754 | ||
41755 | ||
41756 | BERPDU ::= SET | |
41757 | { | |
41758 | a NULL, | |
41759 | b BOOLEAN, | |
41760 | c INTEGER, | |
41761 | d ENUMERATED {first ,second ,third}, | |
41762 | e NULL, | |
41763 | f BIT STRING, | |
41764 | g OCTET STRING, | |
41765 | ||
41766 | h OBJECT IDENTIFIER, | |
41767 | i IA5String, | |
41768 | j CHOICE {x1 BOOLEAN, | |
41769 | y1 OCTET STRING}, | |
41770 | ||
41771 | k SEQUENCE{x2 NULL, | |
41772 | y2 BOOLEAN}, | |
41773 | ||
41774 | l SET { x3 BIT STRING, | |
41775 | y3 NULL}, | |
41776 | ||
41777 | m SEQUENCE OF INTEGER, | |
41778 | n SET OF BOOLEAN | |
41779 | } | |
41780 | myOBJID OBJECT IDENTIFIER ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
41781 | ||
41782 | ||
41783 | ||
41784 | END | |
41785 | ||
41786 | <STATIC> | |
41787 | ||
41788 | import from TempA all; | |
41789 | ||
41790 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41791 | ||
41792 | ||
41793 | const BERPDU myValue := {a := NULL, | |
41794 | b := true, | |
41795 | c := 2, | |
41796 | d := first, | |
41797 | e := NULL, | |
41798 | f := '1'B, | |
41799 | g := 'FFFF'O, | |
41800 | h := myOBJID, | |
41801 | i := "ABC", | |
41802 | j := {x1 := true } , | |
41803 | k := {x2 := NULL, | |
41804 | ||
41805 | y2 := true } , | |
41806 | l := {y3 := NULL , | |
41807 | ||
41808 | x3 := '1'B } , | |
41809 | m := | |
41810 | { 1 ,2 } , | |
41811 | n := | |
41812 | { true, true } | |
41813 | } | |
41814 | ||
41815 | ||
41816 | ||
41817 | ||
41818 | ||
41819 | ||
41820 | <TTCN_TC:EXEC> | |
41821 | ||
41822 | if (dec_BER_PDU('318080008201028101FF8301008400850207808602FFFF87030002038803414243A9808001FF0000AA8080008101FF0000AB808002078081000000AC800201010201020000AD800101FF0101FF00000000'O) == myValue) | |
41823 | ||
41824 | ||
41825 | ||
41826 | {setverdict(pass);} else {setverdict(fail);} | |
41827 | ||
41828 | ||
41829 | <RESULT> | |
41830 | ||
41831 | Overall verdict: pass | |
41832 | ||
41833 | <END_TC> | |
41834 | ||
41835 | :exmp. | |
41836 | ||
41837 | .*---------------------------------------------------------------------* | |
41838 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGS | |
41839 | .*---------------------------------------------------------------------* | |
41840 | :xmp tab=0. | |
41841 | ||
41842 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGS> | |
41843 | ||
41844 | <STATIC:ASN> | |
41845 | ||
41846 | TempA | |
41847 | ||
41848 | DEFINITIONS | |
41849 | ||
41850 | IMPLICIT TAGS | |
41851 | ::= | |
41852 | ||
41853 | BEGIN | |
41854 | ||
41855 | ||
41856 | ||
41857 | BERPDU ::= SET | |
41858 | { | |
41859 | d [PRIVATE 0] INTEGER OPTIONAL, | |
41860 | a INTEGER OPTIONAL, | |
41861 | b [APPLICATION 0] INTEGER OPTIONAL, | |
41862 | c [0] INTEGER OPTIONAL | |
41863 | ||
41864 | } | |
41865 | ||
41866 | ||
41867 | ||
41868 | END | |
41869 | ||
41870 | <STATIC> | |
41871 | ||
41872 | import from TempA all; | |
41873 | ||
41874 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41875 | ||
41876 | ||
41877 | const BERPDU myValue := { | |
41878 | a := 1, | |
41879 | c := 3, | |
41880 | d := 4, | |
41881 | b := 2 } | |
41882 | ||
41883 | ||
41884 | ||
41885 | <TTCN_TC:EXEC> | |
41886 | ||
41887 | if (dec_BER_PDU('310C020101400102800103C00104'O) == myValue) | |
41888 | ||
41889 | {setverdict(pass);} else {setverdict(fail);} | |
41890 | ||
41891 | ||
41892 | <RESULT> | |
41893 | ||
41894 | Overall verdict: pass | |
41895 | ||
41896 | <END_TC> | |
41897 | ||
41898 | :exmp. | |
41899 | ||
41900 | .*---------------------------------------------------------------------* | |
41901 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGS | |
41902 | .*---------------------------------------------------------------------* | |
41903 | :xmp tab=0. | |
41904 | ||
41905 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) IMPLICIT TAGS> | |
41906 | ||
41907 | <STATIC:ASN> | |
41908 | ||
41909 | TempA | |
41910 | ||
41911 | DEFINITIONS | |
41912 | ||
41913 | IMPLICIT TAGS | |
41914 | ::= | |
41915 | ||
41916 | BEGIN | |
41917 | ||
41918 | ||
41919 | ||
41920 | BERPDU ::= SET | |
41921 | { | |
41922 | d [PRIVATE 0] INTEGER OPTIONAL, | |
41923 | a INTEGER OPTIONAL, | |
41924 | b [APPLICATION 0] INTEGER OPTIONAL, | |
41925 | c [0] INTEGER OPTIONAL | |
41926 | ||
41927 | } | |
41928 | ||
41929 | ||
41930 | ||
41931 | END | |
41932 | ||
41933 | <STATIC> | |
41934 | ||
41935 | import from TempA all; | |
41936 | ||
41937 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41938 | ||
41939 | ||
41940 | const BERPDU myValue := { | |
41941 | a := 1, | |
41942 | c := 3, | |
41943 | d := 4, | |
41944 | b := 2 } | |
41945 | ||
41946 | ||
41947 | ||
41948 | <TTCN_TC:EXEC> | |
41949 | ||
41950 | if (dec_BER_PDU('3180020101400102800103C001040000'O) == myValue) | |
41951 | ||
41952 | {setverdict(pass);} else {setverdict(fail);} | |
41953 | ||
41954 | ||
41955 | <RESULT> | |
41956 | ||
41957 | Overall verdict: pass | |
41958 | ||
41959 | <END_TC> | |
41960 | ||
41961 | :exmp. | |
41962 | ||
41963 | .*---------------------------------------------------------------------* | |
41964 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) | |
41965 | .*---------------------------------------------------------------------* | |
41966 | :xmp tab=0. | |
41967 | ||
41968 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE )> | |
41969 | ||
41970 | <STATIC:ASN> | |
41971 | ||
41972 | TempA | |
41973 | ||
41974 | DEFINITIONS ::= | |
41975 | BEGIN | |
41976 | ||
41977 | ||
41978 | ||
41979 | BERPDU ::= SET | |
41980 | { | |
41981 | d [PRIVATE 0] INTEGER OPTIONAL, | |
41982 | a INTEGER OPTIONAL, | |
41983 | b [APPLICATION 0] INTEGER OPTIONAL, | |
41984 | c [0] INTEGER OPTIONAL | |
41985 | ||
41986 | } | |
41987 | ||
41988 | ||
41989 | ||
41990 | END | |
41991 | ||
41992 | <STATIC> | |
41993 | ||
41994 | import from TempA all; | |
41995 | ||
41996 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
41997 | ||
41998 | ||
41999 | const BERPDU myValue := { | |
42000 | a := 1, | |
42001 | c := 3, | |
42002 | d := 4, | |
42003 | b := 2 } | |
42004 | ||
42005 | ||
42006 | ||
42007 | <TTCN_TC:EXEC> | |
42008 | ||
42009 | if (dec_BER_PDU('31120201016003020102A003020103E003020104'O) == myValue) | |
42010 | ||
42011 | {setverdict(pass);} else {setverdict(fail);} | |
42012 | ||
42013 | ||
42014 | <RESULT> | |
42015 | ||
42016 | Overall verdict: pass | |
42017 | ||
42018 | <END_TC> | |
42019 | ||
42020 | :exmp. | |
42021 | ||
42022 | .*---------------------------------------------------------------------* | |
42023 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) | |
42024 | .*---------------------------------------------------------------------* | |
42025 | :xmp tab=0. | |
42026 | ||
42027 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE )> | |
42028 | ||
42029 | <STATIC:ASN> | |
42030 | ||
42031 | TempA | |
42032 | ||
42033 | DEFINITIONS ::= | |
42034 | BEGIN | |
42035 | ||
42036 | ||
42037 | ||
42038 | BERPDU ::= SET | |
42039 | { | |
42040 | d [PRIVATE 0] INTEGER OPTIONAL, | |
42041 | a INTEGER OPTIONAL, | |
42042 | b [APPLICATION 0] INTEGER OPTIONAL, | |
42043 | c [0] INTEGER OPTIONAL | |
42044 | ||
42045 | } | |
42046 | ||
42047 | ||
42048 | ||
42049 | END | |
42050 | ||
42051 | <STATIC> | |
42052 | ||
42053 | import from TempA all; | |
42054 | ||
42055 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42056 | ||
42057 | ||
42058 | const BERPDU myValue := { | |
42059 | a := 1, | |
42060 | c := 3, | |
42061 | d := 4, | |
42062 | b := 2 } | |
42063 | ||
42064 | ||
42065 | ||
42066 | <TTCN_TC:EXEC> | |
42067 | ||
42068 | if (dec_BER_PDU('318002010160800201020000A0800201030000E08002010400000000'O) == myValue) | |
42069 | ||
42070 | {setverdict(pass);} else {setverdict(fail);} | |
42071 | ||
42072 | ||
42073 | <RESULT> | |
42074 | ||
42075 | Overall verdict: pass | |
42076 | ||
42077 | <END_TC> | |
42078 | ||
42079 | :exmp. | |
42080 | ||
42081 | .*---------------------------------------------------------------------* | |
42082 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGS | |
42083 | .*---------------------------------------------------------------------* | |
42084 | :xmp tab=0. | |
42085 | ||
42086 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGS> | |
42087 | ||
42088 | <STATIC:ASN> | |
42089 | ||
42090 | TempA | |
42091 | ||
42092 | DEFINITIONS | |
42093 | ||
42094 | EXPLICIT TAGS | |
42095 | ||
42096 | ||
42097 | ::= | |
42098 | ||
42099 | BEGIN | |
42100 | ||
42101 | ||
42102 | ||
42103 | BERPDU ::= SET | |
42104 | { | |
42105 | d [PRIVATE 0] INTEGER OPTIONAL, | |
42106 | a INTEGER OPTIONAL, | |
42107 | b [APPLICATION 0] INTEGER OPTIONAL, | |
42108 | c [0] INTEGER OPTIONAL | |
42109 | ||
42110 | } | |
42111 | ||
42112 | ||
42113 | ||
42114 | END | |
42115 | ||
42116 | <STATIC> | |
42117 | ||
42118 | import from TempA all; | |
42119 | ||
42120 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42121 | ||
42122 | ||
42123 | const BERPDU myValue := { | |
42124 | a := 1, | |
42125 | c := 3, | |
42126 | d := 4, | |
42127 | b := 2 } | |
42128 | ||
42129 | ||
42130 | ||
42131 | <TTCN_TC:EXEC> | |
42132 | ||
42133 | if (dec_BER_PDU('31120201016003020102A003020103E003020104'O) == myValue) | |
42134 | ||
42135 | {setverdict(pass);} else {setverdict(fail);} | |
42136 | ||
42137 | ||
42138 | <RESULT> | |
42139 | ||
42140 | Overall verdict: pass | |
42141 | ||
42142 | <END_TC> | |
42143 | ||
42144 | :exmp. | |
42145 | ||
42146 | .*---------------------------------------------------------------------* | |
42147 | :h3. DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGGING | |
42148 | .*---------------------------------------------------------------------* | |
42149 | :xmp tab=0. | |
42150 | ||
42151 | <TC - DECODING SET, DER, (include UNIVERSAL, APPLICATION, CONTEXT SPECIFIC, PRIVATE ) EXPLICIT TAGGING> | |
42152 | ||
42153 | <STATIC:ASN> | |
42154 | ||
42155 | TempA | |
42156 | ||
42157 | DEFINITIONS | |
42158 | ||
42159 | EXPLICIT TAGS | |
42160 | ||
42161 | ::= | |
42162 | ||
42163 | BEGIN | |
42164 | ||
42165 | ||
42166 | ||
42167 | BERPDU ::= SET | |
42168 | { | |
42169 | d [PRIVATE 0] INTEGER OPTIONAL, | |
42170 | a INTEGER OPTIONAL, | |
42171 | b [APPLICATION 0] INTEGER OPTIONAL, | |
42172 | c [0] INTEGER OPTIONAL | |
42173 | ||
42174 | } | |
42175 | ||
42176 | ||
42177 | ||
42178 | END | |
42179 | ||
42180 | <STATIC> | |
42181 | ||
42182 | import from TempA all; | |
42183 | ||
42184 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42185 | ||
42186 | ||
42187 | const BERPDU myValue := { | |
42188 | a := 1, | |
42189 | c := 3, | |
42190 | d := 4, | |
42191 | b := 2 } | |
42192 | ||
42193 | ||
42194 | ||
42195 | <TTCN_TC:EXEC> | |
42196 | ||
42197 | if (dec_BER_PDU('318002010160800201020000A0800201030000E08002010400000000'O) == myValue) | |
42198 | ||
42199 | {setverdict(pass);} else {setverdict(fail);} | |
42200 | ||
42201 | ||
42202 | <RESULT> | |
42203 | ||
42204 | Overall verdict: pass | |
42205 | ||
42206 | <END_TC> | |
42207 | ||
42208 | :exmp. | |
42209 | ||
42210 | .*---------------------------------------------------------------------* | |
42211 | :h3. DECODING SET, DER, untagged CHOICE in SET | |
42212 | .*---------------------------------------------------------------------* | |
42213 | :xmp tab=0. | |
42214 | ||
42215 | <TC - DECODING SET, DER, untagged CHOICE in SET> | |
42216 | ||
42217 | <STATIC:ASN> | |
42218 | ||
42219 | TempA | |
42220 | ||
42221 | DEFINITIONS | |
42222 | ||
42223 | IMPLICIT TAGS | |
42224 | ||
42225 | ::= | |
42226 | ||
42227 | BEGIN | |
42228 | ||
42229 | ||
42230 | ||
42231 | ||
42232 | BERPDU ::= SET | |
42233 | { | |
42234 | a [3] INTEGER, | |
42235 | b [1] CHOICE | |
42236 | { | |
42237 | c [2] INTEGER, | |
42238 | d [4] INTEGER | |
42239 | }, | |
42240 | e CHOICE | |
42241 | { | |
42242 | f CHOICE | |
42243 | { | |
42244 | g [5] INTEGER, | |
42245 | h [6] INTEGER | |
42246 | }, | |
42247 | i CHOICE | |
42248 | { | |
42249 | ||
42250 | ||
42251 | j [0] INTEGER | |
42252 | ||
42253 | } | |
42254 | } | |
42255 | } | |
42256 | ||
42257 | ||
42258 | ||
42259 | ||
42260 | END | |
42261 | ||
42262 | <STATIC> | |
42263 | ||
42264 | import from TempA all; | |
42265 | ||
42266 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42267 | ||
42268 | ||
42269 | ||
42270 | ||
42271 | const BERPDU myValue := { | |
42272 | a := 1, | |
42273 | b := {c:= 2}, | |
42274 | e := { f := {g := 3 }} | |
42275 | } | |
42276 | ||
42277 | ||
42278 | ||
42279 | <TTCN_TC:EXEC> | |
42280 | ||
42281 | if (dec_BER_PDU('310BA103820102830101850103'O) == myValue) | |
42282 | ||
42283 | {setverdict(pass);} else {setverdict(fail);} | |
42284 | ||
42285 | ||
42286 | <RESULT> | |
42287 | ||
42288 | Overall verdict: pass | |
42289 | ||
42290 | <END_TC> | |
42291 | ||
42292 | :exmp. | |
42293 | ||
42294 | .*---------------------------------------------------------------------* | |
42295 | :h3. DECODING SET, CER, untagged CHOICE in SET | |
42296 | .*---------------------------------------------------------------------* | |
42297 | :xmp tab=0. | |
42298 | ||
42299 | <TC - DECODING SET, CER, untagged CHOICE in SET> | |
42300 | ||
42301 | <STATIC:ASN> | |
42302 | ||
42303 | TempA | |
42304 | ||
42305 | DEFINITIONS | |
42306 | ||
42307 | IMPLICIT TAGS | |
42308 | ||
42309 | ::= | |
42310 | ||
42311 | BEGIN | |
42312 | ||
42313 | ||
42314 | ||
42315 | ||
42316 | BERPDU ::= SET | |
42317 | { | |
42318 | a [3] INTEGER, | |
42319 | b [1] CHOICE | |
42320 | { | |
42321 | c [2] INTEGER, | |
42322 | d [4] INTEGER | |
42323 | }, | |
42324 | e CHOICE | |
42325 | { | |
42326 | f CHOICE | |
42327 | { | |
42328 | g [5] INTEGER, | |
42329 | h [6] INTEGER | |
42330 | }, | |
42331 | i CHOICE | |
42332 | { | |
42333 | ||
42334 | ||
42335 | j [0] INTEGER | |
42336 | ||
42337 | } | |
42338 | } | |
42339 | } | |
42340 | ||
42341 | ||
42342 | ||
42343 | ||
42344 | END | |
42345 | ||
42346 | <STATIC> | |
42347 | ||
42348 | import from TempA all; | |
42349 | ||
42350 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42351 | ||
42352 | ||
42353 | ||
42354 | ||
42355 | const BERPDU myValue := { | |
42356 | a := 1, | |
42357 | b := {c:= 2}, | |
42358 | e := { f := {g := 3 }} | |
42359 | } | |
42360 | ||
42361 | ||
42362 | ||
42363 | <TTCN_TC:EXEC> | |
42364 | ||
42365 | if (dec_BER_PDU('3180850103A18082010200008301010000'O) == myValue) | |
42366 | ||
42367 | {setverdict(pass);} else {setverdict(fail);} | |
42368 | ||
42369 | ||
42370 | <RESULT> | |
42371 | ||
42372 | Overall verdict: pass | |
42373 | ||
42374 | <END_TC> | |
42375 | ||
42376 | :exmp. | |
42377 | ||
42378 | .*---------------------------------------------------------------------* | |
42379 | :h3. DECODING SET, DER, untagged CHOICE in SET, EXPLICIT TAGS | |
42380 | .*---------------------------------------------------------------------* | |
42381 | :xmp tab=0. | |
42382 | ||
42383 | <TC - DECODING SET, DER, untagged CHOICE in SET, EXPLICIT TAGS> | |
42384 | ||
42385 | <STATIC:ASN> | |
42386 | ||
42387 | TempA | |
42388 | ||
42389 | DEFINITIONS | |
42390 | ||
42391 | EXPLICIT TAGS | |
42392 | ||
42393 | ::= | |
42394 | ||
42395 | BEGIN | |
42396 | ||
42397 | ||
42398 | ||
42399 | ||
42400 | BERPDU ::= SET | |
42401 | { | |
42402 | a [3] INTEGER, | |
42403 | b [1] CHOICE | |
42404 | { | |
42405 | c [2] INTEGER, | |
42406 | d [4] INTEGER | |
42407 | }, | |
42408 | e CHOICE | |
42409 | { | |
42410 | f CHOICE | |
42411 | { | |
42412 | g [5] INTEGER, | |
42413 | h [6] INTEGER | |
42414 | }, | |
42415 | i CHOICE | |
42416 | { | |
42417 | ||
42418 | ||
42419 | j [0] INTEGER | |
42420 | ||
42421 | } | |
42422 | } | |
42423 | } | |
42424 | ||
42425 | ||
42426 | ||
42427 | ||
42428 | END | |
42429 | ||
42430 | <STATIC> | |
42431 | ||
42432 | import from TempA all; | |
42433 | ||
42434 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42435 | ||
42436 | ||
42437 | ||
42438 | ||
42439 | const BERPDU myValue := { | |
42440 | a := 1, | |
42441 | b := {c:= 2}, | |
42442 | e := { f := {g := 3 }} | |
42443 | } | |
42444 | ||
42445 | ||
42446 | ||
42447 | <TTCN_TC:EXEC> | |
42448 | ||
42449 | if (dec_BER_PDU('3111A105A203020102A303020101A503020103'O) == myValue) | |
42450 | ||
42451 | {setverdict(pass);} else {setverdict(fail);} | |
42452 | ||
42453 | ||
42454 | <RESULT> | |
42455 | ||
42456 | Overall verdict: pass | |
42457 | ||
42458 | <END_TC> | |
42459 | ||
42460 | :exmp. | |
42461 | ||
42462 | .*---------------------------------------------------------------------* | |
42463 | :h3. DECODING SET, CER, untagged CHOICE in SET, EXPLICIT TAGS | |
42464 | .*---------------------------------------------------------------------* | |
42465 | :xmp tab=0. | |
42466 | ||
42467 | <TC - DECODING SET, CER, untagged CHOICE in SET, EXPLICIT TAGS> | |
42468 | ||
42469 | <STATIC:ASN> | |
42470 | ||
42471 | TempA | |
42472 | ||
42473 | DEFINITIONS | |
42474 | ||
42475 | EXPLICIT TAGS | |
42476 | ||
42477 | ::= | |
42478 | ||
42479 | BEGIN | |
42480 | ||
42481 | ||
42482 | ||
42483 | ||
42484 | BERPDU ::= SET | |
42485 | { | |
42486 | a [3] INTEGER, | |
42487 | b [1] CHOICE | |
42488 | { | |
42489 | c [2] INTEGER, | |
42490 | d [4] INTEGER | |
42491 | }, | |
42492 | e CHOICE | |
42493 | { | |
42494 | f CHOICE | |
42495 | { | |
42496 | g [5] INTEGER, | |
42497 | h [6] INTEGER | |
42498 | }, | |
42499 | i CHOICE | |
42500 | { | |
42501 | ||
42502 | ||
42503 | j [0] INTEGER | |
42504 | ||
42505 | } | |
42506 | } | |
42507 | } | |
42508 | ||
42509 | ||
42510 | ||
42511 | ||
42512 | END | |
42513 | ||
42514 | <STATIC> | |
42515 | ||
42516 | import from TempA all; | |
42517 | ||
42518 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
42519 | ||
42520 | ||
42521 | ||
42522 | ||
42523 | const BERPDU myValue := { | |
42524 | a := 1, | |
42525 | b := {c:= 2}, | |
42526 | e := { f := {g := 3 }} | |
42527 | } | |
42528 | ||
42529 | ||
42530 | ||
42531 | <TTCN_TC:EXEC> | |
42532 | ||
42533 | if (dec_BER_PDU('3180A5800201030000A180A28002010200000000A38002010100000000'O) == myValue) | |
42534 | ||
42535 | {setverdict(pass);} else {setverdict(fail);} | |
42536 | ||
42537 | ||
42538 | <RESULT> | |
42539 | ||
42540 | Overall verdict: pass | |
42541 | ||
42542 | <END_TC> | |
42543 | ||
42544 | :exmp. | |
42545 | ||
42546 | .*---------------------------------------------------------------------* | |
42547 | :h3.CER + DER encoding of SET OF INTEGER (empty) | |
42548 | .*---------------------------------------------------------------------* | |
42549 | :xmp tab=0. | |
42550 | ||
42551 | <TC - CER + DER encoding of SET OF INTEGER (empty)> | |
42552 | ||
42553 | <STATIC:ASN> | |
42554 | ||
42555 | TempA | |
42556 | ||
42557 | DEFINITIONS ::= | |
42558 | BEGIN | |
42559 | ||
42560 | BERPDU ::= SET OF INTEGER | |
42561 | ||
42562 | ||
42563 | ||
42564 | END | |
42565 | ||
42566 | <STATIC> | |
42567 | ||
42568 | import from TempA all; | |
42569 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42570 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42571 | ||
42572 | const BERPDU myValue := { } | |
42573 | ||
42574 | <TTCN_TC:EXEC> | |
42575 | ||
42576 | ||
42577 | ||
42578 | ||
42579 | if ((enc_DER_PDU(myValue) == '3100'O)and(enc_CER_PDU(myValue) == '31800000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42580 | ||
42581 | <RESULT> | |
42582 | ||
42583 | Overall verdict: pass | |
42584 | ||
42585 | <END_TC> | |
42586 | ||
42587 | :exmp. | |
42588 | ||
42589 | .*---------------------------------------------------------------------* | |
42590 | :h3.CER + DER encoding of SET OF BOOLEAN | |
42591 | .*---------------------------------------------------------------------* | |
42592 | :xmp tab=0. | |
42593 | ||
42594 | <TC - CER + DER encoding of SET OF BOOLEAN> | |
42595 | ||
42596 | <STATIC:ASN> | |
42597 | ||
42598 | TempA | |
42599 | ||
42600 | DEFINITIONS ::= | |
42601 | BEGIN | |
42602 | ||
42603 | BERPDU ::= SET OF BOOLEAN | |
42604 | ||
42605 | ||
42606 | ||
42607 | END | |
42608 | ||
42609 | <STATIC> | |
42610 | ||
42611 | import from TempA all; | |
42612 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42613 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42614 | ||
42615 | const BERPDU myValue := {true, false } | |
42616 | ||
42617 | <TTCN_TC:EXEC> | |
42618 | ||
42619 | ||
42620 | ||
42621 | ||
42622 | if ((enc_DER_PDU(myValue) == '31060101000101FF'O)and(enc_CER_PDU(myValue) == '31800101000101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42623 | ||
42624 | <RESULT> | |
42625 | ||
42626 | Overall verdict: pass | |
42627 | ||
42628 | <END_TC> | |
42629 | ||
42630 | :exmp. | |
42631 | ||
42632 | .*---------------------------------------------------------------------* | |
42633 | :h3.CER + DER encoding of SET OF OCTET STRING | |
42634 | .*---------------------------------------------------------------------* | |
42635 | :xmp tab=0. | |
42636 | ||
42637 | <TC - CER + DER encoding of SET OF OCTET STRING > | |
42638 | ||
42639 | <STATIC:ASN> | |
42640 | ||
42641 | TempA | |
42642 | ||
42643 | DEFINITIONS ::= | |
42644 | BEGIN | |
42645 | ||
42646 | BERPDU ::= SET OF OCTET STRING | |
42647 | ||
42648 | END | |
42649 | ||
42650 | <STATIC> | |
42651 | ||
42652 | import from TempA all; | |
42653 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42654 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42655 | ||
42656 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
42657 | ||
42658 | <TTCN_TC:EXEC> | |
42659 | ||
42660 | if ((enc_DER_PDU(myValue) == '31070401AB0402FFFF'O)and(enc_CER_PDU(myValue) == '31800401AB0402FFFF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42661 | ||
42662 | <RESULT> | |
42663 | ||
42664 | Overall verdict: pass | |
42665 | ||
42666 | <END_TC> | |
42667 | ||
42668 | :exmp. | |
42669 | ||
42670 | .*---------------------------------------------------------------------* | |
42671 | :h3.CER + DER encoding of SET OF SEQUENCE | |
42672 | .*---------------------------------------------------------------------* | |
42673 | :xmp tab=0. | |
42674 | ||
42675 | <TC - CER + DER encoding of SET OF SEQUENCE > | |
42676 | ||
42677 | <STATIC:ASN> | |
42678 | ||
42679 | TempA | |
42680 | ||
42681 | DEFINITIONS ::= | |
42682 | BEGIN | |
42683 | ||
42684 | BERPDU ::= SET OF SEQUENCE {a INTEGER, b BOOLEAN} | |
42685 | ||
42686 | END | |
42687 | ||
42688 | <STATIC> | |
42689 | ||
42690 | import from TempA all; | |
42691 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42692 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42693 | ||
42694 | const BERPDU myValue := { | |
42695 | { | |
42696 | a := 5, | |
42697 | b := true | |
42698 | }, | |
42699 | ||
42700 | { | |
42701 | a := 3, | |
42702 | b := false | |
42703 | } | |
42704 | ||
42705 | }; | |
42706 | ||
42707 | <TTCN_TC:EXEC> | |
42708 | ||
42709 | if ((enc_DER_PDU(myValue) == '3110300602010301010030060201050101FF'O)and(enc_CER_PDU(myValue) == '31803080020103010100000030800201050101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42710 | ||
42711 | <RESULT> | |
42712 | ||
42713 | Overall verdict: pass | |
42714 | ||
42715 | <END_TC> | |
42716 | ||
42717 | :exmp. | |
42718 | ||
42719 | .*---------------------------------------------------------------------* | |
42720 | :h3.CER + DER encoding of SET OF SET | |
42721 | .*---------------------------------------------------------------------* | |
42722 | :xmp tab=0. | |
42723 | ||
42724 | <TC - CER + DER encoding of SET OF SET > | |
42725 | ||
42726 | <STATIC:ASN> | |
42727 | ||
42728 | TempA | |
42729 | ||
42730 | DEFINITIONS ::= | |
42731 | BEGIN | |
42732 | ||
42733 | BERPDU ::= SET OF SET {a INTEGER, b BOOLEAN} | |
42734 | ||
42735 | END | |
42736 | ||
42737 | <STATIC> | |
42738 | ||
42739 | import from TempA all; | |
42740 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42741 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42742 | ||
42743 | const BERPDU myValue := { | |
42744 | { | |
42745 | a := 5, | |
42746 | b := true | |
42747 | }, | |
42748 | ||
42749 | { | |
42750 | a := 3, | |
42751 | b := false | |
42752 | } | |
42753 | ||
42754 | }; | |
42755 | ||
42756 | <TTCN_TC:EXEC> | |
42757 | ||
42758 | if ((enc_DER_PDU(myValue) == '3110310601010002010331060101FF020105'O)and(enc_CER_PDU(myValue) == '31803180010100020103000031800101FF02010500000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42759 | ||
42760 | <RESULT> | |
42761 | ||
42762 | Overall verdict: pass | |
42763 | ||
42764 | <END_TC> | |
42765 | ||
42766 | :exmp. | |
42767 | ||
42768 | .*---------------------------------------------------------------------* | |
42769 | :h3.CER + DER encoding of SET OF CHOICE | |
42770 | .*---------------------------------------------------------------------* | |
42771 | :xmp tab=0. | |
42772 | ||
42773 | <TC - CER + DER encoding of SET OF CHOICE > | |
42774 | ||
42775 | <STATIC:ASN> | |
42776 | ||
42777 | TempA | |
42778 | ||
42779 | DEFINITIONS ::= | |
42780 | BEGIN | |
42781 | ||
42782 | BERPDU ::= SET OF CHOICE{a INTEGER, b BOOLEAN} | |
42783 | ||
42784 | END | |
42785 | ||
42786 | <STATIC> | |
42787 | ||
42788 | import from TempA all; | |
42789 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42790 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42791 | ||
42792 | const BERPDU myValue := { | |
42793 | { | |
42794 | a := 5 | |
42795 | }, | |
42796 | ||
42797 | { | |
42798 | b := false | |
42799 | } | |
42800 | ||
42801 | }; | |
42802 | ||
42803 | <TTCN_TC:EXEC> | |
42804 | ||
42805 | if ((enc_DER_PDU(myValue) == '3106010100020105'O)and(enc_CER_PDU(myValue) == '31800101000201050000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42806 | ||
42807 | <RESULT> | |
42808 | ||
42809 | Overall verdict: pass | |
42810 | ||
42811 | <END_TC> | |
42812 | ||
42813 | :exmp. | |
42814 | ||
42815 | .*---------------------------------------------------------------------* | |
42816 | :h3.CER + DER encoding of SET OF SEQUENCE OF | |
42817 | .*---------------------------------------------------------------------* | |
42818 | :xmp tab=0. | |
42819 | ||
42820 | <TC - CER + DER encoding of SET OF SEQUENCE OF> | |
42821 | ||
42822 | <STATIC:ASN> | |
42823 | ||
42824 | TempA | |
42825 | ||
42826 | DEFINITIONS ::= | |
42827 | BEGIN | |
42828 | ||
42829 | BERPDU ::= SET OF SEQUENCE OF INTEGER | |
42830 | ||
42831 | END | |
42832 | ||
42833 | <STATIC> | |
42834 | ||
42835 | import from TempA all; | |
42836 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42837 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42838 | ||
42839 | const BERPDU myValue := { | |
42840 | { | |
42841 | 5, | |
42842 | 6, | |
42843 | 7 | |
42844 | }, | |
42845 | ||
42846 | { | |
42847 | 1, | |
42848 | 2, | |
42849 | 3 | |
42850 | } | |
42851 | }; | |
42852 | ||
42853 | <TTCN_TC:EXEC> | |
42854 | ||
42855 | if ((enc_DER_PDU(myValue) == '311630090201010201020201033009020105020106020107'O)and(enc_CER_PDU(myValue) == '318030800201010201020201030000308002010502010602010700000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42856 | ||
42857 | <RESULT> | |
42858 | ||
42859 | Overall verdict: pass | |
42860 | ||
42861 | <END_TC> | |
42862 | ||
42863 | :exmp. | |
42864 | ||
42865 | .*---------------------------------------------------------------------* | |
42866 | :h3.CER + DER encoding of SET OF SET OF | |
42867 | .*---------------------------------------------------------------------* | |
42868 | :xmp tab=0. | |
42869 | ||
42870 | <TC - CER + DER encoding of SET OF SET OF> | |
42871 | ||
42872 | <STATIC:ASN> | |
42873 | ||
42874 | TempA | |
42875 | ||
42876 | DEFINITIONS ::= | |
42877 | BEGIN | |
42878 | ||
42879 | BERPDU ::= SET OF SET OF INTEGER | |
42880 | ||
42881 | END | |
42882 | ||
42883 | <STATIC> | |
42884 | ||
42885 | import from TempA all; | |
42886 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42887 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42888 | ||
42889 | const BERPDU myValue := { | |
42890 | { | |
42891 | 5, | |
42892 | 6, | |
42893 | 7 | |
42894 | }, | |
42895 | ||
42896 | { | |
42897 | 1, | |
42898 | 2, | |
42899 | 3 | |
42900 | } | |
42901 | }; | |
42902 | ||
42903 | <TTCN_TC:EXEC> | |
42904 | ||
42905 | if ((enc_DER_PDU(myValue) == '311631090201010201020201033109020105020106020107'O)and(enc_CER_PDU(myValue) == '318031800201010201020201030000318002010502010602010700000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42906 | ||
42907 | <RESULT> | |
42908 | ||
42909 | Overall verdict: pass | |
42910 | ||
42911 | <END_TC> | |
42912 | ||
42913 | :exmp. | |
42914 | ||
42915 | .*---------------------------------------------------------------------* | |
42916 | :h3.CER + DER encoding of TAGGED SET OF BOOLEAN | |
42917 | .*---------------------------------------------------------------------* | |
42918 | :xmp tab=0. | |
42919 | ||
42920 | <TC - CER + DER encoding of TAGGED SET OF BOOLEAN> | |
42921 | ||
42922 | <STATIC:ASN> | |
42923 | ||
42924 | TempA | |
42925 | ||
42926 | DEFINITIONS ::= | |
42927 | BEGIN | |
42928 | ||
42929 | BERPDU ::= [0] SET OF BOOLEAN | |
42930 | ||
42931 | ||
42932 | ||
42933 | END | |
42934 | ||
42935 | <STATIC> | |
42936 | ||
42937 | import from TempA all; | |
42938 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42939 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42940 | ||
42941 | const BERPDU myValue := {true, false } | |
42942 | ||
42943 | <TTCN_TC:EXEC> | |
42944 | ||
42945 | ||
42946 | ||
42947 | ||
42948 | if ((enc_DER_PDU(myValue) == 'A00831060101000101FF'O)and(enc_CER_PDU(myValue) == 'A08031800101000101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42949 | ||
42950 | <RESULT> | |
42951 | ||
42952 | Overall verdict: pass | |
42953 | ||
42954 | <END_TC> | |
42955 | ||
42956 | :exmp. | |
42957 | ||
42958 | .*---------------------------------------------------------------------* | |
42959 | :h3.CER + DER encoding of TAGGED SET OF BOOLEAN, EXPLICIT TAGGING | |
42960 | .*---------------------------------------------------------------------* | |
42961 | :xmp tab=0. | |
42962 | ||
42963 | <TC - CER + DER encoding of TAGGED SET OF BOOLEAN, EXPLICIT TAGGING> | |
42964 | ||
42965 | <STATIC:ASN> | |
42966 | ||
42967 | TempA | |
42968 | ||
42969 | DEFINITIONS | |
42970 | ||
42971 | EXPLICIT TAGS | |
42972 | ||
42973 | ::= | |
42974 | ||
42975 | BEGIN | |
42976 | ||
42977 | BERPDU ::= [0] SET OF BOOLEAN | |
42978 | ||
42979 | ||
42980 | ||
42981 | END | |
42982 | ||
42983 | <STATIC> | |
42984 | ||
42985 | import from TempA all; | |
42986 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
42987 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
42988 | ||
42989 | const BERPDU myValue := {true, false } | |
42990 | ||
42991 | <TTCN_TC:EXEC> | |
42992 | ||
42993 | ||
42994 | ||
42995 | ||
42996 | if ((enc_DER_PDU(myValue) == 'A00831060101000101FF'O)and(enc_CER_PDU(myValue) == 'A08031800101000101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
42997 | ||
42998 | <RESULT> | |
42999 | ||
43000 | Overall verdict: pass | |
43001 | ||
43002 | <END_TC> | |
43003 | ||
43004 | :exmp. | |
43005 | ||
43006 | .*---------------------------------------------------------------------* | |
43007 | :h3.CER + DER encoding of TAGGED SET OF BOOLEAN, IMPLICIT TAGGING | |
43008 | .*---------------------------------------------------------------------* | |
43009 | :xmp tab=0. | |
43010 | ||
43011 | <TC - CER + DER encoding of TAGGED SET OF BOOLEAN, IMPLICIT TAGGING> | |
43012 | ||
43013 | <STATIC:ASN> | |
43014 | ||
43015 | TempA | |
43016 | ||
43017 | DEFINITIONS | |
43018 | ||
43019 | IMPLICIT TAGS | |
43020 | ||
43021 | ::= | |
43022 | ||
43023 | BEGIN | |
43024 | ||
43025 | BERPDU ::= [0] SET OF BOOLEAN | |
43026 | ||
43027 | ||
43028 | ||
43029 | END | |
43030 | ||
43031 | <STATIC> | |
43032 | ||
43033 | import from TempA all; | |
43034 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
43035 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
43036 | ||
43037 | const BERPDU myValue := {true, false } | |
43038 | ||
43039 | <TTCN_TC:EXEC> | |
43040 | ||
43041 | ||
43042 | ||
43043 | ||
43044 | if ((enc_DER_PDU(myValue) == 'A0060101000101FF'O)and(enc_CER_PDU(myValue) == 'A0800101000101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
43045 | ||
43046 | <RESULT> | |
43047 | ||
43048 | Overall verdict: pass | |
43049 | ||
43050 | <END_TC> | |
43051 | ||
43052 | :exmp. | |
43053 | ||
43054 | .*---------------------------------------------------------------------* | |
43055 | :h3.CER + DER encoding of SET OF OCTET STRING | |
43056 | .*---------------------------------------------------------------------* | |
43057 | :xmp tab=0. | |
43058 | ||
43059 | <TC - CER + DER encoding of SET OF OCTET STRING > | |
43060 | ||
43061 | <STATIC:ASN> | |
43062 | ||
43063 | TempA | |
43064 | ||
43065 | DEFINITIONS ::= | |
43066 | BEGIN | |
43067 | ||
43068 | BERPDU ::= SET OF OCTET STRING | |
43069 | ||
43070 | END | |
43071 | ||
43072 | <STATIC> | |
43073 | ||
43074 | import from TempA all; | |
43075 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
43076 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
43077 | ||
43078 | const BERPDU myValue := {'FFFF'O, ''O }; | |
43079 | ||
43080 | <TTCN_TC:EXEC> | |
43081 | ||
43082 | if ((enc_DER_PDU(myValue) == '310604000402FFFF'O)and(enc_CER_PDU(myValue) == '318004000402FFFF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
43083 | ||
43084 | <RESULT> | |
43085 | ||
43086 | Overall verdict: pass | |
43087 | ||
43088 | <END_TC> | |
43089 | ||
43090 | :exmp. | |
43091 | ||
43092 | .*---------------------------------------------------------------------* | |
43093 | :h3. DECODING DER, SET OF INTEGER (empty) | |
43094 | .*---------------------------------------------------------------------* | |
43095 | :xmp tab=0. | |
43096 | ||
43097 | <TC - DECODING DER, SET OF INTEGER (empty)> | |
43098 | ||
43099 | <STATIC:ASN> | |
43100 | ||
43101 | TempA | |
43102 | ||
43103 | DEFINITIONS ::= | |
43104 | BEGIN | |
43105 | ||
43106 | BERPDU ::= SET OF INTEGER | |
43107 | ||
43108 | END | |
43109 | ||
43110 | <STATIC> | |
43111 | ||
43112 | import from TempA all; | |
43113 | ||
43114 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43115 | ||
43116 | const BERPDU myValue := { } | |
43117 | ||
43118 | ||
43119 | <TTCN_TC:EXEC> | |
43120 | ||
43121 | if (dec_BER_PDU('3100'O) == myValue) | |
43122 | ||
43123 | {setverdict(pass);} else {setverdict(fail);} | |
43124 | ||
43125 | ||
43126 | <RESULT> | |
43127 | ||
43128 | Overall verdict: pass | |
43129 | ||
43130 | <END_TC> | |
43131 | ||
43132 | :exmp. | |
43133 | ||
43134 | .*---------------------------------------------------------------------* | |
43135 | :h3. DECODING CER, SET OF INTEGER (empty) | |
43136 | .*---------------------------------------------------------------------* | |
43137 | :xmp tab=0. | |
43138 | ||
43139 | <TC - DECODING CER, SET OF INTEGER (empty)> | |
43140 | ||
43141 | <STATIC:ASN> | |
43142 | ||
43143 | TempA | |
43144 | ||
43145 | DEFINITIONS ::= | |
43146 | BEGIN | |
43147 | ||
43148 | BERPDU ::= SET OF INTEGER | |
43149 | ||
43150 | END | |
43151 | ||
43152 | <STATIC> | |
43153 | ||
43154 | import from TempA all; | |
43155 | ||
43156 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43157 | ||
43158 | const BERPDU myValue := { } | |
43159 | ||
43160 | ||
43161 | <TTCN_TC:EXEC> | |
43162 | ||
43163 | if (dec_BER_PDU('31800000'O) == myValue) | |
43164 | ||
43165 | {setverdict(pass);} else {setverdict(fail);} | |
43166 | ||
43167 | ||
43168 | <RESULT> | |
43169 | ||
43170 | Overall verdict: pass | |
43171 | ||
43172 | <END_TC> | |
43173 | ||
43174 | :exmp. | |
43175 | ||
43176 | .*---------------------------------------------------------------------* | |
43177 | :h3. DECODING DER, SET OF BOOLEAN | |
43178 | .*---------------------------------------------------------------------* | |
43179 | :xmp tab=0. | |
43180 | ||
43181 | <TC - DECODING DER, SET OF BOOLEAN> | |
43182 | ||
43183 | <STATIC:ASN> | |
43184 | ||
43185 | TempA | |
43186 | ||
43187 | DEFINITIONS ::= | |
43188 | BEGIN | |
43189 | ||
43190 | BERPDU ::= SET OF BOOLEAN | |
43191 | ||
43192 | END | |
43193 | ||
43194 | <STATIC> | |
43195 | ||
43196 | import from TempA all; | |
43197 | ||
43198 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43199 | ||
43200 | const BERPDU myValue := {true, false } | |
43201 | ||
43202 | ||
43203 | <TTCN_TC:EXEC> | |
43204 | ||
43205 | if (dec_BER_PDU('31060101000101FF'O) == myValue) | |
43206 | ||
43207 | {setverdict(pass);} else {setverdict(fail);} | |
43208 | ||
43209 | ||
43210 | <RESULT> | |
43211 | ||
43212 | Overall verdict: pass | |
43213 | ||
43214 | <END_TC> | |
43215 | ||
43216 | :exmp. | |
43217 | ||
43218 | .*---------------------------------------------------------------------* | |
43219 | :h3. DECODING CER, SET OF BOOLEAN | |
43220 | .*---------------------------------------------------------------------* | |
43221 | :xmp tab=0. | |
43222 | ||
43223 | <TC - DECODING CER, SET OF BOOLEAN> | |
43224 | ||
43225 | <STATIC:ASN> | |
43226 | ||
43227 | TempA | |
43228 | ||
43229 | DEFINITIONS ::= | |
43230 | BEGIN | |
43231 | ||
43232 | BERPDU ::= SET OF BOOLEAN | |
43233 | ||
43234 | END | |
43235 | ||
43236 | <STATIC> | |
43237 | ||
43238 | import from TempA all; | |
43239 | ||
43240 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43241 | ||
43242 | const BERPDU myValue := {true, false } | |
43243 | ||
43244 | ||
43245 | <TTCN_TC:EXEC> | |
43246 | ||
43247 | if (dec_BER_PDU('31800101000101FF0000'O) == myValue) | |
43248 | ||
43249 | {setverdict(pass);} else {setverdict(fail);} | |
43250 | ||
43251 | ||
43252 | <RESULT> | |
43253 | ||
43254 | Overall verdict: pass | |
43255 | ||
43256 | <END_TC> | |
43257 | ||
43258 | :exmp. | |
43259 | ||
43260 | .*---------------------------------------------------------------------* | |
43261 | :h3. DECODING , SET OF BOOLEAN (different order) | |
43262 | .*---------------------------------------------------------------------* | |
43263 | :xmp tab=0. | |
43264 | ||
43265 | <TC - DECODING , SET OF BOOLEAN (different order)> | |
43266 | ||
43267 | <STATIC:ASN> | |
43268 | ||
43269 | TempA | |
43270 | ||
43271 | DEFINITIONS ::= | |
43272 | BEGIN | |
43273 | ||
43274 | BERPDU ::= SET OF BOOLEAN | |
43275 | ||
43276 | END | |
43277 | ||
43278 | <STATIC> | |
43279 | ||
43280 | import from TempA all; | |
43281 | ||
43282 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43283 | ||
43284 | const BERPDU myValue := {true, false } | |
43285 | ||
43286 | ||
43287 | <TTCN_TC:EXEC> | |
43288 | ||
43289 | if (dec_BER_PDU('31060101FF010100'O) == myValue) | |
43290 | ||
43291 | {setverdict(pass);} else {setverdict(fail);} | |
43292 | ||
43293 | ||
43294 | <RESULT> | |
43295 | ||
43296 | Overall verdict: pass | |
43297 | ||
43298 | <END_TC> | |
43299 | ||
43300 | :exmp. | |
43301 | ||
43302 | .*---------------------------------------------------------------------* | |
43303 | :h3. DECODING , SET OF BOOLEAN (different order2) | |
43304 | .*---------------------------------------------------------------------* | |
43305 | :xmp tab=0. | |
43306 | ||
43307 | <TC - DECODING , SET OF BOOLEAN (different order2)> | |
43308 | ||
43309 | <STATIC:ASN> | |
43310 | ||
43311 | TempA | |
43312 | ||
43313 | DEFINITIONS ::= | |
43314 | BEGIN | |
43315 | ||
43316 | BERPDU ::= SET OF BOOLEAN | |
43317 | ||
43318 | END | |
43319 | ||
43320 | <STATIC> | |
43321 | ||
43322 | import from TempA all; | |
43323 | ||
43324 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43325 | ||
43326 | const BERPDU myValue := {true, false } | |
43327 | ||
43328 | ||
43329 | <TTCN_TC:EXEC> | |
43330 | ||
43331 | if (dec_BER_PDU('31800101FF0101000000'O) == myValue) | |
43332 | ||
43333 | {setverdict(pass);} else {setverdict(fail);} | |
43334 | ||
43335 | ||
43336 | <RESULT> | |
43337 | ||
43338 | Overall verdict: pass | |
43339 | ||
43340 | <END_TC> | |
43341 | ||
43342 | :exmp. | |
43343 | ||
43344 | .*---------------------------------------------------------------------* | |
43345 | :h3. DECODING DER,SET OF OCTET STRING | |
43346 | .*---------------------------------------------------------------------* | |
43347 | :xmp tab=0. | |
43348 | ||
43349 | <TC - DECODING DER,SET OF OCTET STRING > | |
43350 | ||
43351 | <STATIC:ASN> | |
43352 | ||
43353 | TempA | |
43354 | ||
43355 | DEFINITIONS ::= | |
43356 | BEGIN | |
43357 | ||
43358 | BERPDU ::= SET OF OCTET STRING | |
43359 | ||
43360 | END | |
43361 | ||
43362 | <STATIC> | |
43363 | ||
43364 | import from TempA all; | |
43365 | ||
43366 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43367 | ||
43368 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
43369 | ||
43370 | ||
43371 | <TTCN_TC:EXEC> | |
43372 | ||
43373 | if (dec_BER_PDU('31070401AB0402FFFF'O) == myValue) | |
43374 | ||
43375 | {setverdict(pass);} else {setverdict(fail);} | |
43376 | ||
43377 | ||
43378 | <RESULT> | |
43379 | ||
43380 | Overall verdict: pass | |
43381 | ||
43382 | <END_TC> | |
43383 | ||
43384 | :exmp. | |
43385 | ||
43386 | .*---------------------------------------------------------------------* | |
43387 | :h3. DECODING CER,SET OF OCTET STRING | |
43388 | .*---------------------------------------------------------------------* | |
43389 | :xmp tab=0. | |
43390 | ||
43391 | <TC - DECODING CER,SET OF OCTET STRING > | |
43392 | ||
43393 | <STATIC:ASN> | |
43394 | ||
43395 | TempA | |
43396 | ||
43397 | DEFINITIONS ::= | |
43398 | BEGIN | |
43399 | ||
43400 | BERPDU ::= SET OF OCTET STRING | |
43401 | ||
43402 | END | |
43403 | ||
43404 | <STATIC> | |
43405 | ||
43406 | import from TempA all; | |
43407 | ||
43408 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43409 | ||
43410 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
43411 | ||
43412 | ||
43413 | <TTCN_TC:EXEC> | |
43414 | ||
43415 | if (dec_BER_PDU('31800401AB0402FFFF0000'O) == myValue) | |
43416 | ||
43417 | {setverdict(pass);} else {setverdict(fail);} | |
43418 | ||
43419 | ||
43420 | <RESULT> | |
43421 | ||
43422 | Overall verdict: pass | |
43423 | ||
43424 | <END_TC> | |
43425 | ||
43426 | :exmp. | |
43427 | ||
43428 | .*---------------------------------------------------------------------* | |
43429 | :h3. DECODING ,SET OF OCTET STRING (different order) | |
43430 | .*---------------------------------------------------------------------* | |
43431 | :xmp tab=0. | |
43432 | ||
43433 | <TC - DECODING ,SET OF OCTET STRING (different order)> | |
43434 | ||
43435 | <STATIC:ASN> | |
43436 | ||
43437 | TempA | |
43438 | ||
43439 | DEFINITIONS ::= | |
43440 | BEGIN | |
43441 | ||
43442 | BERPDU ::= SET OF OCTET STRING | |
43443 | ||
43444 | END | |
43445 | ||
43446 | <STATIC> | |
43447 | ||
43448 | import from TempA all; | |
43449 | ||
43450 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43451 | ||
43452 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
43453 | ||
43454 | ||
43455 | <TTCN_TC:EXEC> | |
43456 | ||
43457 | if (dec_BER_PDU('31070402FFFF0401AB'O) == myValue) | |
43458 | ||
43459 | {setverdict(pass);} else {setverdict(fail);} | |
43460 | ||
43461 | ||
43462 | <RESULT> | |
43463 | ||
43464 | Overall verdict: pass | |
43465 | ||
43466 | <END_TC> | |
43467 | ||
43468 | :exmp. | |
43469 | ||
43470 | .*---------------------------------------------------------------------* | |
43471 | :h3. DECODING ,SET OF OCTET STRING (different order) | |
43472 | .*---------------------------------------------------------------------* | |
43473 | :xmp tab=0. | |
43474 | ||
43475 | <TC - DECODING ,SET OF OCTET STRING (different order)> | |
43476 | ||
43477 | <STATIC:ASN> | |
43478 | ||
43479 | TempA | |
43480 | ||
43481 | DEFINITIONS ::= | |
43482 | BEGIN | |
43483 | ||
43484 | BERPDU ::= SET OF OCTET STRING | |
43485 | ||
43486 | END | |
43487 | ||
43488 | <STATIC> | |
43489 | ||
43490 | import from TempA all; | |
43491 | ||
43492 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43493 | ||
43494 | const BERPDU myValue := {'FFFF'O, 'AB'O }; | |
43495 | ||
43496 | ||
43497 | <TTCN_TC:EXEC> | |
43498 | ||
43499 | if (dec_BER_PDU('31800402FFFF0401AB0000'O) == myValue) | |
43500 | ||
43501 | {setverdict(pass);} else {setverdict(fail);} | |
43502 | ||
43503 | ||
43504 | <RESULT> | |
43505 | ||
43506 | Overall verdict: pass | |
43507 | ||
43508 | <END_TC> | |
43509 | ||
43510 | :exmp. | |
43511 | ||
43512 | .*---------------------------------------------------------------------* | |
43513 | :h3. DECODING DER,SET OF SEQUENCE | |
43514 | .*---------------------------------------------------------------------* | |
43515 | :xmp tab=0. | |
43516 | ||
43517 | <TC - DECODING DER,SET OF SEQUENCE > | |
43518 | ||
43519 | <STATIC:ASN> | |
43520 | ||
43521 | TempA | |
43522 | ||
43523 | DEFINITIONS ::= | |
43524 | BEGIN | |
43525 | ||
43526 | BERPDU ::= SET OF SEQUENCE {a INTEGER, b BOOLEAN} | |
43527 | ||
43528 | END | |
43529 | ||
43530 | <STATIC> | |
43531 | ||
43532 | import from TempA all; | |
43533 | ||
43534 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43535 | ||
43536 | const BERPDU myValue := { | |
43537 | { | |
43538 | a := 5, | |
43539 | b := true | |
43540 | }, | |
43541 | ||
43542 | { | |
43543 | a := 3, | |
43544 | b := false | |
43545 | } | |
43546 | ||
43547 | }; | |
43548 | ||
43549 | ||
43550 | <TTCN_TC:EXEC> | |
43551 | ||
43552 | if (dec_BER_PDU('3110300602010301010030060201050101FF'O) == myValue) | |
43553 | ||
43554 | {setverdict(pass);} else {setverdict(fail);} | |
43555 | ||
43556 | ||
43557 | <RESULT> | |
43558 | ||
43559 | Overall verdict: pass | |
43560 | ||
43561 | <END_TC> | |
43562 | ||
43563 | :exmp. | |
43564 | ||
43565 | .*---------------------------------------------------------------------* | |
43566 | :h3. DECODING CER,SET OF SEQUENCE | |
43567 | .*---------------------------------------------------------------------* | |
43568 | :xmp tab=0. | |
43569 | ||
43570 | <TC - DECODING CER,SET OF SEQUENCE > | |
43571 | ||
43572 | <STATIC:ASN> | |
43573 | ||
43574 | TempA | |
43575 | ||
43576 | DEFINITIONS ::= | |
43577 | BEGIN | |
43578 | ||
43579 | BERPDU ::= SET OF SEQUENCE {a INTEGER, b BOOLEAN} | |
43580 | ||
43581 | END | |
43582 | ||
43583 | <STATIC> | |
43584 | ||
43585 | import from TempA all; | |
43586 | ||
43587 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43588 | ||
43589 | const BERPDU myValue := { | |
43590 | { | |
43591 | a := 5, | |
43592 | b := true | |
43593 | }, | |
43594 | ||
43595 | { | |
43596 | a := 3, | |
43597 | b := false | |
43598 | } | |
43599 | ||
43600 | }; | |
43601 | ||
43602 | ||
43603 | <TTCN_TC:EXEC> | |
43604 | ||
43605 | if (dec_BER_PDU('31803080020103010100000030800201050101FF00000000'O) == myValue) | |
43606 | ||
43607 | {setverdict(pass);} else {setverdict(fail);} | |
43608 | ||
43609 | ||
43610 | <RESULT> | |
43611 | ||
43612 | Overall verdict: pass | |
43613 | ||
43614 | <END_TC> | |
43615 | ||
43616 | :exmp. | |
43617 | ||
43618 | .*---------------------------------------------------------------------* | |
43619 | :h3. DECODING ,SET OF SEQUENCE (different order) | |
43620 | .*---------------------------------------------------------------------* | |
43621 | :xmp tab=0. | |
43622 | ||
43623 | <TC - DECODING ,SET OF SEQUENCE (different order)> | |
43624 | ||
43625 | <STATIC:ASN> | |
43626 | ||
43627 | TempA | |
43628 | ||
43629 | DEFINITIONS ::= | |
43630 | BEGIN | |
43631 | ||
43632 | BERPDU ::= SET OF SEQUENCE {a INTEGER, b BOOLEAN} | |
43633 | ||
43634 | END | |
43635 | ||
43636 | <STATIC> | |
43637 | ||
43638 | import from TempA all; | |
43639 | ||
43640 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43641 | ||
43642 | const BERPDU myValue := { | |
43643 | { | |
43644 | a := 5, | |
43645 | b := true | |
43646 | }, | |
43647 | ||
43648 | { | |
43649 | a := 3, | |
43650 | b := false | |
43651 | } | |
43652 | ||
43653 | }; | |
43654 | ||
43655 | ||
43656 | <TTCN_TC:EXEC> | |
43657 | ||
43658 | if (dec_BER_PDU('311030060201050101FF3006020103010100'O) == myValue) | |
43659 | ||
43660 | {setverdict(pass);} else {setverdict(fail);} | |
43661 | ||
43662 | ||
43663 | <RESULT> | |
43664 | ||
43665 | Overall verdict: pass | |
43666 | ||
43667 | <END_TC> | |
43668 | ||
43669 | :exmp. | |
43670 | ||
43671 | .*---------------------------------------------------------------------* | |
43672 | :h3. DECODING ,SET OF SEQUENCE (different order2) | |
43673 | .*---------------------------------------------------------------------* | |
43674 | :xmp tab=0. | |
43675 | ||
43676 | <TC - DECODING ,SET OF SEQUENCE (different order2)> | |
43677 | ||
43678 | <STATIC:ASN> | |
43679 | ||
43680 | TempA | |
43681 | ||
43682 | DEFINITIONS ::= | |
43683 | BEGIN | |
43684 | ||
43685 | BERPDU ::= SET OF SEQUENCE {a INTEGER, b BOOLEAN} | |
43686 | ||
43687 | END | |
43688 | ||
43689 | <STATIC> | |
43690 | ||
43691 | import from TempA all; | |
43692 | ||
43693 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43694 | ||
43695 | const BERPDU myValue := { | |
43696 | { | |
43697 | a := 5, | |
43698 | b := true | |
43699 | }, | |
43700 | ||
43701 | { | |
43702 | a := 3, | |
43703 | b := false | |
43704 | } | |
43705 | ||
43706 | }; | |
43707 | ||
43708 | ||
43709 | <TTCN_TC:EXEC> | |
43710 | ||
43711 | if (dec_BER_PDU('318030800201050101FF0000308002010301010000000000'O) == myValue) | |
43712 | ||
43713 | {setverdict(pass);} else {setverdict(fail);} | |
43714 | ||
43715 | ||
43716 | <RESULT> | |
43717 | ||
43718 | Overall verdict: pass | |
43719 | ||
43720 | <END_TC> | |
43721 | ||
43722 | :exmp. | |
43723 | ||
43724 | .*---------------------------------------------------------------------* | |
43725 | :h3. DECODING DER,SET OF SET | |
43726 | .*---------------------------------------------------------------------* | |
43727 | :xmp tab=0. | |
43728 | ||
43729 | <TC - DECODING DER,SET OF SET > | |
43730 | ||
43731 | <STATIC:ASN> | |
43732 | ||
43733 | TempA | |
43734 | ||
43735 | DEFINITIONS ::= | |
43736 | BEGIN | |
43737 | ||
43738 | BERPDU ::= SET OF SET {a INTEGER, b BOOLEAN} | |
43739 | ||
43740 | END | |
43741 | ||
43742 | <STATIC> | |
43743 | ||
43744 | import from TempA all; | |
43745 | ||
43746 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43747 | ||
43748 | const BERPDU myValue := { | |
43749 | { | |
43750 | a := 5, | |
43751 | b := true | |
43752 | }, | |
43753 | ||
43754 | { | |
43755 | a := 3, | |
43756 | b := false | |
43757 | } | |
43758 | ||
43759 | }; | |
43760 | ||
43761 | ||
43762 | <TTCN_TC:EXEC> | |
43763 | ||
43764 | if (dec_BER_PDU('3110310601010002010331060101FF020105'O) == myValue) | |
43765 | ||
43766 | {setverdict(pass);} else {setverdict(fail);} | |
43767 | ||
43768 | ||
43769 | <RESULT> | |
43770 | ||
43771 | Overall verdict: pass | |
43772 | ||
43773 | <END_TC> | |
43774 | ||
43775 | :exmp. | |
43776 | ||
43777 | .*---------------------------------------------------------------------* | |
43778 | :h3. DECODING CER,SET OF SET | |
43779 | .*---------------------------------------------------------------------* | |
43780 | :xmp tab=0. | |
43781 | ||
43782 | <TC - DECODING CER,SET OF SET > | |
43783 | ||
43784 | <STATIC:ASN> | |
43785 | ||
43786 | TempA | |
43787 | ||
43788 | DEFINITIONS ::= | |
43789 | BEGIN | |
43790 | ||
43791 | BERPDU ::= SET OF SET {a INTEGER, b BOOLEAN} | |
43792 | ||
43793 | END | |
43794 | ||
43795 | <STATIC> | |
43796 | ||
43797 | import from TempA all; | |
43798 | ||
43799 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43800 | ||
43801 | const BERPDU myValue := { | |
43802 | { | |
43803 | a := 5, | |
43804 | b := true | |
43805 | }, | |
43806 | ||
43807 | { | |
43808 | a := 3, | |
43809 | b := false | |
43810 | } | |
43811 | ||
43812 | }; | |
43813 | ||
43814 | ||
43815 | <TTCN_TC:EXEC> | |
43816 | ||
43817 | if (dec_BER_PDU('31803180010100020103000031800101FF02010500000000'O) == myValue) | |
43818 | ||
43819 | {setverdict(pass);} else {setverdict(fail);} | |
43820 | ||
43821 | ||
43822 | <RESULT> | |
43823 | ||
43824 | Overall verdict: pass | |
43825 | ||
43826 | <END_TC> | |
43827 | ||
43828 | :exmp. | |
43829 | ||
43830 | .*---------------------------------------------------------------------* | |
43831 | :h3. DECODING ,SET OF SET (different order) | |
43832 | .*---------------------------------------------------------------------* | |
43833 | :xmp tab=0. | |
43834 | ||
43835 | <TC - DECODING ,SET OF SET (different order)> | |
43836 | ||
43837 | <STATIC:ASN> | |
43838 | ||
43839 | TempA | |
43840 | ||
43841 | DEFINITIONS ::= | |
43842 | BEGIN | |
43843 | ||
43844 | BERPDU ::= SET OF SET {a INTEGER, b BOOLEAN} | |
43845 | ||
43846 | END | |
43847 | ||
43848 | <STATIC> | |
43849 | ||
43850 | import from TempA all; | |
43851 | ||
43852 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43853 | ||
43854 | const BERPDU myValue := { | |
43855 | { | |
43856 | a := 5, | |
43857 | b := true | |
43858 | }, | |
43859 | ||
43860 | { | |
43861 | a := 3, | |
43862 | b := false | |
43863 | } | |
43864 | ||
43865 | }; | |
43866 | ||
43867 | ||
43868 | <TTCN_TC:EXEC> | |
43869 | ||
43870 | if (dec_BER_PDU('311031060101FF0201053106010100020103'O) == myValue) | |
43871 | ||
43872 | {setverdict(pass);} else {setverdict(fail);} | |
43873 | ||
43874 | ||
43875 | <RESULT> | |
43876 | ||
43877 | Overall verdict: pass | |
43878 | ||
43879 | <END_TC> | |
43880 | ||
43881 | :exmp. | |
43882 | ||
43883 | .*---------------------------------------------------------------------* | |
43884 | :h3. DECODING ,SET OF SET (different order2) | |
43885 | .*---------------------------------------------------------------------* | |
43886 | :xmp tab=0. | |
43887 | ||
43888 | <TC - DECODING ,SET OF SET (different order2)> | |
43889 | ||
43890 | <STATIC:ASN> | |
43891 | ||
43892 | TempA | |
43893 | ||
43894 | DEFINITIONS ::= | |
43895 | BEGIN | |
43896 | ||
43897 | BERPDU ::= SET OF SET {a INTEGER, b BOOLEAN} | |
43898 | ||
43899 | END | |
43900 | ||
43901 | <STATIC> | |
43902 | ||
43903 | import from TempA all; | |
43904 | ||
43905 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43906 | ||
43907 | const BERPDU myValue := { | |
43908 | { | |
43909 | a := 5, | |
43910 | b := true | |
43911 | }, | |
43912 | ||
43913 | { | |
43914 | a := 3, | |
43915 | b := false | |
43916 | } | |
43917 | ||
43918 | }; | |
43919 | ||
43920 | ||
43921 | <TTCN_TC:EXEC> | |
43922 | ||
43923 | if (dec_BER_PDU('318031800101FF0201050000318001010002010300000000'O) == myValue) | |
43924 | ||
43925 | {setverdict(pass);} else {setverdict(fail);} | |
43926 | ||
43927 | ||
43928 | <RESULT> | |
43929 | ||
43930 | Overall verdict: pass | |
43931 | ||
43932 | <END_TC> | |
43933 | ||
43934 | :exmp. | |
43935 | ||
43936 | .*---------------------------------------------------------------------* | |
43937 | :h3. DECODING DER,SET OF CHOICE | |
43938 | .*---------------------------------------------------------------------* | |
43939 | :xmp tab=0. | |
43940 | ||
43941 | <TC - DECODING DER,SET OF CHOICE > | |
43942 | ||
43943 | <STATIC:ASN> | |
43944 | ||
43945 | TempA | |
43946 | ||
43947 | DEFINITIONS ::= | |
43948 | BEGIN | |
43949 | ||
43950 | BERPDU ::= SET OF CHOICE{a INTEGER, b BOOLEAN} | |
43951 | ||
43952 | END | |
43953 | ||
43954 | <STATIC> | |
43955 | ||
43956 | import from TempA all; | |
43957 | ||
43958 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
43959 | ||
43960 | const BERPDU myValue := { | |
43961 | { | |
43962 | a := 5 | |
43963 | }, | |
43964 | ||
43965 | { | |
43966 | b := false | |
43967 | } | |
43968 | ||
43969 | }; | |
43970 | ||
43971 | ||
43972 | <TTCN_TC:EXEC> | |
43973 | ||
43974 | if (dec_BER_PDU('3106010100020105'O) == myValue) | |
43975 | ||
43976 | {setverdict(pass);} else {setverdict(fail);} | |
43977 | ||
43978 | ||
43979 | <RESULT> | |
43980 | ||
43981 | Overall verdict: pass | |
43982 | ||
43983 | <END_TC> | |
43984 | ||
43985 | :exmp. | |
43986 | ||
43987 | .*---------------------------------------------------------------------* | |
43988 | :h3. DECODING CER,SET OF CHOICE | |
43989 | .*---------------------------------------------------------------------* | |
43990 | :xmp tab=0. | |
43991 | ||
43992 | <TC - DECODING CER,SET OF CHOICE > | |
43993 | ||
43994 | <STATIC:ASN> | |
43995 | ||
43996 | TempA | |
43997 | ||
43998 | DEFINITIONS ::= | |
43999 | BEGIN | |
44000 | ||
44001 | BERPDU ::= SET OF CHOICE{a INTEGER, b BOOLEAN} | |
44002 | ||
44003 | END | |
44004 | ||
44005 | <STATIC> | |
44006 | ||
44007 | import from TempA all; | |
44008 | ||
44009 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44010 | ||
44011 | const BERPDU myValue := { | |
44012 | { | |
44013 | a := 5 | |
44014 | }, | |
44015 | ||
44016 | { | |
44017 | b := false | |
44018 | } | |
44019 | ||
44020 | }; | |
44021 | ||
44022 | ||
44023 | <TTCN_TC:EXEC> | |
44024 | ||
44025 | if (dec_BER_PDU('31800101000201050000'O) == myValue) | |
44026 | ||
44027 | {setverdict(pass);} else {setverdict(fail);} | |
44028 | ||
44029 | ||
44030 | <RESULT> | |
44031 | ||
44032 | Overall verdict: pass | |
44033 | ||
44034 | <END_TC> | |
44035 | ||
44036 | :exmp. | |
44037 | ||
44038 | .*---------------------------------------------------------------------* | |
44039 | :h3. DECODING ,SET OF CHOICE (different order) | |
44040 | .*---------------------------------------------------------------------* | |
44041 | :xmp tab=0. | |
44042 | ||
44043 | <TC - DECODING ,SET OF CHOICE (different order)> | |
44044 | ||
44045 | <STATIC:ASN> | |
44046 | ||
44047 | TempA | |
44048 | ||
44049 | DEFINITIONS ::= | |
44050 | BEGIN | |
44051 | ||
44052 | BERPDU ::= SET OF CHOICE{a INTEGER, b BOOLEAN} | |
44053 | ||
44054 | END | |
44055 | ||
44056 | <STATIC> | |
44057 | ||
44058 | import from TempA all; | |
44059 | ||
44060 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44061 | ||
44062 | const BERPDU myValue := { | |
44063 | { | |
44064 | a := 5 | |
44065 | }, | |
44066 | ||
44067 | { | |
44068 | b := false | |
44069 | } | |
44070 | ||
44071 | }; | |
44072 | ||
44073 | ||
44074 | <TTCN_TC:EXEC> | |
44075 | ||
44076 | if (dec_BER_PDU('3106020105010100'O) == myValue) | |
44077 | ||
44078 | {setverdict(pass);} else {setverdict(fail);} | |
44079 | ||
44080 | ||
44081 | <RESULT> | |
44082 | ||
44083 | Overall verdict: pass | |
44084 | ||
44085 | <END_TC> | |
44086 | ||
44087 | :exmp. | |
44088 | ||
44089 | .*---------------------------------------------------------------------* | |
44090 | :h3. DECODING ,SET OF CHOICE (different order2) | |
44091 | .*---------------------------------------------------------------------* | |
44092 | :xmp tab=0. | |
44093 | ||
44094 | <TC - DECODING ,SET OF CHOICE (different order2)> | |
44095 | ||
44096 | <STATIC:ASN> | |
44097 | ||
44098 | TempA | |
44099 | ||
44100 | DEFINITIONS ::= | |
44101 | BEGIN | |
44102 | ||
44103 | BERPDU ::= SET OF CHOICE{a INTEGER, b BOOLEAN} | |
44104 | ||
44105 | END | |
44106 | ||
44107 | <STATIC> | |
44108 | ||
44109 | import from TempA all; | |
44110 | ||
44111 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44112 | ||
44113 | const BERPDU myValue := { | |
44114 | { | |
44115 | a := 5 | |
44116 | }, | |
44117 | ||
44118 | { | |
44119 | b := false | |
44120 | } | |
44121 | ||
44122 | }; | |
44123 | ||
44124 | ||
44125 | <TTCN_TC:EXEC> | |
44126 | ||
44127 | if (dec_BER_PDU('31800201050101000000'O) == myValue) | |
44128 | ||
44129 | {setverdict(pass);} else {setverdict(fail);} | |
44130 | ||
44131 | ||
44132 | <RESULT> | |
44133 | ||
44134 | Overall verdict: pass | |
44135 | ||
44136 | <END_TC> | |
44137 | ||
44138 | :exmp. | |
44139 | ||
44140 | .*---------------------------------------------------------------------* | |
44141 | :h3. DECODING DER,SET OF SEQUENCE OF | |
44142 | .*---------------------------------------------------------------------* | |
44143 | :xmp tab=0. | |
44144 | ||
44145 | <TC - DECODING DER,SET OF SEQUENCE OF> | |
44146 | ||
44147 | <STATIC:ASN> | |
44148 | ||
44149 | TempA | |
44150 | ||
44151 | DEFINITIONS ::= | |
44152 | BEGIN | |
44153 | ||
44154 | BERPDU ::= SET OF SEQUENCE OF INTEGER | |
44155 | ||
44156 | END | |
44157 | ||
44158 | <STATIC> | |
44159 | ||
44160 | import from TempA all; | |
44161 | ||
44162 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44163 | ||
44164 | const BERPDU myValue := { | |
44165 | { | |
44166 | 5, | |
44167 | 6, | |
44168 | 7 | |
44169 | }, | |
44170 | ||
44171 | { | |
44172 | 1, | |
44173 | 2, | |
44174 | 3 | |
44175 | } | |
44176 | }; | |
44177 | ||
44178 | ||
44179 | <TTCN_TC:EXEC> | |
44180 | ||
44181 | if (dec_BER_PDU('311630090201010201020201033009020105020106020107'O) == myValue) | |
44182 | ||
44183 | {setverdict(pass);} else {setverdict(fail);} | |
44184 | ||
44185 | ||
44186 | <RESULT> | |
44187 | ||
44188 | Overall verdict: pass | |
44189 | ||
44190 | <END_TC> | |
44191 | ||
44192 | :exmp. | |
44193 | ||
44194 | .*---------------------------------------------------------------------* | |
44195 | :h3. DECODING CER,SET OF SEQUENCE OF | |
44196 | .*---------------------------------------------------------------------* | |
44197 | :xmp tab=0. | |
44198 | ||
44199 | <TC - DECODING CER,SET OF SEQUENCE OF> | |
44200 | ||
44201 | <STATIC:ASN> | |
44202 | ||
44203 | TempA | |
44204 | ||
44205 | DEFINITIONS ::= | |
44206 | BEGIN | |
44207 | ||
44208 | BERPDU ::= SET OF SEQUENCE OF INTEGER | |
44209 | ||
44210 | END | |
44211 | ||
44212 | <STATIC> | |
44213 | ||
44214 | import from TempA all; | |
44215 | ||
44216 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44217 | ||
44218 | const BERPDU myValue := { | |
44219 | { | |
44220 | 5, | |
44221 | 6, | |
44222 | 7 | |
44223 | }, | |
44224 | ||
44225 | { | |
44226 | 1, | |
44227 | 2, | |
44228 | 3 | |
44229 | } | |
44230 | }; | |
44231 | ||
44232 | ||
44233 | <TTCN_TC:EXEC> | |
44234 | ||
44235 | if (dec_BER_PDU('318030800201010201020201030000308002010502010602010700000000'O) == myValue) | |
44236 | ||
44237 | {setverdict(pass);} else {setverdict(fail);} | |
44238 | ||
44239 | ||
44240 | <RESULT> | |
44241 | ||
44242 | Overall verdict: pass | |
44243 | ||
44244 | <END_TC> | |
44245 | ||
44246 | :exmp. | |
44247 | ||
44248 | .*---------------------------------------------------------------------* | |
44249 | :h3. DECODING ,SET OF SEQUENCE OF, (different order) | |
44250 | .*---------------------------------------------------------------------* | |
44251 | :xmp tab=0. | |
44252 | ||
44253 | <TC - DECODING ,SET OF SEQUENCE OF, (different order)> | |
44254 | ||
44255 | <STATIC:ASN> | |
44256 | ||
44257 | TempA | |
44258 | ||
44259 | DEFINITIONS ::= | |
44260 | BEGIN | |
44261 | ||
44262 | BERPDU ::= SET OF SEQUENCE OF INTEGER | |
44263 | ||
44264 | END | |
44265 | ||
44266 | <STATIC> | |
44267 | ||
44268 | import from TempA all; | |
44269 | ||
44270 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44271 | ||
44272 | const BERPDU myValue := { | |
44273 | { | |
44274 | 5, | |
44275 | 6, | |
44276 | 7 | |
44277 | }, | |
44278 | ||
44279 | { | |
44280 | 1, | |
44281 | 2, | |
44282 | 3 | |
44283 | } | |
44284 | }; | |
44285 | ||
44286 | ||
44287 | <TTCN_TC:EXEC> | |
44288 | ||
44289 | if (dec_BER_PDU('311630090201050201060201073009020101020102020103'O) == myValue) | |
44290 | ||
44291 | {setverdict(pass);} else {setverdict(fail);} | |
44292 | ||
44293 | ||
44294 | <RESULT> | |
44295 | ||
44296 | Overall verdict: pass | |
44297 | ||
44298 | <END_TC> | |
44299 | ||
44300 | :exmp. | |
44301 | ||
44302 | .*---------------------------------------------------------------------* | |
44303 | :h3. DECODING ,SET OF SEQUENCE OF, (different order2) | |
44304 | .*---------------------------------------------------------------------* | |
44305 | :xmp tab=0. | |
44306 | ||
44307 | <TC - DECODING ,SET OF SEQUENCE OF, (different order2)> | |
44308 | ||
44309 | <STATIC:ASN> | |
44310 | ||
44311 | TempA | |
44312 | ||
44313 | DEFINITIONS ::= | |
44314 | BEGIN | |
44315 | ||
44316 | BERPDU ::= SET OF SEQUENCE OF INTEGER | |
44317 | ||
44318 | END | |
44319 | ||
44320 | <STATIC> | |
44321 | ||
44322 | import from TempA all; | |
44323 | ||
44324 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44325 | ||
44326 | const BERPDU myValue := { | |
44327 | { | |
44328 | 5, | |
44329 | 6, | |
44330 | 7 | |
44331 | }, | |
44332 | ||
44333 | { | |
44334 | 1, | |
44335 | 2, | |
44336 | 3 | |
44337 | } | |
44338 | }; | |
44339 | ||
44340 | ||
44341 | <TTCN_TC:EXEC> | |
44342 | ||
44343 | if (dec_BER_PDU('318030800201050201060201070000308002010102010202010300000000'O) == myValue) | |
44344 | ||
44345 | {setverdict(pass);} else {setverdict(fail);} | |
44346 | ||
44347 | ||
44348 | <RESULT> | |
44349 | ||
44350 | Overall verdict: pass | |
44351 | ||
44352 | <END_TC> | |
44353 | ||
44354 | :exmp. | |
44355 | ||
44356 | .*---------------------------------------------------------------------* | |
44357 | :h3. DECODING DER,SET OF SET OF | |
44358 | .*---------------------------------------------------------------------* | |
44359 | :xmp tab=0. | |
44360 | ||
44361 | <TC - DECODING DER,SET OF SET OF> | |
44362 | ||
44363 | <STATIC:ASN> | |
44364 | ||
44365 | TempA | |
44366 | ||
44367 | DEFINITIONS ::= | |
44368 | BEGIN | |
44369 | ||
44370 | BERPDU ::= SET OF SET OF INTEGER | |
44371 | ||
44372 | END | |
44373 | ||
44374 | <STATIC> | |
44375 | ||
44376 | import from TempA all; | |
44377 | ||
44378 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44379 | ||
44380 | const BERPDU myValue := { | |
44381 | { | |
44382 | 5, | |
44383 | 6, | |
44384 | 7 | |
44385 | }, | |
44386 | ||
44387 | { | |
44388 | 1, | |
44389 | 2, | |
44390 | 3 | |
44391 | } | |
44392 | }; | |
44393 | ||
44394 | ||
44395 | <TTCN_TC:EXEC> | |
44396 | ||
44397 | if (dec_BER_PDU('311631090201010201020201033109020105020106020107'O) == myValue) | |
44398 | ||
44399 | {setverdict(pass);} else {setverdict(fail);} | |
44400 | ||
44401 | ||
44402 | <RESULT> | |
44403 | ||
44404 | Overall verdict: pass | |
44405 | ||
44406 | <END_TC> | |
44407 | ||
44408 | :exmp. | |
44409 | ||
44410 | .*---------------------------------------------------------------------* | |
44411 | :h3. DECODING CER,SET OF SET OF | |
44412 | .*---------------------------------------------------------------------* | |
44413 | :xmp tab=0. | |
44414 | ||
44415 | <TC - DECODING CER,SET OF SET OF> | |
44416 | ||
44417 | <STATIC:ASN> | |
44418 | ||
44419 | TempA | |
44420 | ||
44421 | DEFINITIONS ::= | |
44422 | BEGIN | |
44423 | ||
44424 | BERPDU ::= SET OF SET OF INTEGER | |
44425 | ||
44426 | END | |
44427 | ||
44428 | <STATIC> | |
44429 | ||
44430 | import from TempA all; | |
44431 | ||
44432 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44433 | ||
44434 | const BERPDU myValue := { | |
44435 | { | |
44436 | 5, | |
44437 | 6, | |
44438 | 7 | |
44439 | }, | |
44440 | ||
44441 | { | |
44442 | 1, | |
44443 | 2, | |
44444 | 3 | |
44445 | } | |
44446 | }; | |
44447 | ||
44448 | ||
44449 | <TTCN_TC:EXEC> | |
44450 | ||
44451 | if (dec_BER_PDU('318031800201010201020201030000318002010502010602010700000000'O) == myValue) | |
44452 | ||
44453 | {setverdict(pass);} else {setverdict(fail);} | |
44454 | ||
44455 | ||
44456 | <RESULT> | |
44457 | ||
44458 | Overall verdict: pass | |
44459 | ||
44460 | <END_TC> | |
44461 | ||
44462 | :exmp. | |
44463 | ||
44464 | .*---------------------------------------------------------------------* | |
44465 | :h3. DECODING ,SET OF SET OF (different order) | |
44466 | .*---------------------------------------------------------------------* | |
44467 | :xmp tab=0. | |
44468 | ||
44469 | <TC - DECODING ,SET OF SET OF (different order)> | |
44470 | ||
44471 | <STATIC:ASN> | |
44472 | ||
44473 | TempA | |
44474 | ||
44475 | DEFINITIONS ::= | |
44476 | BEGIN | |
44477 | ||
44478 | BERPDU ::= SET OF SET OF INTEGER | |
44479 | ||
44480 | END | |
44481 | ||
44482 | <STATIC> | |
44483 | ||
44484 | import from TempA all; | |
44485 | ||
44486 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44487 | ||
44488 | const BERPDU myValue := { | |
44489 | { | |
44490 | 5, | |
44491 | 6, | |
44492 | 7 | |
44493 | }, | |
44494 | ||
44495 | { | |
44496 | 1, | |
44497 | 2, | |
44498 | 3 | |
44499 | } | |
44500 | }; | |
44501 | ||
44502 | ||
44503 | <TTCN_TC:EXEC> | |
44504 | ||
44505 | if (dec_BER_PDU('311631090201050201060201073109020101020102020103'O) == myValue) | |
44506 | ||
44507 | {setverdict(pass);} else {setverdict(fail);} | |
44508 | ||
44509 | ||
44510 | <RESULT> | |
44511 | ||
44512 | Overall verdict: pass | |
44513 | ||
44514 | <END_TC> | |
44515 | ||
44516 | :exmp. | |
44517 | ||
44518 | .*---------------------------------------------------------------------* | |
44519 | :h3. DECODING ,SET OF SET OF (different order2) | |
44520 | .*---------------------------------------------------------------------* | |
44521 | :xmp tab=0. | |
44522 | ||
44523 | <TC - DECODING ,SET OF SET OF (different order2)> | |
44524 | ||
44525 | <STATIC:ASN> | |
44526 | ||
44527 | TempA | |
44528 | ||
44529 | DEFINITIONS ::= | |
44530 | BEGIN | |
44531 | ||
44532 | BERPDU ::= SET OF SET OF INTEGER | |
44533 | ||
44534 | END | |
44535 | ||
44536 | <STATIC> | |
44537 | ||
44538 | import from TempA all; | |
44539 | ||
44540 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44541 | ||
44542 | const BERPDU myValue := { | |
44543 | { | |
44544 | 5, | |
44545 | 6, | |
44546 | 7 | |
44547 | }, | |
44548 | ||
44549 | { | |
44550 | 1, | |
44551 | 2, | |
44552 | 3 | |
44553 | } | |
44554 | }; | |
44555 | ||
44556 | ||
44557 | <TTCN_TC:EXEC> | |
44558 | ||
44559 | if (dec_BER_PDU('318031800201050201060201070000318002010102010202010300000000'O) == myValue) | |
44560 | ||
44561 | {setverdict(pass);} else {setverdict(fail);} | |
44562 | ||
44563 | ||
44564 | <RESULT> | |
44565 | ||
44566 | Overall verdict: pass | |
44567 | ||
44568 | <END_TC> | |
44569 | ||
44570 | :exmp. | |
44571 | ||
44572 | .*---------------------------------------------------------------------* | |
44573 | :h3. DECODING DER,TAGGED SET OF BOOLEAN | |
44574 | .*---------------------------------------------------------------------* | |
44575 | :xmp tab=0. | |
44576 | ||
44577 | <TC - DECODING DER,TAGGED SET OF BOOLEAN> | |
44578 | ||
44579 | <STATIC:ASN> | |
44580 | ||
44581 | TempA | |
44582 | ||
44583 | DEFINITIONS ::= | |
44584 | BEGIN | |
44585 | ||
44586 | BERPDU ::= [0] SET OF BOOLEAN | |
44587 | ||
44588 | END | |
44589 | ||
44590 | <STATIC> | |
44591 | ||
44592 | import from TempA all; | |
44593 | ||
44594 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44595 | ||
44596 | const BERPDU myValue := {true, false } | |
44597 | ||
44598 | ||
44599 | <TTCN_TC:EXEC> | |
44600 | ||
44601 | if (dec_BER_PDU('A00831060101000101FF'O) == myValue) | |
44602 | ||
44603 | {setverdict(pass);} else {setverdict(fail);} | |
44604 | ||
44605 | ||
44606 | <RESULT> | |
44607 | ||
44608 | Overall verdict: pass | |
44609 | ||
44610 | <END_TC> | |
44611 | ||
44612 | :exmp. | |
44613 | ||
44614 | .*---------------------------------------------------------------------* | |
44615 | :h3. DECODING CER,TAGGED SET OF BOOLEAN | |
44616 | .*---------------------------------------------------------------------* | |
44617 | :xmp tab=0. | |
44618 | ||
44619 | <TC - DECODING CER,TAGGED SET OF BOOLEAN> | |
44620 | ||
44621 | <STATIC:ASN> | |
44622 | ||
44623 | TempA | |
44624 | ||
44625 | DEFINITIONS ::= | |
44626 | BEGIN | |
44627 | ||
44628 | BERPDU ::= [0] SET OF BOOLEAN | |
44629 | ||
44630 | END | |
44631 | ||
44632 | <STATIC> | |
44633 | ||
44634 | import from TempA all; | |
44635 | ||
44636 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44637 | ||
44638 | const BERPDU myValue := {true, false } | |
44639 | ||
44640 | ||
44641 | <TTCN_TC:EXEC> | |
44642 | ||
44643 | if (dec_BER_PDU('A08031800101000101FF00000000'O) == myValue) | |
44644 | ||
44645 | {setverdict(pass);} else {setverdict(fail);} | |
44646 | ||
44647 | ||
44648 | <RESULT> | |
44649 | ||
44650 | Overall verdict: pass | |
44651 | ||
44652 | <END_TC> | |
44653 | ||
44654 | :exmp. | |
44655 | ||
44656 | .*---------------------------------------------------------------------* | |
44657 | :h3. DECODING ,TAGGED SET OF BOOLEAN (different order) | |
44658 | .*---------------------------------------------------------------------* | |
44659 | :xmp tab=0. | |
44660 | ||
44661 | <TC - DECODING ,TAGGED SET OF BOOLEAN (different order)> | |
44662 | ||
44663 | <STATIC:ASN> | |
44664 | ||
44665 | TempA | |
44666 | ||
44667 | DEFINITIONS ::= | |
44668 | BEGIN | |
44669 | ||
44670 | BERPDU ::= [0] SET OF BOOLEAN | |
44671 | ||
44672 | END | |
44673 | ||
44674 | <STATIC> | |
44675 | ||
44676 | import from TempA all; | |
44677 | ||
44678 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44679 | ||
44680 | const BERPDU myValue := {true, false } | |
44681 | ||
44682 | ||
44683 | <TTCN_TC:EXEC> | |
44684 | ||
44685 | if (dec_BER_PDU('A00831060101FF010100'O) == myValue) | |
44686 | ||
44687 | {setverdict(pass);} else {setverdict(fail);} | |
44688 | ||
44689 | ||
44690 | <RESULT> | |
44691 | ||
44692 | Overall verdict: pass | |
44693 | ||
44694 | <END_TC> | |
44695 | ||
44696 | :exmp. | |
44697 | ||
44698 | .*---------------------------------------------------------------------* | |
44699 | :h3. DECODING ,TAGGED SET OF BOOLEAN (different order2) | |
44700 | .*---------------------------------------------------------------------* | |
44701 | :xmp tab=0. | |
44702 | ||
44703 | <TC - DECODING ,TAGGED SET OF BOOLEAN (different order2)> | |
44704 | ||
44705 | <STATIC:ASN> | |
44706 | ||
44707 | TempA | |
44708 | ||
44709 | DEFINITIONS ::= | |
44710 | BEGIN | |
44711 | ||
44712 | BERPDU ::= [0] SET OF BOOLEAN | |
44713 | ||
44714 | END | |
44715 | ||
44716 | <STATIC> | |
44717 | ||
44718 | import from TempA all; | |
44719 | ||
44720 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44721 | ||
44722 | const BERPDU myValue := {true, false } | |
44723 | ||
44724 | ||
44725 | <TTCN_TC:EXEC> | |
44726 | ||
44727 | if (dec_BER_PDU('A08031800101FF01010000000000'O) == myValue) | |
44728 | ||
44729 | {setverdict(pass);} else {setverdict(fail);} | |
44730 | ||
44731 | ||
44732 | <RESULT> | |
44733 | ||
44734 | Overall verdict: pass | |
44735 | ||
44736 | <END_TC> | |
44737 | ||
44738 | :exmp. | |
44739 | ||
44740 | .*---------------------------------------------------------------------* | |
44741 | :h3. DECODING DER,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING | |
44742 | .*---------------------------------------------------------------------* | |
44743 | :xmp tab=0. | |
44744 | ||
44745 | <TC - DECODING DER,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING> | |
44746 | ||
44747 | <STATIC:ASN> | |
44748 | ||
44749 | TempA | |
44750 | ||
44751 | DEFINITIONS | |
44752 | ||
44753 | EXPLICIT TAGS | |
44754 | ::= | |
44755 | ||
44756 | BEGIN | |
44757 | ||
44758 | BERPDU ::= [0] SET OF BOOLEAN | |
44759 | ||
44760 | END | |
44761 | ||
44762 | <STATIC> | |
44763 | ||
44764 | import from TempA all; | |
44765 | ||
44766 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44767 | ||
44768 | const BERPDU myValue := {true, false } | |
44769 | ||
44770 | ||
44771 | <TTCN_TC:EXEC> | |
44772 | ||
44773 | if (dec_BER_PDU('A00831060101000101FF'O) == myValue) | |
44774 | ||
44775 | {setverdict(pass);} else {setverdict(fail);} | |
44776 | ||
44777 | ||
44778 | <RESULT> | |
44779 | ||
44780 | Overall verdict: pass | |
44781 | ||
44782 | <END_TC> | |
44783 | ||
44784 | :exmp. | |
44785 | ||
44786 | .*---------------------------------------------------------------------* | |
44787 | :h3. DECODING CER,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING | |
44788 | .*---------------------------------------------------------------------* | |
44789 | :xmp tab=0. | |
44790 | ||
44791 | <TC - DECODING CER,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING> | |
44792 | ||
44793 | <STATIC:ASN> | |
44794 | ||
44795 | TempA | |
44796 | ||
44797 | DEFINITIONS | |
44798 | ||
44799 | EXPLICIT TAGS | |
44800 | ::= | |
44801 | ||
44802 | BEGIN | |
44803 | ||
44804 | BERPDU ::= [0] SET OF BOOLEAN | |
44805 | ||
44806 | END | |
44807 | ||
44808 | <STATIC> | |
44809 | ||
44810 | import from TempA all; | |
44811 | ||
44812 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44813 | ||
44814 | const BERPDU myValue := {true, false } | |
44815 | ||
44816 | ||
44817 | <TTCN_TC:EXEC> | |
44818 | ||
44819 | if (dec_BER_PDU('A08031800101000101FF00000000'O) == myValue) | |
44820 | ||
44821 | {setverdict(pass);} else {setverdict(fail);} | |
44822 | ||
44823 | ||
44824 | <RESULT> | |
44825 | ||
44826 | Overall verdict: pass | |
44827 | ||
44828 | <END_TC> | |
44829 | ||
44830 | :exmp. | |
44831 | ||
44832 | .*---------------------------------------------------------------------* | |
44833 | :h3. DECODING ,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING (different order) | |
44834 | .*---------------------------------------------------------------------* | |
44835 | :xmp tab=0. | |
44836 | ||
44837 | <TC - DECODING ,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING (different order)> | |
44838 | ||
44839 | <STATIC:ASN> | |
44840 | ||
44841 | TempA | |
44842 | ||
44843 | DEFINITIONS | |
44844 | ||
44845 | EXPLICIT TAGS | |
44846 | ::= | |
44847 | ||
44848 | BEGIN | |
44849 | ||
44850 | BERPDU ::= [0] SET OF BOOLEAN | |
44851 | ||
44852 | END | |
44853 | ||
44854 | <STATIC> | |
44855 | ||
44856 | import from TempA all; | |
44857 | ||
44858 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44859 | ||
44860 | const BERPDU myValue := {true, false } | |
44861 | ||
44862 | ||
44863 | <TTCN_TC:EXEC> | |
44864 | ||
44865 | if (dec_BER_PDU('A00831060101FF010100'O) == myValue) | |
44866 | ||
44867 | {setverdict(pass);} else {setverdict(fail);} | |
44868 | ||
44869 | ||
44870 | <RESULT> | |
44871 | ||
44872 | Overall verdict: pass | |
44873 | ||
44874 | <END_TC> | |
44875 | ||
44876 | :exmp. | |
44877 | ||
44878 | .*---------------------------------------------------------------------* | |
44879 | :h3. DECODING ,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING (different order2) | |
44880 | .*---------------------------------------------------------------------* | |
44881 | :xmp tab=0. | |
44882 | ||
44883 | <TC - DECODING ,TAGGED SET OF BOOLEAN, EXPLICIT TAGGING (different order2)> | |
44884 | ||
44885 | <STATIC:ASN> | |
44886 | ||
44887 | TempA | |
44888 | ||
44889 | DEFINITIONS | |
44890 | ||
44891 | EXPLICIT TAGS | |
44892 | ::= | |
44893 | ||
44894 | BEGIN | |
44895 | ||
44896 | BERPDU ::= [0] SET OF BOOLEAN | |
44897 | ||
44898 | END | |
44899 | ||
44900 | <STATIC> | |
44901 | ||
44902 | import from TempA all; | |
44903 | ||
44904 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44905 | ||
44906 | const BERPDU myValue := {true, false } | |
44907 | ||
44908 | ||
44909 | <TTCN_TC:EXEC> | |
44910 | ||
44911 | if (dec_BER_PDU('A08031800101FF01010000000000'O) == myValue) | |
44912 | ||
44913 | {setverdict(pass);} else {setverdict(fail);} | |
44914 | ||
44915 | ||
44916 | <RESULT> | |
44917 | ||
44918 | Overall verdict: pass | |
44919 | ||
44920 | <END_TC> | |
44921 | ||
44922 | :exmp. | |
44923 | ||
44924 | .*---------------------------------------------------------------------* | |
44925 | :h3. DECODING DER,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING | |
44926 | .*---------------------------------------------------------------------* | |
44927 | :xmp tab=0. | |
44928 | ||
44929 | <TC - DECODING DER,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING> | |
44930 | ||
44931 | <STATIC:ASN> | |
44932 | ||
44933 | TempA | |
44934 | ||
44935 | DEFINITIONS | |
44936 | ||
44937 | IMPLICIT TAGS | |
44938 | ::= | |
44939 | ||
44940 | BEGIN | |
44941 | ||
44942 | BERPDU ::= [0] SET OF BOOLEAN | |
44943 | ||
44944 | END | |
44945 | ||
44946 | <STATIC> | |
44947 | ||
44948 | import from TempA all; | |
44949 | ||
44950 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44951 | ||
44952 | const BERPDU myValue := {true, false } | |
44953 | ||
44954 | ||
44955 | <TTCN_TC:EXEC> | |
44956 | ||
44957 | if (dec_BER_PDU('A0060101000101FF'O) == myValue) | |
44958 | ||
44959 | {setverdict(pass);} else {setverdict(fail);} | |
44960 | ||
44961 | ||
44962 | <RESULT> | |
44963 | ||
44964 | Overall verdict: pass | |
44965 | ||
44966 | <END_TC> | |
44967 | ||
44968 | :exmp. | |
44969 | ||
44970 | .*---------------------------------------------------------------------* | |
44971 | :h3. DECODING CER,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING | |
44972 | .*---------------------------------------------------------------------* | |
44973 | :xmp tab=0. | |
44974 | ||
44975 | <TC - DECODING CER,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING> | |
44976 | ||
44977 | <STATIC:ASN> | |
44978 | ||
44979 | TempA | |
44980 | ||
44981 | DEFINITIONS | |
44982 | ||
44983 | IMPLICIT TAGS | |
44984 | ::= | |
44985 | ||
44986 | BEGIN | |
44987 | ||
44988 | BERPDU ::= [0] SET OF BOOLEAN | |
44989 | ||
44990 | END | |
44991 | ||
44992 | <STATIC> | |
44993 | ||
44994 | import from TempA all; | |
44995 | ||
44996 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
44997 | ||
44998 | const BERPDU myValue := {true, false } | |
44999 | ||
45000 | ||
45001 | <TTCN_TC:EXEC> | |
45002 | ||
45003 | if (dec_BER_PDU('A0800101000101FF0000'O) == myValue) | |
45004 | ||
45005 | {setverdict(pass);} else {setverdict(fail);} | |
45006 | ||
45007 | ||
45008 | <RESULT> | |
45009 | ||
45010 | Overall verdict: pass | |
45011 | ||
45012 | <END_TC> | |
45013 | ||
45014 | :exmp. | |
45015 | ||
45016 | .*---------------------------------------------------------------------* | |
45017 | :h3. DECODING ,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING (different order) | |
45018 | .*---------------------------------------------------------------------* | |
45019 | :xmp tab=0. | |
45020 | ||
45021 | <TC - DECODING ,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING (different order)> | |
45022 | ||
45023 | <STATIC:ASN> | |
45024 | ||
45025 | TempA | |
45026 | ||
45027 | DEFINITIONS | |
45028 | ||
45029 | IMPLICIT TAGS | |
45030 | ::= | |
45031 | ||
45032 | BEGIN | |
45033 | ||
45034 | BERPDU ::= [0] SET OF BOOLEAN | |
45035 | ||
45036 | END | |
45037 | ||
45038 | <STATIC> | |
45039 | ||
45040 | import from TempA all; | |
45041 | ||
45042 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
45043 | ||
45044 | const BERPDU myValue := {true, false } | |
45045 | ||
45046 | ||
45047 | <TTCN_TC:EXEC> | |
45048 | ||
45049 | if (dec_BER_PDU('A0060101FF010100'O) == myValue) | |
45050 | ||
45051 | {setverdict(pass);} else {setverdict(fail);} | |
45052 | ||
45053 | ||
45054 | <RESULT> | |
45055 | ||
45056 | Overall verdict: pass | |
45057 | ||
45058 | <END_TC> | |
45059 | ||
45060 | :exmp. | |
45061 | ||
45062 | .*---------------------------------------------------------------------* | |
45063 | :h3. DECODING ,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING (different order2) | |
45064 | .*---------------------------------------------------------------------* | |
45065 | :xmp tab=0. | |
45066 | ||
45067 | <TC - DECODING ,TAGGED SET OF BOOLEAN, IMPLICIT TAGGING (different order2)> | |
45068 | ||
45069 | <STATIC:ASN> | |
45070 | ||
45071 | TempA | |
45072 | ||
45073 | DEFINITIONS | |
45074 | ||
45075 | IMPLICIT TAGS | |
45076 | ::= | |
45077 | ||
45078 | BEGIN | |
45079 | ||
45080 | BERPDU ::= [0] SET OF BOOLEAN | |
45081 | ||
45082 | END | |
45083 | ||
45084 | <STATIC> | |
45085 | ||
45086 | import from TempA all; | |
45087 | ||
45088 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
45089 | ||
45090 | const BERPDU myValue := {true, false } | |
45091 | ||
45092 | ||
45093 | <TTCN_TC:EXEC> | |
45094 | ||
45095 | if (dec_BER_PDU('A0800101FF0101000000'O) == myValue) | |
45096 | ||
45097 | {setverdict(pass);} else {setverdict(fail);} | |
45098 | ||
45099 | ||
45100 | <RESULT> | |
45101 | ||
45102 | Overall verdict: pass | |
45103 | ||
45104 | <END_TC> | |
45105 | ||
45106 | :exmp. | |
45107 | ||
45108 | .*---------------------------------------------------------------------* | |
45109 | :h3.CER + DER encoding of CHOICE - NULL | |
45110 | .*---------------------------------------------------------------------* | |
45111 | :xmp tab=0. | |
45112 | ||
45113 | <TC - CER + DER encoding of CHOICE - NULL> | |
45114 | ||
45115 | <STATIC:ASN> | |
45116 | ||
45117 | TempA | |
45118 | ||
45119 | DEFINITIONS ::= | |
45120 | BEGIN | |
45121 | ||
45122 | BERPDU ::= CHOICE | |
45123 | { | |
45124 | a NULL, | |
45125 | b BOOLEAN, | |
45126 | c INTEGER, | |
45127 | d ENUMERATED {first ,second ,third}, | |
45128 | e REAL, | |
45129 | f BIT STRING, | |
45130 | g OCTET STRING, | |
45131 | ||
45132 | h OBJECT IDENTIFIER, | |
45133 | i IA5String, | |
45134 | j CHOICE {x1 [1] BOOLEAN, | |
45135 | y1 [2] OCTET STRING}, | |
45136 | ||
45137 | k SEQUENCE{x2 NULL, | |
45138 | y2 BOOLEAN}, | |
45139 | ||
45140 | l SET { x3 BIT STRING, | |
45141 | y3 REAL}, | |
45142 | ||
45143 | m [3] SEQUENCE OF INTEGER, | |
45144 | n [4] SET OF BOOLEAN | |
45145 | } | |
45146 | ||
45147 | ||
45148 | END | |
45149 | ||
45150 | <STATIC> | |
45151 | ||
45152 | import from TempA all; | |
45153 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45154 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45155 | ||
45156 | const BERPDU myValue := {a := NULL} | |
45157 | ||
45158 | <TTCN_TC:EXEC> | |
45159 | ||
45160 | ||
45161 | ||
45162 | ||
45163 | if ((enc_DER_PDU(myValue) == '0500'O)and(enc_CER_PDU(myValue) == '0500'O)) {setverdict(pass);} else {setverdict(fail);} | |
45164 | ||
45165 | <RESULT> | |
45166 | ||
45167 | Overall verdict: pass | |
45168 | ||
45169 | <END_TC> | |
45170 | ||
45171 | :exmp. | |
45172 | ||
45173 | .*---------------------------------------------------------------------* | |
45174 | :h3.CER + DER encoding of CHOICE - BOOLEAN | |
45175 | .*---------------------------------------------------------------------* | |
45176 | :xmp tab=0. | |
45177 | ||
45178 | <TC - CER + DER encoding of CHOICE - BOOLEAN> | |
45179 | ||
45180 | <STATIC:ASN> | |
45181 | ||
45182 | TempA | |
45183 | ||
45184 | DEFINITIONS ::= | |
45185 | BEGIN | |
45186 | ||
45187 | BERPDU ::= CHOICE | |
45188 | { | |
45189 | a NULL, | |
45190 | b BOOLEAN, | |
45191 | c INTEGER, | |
45192 | d ENUMERATED {first ,second ,third}, | |
45193 | e REAL, | |
45194 | f BIT STRING, | |
45195 | g OCTET STRING, | |
45196 | ||
45197 | h OBJECT IDENTIFIER, | |
45198 | i IA5String, | |
45199 | j CHOICE {x1 [1] BOOLEAN, | |
45200 | y1 [2] OCTET STRING}, | |
45201 | ||
45202 | k SEQUENCE{x2 NULL, | |
45203 | y2 BOOLEAN}, | |
45204 | ||
45205 | l SET { x3 BIT STRING, | |
45206 | y3 REAL}, | |
45207 | ||
45208 | m [3] SEQUENCE OF INTEGER, | |
45209 | n [4] SET OF BOOLEAN | |
45210 | } | |
45211 | ||
45212 | ||
45213 | END | |
45214 | ||
45215 | <STATIC> | |
45216 | ||
45217 | import from TempA all; | |
45218 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45219 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45220 | ||
45221 | const BERPDU myValue := {b := true} | |
45222 | ||
45223 | <TTCN_TC:EXEC> | |
45224 | ||
45225 | ||
45226 | ||
45227 | ||
45228 | if ((enc_DER_PDU(myValue) == '0101FF'O)and(enc_CER_PDU(myValue) == '0101FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
45229 | ||
45230 | <RESULT> | |
45231 | ||
45232 | Overall verdict: pass | |
45233 | ||
45234 | <END_TC> | |
45235 | ||
45236 | :exmp. | |
45237 | ||
45238 | .*---------------------------------------------------------------------* | |
45239 | :h3.CER + DER encoding of CHOICE - INTEGER | |
45240 | .*---------------------------------------------------------------------* | |
45241 | :xmp tab=0. | |
45242 | ||
45243 | <TC - CER + DER encoding of CHOICE - INTEGER> | |
45244 | ||
45245 | <STATIC:ASN> | |
45246 | ||
45247 | TempA | |
45248 | ||
45249 | DEFINITIONS ::= | |
45250 | BEGIN | |
45251 | ||
45252 | BERPDU ::= CHOICE | |
45253 | { | |
45254 | a NULL, | |
45255 | b BOOLEAN, | |
45256 | c INTEGER, | |
45257 | d ENUMERATED {first ,second ,third}, | |
45258 | e REAL, | |
45259 | f BIT STRING, | |
45260 | g OCTET STRING, | |
45261 | ||
45262 | h OBJECT IDENTIFIER, | |
45263 | i IA5String, | |
45264 | j CHOICE {x1 [1] BOOLEAN, | |
45265 | y1 [2] OCTET STRING}, | |
45266 | ||
45267 | k SEQUENCE{x2 NULL, | |
45268 | y2 BOOLEAN}, | |
45269 | ||
45270 | l SET { x3 BIT STRING, | |
45271 | y3 REAL}, | |
45272 | ||
45273 | m [3] SEQUENCE OF INTEGER, | |
45274 | n [4] SET OF BOOLEAN | |
45275 | } | |
45276 | ||
45277 | ||
45278 | END | |
45279 | ||
45280 | <STATIC> | |
45281 | ||
45282 | import from TempA all; | |
45283 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45284 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45285 | ||
45286 | const BERPDU myValue := {c := 2} | |
45287 | ||
45288 | <TTCN_TC:EXEC> | |
45289 | ||
45290 | ||
45291 | ||
45292 | ||
45293 | if ((enc_DER_PDU(myValue) == '020102'O)and(enc_CER_PDU(myValue) == '020102'O)) {setverdict(pass);} else {setverdict(fail);} | |
45294 | ||
45295 | <RESULT> | |
45296 | ||
45297 | Overall verdict: pass | |
45298 | ||
45299 | <END_TC> | |
45300 | ||
45301 | :exmp. | |
45302 | ||
45303 | .*---------------------------------------------------------------------* | |
45304 | :h3.CER + DER encoding of CHOICE - ENUMERATED | |
45305 | .*---------------------------------------------------------------------* | |
45306 | :xmp tab=0. | |
45307 | ||
45308 | <TC - CER + DER encoding of CHOICE - ENUMERATED> | |
45309 | ||
45310 | <STATIC:ASN> | |
45311 | ||
45312 | TempA | |
45313 | ||
45314 | DEFINITIONS ::= | |
45315 | BEGIN | |
45316 | ||
45317 | BERPDU ::= CHOICE | |
45318 | { | |
45319 | a NULL, | |
45320 | b BOOLEAN, | |
45321 | c INTEGER, | |
45322 | d ENUMERATED {first ,second ,third}, | |
45323 | e REAL, | |
45324 | f BIT STRING, | |
45325 | g OCTET STRING, | |
45326 | ||
45327 | h OBJECT IDENTIFIER, | |
45328 | i IA5String, | |
45329 | j CHOICE {x1 [1] BOOLEAN, | |
45330 | y1 [2] OCTET STRING}, | |
45331 | ||
45332 | k SEQUENCE{x2 NULL, | |
45333 | y2 BOOLEAN}, | |
45334 | ||
45335 | l SET { x3 BIT STRING, | |
45336 | y3 REAL}, | |
45337 | ||
45338 | m [3] SEQUENCE OF INTEGER, | |
45339 | n [4] SET OF BOOLEAN | |
45340 | } | |
45341 | ||
45342 | ||
45343 | END | |
45344 | ||
45345 | <STATIC> | |
45346 | ||
45347 | import from TempA all; | |
45348 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45349 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45350 | ||
45351 | const BERPDU myValue := {d := first} | |
45352 | ||
45353 | <TTCN_TC:EXEC> | |
45354 | ||
45355 | ||
45356 | ||
45357 | ||
45358 | if ((enc_DER_PDU(myValue) == '0A0100'O)and(enc_CER_PDU(myValue) == '0A0100'O)) {setverdict(pass);} else {setverdict(fail);} | |
45359 | ||
45360 | <RESULT> | |
45361 | ||
45362 | Overall verdict: pass | |
45363 | ||
45364 | <END_TC> | |
45365 | ||
45366 | :exmp. | |
45367 | ||
45368 | .*---------------------------------------------------------------------* | |
45369 | :h3.CER + DER encoding of CHOICE - REAL | |
45370 | .*---------------------------------------------------------------------* | |
45371 | :xmp tab=0. | |
45372 | ||
45373 | <TC - CER + DER encoding of CHOICE - REAL> | |
45374 | ||
45375 | <STATIC:ASN> | |
45376 | ||
45377 | TempA | |
45378 | ||
45379 | DEFINITIONS ::= | |
45380 | BEGIN | |
45381 | ||
45382 | BERPDU ::= CHOICE | |
45383 | { | |
45384 | a NULL, | |
45385 | b BOOLEAN, | |
45386 | c INTEGER, | |
45387 | d ENUMERATED {first ,second ,third}, | |
45388 | e REAL, | |
45389 | f BIT STRING, | |
45390 | g OCTET STRING, | |
45391 | ||
45392 | h OBJECT IDENTIFIER, | |
45393 | i IA5String, | |
45394 | j CHOICE {x1 [1] BOOLEAN, | |
45395 | y1 [2] OCTET STRING}, | |
45396 | ||
45397 | k SEQUENCE{x2 NULL, | |
45398 | y2 BOOLEAN}, | |
45399 | ||
45400 | l SET { x3 BIT STRING, | |
45401 | y3 REAL}, | |
45402 | ||
45403 | m [3] SEQUENCE OF INTEGER, | |
45404 | n [4] SET OF BOOLEAN | |
45405 | } | |
45406 | ||
45407 | ||
45408 | END | |
45409 | ||
45410 | <STATIC> | |
45411 | ||
45412 | import from TempA all; | |
45413 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45414 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45415 | ||
45416 | const BERPDU myValue := {e := 1.0} | |
45417 | ||
45418 | <TTCN_TC:EXEC> | |
45419 | ||
45420 | ||
45421 | ||
45422 | ||
45423 | if ((enc_DER_PDU(myValue) == '090603312E452B30'O)and(enc_CER_PDU(myValue) == '090603312E452B30'O)) {setverdict(pass);} else {setverdict(fail);} | |
45424 | ||
45425 | <RESULT> | |
45426 | ||
45427 | Overall verdict: pass | |
45428 | ||
45429 | <END_TC> | |
45430 | ||
45431 | :exmp. | |
45432 | ||
45433 | .*---------------------------------------------------------------------* | |
45434 | :h3.CER + DER encoding of CHOICE - BIT STRING | |
45435 | .*---------------------------------------------------------------------* | |
45436 | :xmp tab=0. | |
45437 | ||
45438 | <TC - CER + DER encoding of CHOICE - BIT STRING> | |
45439 | ||
45440 | <STATIC:ASN> | |
45441 | ||
45442 | TempA | |
45443 | ||
45444 | DEFINITIONS ::= | |
45445 | BEGIN | |
45446 | ||
45447 | BERPDU ::= CHOICE | |
45448 | { | |
45449 | a NULL, | |
45450 | b BOOLEAN, | |
45451 | c INTEGER, | |
45452 | d ENUMERATED {first ,second ,third}, | |
45453 | e REAL, | |
45454 | f BIT STRING, | |
45455 | g OCTET STRING, | |
45456 | ||
45457 | h OBJECT IDENTIFIER, | |
45458 | i IA5String, | |
45459 | j CHOICE {x1 [1] BOOLEAN, | |
45460 | y1 [2] OCTET STRING}, | |
45461 | ||
45462 | k SEQUENCE{x2 NULL, | |
45463 | y2 BOOLEAN}, | |
45464 | ||
45465 | l SET { x3 BIT STRING, | |
45466 | y3 REAL}, | |
45467 | ||
45468 | m [3] SEQUENCE OF INTEGER, | |
45469 | n [4] SET OF BOOLEAN | |
45470 | } | |
45471 | ||
45472 | ||
45473 | END | |
45474 | ||
45475 | <STATIC> | |
45476 | ||
45477 | import from TempA all; | |
45478 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45479 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45480 | ||
45481 | const BERPDU myValue := {f := '1'B} | |
45482 | ||
45483 | <TTCN_TC:EXEC> | |
45484 | ||
45485 | ||
45486 | ||
45487 | ||
45488 | if ((enc_DER_PDU(myValue) == '03020780'O)and(enc_CER_PDU(myValue) == '03020780'O)) {setverdict(pass);} else {setverdict(fail);} | |
45489 | ||
45490 | <RESULT> | |
45491 | ||
45492 | Overall verdict: pass | |
45493 | ||
45494 | <END_TC> | |
45495 | ||
45496 | :exmp. | |
45497 | ||
45498 | .*---------------------------------------------------------------------* | |
45499 | :h3.CER + DER encoding of CHOICE - OCTET STRING | |
45500 | .*---------------------------------------------------------------------* | |
45501 | :xmp tab=0. | |
45502 | ||
45503 | <TC - CER + DER encoding of CHOICE - OCTET STRING> | |
45504 | ||
45505 | <STATIC:ASN> | |
45506 | ||
45507 | TempA | |
45508 | ||
45509 | DEFINITIONS ::= | |
45510 | BEGIN | |
45511 | ||
45512 | BERPDU ::= CHOICE | |
45513 | { | |
45514 | a NULL, | |
45515 | b BOOLEAN, | |
45516 | c INTEGER, | |
45517 | d ENUMERATED {first ,second ,third}, | |
45518 | e REAL, | |
45519 | f BIT STRING, | |
45520 | g OCTET STRING, | |
45521 | ||
45522 | h OBJECT IDENTIFIER, | |
45523 | i IA5String, | |
45524 | j CHOICE {x1 [1] BOOLEAN, | |
45525 | y1 [2] OCTET STRING}, | |
45526 | ||
45527 | k SEQUENCE{x2 NULL, | |
45528 | y2 BOOLEAN}, | |
45529 | ||
45530 | l SET { x3 BIT STRING, | |
45531 | y3 REAL}, | |
45532 | ||
45533 | m [3] SEQUENCE OF INTEGER, | |
45534 | n [4] SET OF BOOLEAN | |
45535 | } | |
45536 | ||
45537 | ||
45538 | END | |
45539 | ||
45540 | <STATIC> | |
45541 | ||
45542 | import from TempA all; | |
45543 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45544 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45545 | ||
45546 | const BERPDU myValue := {g := 'FFFF'O} | |
45547 | ||
45548 | <TTCN_TC:EXEC> | |
45549 | ||
45550 | ||
45551 | ||
45552 | ||
45553 | if ((enc_DER_PDU(myValue) == '0402FFFF'O)and(enc_CER_PDU(myValue) == '0402FFFF'O)) {setverdict(pass);} else {setverdict(fail);} | |
45554 | ||
45555 | <RESULT> | |
45556 | ||
45557 | Overall verdict: pass | |
45558 | ||
45559 | <END_TC> | |
45560 | ||
45561 | :exmp. | |
45562 | ||
45563 | .*---------------------------------------------------------------------* | |
45564 | :h3.CER + DER encoding of CHOICE - OBJECT IDENTIFIER | |
45565 | .*---------------------------------------------------------------------* | |
45566 | :xmp tab=0. | |
45567 | ||
45568 | <TC - CER + DER encoding of CHOICE - OBJECT IDENTIFIER> | |
45569 | ||
45570 | <STATIC:ASN> | |
45571 | ||
45572 | TempA | |
45573 | ||
45574 | DEFINITIONS ::= | |
45575 | BEGIN | |
45576 | ||
45577 | BERPDU ::= CHOICE | |
45578 | { | |
45579 | a NULL, | |
45580 | b BOOLEAN, | |
45581 | c INTEGER, | |
45582 | d ENUMERATED {first ,second ,third}, | |
45583 | e REAL, | |
45584 | f BIT STRING, | |
45585 | g OCTET STRING, | |
45586 | ||
45587 | h OBJECT IDENTIFIER, | |
45588 | i IA5String, | |
45589 | j CHOICE {x1 [1] BOOLEAN, | |
45590 | y1 [2] OCTET STRING}, | |
45591 | ||
45592 | k SEQUENCE{x2 NULL, | |
45593 | y2 BOOLEAN}, | |
45594 | ||
45595 | l SET { x3 BIT STRING, | |
45596 | y3 REAL}, | |
45597 | ||
45598 | m [3] SEQUENCE OF INTEGER, | |
45599 | n [4] SET OF BOOLEAN | |
45600 | } | |
45601 | ||
45602 | ||
45603 | ||
45604 | myValue BERPDU ::= h : {itu-t(0) recommendation(0) a(2) b(3)} | |
45605 | ||
45606 | ||
45607 | ||
45608 | END | |
45609 | ||
45610 | <STATIC> | |
45611 | ||
45612 | import from TempA all; | |
45613 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45614 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45615 | ||
45616 | ||
45617 | <TTCN_TC:EXEC> | |
45618 | ||
45619 | ||
45620 | ||
45621 | ||
45622 | if ((enc_DER_PDU(myValue) == '0603000203'O)and(enc_CER_PDU(myValue) == '0603000203'O)) {setverdict(pass);} else {setverdict(fail);} | |
45623 | ||
45624 | <RESULT> | |
45625 | ||
45626 | Overall verdict: pass | |
45627 | ||
45628 | <END_TC> | |
45629 | ||
45630 | :exmp. | |
45631 | ||
45632 | .*---------------------------------------------------------------------* | |
45633 | :h3.CER + DER encoding of CHOICE - IA5String | |
45634 | .*---------------------------------------------------------------------* | |
45635 | :xmp tab=0. | |
45636 | ||
45637 | <TC - CER + DER encoding of CHOICE - IA5String> | |
45638 | ||
45639 | <STATIC:ASN> | |
45640 | ||
45641 | TempA | |
45642 | ||
45643 | DEFINITIONS ::= | |
45644 | BEGIN | |
45645 | ||
45646 | BERPDU ::= CHOICE | |
45647 | { | |
45648 | a NULL, | |
45649 | b BOOLEAN, | |
45650 | c INTEGER, | |
45651 | d ENUMERATED {first ,second ,third}, | |
45652 | e REAL, | |
45653 | f BIT STRING, | |
45654 | g OCTET STRING, | |
45655 | ||
45656 | h OBJECT IDENTIFIER, | |
45657 | i IA5String, | |
45658 | j CHOICE {x1 [1] BOOLEAN, | |
45659 | y1 [2] OCTET STRING}, | |
45660 | ||
45661 | k SEQUENCE{x2 NULL, | |
45662 | y2 BOOLEAN}, | |
45663 | ||
45664 | l SET { x3 BIT STRING, | |
45665 | y3 REAL}, | |
45666 | ||
45667 | m [3] SEQUENCE OF INTEGER, | |
45668 | n [4] SET OF BOOLEAN | |
45669 | } | |
45670 | ||
45671 | ||
45672 | END | |
45673 | ||
45674 | <STATIC> | |
45675 | ||
45676 | import from TempA all; | |
45677 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45678 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45679 | ||
45680 | const BERPDU myValue := {i := "ABC"} | |
45681 | ||
45682 | <TTCN_TC:EXEC> | |
45683 | ||
45684 | ||
45685 | ||
45686 | ||
45687 | if ((enc_DER_PDU(myValue) == '1603414243'O)and(enc_CER_PDU(myValue) == '1603414243'O)) {setverdict(pass);} else {setverdict(fail);} | |
45688 | ||
45689 | <RESULT> | |
45690 | ||
45691 | Overall verdict: pass | |
45692 | ||
45693 | <END_TC> | |
45694 | ||
45695 | :exmp. | |
45696 | ||
45697 | .*---------------------------------------------------------------------* | |
45698 | :h3.CER + DER encoding of CHOICE - CHOICE | |
45699 | .*---------------------------------------------------------------------* | |
45700 | :xmp tab=0. | |
45701 | ||
45702 | <TC - CER + DER encoding of CHOICE - CHOICE> | |
45703 | ||
45704 | <STATIC:ASN> | |
45705 | ||
45706 | TempA | |
45707 | ||
45708 | DEFINITIONS ::= | |
45709 | BEGIN | |
45710 | ||
45711 | BERPDU ::= CHOICE | |
45712 | { | |
45713 | a NULL, | |
45714 | b BOOLEAN, | |
45715 | c INTEGER, | |
45716 | d ENUMERATED {first ,second ,third}, | |
45717 | e REAL, | |
45718 | f BIT STRING, | |
45719 | g OCTET STRING, | |
45720 | ||
45721 | h OBJECT IDENTIFIER, | |
45722 | i IA5String, | |
45723 | j CHOICE {x1 [1] BOOLEAN, | |
45724 | y1 [2] OCTET STRING}, | |
45725 | ||
45726 | k SEQUENCE{x2 NULL, | |
45727 | y2 BOOLEAN}, | |
45728 | ||
45729 | l SET { x3 BIT STRING, | |
45730 | y3 REAL}, | |
45731 | ||
45732 | m [3] SEQUENCE OF INTEGER, | |
45733 | n [4] SET OF BOOLEAN | |
45734 | } | |
45735 | ||
45736 | ||
45737 | END | |
45738 | ||
45739 | <STATIC> | |
45740 | ||
45741 | import from TempA all; | |
45742 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45743 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45744 | ||
45745 | const BERPDU myValue := {j := {x1 := true } } | |
45746 | ||
45747 | <TTCN_TC:EXEC> | |
45748 | ||
45749 | ||
45750 | ||
45751 | ||
45752 | if ((enc_DER_PDU(myValue) == 'A1030101FF'O)and(enc_CER_PDU(myValue) == 'A1800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
45753 | ||
45754 | <RESULT> | |
45755 | ||
45756 | Overall verdict: pass | |
45757 | ||
45758 | <END_TC> | |
45759 | ||
45760 | :exmp. | |
45761 | ||
45762 | .*---------------------------------------------------------------------* | |
45763 | :h3.CER + DER encoding of CHOICE - SEQUENCE | |
45764 | .*---------------------------------------------------------------------* | |
45765 | :xmp tab=0. | |
45766 | ||
45767 | <TC - CER + DER encoding of CHOICE - SEQUENCE> | |
45768 | ||
45769 | <STATIC:ASN> | |
45770 | ||
45771 | TempA | |
45772 | ||
45773 | DEFINITIONS ::= | |
45774 | BEGIN | |
45775 | ||
45776 | BERPDU ::= CHOICE | |
45777 | { | |
45778 | a NULL, | |
45779 | b BOOLEAN, | |
45780 | c INTEGER, | |
45781 | d ENUMERATED {first ,second ,third}, | |
45782 | e REAL, | |
45783 | f BIT STRING, | |
45784 | g OCTET STRING, | |
45785 | ||
45786 | h OBJECT IDENTIFIER, | |
45787 | i IA5String, | |
45788 | j CHOICE {x1 [1] BOOLEAN, | |
45789 | y1 [2] OCTET STRING}, | |
45790 | ||
45791 | k SEQUENCE{x2 NULL, | |
45792 | y2 BOOLEAN}, | |
45793 | ||
45794 | l SET { x3 BIT STRING, | |
45795 | y3 REAL}, | |
45796 | ||
45797 | m [3] SEQUENCE OF INTEGER, | |
45798 | n [4] SET OF BOOLEAN | |
45799 | } | |
45800 | ||
45801 | ||
45802 | END | |
45803 | ||
45804 | <STATIC> | |
45805 | ||
45806 | import from TempA all; | |
45807 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45808 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45809 | ||
45810 | const BERPDU myValue := {k := {x2 := NULL, | |
45811 | ||
45812 | y2 := true } } | |
45813 | ||
45814 | <TTCN_TC:EXEC> | |
45815 | ||
45816 | ||
45817 | ||
45818 | ||
45819 | if ((enc_DER_PDU(myValue) == '300505000101FF'O)and(enc_CER_PDU(myValue) == '308005000101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
45820 | ||
45821 | <RESULT> | |
45822 | ||
45823 | Overall verdict: pass | |
45824 | ||
45825 | <END_TC> | |
45826 | ||
45827 | :exmp. | |
45828 | ||
45829 | .*---------------------------------------------------------------------* | |
45830 | :h3.CER + DER encoding of CHOICE - SET | |
45831 | .*---------------------------------------------------------------------* | |
45832 | :xmp tab=0. | |
45833 | ||
45834 | <TC - CER + DER encoding of CHOICE - SET> | |
45835 | ||
45836 | <STATIC:ASN> | |
45837 | ||
45838 | TempA | |
45839 | ||
45840 | DEFINITIONS ::= | |
45841 | BEGIN | |
45842 | ||
45843 | BERPDU ::= CHOICE | |
45844 | { | |
45845 | a NULL, | |
45846 | b BOOLEAN, | |
45847 | c INTEGER, | |
45848 | d ENUMERATED {first ,second ,third}, | |
45849 | e REAL, | |
45850 | f BIT STRING, | |
45851 | g OCTET STRING, | |
45852 | ||
45853 | h OBJECT IDENTIFIER, | |
45854 | i IA5String, | |
45855 | j CHOICE {x1 [1] BOOLEAN, | |
45856 | y1 [2] OCTET STRING}, | |
45857 | ||
45858 | k SEQUENCE{x2 NULL, | |
45859 | y2 BOOLEAN}, | |
45860 | ||
45861 | l SET { x3 BIT STRING, | |
45862 | y3 REAL}, | |
45863 | ||
45864 | m [3] SEQUENCE OF INTEGER, | |
45865 | n [4] SET OF BOOLEAN | |
45866 | } | |
45867 | ||
45868 | ||
45869 | END | |
45870 | ||
45871 | <STATIC> | |
45872 | ||
45873 | import from TempA all; | |
45874 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45875 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45876 | ||
45877 | const BERPDU myValue := {l := {y3 := 1.0 , | |
45878 | ||
45879 | x3 := '1'B } } | |
45880 | ||
45881 | <TTCN_TC:EXEC> | |
45882 | ||
45883 | ||
45884 | ||
45885 | ||
45886 | if ((enc_DER_PDU(myValue) == '310C03020780090603312E452B30'O)and(enc_CER_PDU(myValue) == '318003020780090603312E452B300000'O)) {setverdict(pass);} else {setverdict(fail);} | |
45887 | ||
45888 | <RESULT> | |
45889 | ||
45890 | Overall verdict: pass | |
45891 | ||
45892 | <END_TC> | |
45893 | ||
45894 | :exmp. | |
45895 | ||
45896 | .*---------------------------------------------------------------------* | |
45897 | :h3.CER + DER encoding of CHOICE - SEQUENCE OF | |
45898 | .*---------------------------------------------------------------------* | |
45899 | :xmp tab=0. | |
45900 | ||
45901 | <TC - CER + DER encoding of CHOICE - SEQUENCE OF> | |
45902 | ||
45903 | <STATIC:ASN> | |
45904 | ||
45905 | TempA | |
45906 | ||
45907 | DEFINITIONS ::= | |
45908 | BEGIN | |
45909 | ||
45910 | BERPDU ::= CHOICE | |
45911 | { | |
45912 | a NULL, | |
45913 | b BOOLEAN, | |
45914 | c INTEGER, | |
45915 | d ENUMERATED {first ,second ,third}, | |
45916 | e REAL, | |
45917 | f BIT STRING, | |
45918 | g OCTET STRING, | |
45919 | ||
45920 | h OBJECT IDENTIFIER, | |
45921 | i IA5String, | |
45922 | j CHOICE {x1 [1] BOOLEAN, | |
45923 | y1 [2] OCTET STRING}, | |
45924 | ||
45925 | k SEQUENCE{x2 NULL, | |
45926 | y2 BOOLEAN}, | |
45927 | ||
45928 | l SET { x3 BIT STRING, | |
45929 | y3 REAL}, | |
45930 | ||
45931 | m [3] SEQUENCE OF INTEGER, | |
45932 | n [4] SET OF BOOLEAN | |
45933 | } | |
45934 | ||
45935 | ||
45936 | END | |
45937 | ||
45938 | <STATIC> | |
45939 | ||
45940 | import from TempA all; | |
45941 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
45942 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
45943 | ||
45944 | const BERPDU myValue := {m := | |
45945 | { 1 ,2 } } | |
45946 | ||
45947 | <TTCN_TC:EXEC> | |
45948 | ||
45949 | ||
45950 | ||
45951 | ||
45952 | if ((enc_DER_PDU(myValue) == 'A3083006020101020102'O)and(enc_CER_PDU(myValue) == 'A380308002010102010200000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
45953 | ||
45954 | <RESULT> | |
45955 | ||
45956 | Overall verdict: pass | |
45957 | ||
45958 | <END_TC> | |
45959 | ||
45960 | :exmp. | |
45961 | ||
45962 | .*---------------------------------------------------------------------* | |
45963 | :h3.CER + DER encoding of CHOICE - SET OF | |
45964 | .*---------------------------------------------------------------------* | |
45965 | :xmp tab=0. | |
45966 | ||
45967 | <TC - CER + DER encoding of CHOICE - SET OF> | |
45968 | ||
45969 | <STATIC:ASN> | |
45970 | ||
45971 | TempA | |
45972 | ||
45973 | DEFINITIONS ::= | |
45974 | BEGIN | |
45975 | ||
45976 | BERPDU ::= CHOICE | |
45977 | { | |
45978 | a NULL, | |
45979 | b BOOLEAN, | |
45980 | c INTEGER, | |
45981 | d ENUMERATED {first ,second ,third}, | |
45982 | e REAL, | |
45983 | f BIT STRING, | |
45984 | g OCTET STRING, | |
45985 | ||
45986 | h OBJECT IDENTIFIER, | |
45987 | i IA5String, | |
45988 | j CHOICE {x1 [1] BOOLEAN, | |
45989 | y1 [2] OCTET STRING}, | |
45990 | ||
45991 | k SEQUENCE{x2 NULL, | |
45992 | y2 BOOLEAN}, | |
45993 | ||
45994 | l SET { x3 BIT STRING, | |
45995 | y3 REAL}, | |
45996 | ||
45997 | m [3] SEQUENCE OF INTEGER, | |
45998 | n [4] SET OF BOOLEAN | |
45999 | } | |
46000 | ||
46001 | ||
46002 | END | |
46003 | ||
46004 | <STATIC> | |
46005 | ||
46006 | import from TempA all; | |
46007 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46008 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46009 | ||
46010 | const BERPDU myValue := {n := | |
46011 | { true, true } } | |
46012 | ||
46013 | <TTCN_TC:EXEC> | |
46014 | ||
46015 | ||
46016 | ||
46017 | ||
46018 | if ((enc_DER_PDU(myValue) == 'A40831060101FF0101FF'O)and(enc_CER_PDU(myValue) == 'A48031800101FF0101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46019 | ||
46020 | <RESULT> | |
46021 | ||
46022 | Overall verdict: pass | |
46023 | ||
46024 | <END_TC> | |
46025 | ||
46026 | :exmp. | |
46027 | ||
46028 | .*---------------------------------------------------------------------* | |
46029 | :h3.CER + DER encoding of CHOICE - Default IMPLICIT TAGS, CHOICE untagged | |
46030 | .*---------------------------------------------------------------------* | |
46031 | :xmp tab=0. | |
46032 | ||
46033 | <TC - CER + DER encoding of CHOICE - Default IMPLICIT TAGS, CHOICE untagged> | |
46034 | ||
46035 | <STATIC:ASN> | |
46036 | ||
46037 | TempA | |
46038 | ||
46039 | DEFINITIONS | |
46040 | ||
46041 | IMPLICIT TAGS | |
46042 | ||
46043 | ::= | |
46044 | ||
46045 | BEGIN | |
46046 | ||
46047 | BERPDU ::= CHOICE | |
46048 | { | |
46049 | b BOOLEAN, | |
46050 | c INTEGER | |
46051 | } | |
46052 | ||
46053 | ||
46054 | END | |
46055 | ||
46056 | <STATIC> | |
46057 | ||
46058 | import from TempA all; | |
46059 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46060 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46061 | ||
46062 | const BERPDU myValue := {b := true } | |
46063 | ||
46064 | <TTCN_TC:EXEC> | |
46065 | ||
46066 | ||
46067 | ||
46068 | ||
46069 | if ((enc_DER_PDU(myValue) == '0101FF'O)and(enc_CER_PDU(myValue) == '0101FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46070 | ||
46071 | ||
46072 | <RESULT> | |
46073 | ||
46074 | Overall verdict: pass | |
46075 | ||
46076 | <END_TC> | |
46077 | ||
46078 | :exmp. | |
46079 | ||
46080 | .*---------------------------------------------------------------------* | |
46081 | :h3.CER + DER encoding of CHOICE - Default EXPLICIT TAGS, CHOICE untagged | |
46082 | .*---------------------------------------------------------------------* | |
46083 | :xmp tab=0. | |
46084 | ||
46085 | <TC - CER + DER encoding of CHOICE - Default EXPLICIT TAGS, CHOICE untagged> | |
46086 | ||
46087 | <STATIC:ASN> | |
46088 | ||
46089 | TempA | |
46090 | ||
46091 | DEFINITIONS | |
46092 | ||
46093 | EXPLICIT TAGS | |
46094 | ||
46095 | ::= | |
46096 | ||
46097 | BEGIN | |
46098 | ||
46099 | BERPDU ::= CHOICE | |
46100 | { | |
46101 | b BOOLEAN, | |
46102 | c INTEGER | |
46103 | } | |
46104 | ||
46105 | ||
46106 | END | |
46107 | ||
46108 | <STATIC> | |
46109 | ||
46110 | import from TempA all; | |
46111 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46112 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46113 | ||
46114 | const BERPDU myValue := {b := true } | |
46115 | ||
46116 | <TTCN_TC:EXEC> | |
46117 | ||
46118 | ||
46119 | ||
46120 | ||
46121 | if ((enc_DER_PDU(myValue) == '0101FF'O)and(enc_CER_PDU(myValue) == '0101FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46122 | ||
46123 | ||
46124 | <RESULT> | |
46125 | ||
46126 | Overall verdict: pass | |
46127 | ||
46128 | <END_TC> | |
46129 | ||
46130 | :exmp. | |
46131 | ||
46132 | .*---------------------------------------------------------------------* | |
46133 | :h3.CER + DER encoding of CHOICE - No Default TAGS, CHOICE untagged | |
46134 | .*---------------------------------------------------------------------* | |
46135 | :xmp tab=0. | |
46136 | ||
46137 | <TC - CER + DER encoding of CHOICE - No Default TAGS, CHOICE untagged> | |
46138 | ||
46139 | <STATIC:ASN> | |
46140 | ||
46141 | TempA | |
46142 | ||
46143 | DEFINITIONS | |
46144 | ||
46145 | ||
46146 | ::= | |
46147 | ||
46148 | BEGIN | |
46149 | ||
46150 | BERPDU ::= CHOICE | |
46151 | { | |
46152 | b BOOLEAN, | |
46153 | c INTEGER | |
46154 | } | |
46155 | ||
46156 | ||
46157 | END | |
46158 | ||
46159 | <STATIC> | |
46160 | ||
46161 | import from TempA all; | |
46162 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46163 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46164 | ||
46165 | const BERPDU myValue := {b := true } | |
46166 | ||
46167 | <TTCN_TC:EXEC> | |
46168 | ||
46169 | ||
46170 | ||
46171 | ||
46172 | if ((enc_DER_PDU(myValue) == '0101FF'O)and(enc_CER_PDU(myValue) == '0101FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46173 | ||
46174 | ||
46175 | <RESULT> | |
46176 | ||
46177 | Overall verdict: pass | |
46178 | ||
46179 | <END_TC> | |
46180 | ||
46181 | :exmp. | |
46182 | ||
46183 | .*---------------------------------------------------------------------* | |
46184 | :h3.CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, CHOICE untagged | |
46185 | .*---------------------------------------------------------------------* | |
46186 | :xmp tab=0. | |
46187 | ||
46188 | <TC - CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, CHOICE untagged> | |
46189 | ||
46190 | <STATIC:ASN> | |
46191 | ||
46192 | TempA | |
46193 | ||
46194 | DEFINITIONS | |
46195 | ||
46196 | AUTOMATIC TAGS | |
46197 | ||
46198 | ::= | |
46199 | ||
46200 | BEGIN | |
46201 | ||
46202 | BERPDU ::= CHOICE | |
46203 | { | |
46204 | b BOOLEAN, | |
46205 | c INTEGER | |
46206 | } | |
46207 | ||
46208 | ||
46209 | END | |
46210 | ||
46211 | <STATIC> | |
46212 | ||
46213 | import from TempA all; | |
46214 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46215 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46216 | ||
46217 | const BERPDU myValue := {b := true } | |
46218 | ||
46219 | <TTCN_TC:EXEC> | |
46220 | ||
46221 | ||
46222 | ||
46223 | ||
46224 | if ((enc_DER_PDU(myValue) == '8001FF'O)and(enc_CER_PDU(myValue) == '8001FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46225 | ||
46226 | ||
46227 | <RESULT> | |
46228 | ||
46229 | Overall verdict: pass | |
46230 | ||
46231 | <END_TC> | |
46232 | ||
46233 | :exmp. | |
46234 | ||
46235 | .*---------------------------------------------------------------------* | |
46236 | :h3.CER + DER encoding of CHOICE - Default IMPLICIT TAGS, number-tagged CHOICE | |
46237 | .*---------------------------------------------------------------------* | |
46238 | :xmp tab=0. | |
46239 | ||
46240 | <TC - CER + DER encoding of CHOICE - Default IMPLICIT TAGS, number-tagged CHOICE> | |
46241 | ||
46242 | <STATIC:ASN> | |
46243 | ||
46244 | TempA | |
46245 | ||
46246 | DEFINITIONS | |
46247 | ||
46248 | IMPLICIT TAGS | |
46249 | ||
46250 | ::= | |
46251 | ||
46252 | BEGIN | |
46253 | ||
46254 | BERPDU ::= CHOICE | |
46255 | { | |
46256 | b [3] BOOLEAN, | |
46257 | c [6] INTEGER | |
46258 | } | |
46259 | ||
46260 | ||
46261 | END | |
46262 | ||
46263 | <STATIC> | |
46264 | ||
46265 | import from TempA all; | |
46266 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46267 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46268 | ||
46269 | const BERPDU myValue := {b := true } | |
46270 | ||
46271 | <TTCN_TC:EXEC> | |
46272 | ||
46273 | ||
46274 | ||
46275 | ||
46276 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46277 | ||
46278 | ||
46279 | <RESULT> | |
46280 | ||
46281 | Overall verdict: pass | |
46282 | ||
46283 | <END_TC> | |
46284 | ||
46285 | :exmp. | |
46286 | ||
46287 | .*---------------------------------------------------------------------* | |
46288 | :h3.CER + DER encoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE | |
46289 | .*---------------------------------------------------------------------* | |
46290 | :xmp tab=0. | |
46291 | ||
46292 | <TC - CER + DER encoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE> | |
46293 | ||
46294 | <STATIC:ASN> | |
46295 | ||
46296 | TempA | |
46297 | ||
46298 | DEFINITIONS | |
46299 | ||
46300 | EXPLICIT TAGS | |
46301 | ||
46302 | ::= | |
46303 | ||
46304 | BEGIN | |
46305 | ||
46306 | BERPDU ::= CHOICE | |
46307 | { | |
46308 | b [3] BOOLEAN, | |
46309 | c [6] INTEGER | |
46310 | } | |
46311 | ||
46312 | ||
46313 | END | |
46314 | ||
46315 | <STATIC> | |
46316 | ||
46317 | import from TempA all; | |
46318 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46319 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46320 | ||
46321 | const BERPDU myValue := {b := true } | |
46322 | ||
46323 | <TTCN_TC:EXEC> | |
46324 | ||
46325 | ||
46326 | ||
46327 | ||
46328 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46329 | ||
46330 | ||
46331 | <RESULT> | |
46332 | ||
46333 | Overall verdict: pass | |
46334 | ||
46335 | <END_TC> | |
46336 | ||
46337 | :exmp. | |
46338 | ||
46339 | .*---------------------------------------------------------------------* | |
46340 | :h3.CER + DER encoding of CHOICE - No Default TAGS, number-tagged CHOICE | |
46341 | .*---------------------------------------------------------------------* | |
46342 | :xmp tab=0. | |
46343 | ||
46344 | <TC - CER + DER encoding of CHOICE - No Default TAGS, number-tagged CHOICE> | |
46345 | ||
46346 | <STATIC:ASN> | |
46347 | ||
46348 | TempA | |
46349 | ||
46350 | DEFINITIONS ::= | |
46351 | BEGIN | |
46352 | ||
46353 | BERPDU ::= CHOICE | |
46354 | { | |
46355 | b [3] BOOLEAN, | |
46356 | c [6] INTEGER | |
46357 | } | |
46358 | ||
46359 | ||
46360 | END | |
46361 | ||
46362 | <STATIC> | |
46363 | ||
46364 | import from TempA all; | |
46365 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46366 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46367 | ||
46368 | const BERPDU myValue := {b := true } | |
46369 | ||
46370 | <TTCN_TC:EXEC> | |
46371 | ||
46372 | ||
46373 | ||
46374 | ||
46375 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46376 | ||
46377 | ||
46378 | <RESULT> | |
46379 | ||
46380 | Overall verdict: pass | |
46381 | ||
46382 | <END_TC> | |
46383 | ||
46384 | :exmp. | |
46385 | ||
46386 | .*---------------------------------------------------------------------* | |
46387 | :h3.CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE | |
46388 | .*---------------------------------------------------------------------* | |
46389 | :xmp tab=0. | |
46390 | ||
46391 | <TC - CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE> | |
46392 | ||
46393 | <STATIC:ASN> | |
46394 | ||
46395 | TempA | |
46396 | ||
46397 | DEFINITIONS | |
46398 | ||
46399 | AUTOMATIC TAGS | |
46400 | ||
46401 | ::= | |
46402 | ||
46403 | BEGIN | |
46404 | ||
46405 | BERPDU ::= CHOICE | |
46406 | { | |
46407 | b [3] BOOLEAN, | |
46408 | c [6] INTEGER | |
46409 | } | |
46410 | ||
46411 | ||
46412 | END | |
46413 | ||
46414 | <STATIC> | |
46415 | ||
46416 | import from TempA all; | |
46417 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46418 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46419 | ||
46420 | const BERPDU myValue := {b := true } | |
46421 | ||
46422 | <TTCN_TC:EXEC> | |
46423 | ||
46424 | ||
46425 | ||
46426 | ||
46427 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46428 | ||
46429 | ||
46430 | <RESULT> | |
46431 | ||
46432 | Overall verdict: pass | |
46433 | ||
46434 | <END_TC> | |
46435 | ||
46436 | :exmp. | |
46437 | ||
46438 | .*---------------------------------------------------------------------* | |
46439 | :h3.CER + DER encoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE | |
46440 | .*---------------------------------------------------------------------* | |
46441 | :xmp tab=0. | |
46442 | ||
46443 | <TC - CER + DER encoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE> | |
46444 | ||
46445 | <STATIC:ASN> | |
46446 | ||
46447 | TempA | |
46448 | ||
46449 | DEFINITIONS | |
46450 | ||
46451 | IMPLICIT TAGS | |
46452 | ||
46453 | ::= | |
46454 | ||
46455 | BEGIN | |
46456 | ||
46457 | BERPDU ::= CHOICE | |
46458 | { | |
46459 | b [3] IMPLICIT BOOLEAN, | |
46460 | c [6] INTEGER | |
46461 | } | |
46462 | ||
46463 | ||
46464 | END | |
46465 | ||
46466 | <STATIC> | |
46467 | ||
46468 | import from TempA all; | |
46469 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46470 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46471 | ||
46472 | const BERPDU myValue := {b := true } | |
46473 | ||
46474 | <TTCN_TC:EXEC> | |
46475 | ||
46476 | ||
46477 | ||
46478 | ||
46479 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46480 | ||
46481 | ||
46482 | <RESULT> | |
46483 | ||
46484 | Overall verdict: pass | |
46485 | ||
46486 | <END_TC> | |
46487 | ||
46488 | :exmp. | |
46489 | ||
46490 | .*---------------------------------------------------------------------* | |
46491 | :h3.CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
46492 | .*---------------------------------------------------------------------* | |
46493 | :xmp tab=0. | |
46494 | ||
46495 | <TC - CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
46496 | ||
46497 | <STATIC:ASN> | |
46498 | ||
46499 | TempA | |
46500 | ||
46501 | DEFINITIONS | |
46502 | ||
46503 | EXPLICIT TAGS | |
46504 | ||
46505 | ::= | |
46506 | ||
46507 | BEGIN | |
46508 | ||
46509 | BERPDU ::= CHOICE | |
46510 | { | |
46511 | b [3] IMPLICIT BOOLEAN, | |
46512 | c [6] INTEGER | |
46513 | } | |
46514 | ||
46515 | ||
46516 | END | |
46517 | ||
46518 | <STATIC> | |
46519 | ||
46520 | import from TempA all; | |
46521 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46522 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46523 | ||
46524 | const BERPDU myValue := {b := true } | |
46525 | ||
46526 | <TTCN_TC:EXEC> | |
46527 | ||
46528 | ||
46529 | ||
46530 | ||
46531 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46532 | ||
46533 | ||
46534 | <RESULT> | |
46535 | ||
46536 | Overall verdict: pass | |
46537 | ||
46538 | <END_TC> | |
46539 | ||
46540 | :exmp. | |
46541 | ||
46542 | .*---------------------------------------------------------------------* | |
46543 | :h3.CER + DER encoding of CHOICE - No Default TAGS, fully-tagged CHOICE | |
46544 | .*---------------------------------------------------------------------* | |
46545 | :xmp tab=0. | |
46546 | ||
46547 | <TC - CER + DER encoding of CHOICE - No Default TAGS, fully-tagged CHOICE> | |
46548 | ||
46549 | <STATIC:ASN> | |
46550 | ||
46551 | TempA | |
46552 | ||
46553 | DEFINITIONS | |
46554 | ||
46555 | ||
46556 | ::= | |
46557 | ||
46558 | BEGIN | |
46559 | ||
46560 | BERPDU ::= CHOICE | |
46561 | { | |
46562 | b [3] IMPLICIT BOOLEAN, | |
46563 | c [6] INTEGER | |
46564 | } | |
46565 | ||
46566 | ||
46567 | END | |
46568 | ||
46569 | <STATIC> | |
46570 | ||
46571 | import from TempA all; | |
46572 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46573 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46574 | ||
46575 | const BERPDU myValue := {b := true } | |
46576 | ||
46577 | <TTCN_TC:EXEC> | |
46578 | ||
46579 | ||
46580 | ||
46581 | ||
46582 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46583 | ||
46584 | ||
46585 | <RESULT> | |
46586 | ||
46587 | Overall verdict: pass | |
46588 | ||
46589 | <END_TC> | |
46590 | ||
46591 | :exmp. | |
46592 | ||
46593 | .*---------------------------------------------------------------------* | |
46594 | :h3.CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE | |
46595 | .*---------------------------------------------------------------------* | |
46596 | :xmp tab=0. | |
46597 | ||
46598 | <TC - CER + DER encoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE> | |
46599 | ||
46600 | <STATIC:ASN> | |
46601 | ||
46602 | TempA | |
46603 | ||
46604 | DEFINITIONS | |
46605 | ||
46606 | AUTOMATIC TAGS | |
46607 | ||
46608 | ::= | |
46609 | ||
46610 | BEGIN | |
46611 | ||
46612 | BERPDU ::= CHOICE | |
46613 | { | |
46614 | b [3] IMPLICIT BOOLEAN, | |
46615 | c [6] INTEGER | |
46616 | } | |
46617 | ||
46618 | ||
46619 | END | |
46620 | ||
46621 | <STATIC> | |
46622 | ||
46623 | import from TempA all; | |
46624 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46625 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46626 | ||
46627 | const BERPDU myValue := {b := true } | |
46628 | ||
46629 | <TTCN_TC:EXEC> | |
46630 | ||
46631 | ||
46632 | ||
46633 | ||
46634 | if ((enc_DER_PDU(myValue) == '8301FF'O)and(enc_CER_PDU(myValue) == '8301FF'O)) {setverdict(pass);} else {setverdict(fail);} | |
46635 | ||
46636 | ||
46637 | <RESULT> | |
46638 | ||
46639 | Overall verdict: pass | |
46640 | ||
46641 | <END_TC> | |
46642 | ||
46643 | :exmp. | |
46644 | ||
46645 | .*---------------------------------------------------------------------* | |
46646 | :h3.CER + DER encoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE | |
46647 | .*---------------------------------------------------------------------* | |
46648 | :xmp tab=0. | |
46649 | ||
46650 | <TC - CER + DER encoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE> | |
46651 | ||
46652 | <STATIC:ASN> | |
46653 | ||
46654 | TempA | |
46655 | ||
46656 | DEFINITIONS | |
46657 | ||
46658 | IMPLICIT TAGS | |
46659 | ||
46660 | ::= | |
46661 | ||
46662 | BEGIN | |
46663 | ||
46664 | BERPDU ::= CHOICE | |
46665 | { | |
46666 | b [3] EXPLICIT BOOLEAN, | |
46667 | c [6] INTEGER | |
46668 | } | |
46669 | ||
46670 | ||
46671 | END | |
46672 | ||
46673 | <STATIC> | |
46674 | ||
46675 | import from TempA all; | |
46676 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46677 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46678 | ||
46679 | const BERPDU myValue := {b := true } | |
46680 | ||
46681 | <TTCN_TC:EXEC> | |
46682 | ||
46683 | ||
46684 | ||
46685 | ||
46686 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46687 | ||
46688 | ||
46689 | <RESULT> | |
46690 | ||
46691 | Overall verdict: pass | |
46692 | ||
46693 | <END_TC> | |
46694 | ||
46695 | :exmp. | |
46696 | ||
46697 | .*---------------------------------------------------------------------* | |
46698 | :h3.CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
46699 | .*---------------------------------------------------------------------* | |
46700 | :xmp tab=0. | |
46701 | ||
46702 | <TC - CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
46703 | ||
46704 | <STATIC:ASN> | |
46705 | ||
46706 | TempA | |
46707 | ||
46708 | DEFINITIONS | |
46709 | ||
46710 | EXPLICIT TAGS | |
46711 | ||
46712 | ::= | |
46713 | ||
46714 | BEGIN | |
46715 | ||
46716 | BERPDU ::= CHOICE | |
46717 | { | |
46718 | b [3] EXPLICIT BOOLEAN, | |
46719 | c [6] INTEGER | |
46720 | } | |
46721 | ||
46722 | ||
46723 | END | |
46724 | ||
46725 | <STATIC> | |
46726 | ||
46727 | import from TempA all; | |
46728 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46729 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46730 | ||
46731 | const BERPDU myValue := {b := true } | |
46732 | ||
46733 | <TTCN_TC:EXEC> | |
46734 | ||
46735 | ||
46736 | ||
46737 | ||
46738 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46739 | ||
46740 | ||
46741 | <RESULT> | |
46742 | ||
46743 | Overall verdict: pass | |
46744 | ||
46745 | <END_TC> | |
46746 | ||
46747 | :exmp. | |
46748 | ||
46749 | .*---------------------------------------------------------------------* | |
46750 | :h3.CER + DER encoding of CHOICE - No Default TAGS, fully-tagged CHOICE | |
46751 | .*---------------------------------------------------------------------* | |
46752 | :xmp tab=0. | |
46753 | ||
46754 | <TC - CER + DER encoding of CHOICE - No Default TAGS, fully-tagged CHOICE> | |
46755 | ||
46756 | <STATIC:ASN> | |
46757 | ||
46758 | TempA | |
46759 | ||
46760 | DEFINITIONS | |
46761 | ||
46762 | ||
46763 | ::= | |
46764 | ||
46765 | BEGIN | |
46766 | ||
46767 | BERPDU ::= CHOICE | |
46768 | { | |
46769 | b [3] EXPLICIT BOOLEAN, | |
46770 | c [6] INTEGER | |
46771 | } | |
46772 | ||
46773 | ||
46774 | END | |
46775 | ||
46776 | <STATIC> | |
46777 | ||
46778 | import from TempA all; | |
46779 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46780 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46781 | ||
46782 | const BERPDU myValue := {b := true } | |
46783 | ||
46784 | <TTCN_TC:EXEC> | |
46785 | ||
46786 | ||
46787 | ||
46788 | ||
46789 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46790 | ||
46791 | ||
46792 | <RESULT> | |
46793 | ||
46794 | Overall verdict: pass | |
46795 | ||
46796 | <END_TC> | |
46797 | ||
46798 | :exmp. | |
46799 | ||
46800 | .*---------------------------------------------------------------------* | |
46801 | :h3.CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
46802 | .*---------------------------------------------------------------------* | |
46803 | :xmp tab=0. | |
46804 | ||
46805 | <TC - CER + DER encoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
46806 | ||
46807 | <STATIC:ASN> | |
46808 | ||
46809 | TempA | |
46810 | ||
46811 | DEFINITIONS | |
46812 | ||
46813 | EXPLICIT TAGS | |
46814 | ||
46815 | ::= | |
46816 | ||
46817 | BEGIN | |
46818 | ||
46819 | BERPDU ::= CHOICE | |
46820 | { | |
46821 | b [3] EXPLICIT BOOLEAN, | |
46822 | c [6] INTEGER | |
46823 | } | |
46824 | ||
46825 | ||
46826 | END | |
46827 | ||
46828 | <STATIC> | |
46829 | ||
46830 | import from TempA all; | |
46831 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46832 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46833 | ||
46834 | const BERPDU myValue := {b := true } | |
46835 | ||
46836 | <TTCN_TC:EXEC> | |
46837 | ||
46838 | ||
46839 | ||
46840 | ||
46841 | if ((enc_DER_PDU(myValue) == 'A3030101FF'O)and(enc_CER_PDU(myValue) == 'A3800101FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46842 | ||
46843 | ||
46844 | <RESULT> | |
46845 | ||
46846 | Overall verdict: pass | |
46847 | ||
46848 | <END_TC> | |
46849 | ||
46850 | :exmp. | |
46851 | ||
46852 | .*---------------------------------------------------------------------* | |
46853 | :h3.CER + DER encoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE, | |
46854 | .*---------------------------------------------------------------------* | |
46855 | :xmp tab=0. | |
46856 | ||
46857 | <TC - CER + DER encoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE,> | |
46858 | ||
46859 | <STATIC:ASN> | |
46860 | ||
46861 | TempA | |
46862 | ||
46863 | DEFINITIONS | |
46864 | ||
46865 | IMPLICIT TAGS | |
46866 | ||
46867 | ::= | |
46868 | ||
46869 | BEGIN | |
46870 | ||
46871 | BERPDU ::= [0] CHOICE | |
46872 | { | |
46873 | b [3] BOOLEAN, | |
46874 | c [6] INTEGER | |
46875 | } | |
46876 | ||
46877 | ||
46878 | END | |
46879 | ||
46880 | <STATIC> | |
46881 | ||
46882 | import from TempA all; | |
46883 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46884 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46885 | ||
46886 | const BERPDU myValue := {b := true } | |
46887 | ||
46888 | <TTCN_TC:EXEC> | |
46889 | ||
46890 | ||
46891 | ||
46892 | ||
46893 | if ((enc_DER_PDU(myValue) == 'A0038301FF'O)and(enc_CER_PDU(myValue) == 'A0808301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46894 | ||
46895 | ||
46896 | <RESULT> | |
46897 | ||
46898 | Overall verdict: pass | |
46899 | ||
46900 | <END_TC> | |
46901 | ||
46902 | :exmp. | |
46903 | ||
46904 | .*---------------------------------------------------------------------* | |
46905 | :h3.CER + DER encoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE, | |
46906 | .*---------------------------------------------------------------------* | |
46907 | :xmp tab=0. | |
46908 | ||
46909 | <TC - CER + DER encoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE,> | |
46910 | ||
46911 | <STATIC:ASN> | |
46912 | ||
46913 | TempA | |
46914 | ||
46915 | DEFINITIONS | |
46916 | ||
46917 | EXPLICIT TAGS | |
46918 | ||
46919 | ::= | |
46920 | ||
46921 | BEGIN | |
46922 | ||
46923 | BERPDU ::= [0] CHOICE | |
46924 | { | |
46925 | b [3] BOOLEAN, | |
46926 | c [6] INTEGER | |
46927 | } | |
46928 | ||
46929 | ||
46930 | END | |
46931 | ||
46932 | <STATIC> | |
46933 | ||
46934 | import from TempA all; | |
46935 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46936 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46937 | ||
46938 | const BERPDU myValue := {b := true } | |
46939 | ||
46940 | <TTCN_TC:EXEC> | |
46941 | ||
46942 | ||
46943 | ||
46944 | ||
46945 | if ((enc_DER_PDU(myValue) == 'A005A3030101FF'O)and(enc_CER_PDU(myValue) == 'A080A3800101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46946 | ||
46947 | ||
46948 | <RESULT> | |
46949 | ||
46950 | Overall verdict: pass | |
46951 | ||
46952 | <END_TC> | |
46953 | ||
46954 | :exmp. | |
46955 | ||
46956 | .*---------------------------------------------------------------------* | |
46957 | :h3.CER + DER encoding of CHOICE, NO DEFAULT, TAGGED CHOICE, | |
46958 | .*---------------------------------------------------------------------* | |
46959 | :xmp tab=0. | |
46960 | ||
46961 | <TC - CER + DER encoding of CHOICE, NO DEFAULT, TAGGED CHOICE,> | |
46962 | ||
46963 | <STATIC:ASN> | |
46964 | ||
46965 | TempA | |
46966 | ||
46967 | DEFINITIONS | |
46968 | ||
46969 | ||
46970 | ||
46971 | ::= | |
46972 | ||
46973 | BEGIN | |
46974 | ||
46975 | BERPDU ::= [0] CHOICE | |
46976 | { | |
46977 | b [3] BOOLEAN, | |
46978 | c [6] INTEGER | |
46979 | } | |
46980 | ||
46981 | ||
46982 | END | |
46983 | ||
46984 | <STATIC> | |
46985 | ||
46986 | import from TempA all; | |
46987 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
46988 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
46989 | ||
46990 | const BERPDU myValue := {b := true } | |
46991 | ||
46992 | <TTCN_TC:EXEC> | |
46993 | ||
46994 | ||
46995 | ||
46996 | ||
46997 | if ((enc_DER_PDU(myValue) == 'A005A3030101FF'O)and(enc_CER_PDU(myValue) == 'A080A3800101FF00000000'O)) {setverdict(pass);} else {setverdict(fail);} | |
46998 | ||
46999 | ||
47000 | <RESULT> | |
47001 | ||
47002 | Overall verdict: pass | |
47003 | ||
47004 | <END_TC> | |
47005 | ||
47006 | :exmp. | |
47007 | ||
47008 | .*---------------------------------------------------------------------* | |
47009 | :h3.CER + DER encoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE, | |
47010 | .*---------------------------------------------------------------------* | |
47011 | :xmp tab=0. | |
47012 | ||
47013 | <TC - CER + DER encoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE,> | |
47014 | ||
47015 | <STATIC:ASN> | |
47016 | ||
47017 | TempA | |
47018 | ||
47019 | DEFINITIONS | |
47020 | ||
47021 | AUTOMATIC TAGS | |
47022 | ||
47023 | ::= | |
47024 | ||
47025 | BEGIN | |
47026 | ||
47027 | BERPDU ::= [0] CHOICE | |
47028 | { | |
47029 | b [3] BOOLEAN, | |
47030 | c [6] INTEGER | |
47031 | } | |
47032 | ||
47033 | ||
47034 | END | |
47035 | ||
47036 | <STATIC> | |
47037 | ||
47038 | import from TempA all; | |
47039 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
47040 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
47041 | ||
47042 | const BERPDU myValue := {b := true } | |
47043 | ||
47044 | <TTCN_TC:EXEC> | |
47045 | ||
47046 | ||
47047 | ||
47048 | ||
47049 | if ((enc_DER_PDU(myValue) == 'A0038301FF'O)and(enc_CER_PDU(myValue) == 'A0808301FF0000'O)) {setverdict(pass);} else {setverdict(fail);} | |
47050 | ||
47051 | ||
47052 | <RESULT> | |
47053 | ||
47054 | Overall verdict: pass | |
47055 | ||
47056 | <END_TC> | |
47057 | ||
47058 | :exmp. | |
47059 | ||
47060 | .*---------------------------------------------------------------------* | |
47061 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - NULL | |
47062 | .*---------------------------------------------------------------------* | |
47063 | :xmp tab=0. | |
47064 | ||
47065 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - NULL> | |
47066 | ||
47067 | <STATIC:ASN> | |
47068 | ||
47069 | TempA | |
47070 | ||
47071 | DEFINITIONS ::= | |
47072 | BEGIN | |
47073 | BERPDU ::= CHOICE | |
47074 | { | |
47075 | a NULL, | |
47076 | b BOOLEAN, | |
47077 | c INTEGER, | |
47078 | d ENUMERATED {first ,second ,third}, | |
47079 | e REAL, | |
47080 | f BIT STRING, | |
47081 | g OCTET STRING, | |
47082 | ||
47083 | h OBJECT IDENTIFIER, | |
47084 | i IA5String, | |
47085 | j CHOICE {x1 [1] BOOLEAN, | |
47086 | y1 [2] OCTET STRING}, | |
47087 | ||
47088 | k SEQUENCE{x2 NULL, | |
47089 | y2 BOOLEAN}, | |
47090 | ||
47091 | l SET { x3 BIT STRING, | |
47092 | y3 REAL}, | |
47093 | ||
47094 | m [3] SEQUENCE OF INTEGER, | |
47095 | n [4] SET OF BOOLEAN | |
47096 | } | |
47097 | END | |
47098 | ||
47099 | <STATIC> | |
47100 | ||
47101 | import from TempA all; | |
47102 | ||
47103 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47104 | const BERPDU myValue := {a := NULL} | |
47105 | ||
47106 | <TTCN_TC:EXEC> | |
47107 | ||
47108 | if (dec_BER_PDU('0500'O) == myValue) | |
47109 | ||
47110 | ||
47111 | {setverdict(pass);} else {setverdict(fail);} | |
47112 | ||
47113 | ||
47114 | <RESULT> | |
47115 | ||
47116 | Overall verdict: pass | |
47117 | ||
47118 | <END_TC> | |
47119 | ||
47120 | :exmp. | |
47121 | ||
47122 | .*---------------------------------------------------------------------* | |
47123 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - BOOLEAN | |
47124 | .*---------------------------------------------------------------------* | |
47125 | :xmp tab=0. | |
47126 | ||
47127 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - BOOLEAN> | |
47128 | ||
47129 | <STATIC:ASN> | |
47130 | ||
47131 | TempA | |
47132 | ||
47133 | DEFINITIONS ::= | |
47134 | BEGIN | |
47135 | BERPDU ::= CHOICE | |
47136 | { | |
47137 | a NULL, | |
47138 | b BOOLEAN, | |
47139 | c INTEGER, | |
47140 | d ENUMERATED {first ,second ,third}, | |
47141 | e REAL, | |
47142 | f BIT STRING, | |
47143 | g OCTET STRING, | |
47144 | ||
47145 | h OBJECT IDENTIFIER, | |
47146 | i IA5String, | |
47147 | j CHOICE {x1 [1] BOOLEAN, | |
47148 | y1 [2] OCTET STRING}, | |
47149 | ||
47150 | k SEQUENCE{x2 NULL, | |
47151 | y2 BOOLEAN}, | |
47152 | ||
47153 | l SET { x3 BIT STRING, | |
47154 | y3 REAL}, | |
47155 | ||
47156 | m [3] SEQUENCE OF INTEGER, | |
47157 | n [4] SET OF BOOLEAN | |
47158 | } | |
47159 | END | |
47160 | ||
47161 | <STATIC> | |
47162 | ||
47163 | import from TempA all; | |
47164 | ||
47165 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47166 | const BERPDU myValue := {b := true} | |
47167 | ||
47168 | <TTCN_TC:EXEC> | |
47169 | ||
47170 | if (dec_BER_PDU('0101FF'O) == myValue) | |
47171 | ||
47172 | ||
47173 | {setverdict(pass);} else {setverdict(fail);} | |
47174 | ||
47175 | ||
47176 | <RESULT> | |
47177 | ||
47178 | Overall verdict: pass | |
47179 | ||
47180 | <END_TC> | |
47181 | ||
47182 | :exmp. | |
47183 | ||
47184 | .*---------------------------------------------------------------------* | |
47185 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - INTEGER | |
47186 | .*---------------------------------------------------------------------* | |
47187 | :xmp tab=0. | |
47188 | ||
47189 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - INTEGER> | |
47190 | ||
47191 | <STATIC:ASN> | |
47192 | ||
47193 | TempA | |
47194 | ||
47195 | DEFINITIONS ::= | |
47196 | BEGIN | |
47197 | BERPDU ::= CHOICE | |
47198 | { | |
47199 | a NULL, | |
47200 | b BOOLEAN, | |
47201 | c INTEGER, | |
47202 | d ENUMERATED {first ,second ,third}, | |
47203 | e REAL, | |
47204 | f BIT STRING, | |
47205 | g OCTET STRING, | |
47206 | ||
47207 | h OBJECT IDENTIFIER, | |
47208 | i IA5String, | |
47209 | j CHOICE {x1 [1] BOOLEAN, | |
47210 | y1 [2] OCTET STRING}, | |
47211 | ||
47212 | k SEQUENCE{x2 NULL, | |
47213 | y2 BOOLEAN}, | |
47214 | ||
47215 | l SET { x3 BIT STRING, | |
47216 | y3 REAL}, | |
47217 | ||
47218 | m [3] SEQUENCE OF INTEGER, | |
47219 | n [4] SET OF BOOLEAN | |
47220 | } | |
47221 | END | |
47222 | ||
47223 | <STATIC> | |
47224 | ||
47225 | import from TempA all; | |
47226 | ||
47227 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47228 | const BERPDU myValue := {c := 2} | |
47229 | ||
47230 | <TTCN_TC:EXEC> | |
47231 | ||
47232 | if (dec_BER_PDU('020102'O) == myValue) | |
47233 | ||
47234 | ||
47235 | {setverdict(pass);} else {setverdict(fail);} | |
47236 | ||
47237 | ||
47238 | <RESULT> | |
47239 | ||
47240 | Overall verdict: pass | |
47241 | ||
47242 | <END_TC> | |
47243 | ||
47244 | :exmp. | |
47245 | ||
47246 | .*---------------------------------------------------------------------* | |
47247 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - ENUMERATED | |
47248 | .*---------------------------------------------------------------------* | |
47249 | :xmp tab=0. | |
47250 | ||
47251 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - ENUMERATED> | |
47252 | ||
47253 | <STATIC:ASN> | |
47254 | ||
47255 | TempA | |
47256 | ||
47257 | DEFINITIONS ::= | |
47258 | BEGIN | |
47259 | BERPDU ::= CHOICE | |
47260 | { | |
47261 | a NULL, | |
47262 | b BOOLEAN, | |
47263 | c INTEGER, | |
47264 | d ENUMERATED {first ,second ,third}, | |
47265 | e REAL, | |
47266 | f BIT STRING, | |
47267 | g OCTET STRING, | |
47268 | ||
47269 | h OBJECT IDENTIFIER, | |
47270 | i IA5String, | |
47271 | j CHOICE {x1 [1] BOOLEAN, | |
47272 | y1 [2] OCTET STRING}, | |
47273 | ||
47274 | k SEQUENCE{x2 NULL, | |
47275 | y2 BOOLEAN}, | |
47276 | ||
47277 | l SET { x3 BIT STRING, | |
47278 | y3 REAL}, | |
47279 | ||
47280 | m [3] SEQUENCE OF INTEGER, | |
47281 | n [4] SET OF BOOLEAN | |
47282 | } | |
47283 | END | |
47284 | ||
47285 | <STATIC> | |
47286 | ||
47287 | import from TempA all; | |
47288 | ||
47289 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47290 | const BERPDU myValue := {d := first} | |
47291 | ||
47292 | <TTCN_TC:EXEC> | |
47293 | ||
47294 | if (dec_BER_PDU('0A0100'O) == myValue) | |
47295 | ||
47296 | ||
47297 | {setverdict(pass);} else {setverdict(fail);} | |
47298 | ||
47299 | ||
47300 | <RESULT> | |
47301 | ||
47302 | Overall verdict: pass | |
47303 | ||
47304 | <END_TC> | |
47305 | ||
47306 | :exmp. | |
47307 | ||
47308 | .*---------------------------------------------------------------------* | |
47309 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - BIT STRING | |
47310 | .*---------------------------------------------------------------------* | |
47311 | :xmp tab=0. | |
47312 | ||
47313 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - BIT STRING> | |
47314 | ||
47315 | <STATIC:ASN> | |
47316 | ||
47317 | TempA | |
47318 | ||
47319 | DEFINITIONS ::= | |
47320 | BEGIN | |
47321 | BERPDU ::= CHOICE | |
47322 | { | |
47323 | a NULL, | |
47324 | b BOOLEAN, | |
47325 | c INTEGER, | |
47326 | d ENUMERATED {first ,second ,third}, | |
47327 | e REAL, | |
47328 | f BIT STRING, | |
47329 | g OCTET STRING, | |
47330 | ||
47331 | h OBJECT IDENTIFIER, | |
47332 | i IA5String, | |
47333 | j CHOICE {x1 [1] BOOLEAN, | |
47334 | y1 [2] OCTET STRING}, | |
47335 | ||
47336 | k SEQUENCE{x2 NULL, | |
47337 | y2 BOOLEAN}, | |
47338 | ||
47339 | l SET { x3 BIT STRING, | |
47340 | y3 REAL}, | |
47341 | ||
47342 | m [3] SEQUENCE OF INTEGER, | |
47343 | n [4] SET OF BOOLEAN | |
47344 | } | |
47345 | END | |
47346 | ||
47347 | <STATIC> | |
47348 | ||
47349 | import from TempA all; | |
47350 | ||
47351 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47352 | const BERPDU myValue := {f := '1'B} | |
47353 | ||
47354 | <TTCN_TC:EXEC> | |
47355 | ||
47356 | if (dec_BER_PDU('03020780'O) == myValue) | |
47357 | ||
47358 | ||
47359 | {setverdict(pass);} else {setverdict(fail);} | |
47360 | ||
47361 | ||
47362 | <RESULT> | |
47363 | ||
47364 | Overall verdict: pass | |
47365 | ||
47366 | <END_TC> | |
47367 | ||
47368 | :exmp. | |
47369 | ||
47370 | .*---------------------------------------------------------------------* | |
47371 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - OCTET STRING | |
47372 | .*---------------------------------------------------------------------* | |
47373 | :xmp tab=0. | |
47374 | ||
47375 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - OCTET STRING> | |
47376 | ||
47377 | <STATIC:ASN> | |
47378 | ||
47379 | TempA | |
47380 | ||
47381 | DEFINITIONS ::= | |
47382 | BEGIN | |
47383 | BERPDU ::= CHOICE | |
47384 | { | |
47385 | a NULL, | |
47386 | b BOOLEAN, | |
47387 | c INTEGER, | |
47388 | d ENUMERATED {first ,second ,third}, | |
47389 | e REAL, | |
47390 | f BIT STRING, | |
47391 | g OCTET STRING, | |
47392 | ||
47393 | h OBJECT IDENTIFIER, | |
47394 | i IA5String, | |
47395 | j CHOICE {x1 [1] BOOLEAN, | |
47396 | y1 [2] OCTET STRING}, | |
47397 | ||
47398 | k SEQUENCE{x2 NULL, | |
47399 | y2 BOOLEAN}, | |
47400 | ||
47401 | l SET { x3 BIT STRING, | |
47402 | y3 REAL}, | |
47403 | ||
47404 | m [3] SEQUENCE OF INTEGER, | |
47405 | n [4] SET OF BOOLEAN | |
47406 | } | |
47407 | END | |
47408 | ||
47409 | <STATIC> | |
47410 | ||
47411 | import from TempA all; | |
47412 | ||
47413 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47414 | const BERPDU myValue := {g := 'FFFF'O} | |
47415 | ||
47416 | <TTCN_TC:EXEC> | |
47417 | ||
47418 | if (dec_BER_PDU('0402FFFF'O) == myValue) | |
47419 | ||
47420 | ||
47421 | {setverdict(pass);} else {setverdict(fail);} | |
47422 | ||
47423 | ||
47424 | <RESULT> | |
47425 | ||
47426 | Overall verdict: pass | |
47427 | ||
47428 | <END_TC> | |
47429 | ||
47430 | :exmp. | |
47431 | ||
47432 | .*---------------------------------------------------------------------* | |
47433 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - OBJECT IDENTIFIER | |
47434 | .*---------------------------------------------------------------------* | |
47435 | :xmp tab=0. | |
47436 | ||
47437 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - OBJECT IDENTIFIER> | |
47438 | ||
47439 | <STATIC:ASN> | |
47440 | ||
47441 | TempA | |
47442 | ||
47443 | DEFINITIONS ::= | |
47444 | BEGIN | |
47445 | BERPDU ::= CHOICE | |
47446 | { | |
47447 | a NULL, | |
47448 | b BOOLEAN, | |
47449 | c INTEGER, | |
47450 | d ENUMERATED {first ,second ,third}, | |
47451 | e REAL, | |
47452 | f BIT STRING, | |
47453 | g OCTET STRING, | |
47454 | ||
47455 | h OBJECT IDENTIFIER, | |
47456 | i IA5String, | |
47457 | j CHOICE {x1 [1] BOOLEAN, | |
47458 | y1 [2] OCTET STRING}, | |
47459 | ||
47460 | k SEQUENCE{x2 NULL, | |
47461 | y2 BOOLEAN}, | |
47462 | ||
47463 | l SET { x3 BIT STRING, | |
47464 | y3 REAL}, | |
47465 | ||
47466 | m [3] SEQUENCE OF INTEGER, | |
47467 | n [4] SET OF BOOLEAN | |
47468 | } | |
47469 | ||
47470 | myValue BERPDU ::= h : {itu-t(0) recommendation(0) a(2) b(3)} | |
47471 | ||
47472 | ||
47473 | END | |
47474 | ||
47475 | <STATIC> | |
47476 | ||
47477 | import from TempA all; | |
47478 | ||
47479 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47480 | ||
47481 | <TTCN_TC:EXEC> | |
47482 | ||
47483 | if (dec_BER_PDU('0603000203'O) == myValue) | |
47484 | ||
47485 | ||
47486 | {setverdict(pass);} else {setverdict(fail);} | |
47487 | ||
47488 | ||
47489 | <RESULT> | |
47490 | ||
47491 | Overall verdict: pass | |
47492 | ||
47493 | <END_TC> | |
47494 | ||
47495 | :exmp. | |
47496 | ||
47497 | .*---------------------------------------------------------------------* | |
47498 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - IA5String | |
47499 | .*---------------------------------------------------------------------* | |
47500 | :xmp tab=0. | |
47501 | ||
47502 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, CHOICE - IA5String> | |
47503 | ||
47504 | <STATIC:ASN> | |
47505 | ||
47506 | TempA | |
47507 | ||
47508 | DEFINITIONS ::= | |
47509 | BEGIN | |
47510 | BERPDU ::= CHOICE | |
47511 | { | |
47512 | a NULL, | |
47513 | b BOOLEAN, | |
47514 | c INTEGER, | |
47515 | d ENUMERATED {first ,second ,third}, | |
47516 | e REAL, | |
47517 | f BIT STRING, | |
47518 | g OCTET STRING, | |
47519 | ||
47520 | h OBJECT IDENTIFIER, | |
47521 | i IA5String, | |
47522 | j CHOICE {x1 [1] BOOLEAN, | |
47523 | y1 [2] OCTET STRING}, | |
47524 | ||
47525 | k SEQUENCE{x2 NULL, | |
47526 | y2 BOOLEAN}, | |
47527 | ||
47528 | l SET { x3 BIT STRING, | |
47529 | y3 REAL}, | |
47530 | ||
47531 | m [3] SEQUENCE OF INTEGER, | |
47532 | n [4] SET OF BOOLEAN | |
47533 | } | |
47534 | ||
47535 | ||
47536 | ||
47537 | END | |
47538 | ||
47539 | <STATIC> | |
47540 | ||
47541 | import from TempA all; | |
47542 | ||
47543 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47544 | ||
47545 | const BERPDU myValue := {i := "ABC"} | |
47546 | ||
47547 | ||
47548 | <TTCN_TC:EXEC> | |
47549 | ||
47550 | if (dec_BER_PDU('1603414243'O) == myValue) | |
47551 | ||
47552 | ||
47553 | {setverdict(pass);} else {setverdict(fail);} | |
47554 | ||
47555 | ||
47556 | <RESULT> | |
47557 | ||
47558 | Overall verdict: pass | |
47559 | ||
47560 | <END_TC> | |
47561 | ||
47562 | :exmp. | |
47563 | ||
47564 | .*---------------------------------------------------------------------* | |
47565 | :h3. DECODING OBJECT IDENTIFIER ,DER, CHOICE - CHOICE | |
47566 | .*---------------------------------------------------------------------* | |
47567 | :xmp tab=0. | |
47568 | ||
47569 | <TC - DECODING OBJECT IDENTIFIER ,DER, CHOICE - CHOICE> | |
47570 | ||
47571 | <STATIC:ASN> | |
47572 | ||
47573 | TempA | |
47574 | ||
47575 | DEFINITIONS ::= | |
47576 | BEGIN | |
47577 | BERPDU ::= CHOICE | |
47578 | { | |
47579 | a NULL, | |
47580 | b BOOLEAN, | |
47581 | c INTEGER, | |
47582 | d ENUMERATED {first ,second ,third}, | |
47583 | e REAL, | |
47584 | f BIT STRING, | |
47585 | g OCTET STRING, | |
47586 | ||
47587 | h OBJECT IDENTIFIER, | |
47588 | i IA5String, | |
47589 | j CHOICE {x1 [1] BOOLEAN, | |
47590 | y1 [2] OCTET STRING}, | |
47591 | ||
47592 | k SEQUENCE{x2 NULL, | |
47593 | y2 BOOLEAN}, | |
47594 | ||
47595 | l SET { x3 BIT STRING, | |
47596 | y3 REAL}, | |
47597 | ||
47598 | m [3] SEQUENCE OF INTEGER, | |
47599 | n [4] SET OF BOOLEAN | |
47600 | } | |
47601 | ||
47602 | ||
47603 | ||
47604 | END | |
47605 | ||
47606 | <STATIC> | |
47607 | ||
47608 | import from TempA all; | |
47609 | ||
47610 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47611 | ||
47612 | const BERPDU myValue := {j := {x1 := true } } | |
47613 | ||
47614 | ||
47615 | <TTCN_TC:EXEC> | |
47616 | ||
47617 | if (dec_BER_PDU('A1030101FF'O) == myValue) | |
47618 | ||
47619 | ||
47620 | {setverdict(pass);} else {setverdict(fail);} | |
47621 | ||
47622 | ||
47623 | <RESULT> | |
47624 | ||
47625 | Overall verdict: pass | |
47626 | ||
47627 | <END_TC> | |
47628 | ||
47629 | :exmp. | |
47630 | ||
47631 | .*---------------------------------------------------------------------* | |
47632 | :h3. DECODING OBJECT IDENTIFIER , CER, CHOICE - CHOICE | |
47633 | .*---------------------------------------------------------------------* | |
47634 | :xmp tab=0. | |
47635 | ||
47636 | <TC - DECODING OBJECT IDENTIFIER , CER, CHOICE - CHOICE> | |
47637 | ||
47638 | <STATIC:ASN> | |
47639 | ||
47640 | TempA | |
47641 | ||
47642 | DEFINITIONS ::= | |
47643 | BEGIN | |
47644 | BERPDU ::= CHOICE | |
47645 | { | |
47646 | a NULL, | |
47647 | b BOOLEAN, | |
47648 | c INTEGER, | |
47649 | d ENUMERATED {first ,second ,third}, | |
47650 | e REAL, | |
47651 | f BIT STRING, | |
47652 | g OCTET STRING, | |
47653 | ||
47654 | h OBJECT IDENTIFIER, | |
47655 | i IA5String, | |
47656 | j CHOICE {x1 [1] BOOLEAN, | |
47657 | y1 [2] OCTET STRING}, | |
47658 | ||
47659 | k SEQUENCE{x2 NULL, | |
47660 | y2 BOOLEAN}, | |
47661 | ||
47662 | l SET { x3 BIT STRING, | |
47663 | y3 REAL}, | |
47664 | ||
47665 | m [3] SEQUENCE OF INTEGER, | |
47666 | n [4] SET OF BOOLEAN | |
47667 | } | |
47668 | ||
47669 | ||
47670 | ||
47671 | END | |
47672 | ||
47673 | <STATIC> | |
47674 | ||
47675 | import from TempA all; | |
47676 | ||
47677 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47678 | ||
47679 | const BERPDU myValue := {j := {x1 := true } } | |
47680 | ||
47681 | ||
47682 | <TTCN_TC:EXEC> | |
47683 | ||
47684 | if (dec_BER_PDU('A1800101FF0000'O) == myValue) | |
47685 | ||
47686 | ||
47687 | {setverdict(pass);} else {setverdict(fail);} | |
47688 | ||
47689 | ||
47690 | <RESULT> | |
47691 | ||
47692 | Overall verdict: pass | |
47693 | ||
47694 | <END_TC> | |
47695 | ||
47696 | :exmp. | |
47697 | ||
47698 | .*---------------------------------------------------------------------* | |
47699 | :h3. DECODING OBJECT IDENTIFIER , DER, CHOICE - SEQUENCE | |
47700 | .*---------------------------------------------------------------------* | |
47701 | :xmp tab=0. | |
47702 | ||
47703 | <TC - DECODING OBJECT IDENTIFIER , DER, CHOICE - SEQUENCE> | |
47704 | ||
47705 | <STATIC:ASN> | |
47706 | ||
47707 | TempA | |
47708 | ||
47709 | DEFINITIONS ::= | |
47710 | BEGIN | |
47711 | BERPDU ::= CHOICE | |
47712 | { | |
47713 | a NULL, | |
47714 | b BOOLEAN, | |
47715 | c INTEGER, | |
47716 | d ENUMERATED {first ,second ,third}, | |
47717 | e REAL, | |
47718 | f BIT STRING, | |
47719 | g OCTET STRING, | |
47720 | ||
47721 | h OBJECT IDENTIFIER, | |
47722 | i IA5String, | |
47723 | j CHOICE {x1 [1] BOOLEAN, | |
47724 | y1 [2] OCTET STRING}, | |
47725 | ||
47726 | k SEQUENCE{x2 NULL, | |
47727 | y2 BOOLEAN}, | |
47728 | ||
47729 | l SET { x3 BIT STRING, | |
47730 | y3 REAL}, | |
47731 | ||
47732 | m [3] SEQUENCE OF INTEGER, | |
47733 | n [4] SET OF BOOLEAN | |
47734 | } | |
47735 | ||
47736 | ||
47737 | ||
47738 | END | |
47739 | ||
47740 | <STATIC> | |
47741 | ||
47742 | import from TempA all; | |
47743 | ||
47744 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47745 | ||
47746 | const BERPDU myValue := {k := {x2 := NULL, | |
47747 | ||
47748 | y2 := true } } | |
47749 | ||
47750 | ||
47751 | ||
47752 | <TTCN_TC:EXEC> | |
47753 | ||
47754 | if (dec_BER_PDU('300505000101FF'O) == myValue) | |
47755 | ||
47756 | ||
47757 | {setverdict(pass);} else {setverdict(fail);} | |
47758 | ||
47759 | ||
47760 | <RESULT> | |
47761 | ||
47762 | Overall verdict: pass | |
47763 | ||
47764 | <END_TC> | |
47765 | ||
47766 | :exmp. | |
47767 | ||
47768 | .*---------------------------------------------------------------------* | |
47769 | :h3. DECODING OBJECT IDENTIFIER , CER, CHOICE - SEQUENCE | |
47770 | .*---------------------------------------------------------------------* | |
47771 | :xmp tab=0. | |
47772 | ||
47773 | <TC - DECODING OBJECT IDENTIFIER , CER, CHOICE - SEQUENCE> | |
47774 | ||
47775 | <STATIC:ASN> | |
47776 | ||
47777 | TempA | |
47778 | ||
47779 | DEFINITIONS ::= | |
47780 | BEGIN | |
47781 | BERPDU ::= CHOICE | |
47782 | { | |
47783 | a NULL, | |
47784 | b BOOLEAN, | |
47785 | c INTEGER, | |
47786 | d ENUMERATED {first ,second ,third}, | |
47787 | e REAL, | |
47788 | f BIT STRING, | |
47789 | g OCTET STRING, | |
47790 | ||
47791 | h OBJECT IDENTIFIER, | |
47792 | i IA5String, | |
47793 | j CHOICE {x1 [1] BOOLEAN, | |
47794 | y1 [2] OCTET STRING}, | |
47795 | ||
47796 | k SEQUENCE{x2 NULL, | |
47797 | y2 BOOLEAN}, | |
47798 | ||
47799 | l SET { x3 BIT STRING, | |
47800 | y3 REAL}, | |
47801 | ||
47802 | m [3] SEQUENCE OF INTEGER, | |
47803 | n [4] SET OF BOOLEAN | |
47804 | } | |
47805 | ||
47806 | ||
47807 | ||
47808 | END | |
47809 | ||
47810 | <STATIC> | |
47811 | ||
47812 | import from TempA all; | |
47813 | ||
47814 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47815 | ||
47816 | const BERPDU myValue := {k := {x2 := NULL, | |
47817 | ||
47818 | y2 := true } } | |
47819 | ||
47820 | ||
47821 | ||
47822 | <TTCN_TC:EXEC> | |
47823 | ||
47824 | if (dec_BER_PDU('308005000101FF0000'O) == myValue) | |
47825 | ||
47826 | ||
47827 | {setverdict(pass);} else {setverdict(fail);} | |
47828 | ||
47829 | ||
47830 | <RESULT> | |
47831 | ||
47832 | Overall verdict: pass | |
47833 | ||
47834 | <END_TC> | |
47835 | ||
47836 | :exmp. | |
47837 | ||
47838 | .*---------------------------------------------------------------------* | |
47839 | :h3. DECODING OBJECT IDENTIFIER , DER, CHOICE - SET | |
47840 | .*---------------------------------------------------------------------* | |
47841 | :xmp tab=0. | |
47842 | ||
47843 | <TC - DECODING OBJECT IDENTIFIER , DER, CHOICE - SET> | |
47844 | ||
47845 | <STATIC:ASN> | |
47846 | ||
47847 | TempA | |
47848 | ||
47849 | DEFINITIONS ::= | |
47850 | BEGIN | |
47851 | BERPDU ::= CHOICE | |
47852 | { | |
47853 | a NULL, | |
47854 | b BOOLEAN, | |
47855 | c INTEGER, | |
47856 | d ENUMERATED {first ,second ,third}, | |
47857 | e REAL, | |
47858 | f BIT STRING, | |
47859 | g OCTET STRING, | |
47860 | ||
47861 | h OBJECT IDENTIFIER, | |
47862 | i IA5String, | |
47863 | j CHOICE {x1 [1] BOOLEAN, | |
47864 | y1 [2] OCTET STRING}, | |
47865 | ||
47866 | k SEQUENCE{x2 NULL, | |
47867 | y2 BOOLEAN}, | |
47868 | ||
47869 | l SET { x3 BIT STRING, | |
47870 | y3 OCTET STRING}, | |
47871 | ||
47872 | m [3] SEQUENCE OF INTEGER, | |
47873 | n [4] SET OF BOOLEAN | |
47874 | } | |
47875 | ||
47876 | ||
47877 | ||
47878 | END | |
47879 | ||
47880 | <STATIC> | |
47881 | ||
47882 | import from TempA all; | |
47883 | ||
47884 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47885 | ||
47886 | const BERPDU myValue := {l := {y3 := 'FFFF'O , | |
47887 | ||
47888 | x3 := '1'B } } | |
47889 | ||
47890 | ||
47891 | ||
47892 | ||
47893 | <TTCN_TC:EXEC> | |
47894 | ||
47895 | if (dec_BER_PDU('3108030207800402FFFF'O) == myValue) | |
47896 | ||
47897 | ||
47898 | {setverdict(pass);} else {setverdict(fail);} | |
47899 | ||
47900 | ||
47901 | <RESULT> | |
47902 | ||
47903 | Overall verdict: pass | |
47904 | ||
47905 | <END_TC> | |
47906 | ||
47907 | :exmp. | |
47908 | ||
47909 | .*---------------------------------------------------------------------* | |
47910 | :h3. DECODING OBJECT IDENTIFIER , CER, CHOICE - SET | |
47911 | .*---------------------------------------------------------------------* | |
47912 | :xmp tab=0. | |
47913 | ||
47914 | <TC - DECODING OBJECT IDENTIFIER , CER, CHOICE - SET> | |
47915 | ||
47916 | <STATIC:ASN> | |
47917 | ||
47918 | TempA | |
47919 | ||
47920 | DEFINITIONS ::= | |
47921 | BEGIN | |
47922 | BERPDU ::= CHOICE | |
47923 | { | |
47924 | a NULL, | |
47925 | b BOOLEAN, | |
47926 | c INTEGER, | |
47927 | d ENUMERATED {first ,second ,third}, | |
47928 | e REAL, | |
47929 | f BIT STRING, | |
47930 | g OCTET STRING, | |
47931 | ||
47932 | h OBJECT IDENTIFIER, | |
47933 | i IA5String, | |
47934 | j CHOICE {x1 [1] BOOLEAN, | |
47935 | y1 [2] OCTET STRING}, | |
47936 | ||
47937 | k SEQUENCE{x2 NULL, | |
47938 | y2 BOOLEAN}, | |
47939 | ||
47940 | l SET { x3 BIT STRING, | |
47941 | y3 OCTET STRING}, | |
47942 | ||
47943 | m [3] SEQUENCE OF INTEGER, | |
47944 | n [4] SET OF BOOLEAN | |
47945 | } | |
47946 | ||
47947 | ||
47948 | ||
47949 | END | |
47950 | ||
47951 | <STATIC> | |
47952 | ||
47953 | import from TempA all; | |
47954 | ||
47955 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
47956 | ||
47957 | const BERPDU myValue := {l := {y3 := 'FFFF'O , | |
47958 | ||
47959 | x3 := '1'B } } | |
47960 | ||
47961 | ||
47962 | ||
47963 | ||
47964 | <TTCN_TC:EXEC> | |
47965 | ||
47966 | if (dec_BER_PDU('3180030207800402FFFF0000'O) == myValue) | |
47967 | ||
47968 | ||
47969 | {setverdict(pass);} else {setverdict(fail);} | |
47970 | ||
47971 | ||
47972 | <RESULT> | |
47973 | ||
47974 | Overall verdict: pass | |
47975 | ||
47976 | <END_TC> | |
47977 | ||
47978 | :exmp. | |
47979 | ||
47980 | .*---------------------------------------------------------------------* | |
47981 | :h3. DECODING OBJECT IDENTIFIER , DER, CHOICE - SEQUENCE OF | |
47982 | .*---------------------------------------------------------------------* | |
47983 | :xmp tab=0. | |
47984 | ||
47985 | <TC - DECODING OBJECT IDENTIFIER , DER, CHOICE - SEQUENCE OF> | |
47986 | ||
47987 | <STATIC:ASN> | |
47988 | ||
47989 | TempA | |
47990 | ||
47991 | DEFINITIONS ::= | |
47992 | BEGIN | |
47993 | BERPDU ::= CHOICE | |
47994 | { | |
47995 | a NULL, | |
47996 | b BOOLEAN, | |
47997 | c INTEGER, | |
47998 | d ENUMERATED {first ,second ,third}, | |
47999 | e REAL, | |
48000 | f BIT STRING, | |
48001 | g OCTET STRING, | |
48002 | ||
48003 | h OBJECT IDENTIFIER, | |
48004 | i IA5String, | |
48005 | j CHOICE {x1 [1] BOOLEAN, | |
48006 | y1 [2] OCTET STRING}, | |
48007 | ||
48008 | k SEQUENCE{x2 NULL, | |
48009 | y2 BOOLEAN}, | |
48010 | ||
48011 | l SET { x3 BIT STRING, | |
48012 | y3 REAL}, | |
48013 | ||
48014 | m [3] SEQUENCE OF INTEGER, | |
48015 | n [4] SET OF BOOLEAN | |
48016 | } | |
48017 | ||
48018 | ||
48019 | ||
48020 | END | |
48021 | ||
48022 | <STATIC> | |
48023 | ||
48024 | import from TempA all; | |
48025 | ||
48026 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48027 | ||
48028 | const BERPDU myValue := {m := | |
48029 | { 1 ,2 } } | |
48030 | ||
48031 | ||
48032 | ||
48033 | <TTCN_TC:EXEC> | |
48034 | ||
48035 | if (dec_BER_PDU('A3083006020101020102'O) == myValue) | |
48036 | ||
48037 | ||
48038 | {setverdict(pass);} else {setverdict(fail);} | |
48039 | ||
48040 | ||
48041 | <RESULT> | |
48042 | ||
48043 | Overall verdict: pass | |
48044 | ||
48045 | <END_TC> | |
48046 | ||
48047 | :exmp. | |
48048 | ||
48049 | .*---------------------------------------------------------------------* | |
48050 | :h3. DECODING OBJECT IDENTIFIER , CER, CHOICE - SEQUENCE OF | |
48051 | .*---------------------------------------------------------------------* | |
48052 | :xmp tab=0. | |
48053 | ||
48054 | <TC - DECODING OBJECT IDENTIFIER , CER, CHOICE - SEQUENCE OF> | |
48055 | ||
48056 | <STATIC:ASN> | |
48057 | ||
48058 | TempA | |
48059 | ||
48060 | DEFINITIONS ::= | |
48061 | BEGIN | |
48062 | BERPDU ::= CHOICE | |
48063 | { | |
48064 | a NULL, | |
48065 | b BOOLEAN, | |
48066 | c INTEGER, | |
48067 | d ENUMERATED {first ,second ,third}, | |
48068 | e REAL, | |
48069 | f BIT STRING, | |
48070 | g OCTET STRING, | |
48071 | ||
48072 | h OBJECT IDENTIFIER, | |
48073 | i IA5String, | |
48074 | j CHOICE {x1 [1] BOOLEAN, | |
48075 | y1 [2] OCTET STRING}, | |
48076 | ||
48077 | k SEQUENCE{x2 NULL, | |
48078 | y2 BOOLEAN}, | |
48079 | ||
48080 | l SET { x3 BIT STRING, | |
48081 | y3 REAL}, | |
48082 | ||
48083 | m [3] SEQUENCE OF INTEGER, | |
48084 | n [4] SET OF BOOLEAN | |
48085 | } | |
48086 | ||
48087 | ||
48088 | ||
48089 | END | |
48090 | ||
48091 | <STATIC> | |
48092 | ||
48093 | import from TempA all; | |
48094 | ||
48095 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48096 | ||
48097 | const BERPDU myValue := {m := | |
48098 | { 1 ,2 } } | |
48099 | ||
48100 | ||
48101 | ||
48102 | <TTCN_TC:EXEC> | |
48103 | ||
48104 | if (dec_BER_PDU('A380308002010102010200000000'O) == myValue) | |
48105 | ||
48106 | ||
48107 | {setverdict(pass);} else {setverdict(fail);} | |
48108 | ||
48109 | ||
48110 | <RESULT> | |
48111 | ||
48112 | Overall verdict: pass | |
48113 | ||
48114 | <END_TC> | |
48115 | ||
48116 | :exmp. | |
48117 | ||
48118 | .*---------------------------------------------------------------------* | |
48119 | :h3. DECODING OBJECT IDENTIFIER , DER, CHOICE - SET OF | |
48120 | .*---------------------------------------------------------------------* | |
48121 | :xmp tab=0. | |
48122 | ||
48123 | <TC - DECODING OBJECT IDENTIFIER , DER, CHOICE - SET OF> | |
48124 | ||
48125 | <STATIC:ASN> | |
48126 | ||
48127 | TempA | |
48128 | ||
48129 | DEFINITIONS ::= | |
48130 | BEGIN | |
48131 | BERPDU ::= CHOICE | |
48132 | { | |
48133 | a NULL, | |
48134 | b BOOLEAN, | |
48135 | c INTEGER, | |
48136 | d ENUMERATED {first ,second ,third}, | |
48137 | e REAL, | |
48138 | f BIT STRING, | |
48139 | g OCTET STRING, | |
48140 | ||
48141 | h OBJECT IDENTIFIER, | |
48142 | i IA5String, | |
48143 | j CHOICE {x1 [1] BOOLEAN, | |
48144 | y1 [2] OCTET STRING}, | |
48145 | ||
48146 | k SEQUENCE{x2 NULL, | |
48147 | y2 BOOLEAN}, | |
48148 | ||
48149 | l SET { x3 BIT STRING, | |
48150 | y3 REAL}, | |
48151 | ||
48152 | m [3] SEQUENCE OF INTEGER, | |
48153 | n [4] SET OF BOOLEAN | |
48154 | } | |
48155 | ||
48156 | ||
48157 | ||
48158 | END | |
48159 | ||
48160 | <STATIC> | |
48161 | ||
48162 | import from TempA all; | |
48163 | ||
48164 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48165 | ||
48166 | const BERPDU myValue := {n := | |
48167 | { true, true } } | |
48168 | ||
48169 | ||
48170 | ||
48171 | <TTCN_TC:EXEC> | |
48172 | ||
48173 | if (dec_BER_PDU('A40831060101FF0101FF'O) == myValue) | |
48174 | ||
48175 | ||
48176 | {setverdict(pass);} else {setverdict(fail);} | |
48177 | ||
48178 | ||
48179 | <RESULT> | |
48180 | ||
48181 | Overall verdict: pass | |
48182 | ||
48183 | <END_TC> | |
48184 | ||
48185 | :exmp. | |
48186 | ||
48187 | .*---------------------------------------------------------------------* | |
48188 | :h3. DECODING OBJECT IDENTIFIER , CER, CHOICE - SET OF | |
48189 | .*---------------------------------------------------------------------* | |
48190 | :xmp tab=0. | |
48191 | ||
48192 | <TC - DECODING OBJECT IDENTIFIER , CER, CHOICE - SET OF> | |
48193 | ||
48194 | <STATIC:ASN> | |
48195 | ||
48196 | TempA | |
48197 | ||
48198 | DEFINITIONS ::= | |
48199 | BEGIN | |
48200 | BERPDU ::= CHOICE | |
48201 | { | |
48202 | a NULL, | |
48203 | b BOOLEAN, | |
48204 | c INTEGER, | |
48205 | d ENUMERATED {first ,second ,third}, | |
48206 | e REAL, | |
48207 | f BIT STRING, | |
48208 | g OCTET STRING, | |
48209 | ||
48210 | h OBJECT IDENTIFIER, | |
48211 | i IA5String, | |
48212 | j CHOICE {x1 [1] BOOLEAN, | |
48213 | y1 [2] OCTET STRING}, | |
48214 | ||
48215 | k SEQUENCE{x2 NULL, | |
48216 | y2 BOOLEAN}, | |
48217 | ||
48218 | l SET { x3 BIT STRING, | |
48219 | y3 REAL}, | |
48220 | ||
48221 | m [3] SEQUENCE OF INTEGER, | |
48222 | n [4] SET OF BOOLEAN | |
48223 | } | |
48224 | ||
48225 | ||
48226 | ||
48227 | END | |
48228 | ||
48229 | <STATIC> | |
48230 | ||
48231 | import from TempA all; | |
48232 | ||
48233 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48234 | ||
48235 | const BERPDU myValue := {n := | |
48236 | { true, true } } | |
48237 | ||
48238 | ||
48239 | ||
48240 | <TTCN_TC:EXEC> | |
48241 | ||
48242 | if (dec_BER_PDU('A48031800101FF0101FF00000000'O) == myValue) | |
48243 | ||
48244 | ||
48245 | {setverdict(pass);} else {setverdict(fail);} | |
48246 | ||
48247 | ||
48248 | <RESULT> | |
48249 | ||
48250 | Overall verdict: pass | |
48251 | ||
48252 | <END_TC> | |
48253 | ||
48254 | :exmp. | |
48255 | ||
48256 | .*---------------------------------------------------------------------* | |
48257 | :h3.CER + DER decoding of CHOICE - Default IMPLICIT TAGS, CHOICE untagged | |
48258 | .*---------------------------------------------------------------------* | |
48259 | :xmp tab=0. | |
48260 | ||
48261 | <TC - CER + DER decoding of CHOICE - Default IMPLICIT TAGS, CHOICE untagged> | |
48262 | ||
48263 | <STATIC:ASN> | |
48264 | ||
48265 | TempA | |
48266 | ||
48267 | DEFINITIONS | |
48268 | ||
48269 | IMPLICIT TAGS | |
48270 | ||
48271 | ::= | |
48272 | ||
48273 | BEGIN | |
48274 | BERPDU ::= CHOICE | |
48275 | { | |
48276 | b BOOLEAN, | |
48277 | c INTEGER | |
48278 | } | |
48279 | ||
48280 | ||
48281 | ||
48282 | END | |
48283 | ||
48284 | <STATIC> | |
48285 | ||
48286 | import from TempA all; | |
48287 | ||
48288 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48289 | ||
48290 | const BERPDU myValue := {b := true } | |
48291 | ||
48292 | ||
48293 | ||
48294 | <TTCN_TC:EXEC> | |
48295 | ||
48296 | if (dec_BER_PDU('0101FF'O) == myValue) | |
48297 | ||
48298 | ||
48299 | {setverdict(pass);} else {setverdict(fail);} | |
48300 | ||
48301 | ||
48302 | <RESULT> | |
48303 | ||
48304 | Overall verdict: pass | |
48305 | ||
48306 | <END_TC> | |
48307 | ||
48308 | :exmp. | |
48309 | ||
48310 | .*---------------------------------------------------------------------* | |
48311 | :h3.CER + DER decoding of CHOICE - Default EXPLICIT TAGS, CHOICE untagged | |
48312 | .*---------------------------------------------------------------------* | |
48313 | :xmp tab=0. | |
48314 | ||
48315 | <TC - CER + DER decoding of CHOICE - Default EXPLICIT TAGS, CHOICE untagged> | |
48316 | ||
48317 | <STATIC:ASN> | |
48318 | ||
48319 | TempA | |
48320 | ||
48321 | DEFINITIONS | |
48322 | ||
48323 | EXPLICIT TAGS | |
48324 | ||
48325 | ||
48326 | ::= | |
48327 | ||
48328 | BEGIN | |
48329 | BERPDU ::= CHOICE | |
48330 | { | |
48331 | b BOOLEAN, | |
48332 | c INTEGER | |
48333 | } | |
48334 | ||
48335 | ||
48336 | ||
48337 | END | |
48338 | ||
48339 | <STATIC> | |
48340 | ||
48341 | import from TempA all; | |
48342 | ||
48343 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48344 | ||
48345 | const BERPDU myValue := {b := true } | |
48346 | ||
48347 | ||
48348 | ||
48349 | <TTCN_TC:EXEC> | |
48350 | ||
48351 | if (dec_BER_PDU('0101FF'O) == myValue) | |
48352 | ||
48353 | ||
48354 | {setverdict(pass);} else {setverdict(fail);} | |
48355 | ||
48356 | ||
48357 | <RESULT> | |
48358 | ||
48359 | Overall verdict: pass | |
48360 | ||
48361 | <END_TC> | |
48362 | ||
48363 | :exmp. | |
48364 | ||
48365 | .*---------------------------------------------------------------------* | |
48366 | :h3.CER + DER decoding of CHOICE - No Default TAGS, CHOICE untagged | |
48367 | .*---------------------------------------------------------------------* | |
48368 | :xmp tab=0. | |
48369 | ||
48370 | <TC - CER + DER decoding of CHOICE - No Default TAGS, CHOICE untagged> | |
48371 | ||
48372 | <STATIC:ASN> | |
48373 | ||
48374 | TempA | |
48375 | ||
48376 | DEFINITIONS | |
48377 | ||
48378 | ||
48379 | ||
48380 | ||
48381 | ::= | |
48382 | ||
48383 | BEGIN | |
48384 | BERPDU ::= CHOICE | |
48385 | { | |
48386 | b BOOLEAN, | |
48387 | c INTEGER | |
48388 | } | |
48389 | ||
48390 | ||
48391 | ||
48392 | END | |
48393 | ||
48394 | <STATIC> | |
48395 | ||
48396 | import from TempA all; | |
48397 | ||
48398 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48399 | ||
48400 | const BERPDU myValue := {b := true } | |
48401 | ||
48402 | ||
48403 | ||
48404 | <TTCN_TC:EXEC> | |
48405 | ||
48406 | if (dec_BER_PDU('0101FF'O) == myValue) | |
48407 | ||
48408 | ||
48409 | {setverdict(pass);} else {setverdict(fail);} | |
48410 | ||
48411 | ||
48412 | <RESULT> | |
48413 | ||
48414 | Overall verdict: pass | |
48415 | ||
48416 | <END_TC> | |
48417 | ||
48418 | :exmp. | |
48419 | ||
48420 | .*---------------------------------------------------------------------* | |
48421 | :h3.CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, CHOICE untagged | |
48422 | .*---------------------------------------------------------------------* | |
48423 | :xmp tab=0. | |
48424 | ||
48425 | <TC - CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, CHOICE untagged> | |
48426 | ||
48427 | <STATIC:ASN> | |
48428 | ||
48429 | TempA | |
48430 | ||
48431 | DEFINITIONS | |
48432 | ||
48433 | ||
48434 | AUTOMATIC TAGS | |
48435 | ||
48436 | ::= | |
48437 | ||
48438 | BEGIN | |
48439 | BERPDU ::= CHOICE | |
48440 | { | |
48441 | b BOOLEAN, | |
48442 | c INTEGER | |
48443 | } | |
48444 | ||
48445 | ||
48446 | ||
48447 | END | |
48448 | ||
48449 | <STATIC> | |
48450 | ||
48451 | import from TempA all; | |
48452 | ||
48453 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48454 | ||
48455 | const BERPDU myValue := {b := true } | |
48456 | ||
48457 | ||
48458 | ||
48459 | <TTCN_TC:EXEC> | |
48460 | ||
48461 | if (dec_BER_PDU('8001FF'O) == myValue) | |
48462 | ||
48463 | ||
48464 | {setverdict(pass);} else {setverdict(fail);} | |
48465 | ||
48466 | ||
48467 | <RESULT> | |
48468 | ||
48469 | Overall verdict: pass | |
48470 | ||
48471 | <END_TC> | |
48472 | ||
48473 | :exmp. | |
48474 | ||
48475 | .*---------------------------------------------------------------------* | |
48476 | :h3.CER + DER decoding of CHOICE - Default IMPLICIT TAGS, number-tagged CHOICE | |
48477 | .*---------------------------------------------------------------------* | |
48478 | :xmp tab=0. | |
48479 | ||
48480 | <TC - CER + DER decoding of CHOICE - Default IMPLICIT TAGS, number-tagged CHOICE> | |
48481 | ||
48482 | <STATIC:ASN> | |
48483 | ||
48484 | TempA | |
48485 | ||
48486 | DEFINITIONS | |
48487 | ||
48488 | IMPLICIT TAGS | |
48489 | ||
48490 | ||
48491 | ||
48492 | ||
48493 | ::= | |
48494 | ||
48495 | BEGIN | |
48496 | BERPDU ::= CHOICE | |
48497 | { | |
48498 | b [3] BOOLEAN, | |
48499 | c [6] INTEGER | |
48500 | } | |
48501 | ||
48502 | ||
48503 | END | |
48504 | ||
48505 | ||
48506 | ||
48507 | <STATIC> | |
48508 | ||
48509 | import from TempA all; | |
48510 | ||
48511 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48512 | ||
48513 | const BERPDU myValue := {b := true } | |
48514 | ||
48515 | ||
48516 | ||
48517 | <TTCN_TC:EXEC> | |
48518 | ||
48519 | if (dec_BER_PDU('8301FF'O) == myValue) | |
48520 | ||
48521 | ||
48522 | {setverdict(pass);} else {setverdict(fail);} | |
48523 | ||
48524 | ||
48525 | <RESULT> | |
48526 | ||
48527 | Overall verdict: pass | |
48528 | ||
48529 | <END_TC> | |
48530 | ||
48531 | :exmp. | |
48532 | ||
48533 | .*---------------------------------------------------------------------* | |
48534 | :h3. DER decoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE | |
48535 | .*---------------------------------------------------------------------* | |
48536 | :xmp tab=0. | |
48537 | ||
48538 | <TC - DER decoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE> | |
48539 | ||
48540 | <STATIC:ASN> | |
48541 | ||
48542 | TempA | |
48543 | ||
48544 | DEFINITIONS | |
48545 | ||
48546 | EXPLICIT TAGS | |
48547 | ||
48548 | ||
48549 | ||
48550 | ||
48551 | ::= | |
48552 | ||
48553 | BEGIN | |
48554 | BERPDU ::= CHOICE | |
48555 | { | |
48556 | b [3] BOOLEAN, | |
48557 | c [6] INTEGER | |
48558 | } | |
48559 | ||
48560 | ||
48561 | END | |
48562 | ||
48563 | ||
48564 | ||
48565 | <STATIC> | |
48566 | ||
48567 | import from TempA all; | |
48568 | ||
48569 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48570 | ||
48571 | const BERPDU myValue := {b := true } | |
48572 | ||
48573 | ||
48574 | ||
48575 | <TTCN_TC:EXEC> | |
48576 | ||
48577 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
48578 | ||
48579 | ||
48580 | {setverdict(pass);} else {setverdict(fail);} | |
48581 | ||
48582 | ||
48583 | <RESULT> | |
48584 | ||
48585 | Overall verdict: pass | |
48586 | ||
48587 | <END_TC> | |
48588 | ||
48589 | :exmp. | |
48590 | ||
48591 | .*---------------------------------------------------------------------* | |
48592 | :h3. CER decoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE | |
48593 | .*---------------------------------------------------------------------* | |
48594 | :xmp tab=0. | |
48595 | ||
48596 | <TC - CER decoding of CHOICE - Default EXPLICIT TAGS, number-tagged CHOICE> | |
48597 | ||
48598 | <STATIC:ASN> | |
48599 | ||
48600 | TempA | |
48601 | ||
48602 | DEFINITIONS | |
48603 | ||
48604 | EXPLICIT TAGS | |
48605 | ||
48606 | ||
48607 | ::= | |
48608 | ||
48609 | BEGIN | |
48610 | BERPDU ::= CHOICE | |
48611 | { | |
48612 | b [3] BOOLEAN, | |
48613 | c [6] INTEGER | |
48614 | } | |
48615 | ||
48616 | ||
48617 | END | |
48618 | ||
48619 | ||
48620 | ||
48621 | <STATIC> | |
48622 | ||
48623 | import from TempA all; | |
48624 | ||
48625 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48626 | ||
48627 | const BERPDU myValue := {b := true } | |
48628 | ||
48629 | ||
48630 | ||
48631 | <TTCN_TC:EXEC> | |
48632 | ||
48633 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
48634 | ||
48635 | ||
48636 | {setverdict(pass);} else {setverdict(fail);} | |
48637 | ||
48638 | ||
48639 | <RESULT> | |
48640 | ||
48641 | Overall verdict: pass | |
48642 | ||
48643 | <END_TC> | |
48644 | ||
48645 | :exmp. | |
48646 | ||
48647 | .*---------------------------------------------------------------------* | |
48648 | :h3. DER decoding of CHOICE - No Default TAGS, number-tagged CHOICE | |
48649 | .*---------------------------------------------------------------------* | |
48650 | :xmp tab=0. | |
48651 | ||
48652 | <TC - DER decoding of CHOICE - No Default TAGS, number-tagged CHOICE> | |
48653 | ||
48654 | <STATIC:ASN> | |
48655 | ||
48656 | TempA | |
48657 | ||
48658 | DEFINITIONS | |
48659 | ||
48660 | ||
48661 | ||
48662 | ||
48663 | ::= | |
48664 | ||
48665 | BEGIN | |
48666 | BERPDU ::= CHOICE | |
48667 | { | |
48668 | b [3] BOOLEAN, | |
48669 | c [6] INTEGER | |
48670 | } | |
48671 | ||
48672 | ||
48673 | END | |
48674 | ||
48675 | ||
48676 | <STATIC> | |
48677 | ||
48678 | import from TempA all; | |
48679 | ||
48680 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48681 | ||
48682 | const BERPDU myValue := {b := true } | |
48683 | ||
48684 | ||
48685 | ||
48686 | <TTCN_TC:EXEC> | |
48687 | ||
48688 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
48689 | ||
48690 | ||
48691 | {setverdict(pass);} else {setverdict(fail);} | |
48692 | ||
48693 | ||
48694 | <RESULT> | |
48695 | ||
48696 | Overall verdict: pass | |
48697 | ||
48698 | <END_TC> | |
48699 | ||
48700 | :exmp. | |
48701 | ||
48702 | .*---------------------------------------------------------------------* | |
48703 | :h3. CER decoding of CHOICE - No Default TAGS, number-tagged CHOICE | |
48704 | .*---------------------------------------------------------------------* | |
48705 | :xmp tab=0. | |
48706 | ||
48707 | <TC - CER decoding of CHOICE - No Default TAGS, number-tagged CHOICE> | |
48708 | ||
48709 | <STATIC:ASN> | |
48710 | ||
48711 | TempA | |
48712 | ||
48713 | DEFINITIONS | |
48714 | ||
48715 | ||
48716 | ||
48717 | ||
48718 | ::= | |
48719 | ||
48720 | BEGIN | |
48721 | BERPDU ::= CHOICE | |
48722 | { | |
48723 | b [3] BOOLEAN, | |
48724 | c [6] INTEGER | |
48725 | } | |
48726 | ||
48727 | ||
48728 | END | |
48729 | ||
48730 | ||
48731 | ||
48732 | <STATIC> | |
48733 | ||
48734 | import from TempA all; | |
48735 | ||
48736 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48737 | ||
48738 | const BERPDU myValue := {b := true } | |
48739 | ||
48740 | ||
48741 | ||
48742 | <TTCN_TC:EXEC> | |
48743 | ||
48744 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
48745 | ||
48746 | ||
48747 | {setverdict(pass);} else {setverdict(fail);} | |
48748 | ||
48749 | ||
48750 | <RESULT> | |
48751 | ||
48752 | Overall verdict: pass | |
48753 | ||
48754 | <END_TC> | |
48755 | ||
48756 | :exmp. | |
48757 | ||
48758 | .*---------------------------------------------------------------------* | |
48759 | :h3. CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE | |
48760 | .*---------------------------------------------------------------------* | |
48761 | :xmp tab=0. | |
48762 | ||
48763 | <TC - CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE> | |
48764 | ||
48765 | <STATIC:ASN> | |
48766 | ||
48767 | TempA | |
48768 | ||
48769 | DEFINITIONS | |
48770 | ||
48771 | ||
48772 | AUTOMATIC TAGS | |
48773 | ||
48774 | ::= | |
48775 | ||
48776 | BEGIN | |
48777 | BERPDU ::= CHOICE | |
48778 | { | |
48779 | b [3] BOOLEAN, | |
48780 | c [6] INTEGER | |
48781 | } | |
48782 | ||
48783 | ||
48784 | ||
48785 | END | |
48786 | ||
48787 | ||
48788 | ||
48789 | <STATIC> | |
48790 | ||
48791 | import from TempA all; | |
48792 | ||
48793 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48794 | ||
48795 | const BERPDU myValue := {b := true } | |
48796 | ||
48797 | ||
48798 | ||
48799 | <TTCN_TC:EXEC> | |
48800 | ||
48801 | if (dec_BER_PDU('8301FF'O) == myValue) | |
48802 | ||
48803 | ||
48804 | {setverdict(pass);} else {setverdict(fail);} | |
48805 | ||
48806 | ||
48807 | <RESULT> | |
48808 | ||
48809 | Overall verdict: pass | |
48810 | ||
48811 | <END_TC> | |
48812 | ||
48813 | :exmp. | |
48814 | ||
48815 | .*---------------------------------------------------------------------* | |
48816 | :h3. CER + DER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE | |
48817 | .*---------------------------------------------------------------------* | |
48818 | :xmp tab=0. | |
48819 | ||
48820 | <TC - CER + DER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE> | |
48821 | ||
48822 | <STATIC:ASN> | |
48823 | ||
48824 | TempA | |
48825 | ||
48826 | DEFINITIONS | |
48827 | ||
48828 | ||
48829 | IMPLICIT TAGS | |
48830 | ||
48831 | ::= | |
48832 | ||
48833 | BEGIN | |
48834 | BERPDU ::= CHOICE | |
48835 | { | |
48836 | b [3] IMPLICIT BOOLEAN, | |
48837 | c [6] INTEGER | |
48838 | } | |
48839 | ||
48840 | ||
48841 | END | |
48842 | ||
48843 | ||
48844 | ||
48845 | <STATIC> | |
48846 | ||
48847 | import from TempA all; | |
48848 | ||
48849 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48850 | ||
48851 | const BERPDU myValue := {b := true } | |
48852 | ||
48853 | ||
48854 | ||
48855 | <TTCN_TC:EXEC> | |
48856 | ||
48857 | if (dec_BER_PDU('8301FF'O) == myValue) | |
48858 | ||
48859 | ||
48860 | {setverdict(pass);} else {setverdict(fail);} | |
48861 | ||
48862 | ||
48863 | <RESULT> | |
48864 | ||
48865 | Overall verdict: pass | |
48866 | ||
48867 | <END_TC> | |
48868 | ||
48869 | :exmp. | |
48870 | ||
48871 | .*---------------------------------------------------------------------* | |
48872 | :h3. CER + DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
48873 | .*---------------------------------------------------------------------* | |
48874 | :xmp tab=0. | |
48875 | ||
48876 | <TC - CER + DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
48877 | ||
48878 | <STATIC:ASN> | |
48879 | ||
48880 | TempA | |
48881 | ||
48882 | DEFINITIONS | |
48883 | ||
48884 | ||
48885 | EXPLICIT TAGS | |
48886 | ||
48887 | ::= | |
48888 | ||
48889 | BEGIN | |
48890 | BERPDU ::= CHOICE | |
48891 | { | |
48892 | b [3] IMPLICIT BOOLEAN, | |
48893 | c [6] INTEGER | |
48894 | } | |
48895 | ||
48896 | ||
48897 | END | |
48898 | ||
48899 | ||
48900 | ||
48901 | <STATIC> | |
48902 | ||
48903 | import from TempA all; | |
48904 | ||
48905 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48906 | ||
48907 | const BERPDU myValue := {b := true } | |
48908 | ||
48909 | ||
48910 | ||
48911 | <TTCN_TC:EXEC> | |
48912 | ||
48913 | if (dec_BER_PDU('8301FF'O) == myValue) | |
48914 | ||
48915 | ||
48916 | {setverdict(pass);} else {setverdict(fail);} | |
48917 | ||
48918 | ||
48919 | <RESULT> | |
48920 | ||
48921 | Overall verdict: pass | |
48922 | ||
48923 | <END_TC> | |
48924 | ||
48925 | :exmp. | |
48926 | ||
48927 | .*---------------------------------------------------------------------* | |
48928 | :h3. CER + DER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE | |
48929 | .*---------------------------------------------------------------------* | |
48930 | :xmp tab=0. | |
48931 | ||
48932 | <TC - CER + DER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE> | |
48933 | ||
48934 | <STATIC:ASN> | |
48935 | ||
48936 | TempA | |
48937 | ||
48938 | DEFINITIONS | |
48939 | ||
48940 | ||
48941 | ||
48942 | ::= | |
48943 | ||
48944 | BEGIN | |
48945 | BERPDU ::= CHOICE | |
48946 | { | |
48947 | b [3] IMPLICIT BOOLEAN, | |
48948 | c [6] INTEGER | |
48949 | } | |
48950 | ||
48951 | ||
48952 | END | |
48953 | ||
48954 | ||
48955 | ||
48956 | <STATIC> | |
48957 | ||
48958 | import from TempA all; | |
48959 | ||
48960 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
48961 | ||
48962 | const BERPDU myValue := {b := true } | |
48963 | ||
48964 | ||
48965 | ||
48966 | <TTCN_TC:EXEC> | |
48967 | ||
48968 | if (dec_BER_PDU('8301FF'O) == myValue) | |
48969 | ||
48970 | ||
48971 | {setverdict(pass);} else {setverdict(fail);} | |
48972 | ||
48973 | ||
48974 | <RESULT> | |
48975 | ||
48976 | Overall verdict: pass | |
48977 | ||
48978 | <END_TC> | |
48979 | ||
48980 | :exmp. | |
48981 | ||
48982 | .*---------------------------------------------------------------------* | |
48983 | :h3. CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE | |
48984 | .*---------------------------------------------------------------------* | |
48985 | :xmp tab=0. | |
48986 | ||
48987 | <TC - CER + DER decoding of CHOICE - Default AUTOMATIC TAGS, number-tagged CHOICE> | |
48988 | ||
48989 | <STATIC:ASN> | |
48990 | ||
48991 | TempA | |
48992 | ||
48993 | DEFINITIONS | |
48994 | ||
48995 | AUTOMATIC TAGS | |
48996 | ||
48997 | ||
48998 | ::= | |
48999 | ||
49000 | BEGIN | |
49001 | ||
49002 | ||
49003 | BERPDU ::= CHOICE | |
49004 | { | |
49005 | b [3] IMPLICIT BOOLEAN, | |
49006 | c [6] INTEGER | |
49007 | } | |
49008 | ||
49009 | ||
49010 | ||
49011 | ||
49012 | ||
49013 | END | |
49014 | ||
49015 | <STATIC> | |
49016 | ||
49017 | import from TempA all; | |
49018 | ||
49019 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49020 | ||
49021 | const BERPDU myValue := {b := true } | |
49022 | ||
49023 | ||
49024 | ||
49025 | <TTCN_TC:EXEC> | |
49026 | ||
49027 | if (dec_BER_PDU('8301FF'O) == myValue) | |
49028 | ||
49029 | ||
49030 | {setverdict(pass);} else {setverdict(fail);} | |
49031 | ||
49032 | ||
49033 | <RESULT> | |
49034 | ||
49035 | Overall verdict: pass | |
49036 | ||
49037 | <END_TC> | |
49038 | ||
49039 | :exmp. | |
49040 | ||
49041 | .*---------------------------------------------------------------------* | |
49042 | :h3. DER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE | |
49043 | .*---------------------------------------------------------------------* | |
49044 | :xmp tab=0. | |
49045 | ||
49046 | <TC - DER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE> | |
49047 | ||
49048 | <STATIC:ASN> | |
49049 | ||
49050 | TempA | |
49051 | ||
49052 | DEFINITIONS | |
49053 | ||
49054 | IMPLICIT TAGS | |
49055 | ||
49056 | ||
49057 | ||
49058 | ::= | |
49059 | ||
49060 | BEGIN | |
49061 | ||
49062 | ||
49063 | BERPDU ::= CHOICE | |
49064 | { | |
49065 | b [3] EXPLICIT BOOLEAN, | |
49066 | c [6] INTEGER | |
49067 | } | |
49068 | ||
49069 | ||
49070 | ||
49071 | ||
49072 | END | |
49073 | ||
49074 | <STATIC> | |
49075 | ||
49076 | import from TempA all; | |
49077 | ||
49078 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49079 | ||
49080 | const BERPDU myValue := {b := true } | |
49081 | ||
49082 | ||
49083 | ||
49084 | <TTCN_TC:EXEC> | |
49085 | ||
49086 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
49087 | ||
49088 | ||
49089 | {setverdict(pass);} else {setverdict(fail);} | |
49090 | ||
49091 | ||
49092 | <RESULT> | |
49093 | ||
49094 | Overall verdict: pass | |
49095 | ||
49096 | <END_TC> | |
49097 | ||
49098 | :exmp. | |
49099 | ||
49100 | .*---------------------------------------------------------------------* | |
49101 | :h3. CER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE | |
49102 | .*---------------------------------------------------------------------* | |
49103 | :xmp tab=0. | |
49104 | ||
49105 | <TC - CER decoding of CHOICE - Default IMPLICIT TAGS, fully-tagged CHOICE> | |
49106 | ||
49107 | <STATIC:ASN> | |
49108 | ||
49109 | TempA | |
49110 | ||
49111 | DEFINITIONS | |
49112 | ||
49113 | IMPLICIT TAGS | |
49114 | ||
49115 | ||
49116 | ||
49117 | ::= | |
49118 | ||
49119 | BEGIN | |
49120 | ||
49121 | ||
49122 | BERPDU ::= CHOICE | |
49123 | { | |
49124 | b [3] EXPLICIT BOOLEAN, | |
49125 | c [6] INTEGER | |
49126 | } | |
49127 | ||
49128 | ||
49129 | ||
49130 | ||
49131 | END | |
49132 | ||
49133 | <STATIC> | |
49134 | ||
49135 | import from TempA all; | |
49136 | ||
49137 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49138 | ||
49139 | const BERPDU myValue := {b := true } | |
49140 | ||
49141 | ||
49142 | ||
49143 | <TTCN_TC:EXEC> | |
49144 | ||
49145 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
49146 | ||
49147 | ||
49148 | {setverdict(pass);} else {setverdict(fail);} | |
49149 | ||
49150 | ||
49151 | <RESULT> | |
49152 | ||
49153 | Overall verdict: pass | |
49154 | ||
49155 | <END_TC> | |
49156 | ||
49157 | :exmp. | |
49158 | ||
49159 | .*---------------------------------------------------------------------* | |
49160 | :h3. DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
49161 | .*---------------------------------------------------------------------* | |
49162 | :xmp tab=0. | |
49163 | ||
49164 | <TC - DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
49165 | ||
49166 | <STATIC:ASN> | |
49167 | ||
49168 | TempA | |
49169 | ||
49170 | DEFINITIONS | |
49171 | ||
49172 | EXPLICIT TAGS | |
49173 | ||
49174 | ||
49175 | ||
49176 | ::= | |
49177 | ||
49178 | BEGIN | |
49179 | ||
49180 | ||
49181 | BERPDU ::= CHOICE | |
49182 | { | |
49183 | b [3] EXPLICIT BOOLEAN, | |
49184 | c [6] INTEGER | |
49185 | } | |
49186 | ||
49187 | ||
49188 | ||
49189 | ||
49190 | END | |
49191 | ||
49192 | <STATIC> | |
49193 | ||
49194 | import from TempA all; | |
49195 | ||
49196 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49197 | ||
49198 | const BERPDU myValue := {b := true } | |
49199 | ||
49200 | ||
49201 | ||
49202 | <TTCN_TC:EXEC> | |
49203 | ||
49204 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
49205 | ||
49206 | ||
49207 | {setverdict(pass);} else {setverdict(fail);} | |
49208 | ||
49209 | ||
49210 | <RESULT> | |
49211 | ||
49212 | Overall verdict: pass | |
49213 | ||
49214 | <END_TC> | |
49215 | ||
49216 | :exmp. | |
49217 | ||
49218 | .*---------------------------------------------------------------------* | |
49219 | :h3. CER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
49220 | .*---------------------------------------------------------------------* | |
49221 | :xmp tab=0. | |
49222 | ||
49223 | <TC - CER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
49224 | ||
49225 | <STATIC:ASN> | |
49226 | ||
49227 | TempA | |
49228 | ||
49229 | DEFINITIONS | |
49230 | ||
49231 | EXPLICIT TAGS | |
49232 | ||
49233 | ||
49234 | ||
49235 | ::= | |
49236 | ||
49237 | BEGIN | |
49238 | ||
49239 | ||
49240 | BERPDU ::= CHOICE | |
49241 | { | |
49242 | b [3] EXPLICIT BOOLEAN, | |
49243 | c [6] INTEGER | |
49244 | } | |
49245 | ||
49246 | ||
49247 | ||
49248 | ||
49249 | END | |
49250 | ||
49251 | <STATIC> | |
49252 | ||
49253 | import from TempA all; | |
49254 | ||
49255 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49256 | ||
49257 | const BERPDU myValue := {b := true } | |
49258 | ||
49259 | ||
49260 | ||
49261 | <TTCN_TC:EXEC> | |
49262 | ||
49263 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
49264 | ||
49265 | ||
49266 | {setverdict(pass);} else {setverdict(fail);} | |
49267 | ||
49268 | ||
49269 | <RESULT> | |
49270 | ||
49271 | Overall verdict: pass | |
49272 | ||
49273 | <END_TC> | |
49274 | ||
49275 | :exmp. | |
49276 | ||
49277 | .*---------------------------------------------------------------------* | |
49278 | :h3. DER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE | |
49279 | .*---------------------------------------------------------------------* | |
49280 | :xmp tab=0. | |
49281 | ||
49282 | <TC - DER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE> | |
49283 | ||
49284 | <STATIC:ASN> | |
49285 | ||
49286 | TempA | |
49287 | ||
49288 | DEFINITIONS | |
49289 | ||
49290 | ||
49291 | ||
49292 | ||
49293 | ::= | |
49294 | ||
49295 | BEGIN | |
49296 | ||
49297 | ||
49298 | BERPDU ::= CHOICE | |
49299 | { | |
49300 | b [3] EXPLICIT BOOLEAN, | |
49301 | c [6] INTEGER | |
49302 | } | |
49303 | ||
49304 | ||
49305 | ||
49306 | ||
49307 | END | |
49308 | ||
49309 | <STATIC> | |
49310 | ||
49311 | import from TempA all; | |
49312 | ||
49313 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49314 | ||
49315 | const BERPDU myValue := {b := true } | |
49316 | ||
49317 | ||
49318 | ||
49319 | <TTCN_TC:EXEC> | |
49320 | ||
49321 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
49322 | ||
49323 | ||
49324 | {setverdict(pass);} else {setverdict(fail);} | |
49325 | ||
49326 | ||
49327 | <RESULT> | |
49328 | ||
49329 | Overall verdict: pass | |
49330 | ||
49331 | <END_TC> | |
49332 | ||
49333 | :exmp. | |
49334 | ||
49335 | .*---------------------------------------------------------------------* | |
49336 | :h3. CER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE | |
49337 | .*---------------------------------------------------------------------* | |
49338 | :xmp tab=0. | |
49339 | ||
49340 | <TC - CER decoding of CHOICE - No Default TAGS, fully-tagged CHOICE> | |
49341 | ||
49342 | <STATIC:ASN> | |
49343 | ||
49344 | TempA | |
49345 | ||
49346 | DEFINITIONS | |
49347 | ||
49348 | ||
49349 | ||
49350 | ||
49351 | ::= | |
49352 | ||
49353 | BEGIN | |
49354 | ||
49355 | ||
49356 | BERPDU ::= CHOICE | |
49357 | { | |
49358 | b [3] EXPLICIT BOOLEAN, | |
49359 | c [6] INTEGER | |
49360 | } | |
49361 | ||
49362 | ||
49363 | ||
49364 | ||
49365 | END | |
49366 | ||
49367 | <STATIC> | |
49368 | ||
49369 | import from TempA all; | |
49370 | ||
49371 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49372 | ||
49373 | const BERPDU myValue := {b := true } | |
49374 | ||
49375 | ||
49376 | ||
49377 | <TTCN_TC:EXEC> | |
49378 | ||
49379 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
49380 | ||
49381 | ||
49382 | {setverdict(pass);} else {setverdict(fail);} | |
49383 | ||
49384 | ||
49385 | <RESULT> | |
49386 | ||
49387 | Overall verdict: pass | |
49388 | ||
49389 | <END_TC> | |
49390 | ||
49391 | :exmp. | |
49392 | ||
49393 | .*---------------------------------------------------------------------* | |
49394 | :h3. DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
49395 | .*---------------------------------------------------------------------* | |
49396 | :xmp tab=0. | |
49397 | ||
49398 | <TC - DER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
49399 | ||
49400 | <STATIC:ASN> | |
49401 | ||
49402 | TempA | |
49403 | ||
49404 | DEFINITIONS | |
49405 | ||
49406 | EXPLICIT TAGS | |
49407 | ||
49408 | ||
49409 | ||
49410 | ::= | |
49411 | ||
49412 | BEGIN | |
49413 | ||
49414 | ||
49415 | BERPDU ::= CHOICE | |
49416 | { | |
49417 | b [3] EXPLICIT BOOLEAN, | |
49418 | c [6] INTEGER | |
49419 | } | |
49420 | ||
49421 | ||
49422 | ||
49423 | ||
49424 | END | |
49425 | ||
49426 | <STATIC> | |
49427 | ||
49428 | import from TempA all; | |
49429 | ||
49430 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49431 | ||
49432 | const BERPDU myValue := {b := true } | |
49433 | ||
49434 | ||
49435 | ||
49436 | <TTCN_TC:EXEC> | |
49437 | ||
49438 | if (dec_BER_PDU('A3030101FF'O) == myValue) | |
49439 | ||
49440 | ||
49441 | {setverdict(pass);} else {setverdict(fail);} | |
49442 | ||
49443 | ||
49444 | <RESULT> | |
49445 | ||
49446 | Overall verdict: pass | |
49447 | ||
49448 | <END_TC> | |
49449 | ||
49450 | :exmp. | |
49451 | ||
49452 | .*---------------------------------------------------------------------* | |
49453 | :h3. CER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE | |
49454 | .*---------------------------------------------------------------------* | |
49455 | :xmp tab=0. | |
49456 | ||
49457 | <TC - CER decoding of CHOICE - Default EXPLICIT TAGS, fully-tagged CHOICE> | |
49458 | ||
49459 | <STATIC:ASN> | |
49460 | ||
49461 | TempA | |
49462 | ||
49463 | DEFINITIONS | |
49464 | ||
49465 | EXPLICIT TAGS | |
49466 | ||
49467 | ||
49468 | ||
49469 | ::= | |
49470 | ||
49471 | BEGIN | |
49472 | ||
49473 | ||
49474 | BERPDU ::= CHOICE | |
49475 | { | |
49476 | b [3] EXPLICIT BOOLEAN, | |
49477 | c [6] INTEGER | |
49478 | } | |
49479 | ||
49480 | ||
49481 | ||
49482 | ||
49483 | END | |
49484 | ||
49485 | <STATIC> | |
49486 | ||
49487 | import from TempA all; | |
49488 | ||
49489 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49490 | ||
49491 | const BERPDU myValue := {b := true } | |
49492 | ||
49493 | ||
49494 | ||
49495 | <TTCN_TC:EXEC> | |
49496 | ||
49497 | if (dec_BER_PDU('A3800101FF0000'O) == myValue) | |
49498 | ||
49499 | ||
49500 | {setverdict(pass);} else {setverdict(fail);} | |
49501 | ||
49502 | ||
49503 | <RESULT> | |
49504 | ||
49505 | Overall verdict: pass | |
49506 | ||
49507 | <END_TC> | |
49508 | ||
49509 | :exmp. | |
49510 | ||
49511 | .*---------------------------------------------------------------------* | |
49512 | :h3. DER decoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE, | |
49513 | .*---------------------------------------------------------------------* | |
49514 | :xmp tab=0. | |
49515 | ||
49516 | <TC - DER decoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE,> | |
49517 | ||
49518 | <STATIC:ASN> | |
49519 | ||
49520 | TempA | |
49521 | ||
49522 | DEFINITIONS | |
49523 | ||
49524 | IMPLICIT TAGS | |
49525 | ||
49526 | ||
49527 | ||
49528 | ::= | |
49529 | ||
49530 | BEGIN | |
49531 | ||
49532 | ||
49533 | ||
49534 | BERPDU ::= [0] CHOICE | |
49535 | { | |
49536 | b [3] BOOLEAN, | |
49537 | c [6] INTEGER | |
49538 | } | |
49539 | ||
49540 | ||
49541 | ||
49542 | ||
49543 | END | |
49544 | ||
49545 | <STATIC> | |
49546 | ||
49547 | import from TempA all; | |
49548 | ||
49549 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49550 | ||
49551 | const BERPDU myValue := {b := true } | |
49552 | ||
49553 | ||
49554 | ||
49555 | <TTCN_TC:EXEC> | |
49556 | ||
49557 | if (dec_BER_PDU('A0038301FF'O) == myValue) | |
49558 | ||
49559 | ||
49560 | {setverdict(pass);} else {setverdict(fail);} | |
49561 | ||
49562 | ||
49563 | <RESULT> | |
49564 | ||
49565 | Overall verdict: pass | |
49566 | ||
49567 | <END_TC> | |
49568 | ||
49569 | :exmp. | |
49570 | ||
49571 | .*---------------------------------------------------------------------* | |
49572 | :h3. CER decoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE, | |
49573 | .*---------------------------------------------------------------------* | |
49574 | :xmp tab=0. | |
49575 | ||
49576 | <TC - CER decoding of CHOICE - DEFAULT IMPLICIT, TAGGED CHOICE,> | |
49577 | ||
49578 | <STATIC:ASN> | |
49579 | ||
49580 | TempA | |
49581 | ||
49582 | DEFINITIONS | |
49583 | ||
49584 | IMPLICIT TAGS | |
49585 | ||
49586 | ||
49587 | ||
49588 | ::= | |
49589 | ||
49590 | BEGIN | |
49591 | ||
49592 | ||
49593 | ||
49594 | BERPDU ::= [0] CHOICE | |
49595 | { | |
49596 | b [3] BOOLEAN, | |
49597 | c [6] INTEGER | |
49598 | } | |
49599 | ||
49600 | ||
49601 | ||
49602 | ||
49603 | END | |
49604 | ||
49605 | <STATIC> | |
49606 | ||
49607 | import from TempA all; | |
49608 | ||
49609 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49610 | ||
49611 | const BERPDU myValue := {b := true } | |
49612 | ||
49613 | ||
49614 | ||
49615 | <TTCN_TC:EXEC> | |
49616 | ||
49617 | if (dec_BER_PDU('A0808301FF0000'O) == myValue) | |
49618 | ||
49619 | ||
49620 | {setverdict(pass);} else {setverdict(fail);} | |
49621 | ||
49622 | ||
49623 | <RESULT> | |
49624 | ||
49625 | Overall verdict: pass | |
49626 | ||
49627 | <END_TC> | |
49628 | ||
49629 | :exmp. | |
49630 | ||
49631 | .*---------------------------------------------------------------------* | |
49632 | :h3. DER decoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE, | |
49633 | .*---------------------------------------------------------------------* | |
49634 | :xmp tab=0. | |
49635 | ||
49636 | <TC - DER decoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE,> | |
49637 | ||
49638 | <STATIC:ASN> | |
49639 | ||
49640 | TempA | |
49641 | ||
49642 | DEFINITIONS | |
49643 | ||
49644 | EXPLICIT TAGS | |
49645 | ||
49646 | ||
49647 | ||
49648 | ::= | |
49649 | ||
49650 | BEGIN | |
49651 | ||
49652 | ||
49653 | ||
49654 | BERPDU ::= [0] CHOICE | |
49655 | { | |
49656 | b [3] BOOLEAN, | |
49657 | c [6] INTEGER | |
49658 | } | |
49659 | ||
49660 | ||
49661 | ||
49662 | ||
49663 | END | |
49664 | ||
49665 | <STATIC> | |
49666 | ||
49667 | import from TempA all; | |
49668 | ||
49669 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49670 | ||
49671 | const BERPDU myValue := {b := true } | |
49672 | ||
49673 | ||
49674 | ||
49675 | <TTCN_TC:EXEC> | |
49676 | ||
49677 | if (dec_BER_PDU('A005A3030101FF'O) == myValue) | |
49678 | ||
49679 | ||
49680 | {setverdict(pass);} else {setverdict(fail);} | |
49681 | ||
49682 | ||
49683 | <RESULT> | |
49684 | ||
49685 | Overall verdict: pass | |
49686 | ||
49687 | <END_TC> | |
49688 | ||
49689 | :exmp. | |
49690 | ||
49691 | .*---------------------------------------------------------------------* | |
49692 | :h3. CER decoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE, | |
49693 | .*---------------------------------------------------------------------* | |
49694 | :xmp tab=0. | |
49695 | ||
49696 | <TC - CER decoding of CHOICE ,DEFAULT EXPLICIT, TAGGED CHOICE,> | |
49697 | ||
49698 | <STATIC:ASN> | |
49699 | ||
49700 | TempA | |
49701 | ||
49702 | DEFINITIONS | |
49703 | ||
49704 | EXPLICIT TAGS | |
49705 | ||
49706 | ||
49707 | ||
49708 | ::= | |
49709 | ||
49710 | BEGIN | |
49711 | ||
49712 | ||
49713 | ||
49714 | BERPDU ::= [0] CHOICE | |
49715 | { | |
49716 | b [3] BOOLEAN, | |
49717 | c [6] INTEGER | |
49718 | } | |
49719 | ||
49720 | ||
49721 | ||
49722 | ||
49723 | END | |
49724 | ||
49725 | <STATIC> | |
49726 | ||
49727 | import from TempA all; | |
49728 | ||
49729 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49730 | ||
49731 | const BERPDU myValue := {b := true } | |
49732 | ||
49733 | ||
49734 | ||
49735 | <TTCN_TC:EXEC> | |
49736 | ||
49737 | if (dec_BER_PDU('A080A3800101FF00000000'O) == myValue) | |
49738 | ||
49739 | ||
49740 | {setverdict(pass);} else {setverdict(fail);} | |
49741 | ||
49742 | ||
49743 | <RESULT> | |
49744 | ||
49745 | Overall verdict: pass | |
49746 | ||
49747 | <END_TC> | |
49748 | ||
49749 | :exmp. | |
49750 | ||
49751 | .*---------------------------------------------------------------------* | |
49752 | :h3. DER decoding of CHOICE, NO DEFAULT, TAGGED CHOICE, | |
49753 | .*---------------------------------------------------------------------* | |
49754 | :xmp tab=0. | |
49755 | ||
49756 | <TC - DER decoding of CHOICE, NO DEFAULT, TAGGED CHOICE,> | |
49757 | ||
49758 | <STATIC:ASN> | |
49759 | ||
49760 | TempA | |
49761 | ||
49762 | DEFINITIONS | |
49763 | ||
49764 | ||
49765 | ||
49766 | ||
49767 | ::= | |
49768 | ||
49769 | BEGIN | |
49770 | ||
49771 | ||
49772 | ||
49773 | BERPDU ::= [0] CHOICE | |
49774 | { | |
49775 | b [3] BOOLEAN, | |
49776 | c [6] INTEGER | |
49777 | } | |
49778 | ||
49779 | ||
49780 | ||
49781 | ||
49782 | END | |
49783 | ||
49784 | <STATIC> | |
49785 | ||
49786 | import from TempA all; | |
49787 | ||
49788 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49789 | ||
49790 | const BERPDU myValue := {b := true } | |
49791 | ||
49792 | ||
49793 | ||
49794 | <TTCN_TC:EXEC> | |
49795 | ||
49796 | if (dec_BER_PDU('A005A3030101FF'O) == myValue) | |
49797 | ||
49798 | ||
49799 | {setverdict(pass);} else {setverdict(fail);} | |
49800 | ||
49801 | ||
49802 | <RESULT> | |
49803 | ||
49804 | Overall verdict: pass | |
49805 | ||
49806 | <END_TC> | |
49807 | ||
49808 | :exmp. | |
49809 | ||
49810 | .*---------------------------------------------------------------------* | |
49811 | :h3. CER decoding of CHOICE, NO DEFAULT, TAGGED CHOICE, | |
49812 | .*---------------------------------------------------------------------* | |
49813 | :xmp tab=0. | |
49814 | ||
49815 | <TC - CER decoding of CHOICE, NO DEFAULT, TAGGED CHOICE,> | |
49816 | ||
49817 | <STATIC:ASN> | |
49818 | ||
49819 | TempA | |
49820 | ||
49821 | DEFINITIONS | |
49822 | ||
49823 | ||
49824 | ||
49825 | ||
49826 | ::= | |
49827 | ||
49828 | BEGIN | |
49829 | ||
49830 | ||
49831 | ||
49832 | BERPDU ::= [0] CHOICE | |
49833 | { | |
49834 | b [3] BOOLEAN, | |
49835 | c [6] INTEGER | |
49836 | } | |
49837 | ||
49838 | ||
49839 | ||
49840 | ||
49841 | END | |
49842 | ||
49843 | <STATIC> | |
49844 | ||
49845 | import from TempA all; | |
49846 | ||
49847 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49848 | ||
49849 | const BERPDU myValue := {b := true } | |
49850 | ||
49851 | ||
49852 | ||
49853 | <TTCN_TC:EXEC> | |
49854 | ||
49855 | if (dec_BER_PDU('A080A3800101FF00000000'O) == myValue) | |
49856 | ||
49857 | ||
49858 | {setverdict(pass);} else {setverdict(fail);} | |
49859 | ||
49860 | ||
49861 | <RESULT> | |
49862 | ||
49863 | Overall verdict: pass | |
49864 | ||
49865 | <END_TC> | |
49866 | ||
49867 | :exmp. | |
49868 | ||
49869 | .*---------------------------------------------------------------------* | |
49870 | :h3. DER decoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE, | |
49871 | .*---------------------------------------------------------------------* | |
49872 | :xmp tab=0. | |
49873 | ||
49874 | <TC - DER decoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE,> | |
49875 | ||
49876 | <STATIC:ASN> | |
49877 | ||
49878 | TempA | |
49879 | ||
49880 | DEFINITIONS | |
49881 | ||
49882 | AUTOMATIC TAGS | |
49883 | ||
49884 | ||
49885 | ||
49886 | ::= | |
49887 | ||
49888 | BEGIN | |
49889 | ||
49890 | ||
49891 | ||
49892 | BERPDU ::= [0] CHOICE | |
49893 | { | |
49894 | b [3] BOOLEAN, | |
49895 | c [6] INTEGER | |
49896 | } | |
49897 | ||
49898 | ||
49899 | ||
49900 | ||
49901 | END | |
49902 | ||
49903 | <STATIC> | |
49904 | ||
49905 | import from TempA all; | |
49906 | ||
49907 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49908 | ||
49909 | const BERPDU myValue := {b := true } | |
49910 | ||
49911 | ||
49912 | ||
49913 | <TTCN_TC:EXEC> | |
49914 | ||
49915 | if (dec_BER_PDU('A0038301FF'O) == myValue) | |
49916 | ||
49917 | ||
49918 | {setverdict(pass);} else {setverdict(fail);} | |
49919 | ||
49920 | ||
49921 | <RESULT> | |
49922 | ||
49923 | Overall verdict: pass | |
49924 | ||
49925 | <END_TC> | |
49926 | ||
49927 | :exmp. | |
49928 | ||
49929 | .*---------------------------------------------------------------------* | |
49930 | :h3. CER decoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE, | |
49931 | .*---------------------------------------------------------------------* | |
49932 | :xmp tab=0. | |
49933 | ||
49934 | <TC - CER decoding of CHOICE ,DEFAULT AUTOMATIC, TAGGED CHOICE,> | |
49935 | ||
49936 | <STATIC:ASN> | |
49937 | ||
49938 | TempA | |
49939 | ||
49940 | DEFINITIONS | |
49941 | ||
49942 | AUTOMATIC TAGS | |
49943 | ||
49944 | ||
49945 | ||
49946 | ::= | |
49947 | ||
49948 | BEGIN | |
49949 | ||
49950 | ||
49951 | ||
49952 | BERPDU ::= [0] CHOICE | |
49953 | { | |
49954 | b [3] BOOLEAN, | |
49955 | c [6] INTEGER | |
49956 | } | |
49957 | ||
49958 | ||
49959 | ||
49960 | ||
49961 | END | |
49962 | ||
49963 | <STATIC> | |
49964 | ||
49965 | import from TempA all; | |
49966 | ||
49967 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
49968 | ||
49969 | const BERPDU myValue := {b := true } | |
49970 | ||
49971 | ||
49972 | ||
49973 | <TTCN_TC:EXEC> | |
49974 | ||
49975 | if (dec_BER_PDU('A0808301FF0000'O) == myValue) | |
49976 | ||
49977 | ||
49978 | {setverdict(pass);} else {setverdict(fail);} | |
49979 | ||
49980 | ||
49981 | <RESULT> | |
49982 | ||
49983 | Overall verdict: pass | |
49984 | ||
49985 | <END_TC> | |
49986 | ||
49987 | :exmp. | |
49988 | ||
49989 | .*---------------------------------------------------------------------* | |
49990 | :h3.CER + DER encoding of OBJECT IDENTIFIER , itu-t(0) recommendation(0) (primitive) | |
49991 | .*---------------------------------------------------------------------* | |
49992 | :xmp tab=0. | |
49993 | ||
49994 | <TC - CER + DER encoding of OBJECT IDENTIFIER , itu-t(0) recommendation(0) (primitive)> | |
49995 | ||
49996 | <STATIC:ASN> | |
49997 | ||
49998 | TempA | |
49999 | ||
50000 | DEFINITIONS ::= | |
50001 | BEGIN | |
50002 | BERPDU ::= OBJECT IDENTIFIER | |
50003 | b BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
50004 | ||
50005 | END | |
50006 | ||
50007 | <STATIC> | |
50008 | ||
50009 | import from TempA all; | |
50010 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50011 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50012 | ||
50013 | ||
50014 | ||
50015 | <TTCN_TC:EXEC> | |
50016 | ||
50017 | if ((enc_DER_PDU(b) == '0603000203'O)and(enc_CER_PDU(b) == '0603000203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50018 | ||
50019 | <RESULT> | |
50020 | ||
50021 | Overall verdict: pass | |
50022 | ||
50023 | <END_TC> | |
50024 | ||
50025 | :exmp. | |
50026 | ||
50027 | .*---------------------------------------------------------------------* | |
50028 | :h3.CER + DER encoding of OBJECT IDENTIFIER , itu-t recommendation (primitive) | |
50029 | .*---------------------------------------------------------------------* | |
50030 | :xmp tab=0. | |
50031 | ||
50032 | <TC - CER + DER encoding of OBJECT IDENTIFIER , itu-t recommendation (primitive)> | |
50033 | ||
50034 | <STATIC:ASN> | |
50035 | ||
50036 | TempA | |
50037 | ||
50038 | DEFINITIONS ::= | |
50039 | BEGIN | |
50040 | BERPDU ::= OBJECT IDENTIFIER | |
50041 | b BERPDU ::= {itu-t recommendation a(2) b(3)} | |
50042 | ||
50043 | END | |
50044 | ||
50045 | <STATIC> | |
50046 | ||
50047 | import from TempA all; | |
50048 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50049 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50050 | ||
50051 | ||
50052 | ||
50053 | <TTCN_TC:EXEC> | |
50054 | ||
50055 | if ((enc_DER_PDU(b) == '0603000203'O)and(enc_CER_PDU(b) == '0603000203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50056 | ||
50057 | <RESULT> | |
50058 | ||
50059 | Overall verdict: pass | |
50060 | ||
50061 | <END_TC> | |
50062 | ||
50063 | :exmp. | |
50064 | ||
50065 | .*---------------------------------------------------------------------* | |
50066 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 0 0 (primitive) | |
50067 | .*---------------------------------------------------------------------* | |
50068 | :xmp tab=0. | |
50069 | ||
50070 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 0 0 (primitive)> | |
50071 | ||
50072 | <STATIC:ASN> | |
50073 | ||
50074 | TempA | |
50075 | ||
50076 | DEFINITIONS ::= | |
50077 | BEGIN | |
50078 | BERPDU ::= OBJECT IDENTIFIER | |
50079 | b BERPDU ::= {0 0 a(2) b(3)} | |
50080 | ||
50081 | END | |
50082 | ||
50083 | <STATIC> | |
50084 | ||
50085 | import from TempA all; | |
50086 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50087 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50088 | ||
50089 | ||
50090 | ||
50091 | <TTCN_TC:EXEC> | |
50092 | ||
50093 | if ((enc_DER_PDU(b) == '0603000203'O)and(enc_CER_PDU(b) == '0603000203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50094 | ||
50095 | <RESULT> | |
50096 | ||
50097 | Overall verdict: pass | |
50098 | ||
50099 | <END_TC> | |
50100 | ||
50101 | :exmp. | |
50102 | ||
50103 | .*---------------------------------------------------------------------* | |
50104 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) question(1),(primitive) | |
50105 | .*---------------------------------------------------------------------* | |
50106 | :xmp tab=0. | |
50107 | ||
50108 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) question(1),(primitive)> | |
50109 | ||
50110 | <STATIC:ASN> | |
50111 | ||
50112 | TempA | |
50113 | ||
50114 | DEFINITIONS ::= | |
50115 | BEGIN | |
50116 | BERPDU ::= OBJECT IDENTIFIER | |
50117 | b BERPDU ::= {itu-t(0) question(1) a(2) b(3)} | |
50118 | ||
50119 | END | |
50120 | ||
50121 | <STATIC> | |
50122 | ||
50123 | import from TempA all; | |
50124 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50125 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50126 | ||
50127 | ||
50128 | ||
50129 | <TTCN_TC:EXEC> | |
50130 | ||
50131 | if ((enc_DER_PDU(b) == '0603010203'O)and(enc_CER_PDU(b) == '0603010203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50132 | ||
50133 | <RESULT> | |
50134 | ||
50135 | Overall verdict: pass | |
50136 | ||
50137 | <END_TC> | |
50138 | ||
50139 | :exmp. | |
50140 | ||
50141 | .*---------------------------------------------------------------------* | |
50142 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t question,(primitive) | |
50143 | .*---------------------------------------------------------------------* | |
50144 | :xmp tab=0. | |
50145 | ||
50146 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t question,(primitive)> | |
50147 | ||
50148 | <STATIC:ASN> | |
50149 | ||
50150 | TempA | |
50151 | ||
50152 | DEFINITIONS ::= | |
50153 | BEGIN | |
50154 | BERPDU ::= OBJECT IDENTIFIER | |
50155 | b BERPDU ::= {itu-t question a(2) b(3)} | |
50156 | ||
50157 | END | |
50158 | ||
50159 | <STATIC> | |
50160 | ||
50161 | import from TempA all; | |
50162 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50163 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50164 | ||
50165 | ||
50166 | ||
50167 | <TTCN_TC:EXEC> | |
50168 | ||
50169 | if ((enc_DER_PDU(b) == '0603010203'O)and(enc_CER_PDU(b) == '0603010203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50170 | ||
50171 | <RESULT> | |
50172 | ||
50173 | Overall verdict: pass | |
50174 | ||
50175 | <END_TC> | |
50176 | ||
50177 | :exmp. | |
50178 | ||
50179 | .*---------------------------------------------------------------------* | |
50180 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,0 1,(primitive) | |
50181 | .*---------------------------------------------------------------------* | |
50182 | :xmp tab=0. | |
50183 | ||
50184 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,0 1,(primitive)> | |
50185 | ||
50186 | <STATIC:ASN> | |
50187 | ||
50188 | TempA | |
50189 | ||
50190 | DEFINITIONS ::= | |
50191 | BEGIN | |
50192 | BERPDU ::= OBJECT IDENTIFIER | |
50193 | b BERPDU ::= {0 1 a(2) b(3)} | |
50194 | ||
50195 | END | |
50196 | ||
50197 | <STATIC> | |
50198 | ||
50199 | import from TempA all; | |
50200 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50201 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50202 | ||
50203 | ||
50204 | ||
50205 | <TTCN_TC:EXEC> | |
50206 | ||
50207 | if ((enc_DER_PDU(b) == '0603010203'O)and(enc_CER_PDU(b) == '0603010203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50208 | ||
50209 | <RESULT> | |
50210 | ||
50211 | Overall verdict: pass | |
50212 | ||
50213 | <END_TC> | |
50214 | ||
50215 | :exmp. | |
50216 | ||
50217 | .*---------------------------------------------------------------------* | |
50218 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) administration(2),(primitive) | |
50219 | .*---------------------------------------------------------------------* | |
50220 | :xmp tab=0. | |
50221 | ||
50222 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) administration(2),(primitive)> | |
50223 | ||
50224 | <STATIC:ASN> | |
50225 | ||
50226 | TempA | |
50227 | ||
50228 | DEFINITIONS ::= | |
50229 | BEGIN | |
50230 | BERPDU ::= OBJECT IDENTIFIER | |
50231 | b BERPDU ::= {itu-t(0) administration(2) a(2) b(3)} | |
50232 | ||
50233 | END | |
50234 | ||
50235 | <STATIC> | |
50236 | ||
50237 | import from TempA all; | |
50238 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50239 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50240 | ||
50241 | ||
50242 | ||
50243 | <TTCN_TC:EXEC> | |
50244 | ||
50245 | if ((enc_DER_PDU(b) == '0603020203'O)and(enc_CER_PDU(b) == '0603020203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50246 | ||
50247 | <RESULT> | |
50248 | ||
50249 | Overall verdict: pass | |
50250 | ||
50251 | <END_TC> | |
50252 | ||
50253 | :exmp. | |
50254 | ||
50255 | .*---------------------------------------------------------------------* | |
50256 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t administration,(primitive) | |
50257 | .*---------------------------------------------------------------------* | |
50258 | :xmp tab=0. | |
50259 | ||
50260 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t administration,(primitive)> | |
50261 | ||
50262 | <STATIC:ASN> | |
50263 | ||
50264 | TempA | |
50265 | ||
50266 | DEFINITIONS ::= | |
50267 | BEGIN | |
50268 | BERPDU ::= OBJECT IDENTIFIER | |
50269 | b BERPDU ::= {itu-t administration a(2) b(3)} | |
50270 | ||
50271 | END | |
50272 | ||
50273 | <STATIC> | |
50274 | ||
50275 | import from TempA all; | |
50276 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50277 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50278 | ||
50279 | ||
50280 | ||
50281 | <TTCN_TC:EXEC> | |
50282 | ||
50283 | if ((enc_DER_PDU(b) == '0603020203'O)and(enc_CER_PDU(b) == '0603020203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50284 | ||
50285 | <RESULT> | |
50286 | ||
50287 | Overall verdict: pass | |
50288 | ||
50289 | <END_TC> | |
50290 | ||
50291 | :exmp. | |
50292 | ||
50293 | .*---------------------------------------------------------------------* | |
50294 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,0 2,(primitive) | |
50295 | .*---------------------------------------------------------------------* | |
50296 | :xmp tab=0. | |
50297 | ||
50298 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,0 2,(primitive)> | |
50299 | ||
50300 | <STATIC:ASN> | |
50301 | ||
50302 | TempA | |
50303 | ||
50304 | DEFINITIONS ::= | |
50305 | BEGIN | |
50306 | BERPDU ::= OBJECT IDENTIFIER | |
50307 | b BERPDU ::= {0 2 a(2) b(3)} | |
50308 | ||
50309 | END | |
50310 | ||
50311 | <STATIC> | |
50312 | ||
50313 | import from TempA all; | |
50314 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50315 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50316 | ||
50317 | ||
50318 | ||
50319 | <TTCN_TC:EXEC> | |
50320 | ||
50321 | if ((enc_DER_PDU(b) == '0603020203'O)and(enc_CER_PDU(b) == '0603020203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50322 | ||
50323 | <RESULT> | |
50324 | ||
50325 | Overall verdict: pass | |
50326 | ||
50327 | <END_TC> | |
50328 | ||
50329 | :exmp. | |
50330 | ||
50331 | .*---------------------------------------------------------------------* | |
50332 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) network-operator(3),(primitive) | |
50333 | .*---------------------------------------------------------------------* | |
50334 | :xmp tab=0. | |
50335 | ||
50336 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) network-operator(3),(primitive)> | |
50337 | ||
50338 | <STATIC:ASN> | |
50339 | ||
50340 | TempA | |
50341 | ||
50342 | DEFINITIONS ::= | |
50343 | BEGIN | |
50344 | BERPDU ::= OBJECT IDENTIFIER | |
50345 | b BERPDU ::= {itu-t(0) network-operator(3) a(2) b(3)} | |
50346 | ||
50347 | END | |
50348 | ||
50349 | <STATIC> | |
50350 | ||
50351 | import from TempA all; | |
50352 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50353 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50354 | ||
50355 | ||
50356 | ||
50357 | <TTCN_TC:EXEC> | |
50358 | ||
50359 | if ((enc_DER_PDU(b) == '0603030203'O)and(enc_CER_PDU(b) == '0603030203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50360 | ||
50361 | <RESULT> | |
50362 | ||
50363 | Overall verdict: pass | |
50364 | ||
50365 | <END_TC> | |
50366 | ||
50367 | :exmp. | |
50368 | ||
50369 | .*---------------------------------------------------------------------* | |
50370 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t network-operator,(primitive) | |
50371 | .*---------------------------------------------------------------------* | |
50372 | :xmp tab=0. | |
50373 | ||
50374 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t network-operator,(primitive)> | |
50375 | ||
50376 | <STATIC:ASN> | |
50377 | ||
50378 | TempA | |
50379 | ||
50380 | DEFINITIONS ::= | |
50381 | BEGIN | |
50382 | BERPDU ::= OBJECT IDENTIFIER | |
50383 | b BERPDU ::= {itu-t network-operator a(2) b(3)} | |
50384 | ||
50385 | END | |
50386 | ||
50387 | <STATIC> | |
50388 | ||
50389 | import from TempA all; | |
50390 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50391 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50392 | ||
50393 | ||
50394 | ||
50395 | <TTCN_TC:EXEC> | |
50396 | ||
50397 | if ((enc_DER_PDU(b) == '0603030203'O)and(enc_CER_PDU(b) == '0603030203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50398 | ||
50399 | <RESULT> | |
50400 | ||
50401 | Overall verdict: pass | |
50402 | ||
50403 | <END_TC> | |
50404 | ||
50405 | :exmp. | |
50406 | ||
50407 | .*---------------------------------------------------------------------* | |
50408 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,0 3,(primitive) | |
50409 | .*---------------------------------------------------------------------* | |
50410 | :xmp tab=0. | |
50411 | ||
50412 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,0 3,(primitive)> | |
50413 | ||
50414 | <STATIC:ASN> | |
50415 | ||
50416 | TempA | |
50417 | ||
50418 | DEFINITIONS ::= | |
50419 | BEGIN | |
50420 | BERPDU ::= OBJECT IDENTIFIER | |
50421 | b BERPDU ::= {0 3 a(2) b(3)} | |
50422 | ||
50423 | END | |
50424 | ||
50425 | <STATIC> | |
50426 | ||
50427 | import from TempA all; | |
50428 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50429 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50430 | ||
50431 | ||
50432 | ||
50433 | <TTCN_TC:EXEC> | |
50434 | ||
50435 | if ((enc_DER_PDU(b) == '0603030203'O)and(enc_CER_PDU(b) == '0603030203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50436 | ||
50437 | <RESULT> | |
50438 | ||
50439 | Overall verdict: pass | |
50440 | ||
50441 | <END_TC> | |
50442 | ||
50443 | :exmp. | |
50444 | ||
50445 | .*---------------------------------------------------------------------* | |
50446 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) identified-organization(4),(primitive) | |
50447 | .*---------------------------------------------------------------------* | |
50448 | :xmp tab=0. | |
50449 | ||
50450 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t(0) identified-organization(4),(primitive)> | |
50451 | ||
50452 | <STATIC:ASN> | |
50453 | ||
50454 | TempA | |
50455 | ||
50456 | DEFINITIONS ::= | |
50457 | BEGIN | |
50458 | BERPDU ::= OBJECT IDENTIFIER | |
50459 | b BERPDU ::= {itu-t(0) identified-organization(4) a(2) b(3)} | |
50460 | ||
50461 | END | |
50462 | ||
50463 | <STATIC> | |
50464 | ||
50465 | import from TempA all; | |
50466 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50467 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50468 | ||
50469 | ||
50470 | ||
50471 | <TTCN_TC:EXEC> | |
50472 | ||
50473 | if ((enc_DER_PDU(b) == '0603040203'O)and(enc_CER_PDU(b) == '0603040203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50474 | ||
50475 | <RESULT> | |
50476 | ||
50477 | Overall verdict: pass | |
50478 | ||
50479 | <END_TC> | |
50480 | ||
50481 | :exmp. | |
50482 | ||
50483 | .*---------------------------------------------------------------------* | |
50484 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,itu-t identified-organization,(primitive) | |
50485 | .*---------------------------------------------------------------------* | |
50486 | :xmp tab=0. | |
50487 | ||
50488 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,itu-t identified-organization,(primitive)> | |
50489 | ||
50490 | <STATIC:ASN> | |
50491 | ||
50492 | TempA | |
50493 | ||
50494 | DEFINITIONS ::= | |
50495 | BEGIN | |
50496 | BERPDU ::= OBJECT IDENTIFIER | |
50497 | b BERPDU ::= {itu-t identified-organization a(2) b(3)} | |
50498 | ||
50499 | END | |
50500 | ||
50501 | <STATIC> | |
50502 | ||
50503 | import from TempA all; | |
50504 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50505 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50506 | ||
50507 | ||
50508 | ||
50509 | <TTCN_TC:EXEC> | |
50510 | ||
50511 | if ((enc_DER_PDU(b) == '0603040203'O)and(enc_CER_PDU(b) == '0603040203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50512 | ||
50513 | <RESULT> | |
50514 | ||
50515 | Overall verdict: pass | |
50516 | ||
50517 | <END_TC> | |
50518 | ||
50519 | :exmp. | |
50520 | ||
50521 | .*---------------------------------------------------------------------* | |
50522 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,0 4,(primitive) | |
50523 | .*---------------------------------------------------------------------* | |
50524 | :xmp tab=0. | |
50525 | ||
50526 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,0 4,(primitive)> | |
50527 | ||
50528 | <STATIC:ASN> | |
50529 | ||
50530 | TempA | |
50531 | ||
50532 | DEFINITIONS ::= | |
50533 | BEGIN | |
50534 | BERPDU ::= OBJECT IDENTIFIER | |
50535 | b BERPDU ::= {0 4 a(2) b(3)} | |
50536 | ||
50537 | END | |
50538 | ||
50539 | <STATIC> | |
50540 | ||
50541 | import from TempA all; | |
50542 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50543 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50544 | ||
50545 | ||
50546 | ||
50547 | <TTCN_TC:EXEC> | |
50548 | ||
50549 | if ((enc_DER_PDU(b) == '0603040203'O)and(enc_CER_PDU(b) == '0603040203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50550 | ||
50551 | <RESULT> | |
50552 | ||
50553 | Overall verdict: pass | |
50554 | ||
50555 | <END_TC> | |
50556 | ||
50557 | :exmp. | |
50558 | ||
50559 | .*---------------------------------------------------------------------* | |
50560 | :h3.CER + DER encoding of OBJECT IDENTIFIER , iso(1) standard(0) (primitive) | |
50561 | .*---------------------------------------------------------------------* | |
50562 | :xmp tab=0. | |
50563 | ||
50564 | <TC - CER + DER encoding of OBJECT IDENTIFIER , iso(1) standard(0) (primitive)> | |
50565 | ||
50566 | <STATIC:ASN> | |
50567 | ||
50568 | TempA | |
50569 | ||
50570 | DEFINITIONS ::= | |
50571 | BEGIN | |
50572 | BERPDU ::= OBJECT IDENTIFIER | |
50573 | b BERPDU ::= {iso(1) standard(0) a(2) b(3)} | |
50574 | ||
50575 | END | |
50576 | ||
50577 | <STATIC> | |
50578 | ||
50579 | import from TempA all; | |
50580 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50581 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50582 | ||
50583 | ||
50584 | ||
50585 | <TTCN_TC:EXEC> | |
50586 | ||
50587 | if ((enc_DER_PDU(b) == '0603280203'O)and(enc_CER_PDU(b) == '0603280203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50588 | ||
50589 | <RESULT> | |
50590 | ||
50591 | Overall verdict: pass | |
50592 | ||
50593 | <END_TC> | |
50594 | ||
50595 | :exmp. | |
50596 | ||
50597 | .*---------------------------------------------------------------------* | |
50598 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,iso standard (primitive) | |
50599 | .*---------------------------------------------------------------------* | |
50600 | :xmp tab=0. | |
50601 | ||
50602 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,iso standard (primitive)> | |
50603 | ||
50604 | <STATIC:ASN> | |
50605 | ||
50606 | TempA | |
50607 | ||
50608 | DEFINITIONS ::= | |
50609 | BEGIN | |
50610 | BERPDU ::= OBJECT IDENTIFIER | |
50611 | b BERPDU ::= {iso standard a(2) b(3)} | |
50612 | ||
50613 | END | |
50614 | ||
50615 | <STATIC> | |
50616 | ||
50617 | import from TempA all; | |
50618 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50619 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50620 | ||
50621 | ||
50622 | ||
50623 | <TTCN_TC:EXEC> | |
50624 | ||
50625 | if ((enc_DER_PDU(b) == '0603280203'O)and(enc_CER_PDU(b) == '0603280203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50626 | ||
50627 | <RESULT> | |
50628 | ||
50629 | Overall verdict: pass | |
50630 | ||
50631 | <END_TC> | |
50632 | ||
50633 | :exmp. | |
50634 | ||
50635 | .*---------------------------------------------------------------------* | |
50636 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 1 0 (primitive) | |
50637 | .*---------------------------------------------------------------------* | |
50638 | :xmp tab=0. | |
50639 | ||
50640 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 1 0 (primitive)> | |
50641 | ||
50642 | <STATIC:ASN> | |
50643 | ||
50644 | TempA | |
50645 | ||
50646 | DEFINITIONS ::= | |
50647 | BEGIN | |
50648 | BERPDU ::= OBJECT IDENTIFIER | |
50649 | b BERPDU ::= {1 0 a(2) b(3)} | |
50650 | ||
50651 | END | |
50652 | ||
50653 | <STATIC> | |
50654 | ||
50655 | import from TempA all; | |
50656 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50657 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50658 | ||
50659 | ||
50660 | ||
50661 | <TTCN_TC:EXEC> | |
50662 | ||
50663 | if ((enc_DER_PDU(b) == '0603280203'O)and(enc_CER_PDU(b) == '0603280203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50664 | ||
50665 | <RESULT> | |
50666 | ||
50667 | Overall verdict: pass | |
50668 | ||
50669 | <END_TC> | |
50670 | ||
50671 | :exmp. | |
50672 | ||
50673 | .*---------------------------------------------------------------------* | |
50674 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,iso(1) member-body(2)(primitive) | |
50675 | .*---------------------------------------------------------------------* | |
50676 | :xmp tab=0. | |
50677 | ||
50678 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,iso(1) member-body(2)(primitive)> | |
50679 | ||
50680 | <STATIC:ASN> | |
50681 | ||
50682 | TempA | |
50683 | ||
50684 | DEFINITIONS ::= | |
50685 | BEGIN | |
50686 | BERPDU ::= OBJECT IDENTIFIER | |
50687 | b BERPDU ::= {iso(1) member-body(2) a(2) b(3)} | |
50688 | ||
50689 | END | |
50690 | ||
50691 | <STATIC> | |
50692 | ||
50693 | import from TempA all; | |
50694 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50695 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50696 | ||
50697 | ||
50698 | ||
50699 | <TTCN_TC:EXEC> | |
50700 | ||
50701 | if ((enc_DER_PDU(b) == '06032A0203'O)and(enc_CER_PDU(b) == '06032A0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50702 | ||
50703 | <RESULT> | |
50704 | ||
50705 | Overall verdict: pass | |
50706 | ||
50707 | <END_TC> | |
50708 | ||
50709 | :exmp. | |
50710 | ||
50711 | .*---------------------------------------------------------------------* | |
50712 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,iso member-body(primitive) | |
50713 | .*---------------------------------------------------------------------* | |
50714 | :xmp tab=0. | |
50715 | ||
50716 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,iso member-body(primitive)> | |
50717 | ||
50718 | <STATIC:ASN> | |
50719 | ||
50720 | TempA | |
50721 | ||
50722 | DEFINITIONS ::= | |
50723 | BEGIN | |
50724 | BERPDU ::= OBJECT IDENTIFIER | |
50725 | b BERPDU ::= {iso member-body a(2) b(3)} | |
50726 | ||
50727 | END | |
50728 | ||
50729 | <STATIC> | |
50730 | ||
50731 | import from TempA all; | |
50732 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50733 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50734 | ||
50735 | ||
50736 | ||
50737 | <TTCN_TC:EXEC> | |
50738 | ||
50739 | if ((enc_DER_PDU(b) == '06032A0203'O)and(enc_CER_PDU(b) == '06032A0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50740 | ||
50741 | <RESULT> | |
50742 | ||
50743 | Overall verdict: pass | |
50744 | ||
50745 | <END_TC> | |
50746 | ||
50747 | :exmp. | |
50748 | ||
50749 | .*---------------------------------------------------------------------* | |
50750 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 1 2 (primitive) | |
50751 | .*---------------------------------------------------------------------* | |
50752 | :xmp tab=0. | |
50753 | ||
50754 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 1 2 (primitive)> | |
50755 | ||
50756 | <STATIC:ASN> | |
50757 | ||
50758 | TempA | |
50759 | ||
50760 | DEFINITIONS ::= | |
50761 | BEGIN | |
50762 | BERPDU ::= OBJECT IDENTIFIER | |
50763 | b BERPDU ::= {1 2 a(2) b(3)} | |
50764 | ||
50765 | END | |
50766 | ||
50767 | <STATIC> | |
50768 | ||
50769 | import from TempA all; | |
50770 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50771 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50772 | ||
50773 | ||
50774 | ||
50775 | <TTCN_TC:EXEC> | |
50776 | ||
50777 | if ((enc_DER_PDU(b) == '06032A0203'O)and(enc_CER_PDU(b) == '06032A0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50778 | ||
50779 | <RESULT> | |
50780 | ||
50781 | Overall verdict: pass | |
50782 | ||
50783 | <END_TC> | |
50784 | ||
50785 | :exmp. | |
50786 | ||
50787 | .*---------------------------------------------------------------------* | |
50788 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,iso(1) identified-organization(3) (primitive) | |
50789 | .*---------------------------------------------------------------------* | |
50790 | :xmp tab=0. | |
50791 | ||
50792 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,iso(1) identified-organization(3) (primitive)> | |
50793 | ||
50794 | <STATIC:ASN> | |
50795 | ||
50796 | TempA | |
50797 | ||
50798 | DEFINITIONS ::= | |
50799 | BEGIN | |
50800 | BERPDU ::= OBJECT IDENTIFIER | |
50801 | b BERPDU ::= {iso(1) identified-organization(3) a(2) b(3)} | |
50802 | ||
50803 | END | |
50804 | ||
50805 | <STATIC> | |
50806 | ||
50807 | import from TempA all; | |
50808 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50809 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50810 | ||
50811 | ||
50812 | ||
50813 | <TTCN_TC:EXEC> | |
50814 | ||
50815 | if ((enc_DER_PDU(b) == '06032B0203'O)and(enc_CER_PDU(b) == '06032B0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50816 | ||
50817 | <RESULT> | |
50818 | ||
50819 | Overall verdict: pass | |
50820 | ||
50821 | <END_TC> | |
50822 | ||
50823 | :exmp. | |
50824 | ||
50825 | .*---------------------------------------------------------------------* | |
50826 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,iso identified-organization(primitive) | |
50827 | .*---------------------------------------------------------------------* | |
50828 | :xmp tab=0. | |
50829 | ||
50830 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,iso identified-organization(primitive)> | |
50831 | ||
50832 | <STATIC:ASN> | |
50833 | ||
50834 | TempA | |
50835 | ||
50836 | DEFINITIONS ::= | |
50837 | BEGIN | |
50838 | BERPDU ::= OBJECT IDENTIFIER | |
50839 | b BERPDU ::= {iso identified-organization a(2) b(3)} | |
50840 | ||
50841 | END | |
50842 | ||
50843 | <STATIC> | |
50844 | ||
50845 | import from TempA all; | |
50846 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50847 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50848 | ||
50849 | ||
50850 | ||
50851 | <TTCN_TC:EXEC> | |
50852 | ||
50853 | if ((enc_DER_PDU(b) == '06032B0203'O)and(enc_CER_PDU(b) == '06032B0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50854 | ||
50855 | <RESULT> | |
50856 | ||
50857 | Overall verdict: pass | |
50858 | ||
50859 | <END_TC> | |
50860 | ||
50861 | :exmp. | |
50862 | ||
50863 | .*---------------------------------------------------------------------* | |
50864 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 1 3 (primitive) | |
50865 | .*---------------------------------------------------------------------* | |
50866 | :xmp tab=0. | |
50867 | ||
50868 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 1 3 (primitive)> | |
50869 | ||
50870 | <STATIC:ASN> | |
50871 | ||
50872 | TempA | |
50873 | ||
50874 | DEFINITIONS ::= | |
50875 | BEGIN | |
50876 | BERPDU ::= OBJECT IDENTIFIER | |
50877 | b BERPDU ::= {1 3 a(2) b(3)} | |
50878 | ||
50879 | END | |
50880 | ||
50881 | <STATIC> | |
50882 | ||
50883 | import from TempA all; | |
50884 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50885 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50886 | ||
50887 | ||
50888 | ||
50889 | <TTCN_TC:EXEC> | |
50890 | ||
50891 | if ((enc_DER_PDU(b) == '06032B0203'O)and(enc_CER_PDU(b) == '06032B0203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50892 | ||
50893 | <RESULT> | |
50894 | ||
50895 | Overall verdict: pass | |
50896 | ||
50897 | <END_TC> | |
50898 | ||
50899 | :exmp. | |
50900 | ||
50901 | .*---------------------------------------------------------------------* | |
50902 | :h3.CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t(2) something(0)(primitive) | |
50903 | .*---------------------------------------------------------------------* | |
50904 | :xmp tab=0. | |
50905 | ||
50906 | <TC - CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t(2) something(0)(primitive)> | |
50907 | ||
50908 | <STATIC:ASN> | |
50909 | ||
50910 | TempA | |
50911 | ||
50912 | DEFINITIONS ::= | |
50913 | BEGIN | |
50914 | BERPDU ::= OBJECT IDENTIFIER | |
50915 | b BERPDU ::= {joint-iso-itu-t(2) something(0) a(2) b(3)} | |
50916 | ||
50917 | END | |
50918 | ||
50919 | <STATIC> | |
50920 | ||
50921 | import from TempA all; | |
50922 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50923 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50924 | ||
50925 | ||
50926 | ||
50927 | <TTCN_TC:EXEC> | |
50928 | ||
50929 | if ((enc_DER_PDU(b) == '0603500203'O)and(enc_CER_PDU(b) == '0603500203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50930 | ||
50931 | <RESULT> | |
50932 | ||
50933 | Overall verdict: pass | |
50934 | ||
50935 | <END_TC> | |
50936 | ||
50937 | :exmp. | |
50938 | ||
50939 | .*---------------------------------------------------------------------* | |
50940 | :h3.CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t something(0) (primitive) | |
50941 | .*---------------------------------------------------------------------* | |
50942 | :xmp tab=0. | |
50943 | ||
50944 | <TC - CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t something(0) (primitive)> | |
50945 | ||
50946 | <STATIC:ASN> | |
50947 | ||
50948 | TempA | |
50949 | ||
50950 | DEFINITIONS ::= | |
50951 | BEGIN | |
50952 | BERPDU ::= OBJECT IDENTIFIER | |
50953 | b BERPDU ::= {joint-iso-itu-t something(0) a(2) b(3)} | |
50954 | ||
50955 | END | |
50956 | ||
50957 | <STATIC> | |
50958 | ||
50959 | import from TempA all; | |
50960 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50961 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
50962 | ||
50963 | ||
50964 | ||
50965 | <TTCN_TC:EXEC> | |
50966 | ||
50967 | if ((enc_DER_PDU(b) == '0603500203'O)and(enc_CER_PDU(b) == '0603500203'O)) {setverdict(pass);} else {setverdict(fail);} | |
50968 | ||
50969 | <RESULT> | |
50970 | ||
50971 | Overall verdict: pass | |
50972 | ||
50973 | <END_TC> | |
50974 | ||
50975 | :exmp. | |
50976 | ||
50977 | .*---------------------------------------------------------------------* | |
50978 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 2 0 (primitive) | |
50979 | .*---------------------------------------------------------------------* | |
50980 | :xmp tab=0. | |
50981 | ||
50982 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 2 0 (primitive)> | |
50983 | ||
50984 | <STATIC:ASN> | |
50985 | ||
50986 | TempA | |
50987 | ||
50988 | DEFINITIONS ::= | |
50989 | BEGIN | |
50990 | BERPDU ::= OBJECT IDENTIFIER | |
50991 | b BERPDU ::= {2 0 a(2) b(3)} | |
50992 | ||
50993 | END | |
50994 | ||
50995 | <STATIC> | |
50996 | ||
50997 | import from TempA all; | |
50998 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
50999 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51000 | ||
51001 | ||
51002 | ||
51003 | <TTCN_TC:EXEC> | |
51004 | ||
51005 | if ((enc_DER_PDU(b) == '0603500203'O)and(enc_CER_PDU(b) == '0603500203'O)) {setverdict(pass);} else {setverdict(fail);} | |
51006 | ||
51007 | <RESULT> | |
51008 | ||
51009 | Overall verdict: pass | |
51010 | ||
51011 | <END_TC> | |
51012 | ||
51013 | :exmp. | |
51014 | ||
51015 | .*---------------------------------------------------------------------* | |
51016 | :h3.CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t(2) something(100) (primitive) | |
51017 | .*---------------------------------------------------------------------* | |
51018 | :xmp tab=0. | |
51019 | ||
51020 | <TC - CER + DER encoding of OBJECT IDENTIFIER , joint-iso-itu-t(2) something(100) (primitive)> | |
51021 | ||
51022 | <STATIC:ASN> | |
51023 | ||
51024 | TempA | |
51025 | ||
51026 | DEFINITIONS ::= | |
51027 | BEGIN | |
51028 | BERPDU ::= OBJECT IDENTIFIER | |
51029 | b BERPDU ::= {joint-iso-itu-t(2) something(100) a(2) b(3)} | |
51030 | ||
51031 | END | |
51032 | ||
51033 | <STATIC> | |
51034 | ||
51035 | import from TempA all; | |
51036 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51037 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51038 | ||
51039 | ||
51040 | ||
51041 | <TTCN_TC:EXEC> | |
51042 | ||
51043 | if ((enc_DER_PDU(b) == '060481340203'O)and(enc_CER_PDU(b) == '060481340203'O)) {setverdict(pass);} else {setverdict(fail);} | |
51044 | ||
51045 | <RESULT> | |
51046 | ||
51047 | Overall verdict: pass | |
51048 | ||
51049 | <END_TC> | |
51050 | ||
51051 | :exmp. | |
51052 | ||
51053 | .*---------------------------------------------------------------------* | |
51054 | :h3.CER + DER encoding of OBJECT IDENTIFIER ,joint-iso-itu-t 100 (primitive) | |
51055 | .*---------------------------------------------------------------------* | |
51056 | :xmp tab=0. | |
51057 | ||
51058 | <TC - CER + DER encoding of OBJECT IDENTIFIER ,joint-iso-itu-t 100 (primitive)> | |
51059 | ||
51060 | <STATIC:ASN> | |
51061 | ||
51062 | TempA | |
51063 | ||
51064 | DEFINITIONS ::= | |
51065 | BEGIN | |
51066 | BERPDU ::= OBJECT IDENTIFIER | |
51067 | b BERPDU ::= {joint-iso-itu-t 100 a(2) b(3)} | |
51068 | ||
51069 | END | |
51070 | ||
51071 | <STATIC> | |
51072 | ||
51073 | import from TempA all; | |
51074 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51075 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51076 | ||
51077 | ||
51078 | ||
51079 | <TTCN_TC:EXEC> | |
51080 | ||
51081 | if ((enc_DER_PDU(b) == '060481340203'O)and(enc_CER_PDU(b) == '060481340203'O)) {setverdict(pass);} else {setverdict(fail);} | |
51082 | ||
51083 | <RESULT> | |
51084 | ||
51085 | Overall verdict: pass | |
51086 | ||
51087 | <END_TC> | |
51088 | ||
51089 | :exmp. | |
51090 | ||
51091 | .*---------------------------------------------------------------------* | |
51092 | :h3.CER + DER encoding of OBJECT IDENTIFIER , 2 100 (primitive) | |
51093 | .*---------------------------------------------------------------------* | |
51094 | :xmp tab=0. | |
51095 | ||
51096 | <TC - CER + DER encoding of OBJECT IDENTIFIER , 2 100 (primitive)> | |
51097 | ||
51098 | <STATIC:ASN> | |
51099 | ||
51100 | TempA | |
51101 | ||
51102 | DEFINITIONS ::= | |
51103 | BEGIN | |
51104 | BERPDU ::= OBJECT IDENTIFIER | |
51105 | b BERPDU ::= {2 100 a(2) b(3)} | |
51106 | ||
51107 | END | |
51108 | ||
51109 | <STATIC> | |
51110 | ||
51111 | import from TempA all; | |
51112 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51113 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51114 | ||
51115 | ||
51116 | ||
51117 | <TTCN_TC:EXEC> | |
51118 | ||
51119 | if ((enc_DER_PDU(b) == '060481340203'O)and(enc_CER_PDU(b) == '060481340203'O)) {setverdict(pass);} else {setverdict(fail);} | |
51120 | ||
51121 | <RESULT> | |
51122 | ||
51123 | Overall verdict: pass | |
51124 | ||
51125 | <END_TC> | |
51126 | ||
51127 | :exmp. | |
51128 | ||
51129 | .*---------------------------------------------------------------------* | |
51130 | :h3.CER + DER encoding of OBJECT IDENTIFIER , multiple octets needed for values (primitive) | |
51131 | .*---------------------------------------------------------------------* | |
51132 | :xmp tab=0. | |
51133 | ||
51134 | <TC - CER + DER encoding of OBJECT IDENTIFIER , multiple octets needed for values (primitive)> | |
51135 | ||
51136 | <STATIC:ASN> | |
51137 | ||
51138 | TempA | |
51139 | ||
51140 | DEFINITIONS ::= | |
51141 | BEGIN | |
51142 | BERPDU ::= OBJECT IDENTIFIER | |
51143 | b BERPDU ::= {joint-iso-itu-t(2) something(0) a(2) b(3) 2000 4000 } | |
51144 | ||
51145 | END | |
51146 | ||
51147 | <STATIC> | |
51148 | ||
51149 | import from TempA all; | |
51150 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51151 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51152 | ||
51153 | ||
51154 | ||
51155 | <TTCN_TC:EXEC> | |
51156 | ||
51157 | if ((enc_DER_PDU(b) == '06075002038F509F20'O)and(enc_CER_PDU(b) == '06075002038F509F20'O)) {setverdict(pass);} else {setverdict(fail);} | |
51158 | ||
51159 | <RESULT> | |
51160 | ||
51161 | Overall verdict: pass | |
51162 | ||
51163 | <END_TC> | |
51164 | ||
51165 | :exmp. | |
51166 | ||
51167 | .*---------------------------------------------------------------------* | |
51168 | :h3.CER + DER encoding of OBJECT IDENTIFIER , [0] IMPLICIT, primitive | |
51169 | .*---------------------------------------------------------------------* | |
51170 | :xmp tab=0. | |
51171 | ||
51172 | <TC - CER + DER encoding of OBJECT IDENTIFIER , [0] IMPLICIT, primitive> | |
51173 | ||
51174 | <STATIC:ASN> | |
51175 | ||
51176 | TempA | |
51177 | ||
51178 | DEFINITIONS ::= | |
51179 | BEGIN | |
51180 | BERPDU ::= [0] IMPLICIT OBJECT IDENTIFIER | |
51181 | b BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
51182 | ||
51183 | END | |
51184 | ||
51185 | <STATIC> | |
51186 | ||
51187 | import from TempA all; | |
51188 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51189 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51190 | ||
51191 | ||
51192 | ||
51193 | <TTCN_TC:EXEC> | |
51194 | ||
51195 | if ((enc_DER_PDU(b) == '8003000203'O)and(enc_CER_PDU(b) == '8003000203'O)) {setverdict(pass);} else {setverdict(fail);} | |
51196 | ||
51197 | <RESULT> | |
51198 | ||
51199 | Overall verdict: pass | |
51200 | ||
51201 | <END_TC> | |
51202 | ||
51203 | :exmp. | |
51204 | ||
51205 | .*---------------------------------------------------------------------* | |
51206 | :h3.CER + DER encoding of OBJECT IDENTIFIER , [0] EXPLICIT constructed | |
51207 | .*---------------------------------------------------------------------* | |
51208 | :xmp tab=0. | |
51209 | ||
51210 | <TC - CER + DER encoding of OBJECT IDENTIFIER , [0] EXPLICIT constructed> | |
51211 | ||
51212 | <STATIC:ASN> | |
51213 | ||
51214 | TempA | |
51215 | ||
51216 | DEFINITIONS ::= | |
51217 | BEGIN | |
51218 | BERPDU ::= [0] EXPLICIT OBJECT IDENTIFIER | |
51219 | b BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
51220 | ||
51221 | END | |
51222 | ||
51223 | <STATIC> | |
51224 | ||
51225 | import from TempA all; | |
51226 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
51227 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
51228 | ||
51229 | ||
51230 | ||
51231 | <TTCN_TC:EXEC> | |
51232 | ||
51233 | if ((enc_DER_PDU(b) == 'A0050603000203'O)and(enc_CER_PDU(b) == 'A08006030002030000'O)) {setverdict(pass);} else {setverdict(fail);} | |
51234 | ||
51235 | <RESULT> | |
51236 | ||
51237 | Overall verdict: pass | |
51238 | ||
51239 | <END_TC> | |
51240 | ||
51241 | :exmp. | |
51242 | ||
51243 | .*---------------------------------------------------------------------* | |
51244 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, itu-t(0) recommendation(0) ,(primitive) | |
51245 | .*---------------------------------------------------------------------* | |
51246 | :xmp tab=0. | |
51247 | ||
51248 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, itu-t(0) recommendation(0) ,(primitive)> | |
51249 | ||
51250 | <STATIC:ASN> | |
51251 | ||
51252 | TempA | |
51253 | ||
51254 | DEFINITIONS ::= | |
51255 | BEGIN | |
51256 | BERPDU ::= OBJECT IDENTIFIER | |
51257 | ||
51258 | myValue BERPDU ::= { itu-t(0) recommendation(0) a(2) b(3)} | |
51259 | ||
51260 | END | |
51261 | ||
51262 | <STATIC> | |
51263 | ||
51264 | import from TempA all; | |
51265 | ||
51266 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51267 | ||
51268 | ||
51269 | <TTCN_TC:EXEC> | |
51270 | ||
51271 | if (dec_BER_PDU('0603000203'O) == myValue) | |
51272 | ||
51273 | ||
51274 | {setverdict(pass);} else {setverdict(fail);} | |
51275 | ||
51276 | ||
51277 | <RESULT> | |
51278 | ||
51279 | Overall verdict: pass | |
51280 | ||
51281 | <END_TC> | |
51282 | ||
51283 | :exmp. | |
51284 | ||
51285 | .*---------------------------------------------------------------------* | |
51286 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, itu-t recommendation ,(primitive) | |
51287 | .*---------------------------------------------------------------------* | |
51288 | :xmp tab=0. | |
51289 | ||
51290 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, itu-t recommendation ,(primitive)> | |
51291 | ||
51292 | <STATIC:ASN> | |
51293 | ||
51294 | TempA | |
51295 | ||
51296 | DEFINITIONS ::= | |
51297 | BEGIN | |
51298 | BERPDU ::= OBJECT IDENTIFIER | |
51299 | ||
51300 | myValue BERPDU ::= {itu-t recommendation a(2) b(3)} | |
51301 | ||
51302 | END | |
51303 | ||
51304 | <STATIC> | |
51305 | ||
51306 | import from TempA all; | |
51307 | ||
51308 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51309 | ||
51310 | ||
51311 | <TTCN_TC:EXEC> | |
51312 | ||
51313 | if (dec_BER_PDU('0603000203'O) == myValue) | |
51314 | ||
51315 | ||
51316 | {setverdict(pass);} else {setverdict(fail);} | |
51317 | ||
51318 | ||
51319 | <RESULT> | |
51320 | ||
51321 | Overall verdict: pass | |
51322 | ||
51323 | <END_TC> | |
51324 | ||
51325 | :exmp. | |
51326 | ||
51327 | .*---------------------------------------------------------------------* | |
51328 | :h3. DECODING OBJECT IDENTIFIER , CER+DER 0 0 ,(primitive) | |
51329 | .*---------------------------------------------------------------------* | |
51330 | :xmp tab=0. | |
51331 | ||
51332 | <TC - DECODING OBJECT IDENTIFIER , CER+DER 0 0 ,(primitive)> | |
51333 | ||
51334 | <STATIC:ASN> | |
51335 | ||
51336 | TempA | |
51337 | ||
51338 | DEFINITIONS ::= | |
51339 | BEGIN | |
51340 | BERPDU ::= OBJECT IDENTIFIER | |
51341 | ||
51342 | myValue BERPDU ::= {0 0 a(2) b(3)} | |
51343 | ||
51344 | END | |
51345 | ||
51346 | <STATIC> | |
51347 | ||
51348 | import from TempA all; | |
51349 | ||
51350 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51351 | ||
51352 | ||
51353 | <TTCN_TC:EXEC> | |
51354 | ||
51355 | if (dec_BER_PDU('0603000203'O) == myValue) | |
51356 | ||
51357 | ||
51358 | {setverdict(pass);} else {setverdict(fail);} | |
51359 | ||
51360 | ||
51361 | <RESULT> | |
51362 | ||
51363 | Overall verdict: pass | |
51364 | ||
51365 | <END_TC> | |
51366 | ||
51367 | :exmp. | |
51368 | ||
51369 | .*---------------------------------------------------------------------* | |
51370 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) question(1) ,(primitive) | |
51371 | .*---------------------------------------------------------------------* | |
51372 | :xmp tab=0. | |
51373 | ||
51374 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) question(1) ,(primitive)> | |
51375 | ||
51376 | <STATIC:ASN> | |
51377 | ||
51378 | TempA | |
51379 | ||
51380 | DEFINITIONS ::= | |
51381 | BEGIN | |
51382 | BERPDU ::= OBJECT IDENTIFIER | |
51383 | ||
51384 | myValue BERPDU ::= {itu-t(0) question(1) a(2) b(3)} | |
51385 | ||
51386 | END | |
51387 | ||
51388 | <STATIC> | |
51389 | ||
51390 | import from TempA all; | |
51391 | ||
51392 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51393 | ||
51394 | ||
51395 | <TTCN_TC:EXEC> | |
51396 | ||
51397 | if (dec_BER_PDU('0603010203'O) == myValue) | |
51398 | ||
51399 | ||
51400 | {setverdict(pass);} else {setverdict(fail);} | |
51401 | ||
51402 | ||
51403 | <RESULT> | |
51404 | ||
51405 | Overall verdict: pass | |
51406 | ||
51407 | <END_TC> | |
51408 | ||
51409 | :exmp. | |
51410 | ||
51411 | .*---------------------------------------------------------------------* | |
51412 | :h3. DECODING OBJECT IDENTIFIER , CER+DER, itu-t question ,(primitive) | |
51413 | .*---------------------------------------------------------------------* | |
51414 | :xmp tab=0. | |
51415 | ||
51416 | <TC - DECODING OBJECT IDENTIFIER , CER+DER, itu-t question ,(primitive)> | |
51417 | ||
51418 | <STATIC:ASN> | |
51419 | ||
51420 | TempA | |
51421 | ||
51422 | DEFINITIONS ::= | |
51423 | BEGIN | |
51424 | BERPDU ::= OBJECT IDENTIFIER | |
51425 | ||
51426 | myValue BERPDU ::= {itu-t question a(2) b(3)} | |
51427 | ||
51428 | END | |
51429 | ||
51430 | <STATIC> | |
51431 | ||
51432 | import from TempA all; | |
51433 | ||
51434 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51435 | ||
51436 | ||
51437 | <TTCN_TC:EXEC> | |
51438 | ||
51439 | if (dec_BER_PDU('0603010203'O) == myValue) | |
51440 | ||
51441 | ||
51442 | {setverdict(pass);} else {setverdict(fail);} | |
51443 | ||
51444 | ||
51445 | <RESULT> | |
51446 | ||
51447 | Overall verdict: pass | |
51448 | ||
51449 | <END_TC> | |
51450 | ||
51451 | :exmp. | |
51452 | ||
51453 | .*---------------------------------------------------------------------* | |
51454 | :h3. DECODING OBJECT IDENTIFIER , CER+DER 0 1 ,(primitive) | |
51455 | .*---------------------------------------------------------------------* | |
51456 | :xmp tab=0. | |
51457 | ||
51458 | <TC - DECODING OBJECT IDENTIFIER , CER+DER 0 1 ,(primitive)> | |
51459 | ||
51460 | <STATIC:ASN> | |
51461 | ||
51462 | TempA | |
51463 | ||
51464 | DEFINITIONS ::= | |
51465 | BEGIN | |
51466 | BERPDU ::= OBJECT IDENTIFIER | |
51467 | ||
51468 | myValue BERPDU ::= {0 1 a(2) b(3)} | |
51469 | ||
51470 | END | |
51471 | ||
51472 | <STATIC> | |
51473 | ||
51474 | import from TempA all; | |
51475 | ||
51476 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51477 | ||
51478 | ||
51479 | <TTCN_TC:EXEC> | |
51480 | ||
51481 | if (dec_BER_PDU('0603010203'O) == myValue) | |
51482 | ||
51483 | ||
51484 | {setverdict(pass);} else {setverdict(fail);} | |
51485 | ||
51486 | ||
51487 | <RESULT> | |
51488 | ||
51489 | Overall verdict: pass | |
51490 | ||
51491 | <END_TC> | |
51492 | ||
51493 | :exmp. | |
51494 | ||
51495 | .*---------------------------------------------------------------------* | |
51496 | :h3. DECODING OBJECT IDENTIFIER , CER+DER , itu-t(0) administration(2) ,(primitive) | |
51497 | .*---------------------------------------------------------------------* | |
51498 | :xmp tab=0. | |
51499 | ||
51500 | <TC - DECODING OBJECT IDENTIFIER , CER+DER , itu-t(0) administration(2) ,(primitive)> | |
51501 | ||
51502 | <STATIC:ASN> | |
51503 | ||
51504 | TempA | |
51505 | ||
51506 | DEFINITIONS ::= | |
51507 | BEGIN | |
51508 | BERPDU ::= OBJECT IDENTIFIER | |
51509 | ||
51510 | myValue BERPDU ::= {itu-t(0) administration(2) a(2) b(3)} | |
51511 | ||
51512 | END | |
51513 | ||
51514 | <STATIC> | |
51515 | ||
51516 | import from TempA all; | |
51517 | ||
51518 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51519 | ||
51520 | ||
51521 | <TTCN_TC:EXEC> | |
51522 | ||
51523 | if (dec_BER_PDU('0603020203'O) == myValue) | |
51524 | ||
51525 | ||
51526 | {setverdict(pass);} else {setverdict(fail);} | |
51527 | ||
51528 | ||
51529 | <RESULT> | |
51530 | ||
51531 | Overall verdict: pass | |
51532 | ||
51533 | <END_TC> | |
51534 | ||
51535 | :exmp. | |
51536 | ||
51537 | .*---------------------------------------------------------------------* | |
51538 | :h3. DECODING OBJECT IDENTIFIER , CER+DER , itu-t administration ,(primitive) | |
51539 | .*---------------------------------------------------------------------* | |
51540 | :xmp tab=0. | |
51541 | ||
51542 | <TC - DECODING OBJECT IDENTIFIER , CER+DER , itu-t administration ,(primitive)> | |
51543 | ||
51544 | <STATIC:ASN> | |
51545 | ||
51546 | TempA | |
51547 | ||
51548 | DEFINITIONS ::= | |
51549 | BEGIN | |
51550 | BERPDU ::= OBJECT IDENTIFIER | |
51551 | ||
51552 | myValue BERPDU ::= {itu-t administration a(2) b(3)} | |
51553 | ||
51554 | END | |
51555 | ||
51556 | <STATIC> | |
51557 | ||
51558 | import from TempA all; | |
51559 | ||
51560 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51561 | ||
51562 | ||
51563 | <TTCN_TC:EXEC> | |
51564 | ||
51565 | if (dec_BER_PDU('0603020203'O) == myValue) | |
51566 | ||
51567 | ||
51568 | {setverdict(pass);} else {setverdict(fail);} | |
51569 | ||
51570 | ||
51571 | <RESULT> | |
51572 | ||
51573 | Overall verdict: pass | |
51574 | ||
51575 | <END_TC> | |
51576 | ||
51577 | :exmp. | |
51578 | ||
51579 | .*---------------------------------------------------------------------* | |
51580 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,0 2 ,(primitive) | |
51581 | .*---------------------------------------------------------------------* | |
51582 | :xmp tab=0. | |
51583 | ||
51584 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,0 2 ,(primitive)> | |
51585 | ||
51586 | <STATIC:ASN> | |
51587 | ||
51588 | TempA | |
51589 | ||
51590 | DEFINITIONS ::= | |
51591 | BEGIN | |
51592 | BERPDU ::= OBJECT IDENTIFIER | |
51593 | ||
51594 | myValue BERPDU ::= {0 2 a(2) b(3)} | |
51595 | ||
51596 | END | |
51597 | ||
51598 | <STATIC> | |
51599 | ||
51600 | import from TempA all; | |
51601 | ||
51602 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51603 | ||
51604 | ||
51605 | <TTCN_TC:EXEC> | |
51606 | ||
51607 | if (dec_BER_PDU('0603020203'O) == myValue) | |
51608 | ||
51609 | ||
51610 | {setverdict(pass);} else {setverdict(fail);} | |
51611 | ||
51612 | ||
51613 | <RESULT> | |
51614 | ||
51615 | Overall verdict: pass | |
51616 | ||
51617 | <END_TC> | |
51618 | ||
51619 | :exmp. | |
51620 | ||
51621 | .*---------------------------------------------------------------------* | |
51622 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) network-operator(3) ,(primitive) | |
51623 | .*---------------------------------------------------------------------* | |
51624 | :xmp tab=0. | |
51625 | ||
51626 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) network-operator(3) ,(primitive)> | |
51627 | ||
51628 | <STATIC:ASN> | |
51629 | ||
51630 | TempA | |
51631 | ||
51632 | DEFINITIONS ::= | |
51633 | BEGIN | |
51634 | BERPDU ::= OBJECT IDENTIFIER | |
51635 | ||
51636 | myValue BERPDU ::= {itu-t(0) network-operator(3) a(2) b(3)} | |
51637 | ||
51638 | END | |
51639 | ||
51640 | <STATIC> | |
51641 | ||
51642 | import from TempA all; | |
51643 | ||
51644 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51645 | ||
51646 | ||
51647 | <TTCN_TC:EXEC> | |
51648 | ||
51649 | if (dec_BER_PDU('0603030203'O) == myValue) | |
51650 | ||
51651 | ||
51652 | {setverdict(pass);} else {setverdict(fail);} | |
51653 | ||
51654 | ||
51655 | <RESULT> | |
51656 | ||
51657 | Overall verdict: pass | |
51658 | ||
51659 | <END_TC> | |
51660 | ||
51661 | :exmp. | |
51662 | ||
51663 | .*---------------------------------------------------------------------* | |
51664 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,itu-t network-operator ,(primitive) | |
51665 | .*---------------------------------------------------------------------* | |
51666 | :xmp tab=0. | |
51667 | ||
51668 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,itu-t network-operator ,(primitive)> | |
51669 | ||
51670 | <STATIC:ASN> | |
51671 | ||
51672 | TempA | |
51673 | ||
51674 | DEFINITIONS ::= | |
51675 | BEGIN | |
51676 | BERPDU ::= OBJECT IDENTIFIER | |
51677 | ||
51678 | myValue BERPDU ::= {itu-t network-operator a(2) b(3)} | |
51679 | ||
51680 | END | |
51681 | ||
51682 | <STATIC> | |
51683 | ||
51684 | import from TempA all; | |
51685 | ||
51686 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51687 | ||
51688 | ||
51689 | <TTCN_TC:EXEC> | |
51690 | ||
51691 | if (dec_BER_PDU('0603030203'O) == myValue) | |
51692 | ||
51693 | ||
51694 | {setverdict(pass);} else {setverdict(fail);} | |
51695 | ||
51696 | ||
51697 | <RESULT> | |
51698 | ||
51699 | Overall verdict: pass | |
51700 | ||
51701 | <END_TC> | |
51702 | ||
51703 | :exmp. | |
51704 | ||
51705 | .*---------------------------------------------------------------------* | |
51706 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,0 3 ,(primitive) | |
51707 | .*---------------------------------------------------------------------* | |
51708 | :xmp tab=0. | |
51709 | ||
51710 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,0 3 ,(primitive)> | |
51711 | ||
51712 | <STATIC:ASN> | |
51713 | ||
51714 | TempA | |
51715 | ||
51716 | DEFINITIONS ::= | |
51717 | BEGIN | |
51718 | BERPDU ::= OBJECT IDENTIFIER | |
51719 | ||
51720 | myValue BERPDU ::= {0 3 a(2) b(3)} | |
51721 | ||
51722 | END | |
51723 | ||
51724 | <STATIC> | |
51725 | ||
51726 | import from TempA all; | |
51727 | ||
51728 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51729 | ||
51730 | ||
51731 | <TTCN_TC:EXEC> | |
51732 | ||
51733 | if (dec_BER_PDU('0603030203'O) == myValue) | |
51734 | ||
51735 | ||
51736 | {setverdict(pass);} else {setverdict(fail);} | |
51737 | ||
51738 | ||
51739 | <RESULT> | |
51740 | ||
51741 | Overall verdict: pass | |
51742 | ||
51743 | <END_TC> | |
51744 | ||
51745 | :exmp. | |
51746 | ||
51747 | .*---------------------------------------------------------------------* | |
51748 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) identified-organization(4) ,(primitive) | |
51749 | .*---------------------------------------------------------------------* | |
51750 | :xmp tab=0. | |
51751 | ||
51752 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,itu-t(0) identified-organization(4) ,(primitive)> | |
51753 | ||
51754 | <STATIC:ASN> | |
51755 | ||
51756 | TempA | |
51757 | ||
51758 | DEFINITIONS ::= | |
51759 | BEGIN | |
51760 | BERPDU ::= OBJECT IDENTIFIER | |
51761 | ||
51762 | myValue BERPDU ::= {itu-t(0) identified-organization(4) a(2) b(3)} | |
51763 | ||
51764 | END | |
51765 | ||
51766 | <STATIC> | |
51767 | ||
51768 | import from TempA all; | |
51769 | ||
51770 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51771 | ||
51772 | ||
51773 | <TTCN_TC:EXEC> | |
51774 | ||
51775 | if (dec_BER_PDU('0603040203'O) == myValue) | |
51776 | ||
51777 | ||
51778 | {setverdict(pass);} else {setverdict(fail);} | |
51779 | ||
51780 | ||
51781 | <RESULT> | |
51782 | ||
51783 | Overall verdict: pass | |
51784 | ||
51785 | <END_TC> | |
51786 | ||
51787 | :exmp. | |
51788 | ||
51789 | .*---------------------------------------------------------------------* | |
51790 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,itu-t identified-organization ,(primitive) | |
51791 | .*---------------------------------------------------------------------* | |
51792 | :xmp tab=0. | |
51793 | ||
51794 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,itu-t identified-organization ,(primitive)> | |
51795 | ||
51796 | <STATIC:ASN> | |
51797 | ||
51798 | TempA | |
51799 | ||
51800 | DEFINITIONS ::= | |
51801 | BEGIN | |
51802 | BERPDU ::= OBJECT IDENTIFIER | |
51803 | ||
51804 | myValue BERPDU ::= {itu-t identified-organization a(2) b(3)} | |
51805 | ||
51806 | END | |
51807 | ||
51808 | <STATIC> | |
51809 | ||
51810 | import from TempA all; | |
51811 | ||
51812 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51813 | ||
51814 | ||
51815 | <TTCN_TC:EXEC> | |
51816 | ||
51817 | if (dec_BER_PDU('0603040203'O) == myValue) | |
51818 | ||
51819 | ||
51820 | {setverdict(pass);} else {setverdict(fail);} | |
51821 | ||
51822 | ||
51823 | <RESULT> | |
51824 | ||
51825 | Overall verdict: pass | |
51826 | ||
51827 | <END_TC> | |
51828 | ||
51829 | :exmp. | |
51830 | ||
51831 | .*---------------------------------------------------------------------* | |
51832 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,0 4 ,(primitive) | |
51833 | .*---------------------------------------------------------------------* | |
51834 | :xmp tab=0. | |
51835 | ||
51836 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,0 4 ,(primitive)> | |
51837 | ||
51838 | <STATIC:ASN> | |
51839 | ||
51840 | TempA | |
51841 | ||
51842 | DEFINITIONS ::= | |
51843 | BEGIN | |
51844 | BERPDU ::= OBJECT IDENTIFIER | |
51845 | ||
51846 | myValue BERPDU ::= {0 4 a(2) b(3)} | |
51847 | ||
51848 | END | |
51849 | ||
51850 | <STATIC> | |
51851 | ||
51852 | import from TempA all; | |
51853 | ||
51854 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51855 | ||
51856 | ||
51857 | <TTCN_TC:EXEC> | |
51858 | ||
51859 | if (dec_BER_PDU('0603040203'O) == myValue) | |
51860 | ||
51861 | ||
51862 | {setverdict(pass);} else {setverdict(fail);} | |
51863 | ||
51864 | ||
51865 | <RESULT> | |
51866 | ||
51867 | Overall verdict: pass | |
51868 | ||
51869 | <END_TC> | |
51870 | ||
51871 | :exmp. | |
51872 | ||
51873 | .*---------------------------------------------------------------------* | |
51874 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) standard(0) ,(primitive) | |
51875 | .*---------------------------------------------------------------------* | |
51876 | :xmp tab=0. | |
51877 | ||
51878 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) standard(0) ,(primitive)> | |
51879 | ||
51880 | <STATIC:ASN> | |
51881 | ||
51882 | TempA | |
51883 | ||
51884 | DEFINITIONS ::= | |
51885 | BEGIN | |
51886 | BERPDU ::= OBJECT IDENTIFIER | |
51887 | ||
51888 | myValue BERPDU ::= {iso(1) standard(0) a(2) b(3)} | |
51889 | ||
51890 | END | |
51891 | ||
51892 | <STATIC> | |
51893 | ||
51894 | import from TempA all; | |
51895 | ||
51896 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51897 | ||
51898 | ||
51899 | <TTCN_TC:EXEC> | |
51900 | ||
51901 | if (dec_BER_PDU('0603280203'O) == myValue) | |
51902 | ||
51903 | ||
51904 | {setverdict(pass);} else {setverdict(fail);} | |
51905 | ||
51906 | ||
51907 | <RESULT> | |
51908 | ||
51909 | Overall verdict: pass | |
51910 | ||
51911 | <END_TC> | |
51912 | ||
51913 | :exmp. | |
51914 | ||
51915 | .*---------------------------------------------------------------------* | |
51916 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso standard ,(primitive) | |
51917 | .*---------------------------------------------------------------------* | |
51918 | :xmp tab=0. | |
51919 | ||
51920 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso standard ,(primitive)> | |
51921 | ||
51922 | <STATIC:ASN> | |
51923 | ||
51924 | TempA | |
51925 | ||
51926 | DEFINITIONS ::= | |
51927 | BEGIN | |
51928 | BERPDU ::= OBJECT IDENTIFIER | |
51929 | ||
51930 | myValue BERPDU ::= {iso standard a(2) b(3)} | |
51931 | ||
51932 | END | |
51933 | ||
51934 | <STATIC> | |
51935 | ||
51936 | import from TempA all; | |
51937 | ||
51938 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51939 | ||
51940 | ||
51941 | <TTCN_TC:EXEC> | |
51942 | ||
51943 | if (dec_BER_PDU('0603280203'O) == myValue) | |
51944 | ||
51945 | ||
51946 | {setverdict(pass);} else {setverdict(fail);} | |
51947 | ||
51948 | ||
51949 | <RESULT> | |
51950 | ||
51951 | Overall verdict: pass | |
51952 | ||
51953 | <END_TC> | |
51954 | ||
51955 | :exmp. | |
51956 | ||
51957 | .*---------------------------------------------------------------------* | |
51958 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,1 0 ,(primitive) | |
51959 | .*---------------------------------------------------------------------* | |
51960 | :xmp tab=0. | |
51961 | ||
51962 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,1 0 ,(primitive)> | |
51963 | ||
51964 | <STATIC:ASN> | |
51965 | ||
51966 | TempA | |
51967 | ||
51968 | DEFINITIONS ::= | |
51969 | BEGIN | |
51970 | BERPDU ::= OBJECT IDENTIFIER | |
51971 | ||
51972 | myValue BERPDU ::= {1 0 a(2) b(3)} | |
51973 | ||
51974 | END | |
51975 | ||
51976 | <STATIC> | |
51977 | ||
51978 | import from TempA all; | |
51979 | ||
51980 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
51981 | ||
51982 | ||
51983 | <TTCN_TC:EXEC> | |
51984 | ||
51985 | if (dec_BER_PDU('0603280203'O) == myValue) | |
51986 | ||
51987 | ||
51988 | {setverdict(pass);} else {setverdict(fail);} | |
51989 | ||
51990 | ||
51991 | <RESULT> | |
51992 | ||
51993 | Overall verdict: pass | |
51994 | ||
51995 | <END_TC> | |
51996 | ||
51997 | :exmp. | |
51998 | ||
51999 | .*---------------------------------------------------------------------* | |
52000 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) member-body(2) ,(primitive) | |
52001 | .*---------------------------------------------------------------------* | |
52002 | :xmp tab=0. | |
52003 | ||
52004 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) member-body(2) ,(primitive)> | |
52005 | ||
52006 | <STATIC:ASN> | |
52007 | ||
52008 | TempA | |
52009 | ||
52010 | DEFINITIONS ::= | |
52011 | BEGIN | |
52012 | BERPDU ::= OBJECT IDENTIFIER | |
52013 | ||
52014 | myValue BERPDU ::= {iso(1) member-body(2) a(2) b(3)} | |
52015 | ||
52016 | END | |
52017 | ||
52018 | <STATIC> | |
52019 | ||
52020 | import from TempA all; | |
52021 | ||
52022 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52023 | ||
52024 | ||
52025 | <TTCN_TC:EXEC> | |
52026 | ||
52027 | if (dec_BER_PDU('06032A0203'O) == myValue) | |
52028 | ||
52029 | ||
52030 | {setverdict(pass);} else {setverdict(fail);} | |
52031 | ||
52032 | ||
52033 | <RESULT> | |
52034 | ||
52035 | Overall verdict: pass | |
52036 | ||
52037 | <END_TC> | |
52038 | ||
52039 | :exmp. | |
52040 | ||
52041 | .*---------------------------------------------------------------------* | |
52042 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso member-body ,(primitive) | |
52043 | .*---------------------------------------------------------------------* | |
52044 | :xmp tab=0. | |
52045 | ||
52046 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso member-body ,(primitive)> | |
52047 | ||
52048 | <STATIC:ASN> | |
52049 | ||
52050 | TempA | |
52051 | ||
52052 | DEFINITIONS ::= | |
52053 | BEGIN | |
52054 | BERPDU ::= OBJECT IDENTIFIER | |
52055 | ||
52056 | myValue BERPDU ::= {iso member-body a(2) b(3)} | |
52057 | ||
52058 | END | |
52059 | ||
52060 | <STATIC> | |
52061 | ||
52062 | import from TempA all; | |
52063 | ||
52064 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52065 | ||
52066 | ||
52067 | <TTCN_TC:EXEC> | |
52068 | ||
52069 | if (dec_BER_PDU('06032A0203'O) == myValue) | |
52070 | ||
52071 | ||
52072 | {setverdict(pass);} else {setverdict(fail);} | |
52073 | ||
52074 | ||
52075 | <RESULT> | |
52076 | ||
52077 | Overall verdict: pass | |
52078 | ||
52079 | <END_TC> | |
52080 | ||
52081 | :exmp. | |
52082 | ||
52083 | .*---------------------------------------------------------------------* | |
52084 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,1 2 ,(primitive) | |
52085 | .*---------------------------------------------------------------------* | |
52086 | :xmp tab=0. | |
52087 | ||
52088 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,1 2 ,(primitive)> | |
52089 | ||
52090 | <STATIC:ASN> | |
52091 | ||
52092 | TempA | |
52093 | ||
52094 | DEFINITIONS ::= | |
52095 | BEGIN | |
52096 | BERPDU ::= OBJECT IDENTIFIER | |
52097 | ||
52098 | myValue BERPDU ::= {1 2 a(2) b(3)} | |
52099 | ||
52100 | END | |
52101 | ||
52102 | <STATIC> | |
52103 | ||
52104 | import from TempA all; | |
52105 | ||
52106 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52107 | ||
52108 | ||
52109 | <TTCN_TC:EXEC> | |
52110 | ||
52111 | if (dec_BER_PDU('06032A0203'O) == myValue) | |
52112 | ||
52113 | ||
52114 | {setverdict(pass);} else {setverdict(fail);} | |
52115 | ||
52116 | ||
52117 | <RESULT> | |
52118 | ||
52119 | Overall verdict: pass | |
52120 | ||
52121 | <END_TC> | |
52122 | ||
52123 | :exmp. | |
52124 | ||
52125 | .*---------------------------------------------------------------------* | |
52126 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) identified-organization(3) ,(primitive) | |
52127 | .*---------------------------------------------------------------------* | |
52128 | :xmp tab=0. | |
52129 | ||
52130 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso(1) identified-organization(3) ,(primitive)> | |
52131 | ||
52132 | <STATIC:ASN> | |
52133 | ||
52134 | TempA | |
52135 | ||
52136 | DEFINITIONS ::= | |
52137 | BEGIN | |
52138 | BERPDU ::= OBJECT IDENTIFIER | |
52139 | ||
52140 | myValue BERPDU ::= {iso(1) identified-organization(3) a(2) b(3)} | |
52141 | ||
52142 | END | |
52143 | ||
52144 | <STATIC> | |
52145 | ||
52146 | import from TempA all; | |
52147 | ||
52148 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52149 | ||
52150 | ||
52151 | <TTCN_TC:EXEC> | |
52152 | ||
52153 | if (dec_BER_PDU('06032B0203'O) == myValue) | |
52154 | ||
52155 | ||
52156 | {setverdict(pass);} else {setverdict(fail);} | |
52157 | ||
52158 | ||
52159 | <RESULT> | |
52160 | ||
52161 | Overall verdict: pass | |
52162 | ||
52163 | <END_TC> | |
52164 | ||
52165 | :exmp. | |
52166 | ||
52167 | .*---------------------------------------------------------------------* | |
52168 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,iso identified-organization ,(primitive) | |
52169 | .*---------------------------------------------------------------------* | |
52170 | :xmp tab=0. | |
52171 | ||
52172 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,iso identified-organization ,(primitive)> | |
52173 | ||
52174 | <STATIC:ASN> | |
52175 | ||
52176 | TempA | |
52177 | ||
52178 | DEFINITIONS ::= | |
52179 | BEGIN | |
52180 | BERPDU ::= OBJECT IDENTIFIER | |
52181 | ||
52182 | myValue BERPDU ::= {iso identified-organization a(2) b(3)} | |
52183 | ||
52184 | END | |
52185 | ||
52186 | <STATIC> | |
52187 | ||
52188 | import from TempA all; | |
52189 | ||
52190 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52191 | ||
52192 | ||
52193 | <TTCN_TC:EXEC> | |
52194 | ||
52195 | if (dec_BER_PDU('06032B0203'O) == myValue) | |
52196 | ||
52197 | ||
52198 | {setverdict(pass);} else {setverdict(fail);} | |
52199 | ||
52200 | ||
52201 | <RESULT> | |
52202 | ||
52203 | Overall verdict: pass | |
52204 | ||
52205 | <END_TC> | |
52206 | ||
52207 | :exmp. | |
52208 | ||
52209 | .*---------------------------------------------------------------------* | |
52210 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,1 3 ,(primitive) | |
52211 | .*---------------------------------------------------------------------* | |
52212 | :xmp tab=0. | |
52213 | ||
52214 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,1 3 ,(primitive)> | |
52215 | ||
52216 | <STATIC:ASN> | |
52217 | ||
52218 | TempA | |
52219 | ||
52220 | DEFINITIONS ::= | |
52221 | BEGIN | |
52222 | BERPDU ::= OBJECT IDENTIFIER | |
52223 | ||
52224 | myValue BERPDU ::= {1 3 a(2) b(3)} | |
52225 | ||
52226 | END | |
52227 | ||
52228 | <STATIC> | |
52229 | ||
52230 | import from TempA all; | |
52231 | ||
52232 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52233 | ||
52234 | ||
52235 | <TTCN_TC:EXEC> | |
52236 | ||
52237 | if (dec_BER_PDU('06032B0203'O) == myValue) | |
52238 | ||
52239 | ||
52240 | {setverdict(pass);} else {setverdict(fail);} | |
52241 | ||
52242 | ||
52243 | <RESULT> | |
52244 | ||
52245 | Overall verdict: pass | |
52246 | ||
52247 | <END_TC> | |
52248 | ||
52249 | :exmp. | |
52250 | ||
52251 | .*---------------------------------------------------------------------* | |
52252 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(0) ,(primitive) | |
52253 | .*---------------------------------------------------------------------* | |
52254 | :xmp tab=0. | |
52255 | ||
52256 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(0) ,(primitive)> | |
52257 | ||
52258 | <STATIC:ASN> | |
52259 | ||
52260 | TempA | |
52261 | ||
52262 | DEFINITIONS ::= | |
52263 | BEGIN | |
52264 | BERPDU ::= OBJECT IDENTIFIER | |
52265 | ||
52266 | myValue BERPDU ::= {joint-iso-itu-t(2) something(0) a(2) b(3)} | |
52267 | ||
52268 | END | |
52269 | ||
52270 | <STATIC> | |
52271 | ||
52272 | import from TempA all; | |
52273 | ||
52274 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52275 | ||
52276 | ||
52277 | <TTCN_TC:EXEC> | |
52278 | ||
52279 | if (dec_BER_PDU('0603500203'O) == myValue) | |
52280 | ||
52281 | ||
52282 | {setverdict(pass);} else {setverdict(fail);} | |
52283 | ||
52284 | ||
52285 | <RESULT> | |
52286 | ||
52287 | Overall verdict: pass | |
52288 | ||
52289 | <END_TC> | |
52290 | ||
52291 | :exmp. | |
52292 | ||
52293 | .*---------------------------------------------------------------------* | |
52294 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t something(0) ,(primitive) | |
52295 | .*---------------------------------------------------------------------* | |
52296 | :xmp tab=0. | |
52297 | ||
52298 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t something(0) ,(primitive)> | |
52299 | ||
52300 | <STATIC:ASN> | |
52301 | ||
52302 | TempA | |
52303 | ||
52304 | DEFINITIONS ::= | |
52305 | BEGIN | |
52306 | BERPDU ::= OBJECT IDENTIFIER | |
52307 | ||
52308 | myValue BERPDU ::= {joint-iso-itu-t something(0) a(2) b(3)} | |
52309 | ||
52310 | ||
52311 | END | |
52312 | ||
52313 | <STATIC> | |
52314 | ||
52315 | import from TempA all; | |
52316 | ||
52317 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52318 | ||
52319 | ||
52320 | <TTCN_TC:EXEC> | |
52321 | ||
52322 | if (dec_BER_PDU('0603500203'O) == myValue) | |
52323 | ||
52324 | ||
52325 | {setverdict(pass);} else {setverdict(fail);} | |
52326 | ||
52327 | ||
52328 | <RESULT> | |
52329 | ||
52330 | Overall verdict: pass | |
52331 | ||
52332 | <END_TC> | |
52333 | ||
52334 | :exmp. | |
52335 | ||
52336 | .*---------------------------------------------------------------------* | |
52337 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,2 0 ,(primitive) | |
52338 | .*---------------------------------------------------------------------* | |
52339 | :xmp tab=0. | |
52340 | ||
52341 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,2 0 ,(primitive)> | |
52342 | ||
52343 | <STATIC:ASN> | |
52344 | ||
52345 | TempA | |
52346 | ||
52347 | DEFINITIONS ::= | |
52348 | BEGIN | |
52349 | BERPDU ::= OBJECT IDENTIFIER | |
52350 | ||
52351 | myValue BERPDU ::= {2 0 a(2) b(3)} | |
52352 | ||
52353 | END | |
52354 | ||
52355 | <STATIC> | |
52356 | ||
52357 | import from TempA all; | |
52358 | ||
52359 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52360 | ||
52361 | ||
52362 | <TTCN_TC:EXEC> | |
52363 | ||
52364 | if (dec_BER_PDU('0603500203'O) == myValue) | |
52365 | ||
52366 | ||
52367 | {setverdict(pass);} else {setverdict(fail);} | |
52368 | ||
52369 | ||
52370 | <RESULT> | |
52371 | ||
52372 | Overall verdict: pass | |
52373 | ||
52374 | <END_TC> | |
52375 | ||
52376 | :exmp. | |
52377 | ||
52378 | .*---------------------------------------------------------------------* | |
52379 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(100) ,(primitive) | |
52380 | .*---------------------------------------------------------------------* | |
52381 | :xmp tab=0. | |
52382 | ||
52383 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(100) ,(primitive)> | |
52384 | ||
52385 | <STATIC:ASN> | |
52386 | ||
52387 | TempA | |
52388 | ||
52389 | DEFINITIONS ::= | |
52390 | BEGIN | |
52391 | BERPDU ::= OBJECT IDENTIFIER | |
52392 | ||
52393 | myValue BERPDU ::= {joint-iso-itu-t(2) something(100) a(2) b(3)} | |
52394 | ||
52395 | END | |
52396 | ||
52397 | <STATIC> | |
52398 | ||
52399 | import from TempA all; | |
52400 | ||
52401 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52402 | ||
52403 | ||
52404 | <TTCN_TC:EXEC> | |
52405 | ||
52406 | if (dec_BER_PDU('060481340203'O) == myValue) | |
52407 | ||
52408 | ||
52409 | {setverdict(pass);} else {setverdict(fail);} | |
52410 | ||
52411 | ||
52412 | <RESULT> | |
52413 | ||
52414 | Overall verdict: pass | |
52415 | ||
52416 | <END_TC> | |
52417 | ||
52418 | :exmp. | |
52419 | ||
52420 | .*---------------------------------------------------------------------* | |
52421 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(100) ,(primitive) | |
52422 | .*---------------------------------------------------------------------* | |
52423 | :xmp tab=0. | |
52424 | ||
52425 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,joint-iso-itu-t(2) something(100) ,(primitive)> | |
52426 | ||
52427 | <STATIC:ASN> | |
52428 | ||
52429 | TempA | |
52430 | ||
52431 | DEFINITIONS ::= | |
52432 | BEGIN | |
52433 | BERPDU ::= OBJECT IDENTIFIER | |
52434 | ||
52435 | myValue BERPDU ::= {joint-iso-itu-t 100 a(2) b(3)} | |
52436 | ||
52437 | END | |
52438 | ||
52439 | <STATIC> | |
52440 | ||
52441 | import from TempA all; | |
52442 | ||
52443 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52444 | ||
52445 | ||
52446 | <TTCN_TC:EXEC> | |
52447 | ||
52448 | if (dec_BER_PDU('060481340203'O) == myValue) | |
52449 | ||
52450 | ||
52451 | {setverdict(pass);} else {setverdict(fail);} | |
52452 | ||
52453 | ||
52454 | <RESULT> | |
52455 | ||
52456 | Overall verdict: pass | |
52457 | ||
52458 | <END_TC> | |
52459 | ||
52460 | :exmp. | |
52461 | ||
52462 | .*---------------------------------------------------------------------* | |
52463 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,2 100 ,(primitive) | |
52464 | .*---------------------------------------------------------------------* | |
52465 | :xmp tab=0. | |
52466 | ||
52467 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,2 100 ,(primitive)> | |
52468 | ||
52469 | <STATIC:ASN> | |
52470 | ||
52471 | TempA | |
52472 | ||
52473 | DEFINITIONS ::= | |
52474 | BEGIN | |
52475 | BERPDU ::= OBJECT IDENTIFIER | |
52476 | ||
52477 | myValue BERPDU ::= {2 100 a(2) b(3)} | |
52478 | ||
52479 | END | |
52480 | ||
52481 | <STATIC> | |
52482 | ||
52483 | import from TempA all; | |
52484 | ||
52485 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52486 | ||
52487 | ||
52488 | <TTCN_TC:EXEC> | |
52489 | ||
52490 | if (dec_BER_PDU('060481340203'O) == myValue) | |
52491 | ||
52492 | ||
52493 | {setverdict(pass);} else {setverdict(fail);} | |
52494 | ||
52495 | ||
52496 | <RESULT> | |
52497 | ||
52498 | Overall verdict: pass | |
52499 | ||
52500 | <END_TC> | |
52501 | ||
52502 | :exmp. | |
52503 | ||
52504 | .*---------------------------------------------------------------------* | |
52505 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,multiple octets needed for values ,(primitive) | |
52506 | .*---------------------------------------------------------------------* | |
52507 | :xmp tab=0. | |
52508 | ||
52509 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,multiple octets needed for values ,(primitive)> | |
52510 | ||
52511 | <STATIC:ASN> | |
52512 | ||
52513 | TempA | |
52514 | ||
52515 | DEFINITIONS ::= | |
52516 | BEGIN | |
52517 | BERPDU ::= OBJECT IDENTIFIER | |
52518 | ||
52519 | myValue BERPDU ::= {joint-iso-itu-t(2) something(0) a(2) b(3) 2000 4000 } | |
52520 | ||
52521 | END | |
52522 | ||
52523 | <STATIC> | |
52524 | ||
52525 | import from TempA all; | |
52526 | ||
52527 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52528 | ||
52529 | ||
52530 | <TTCN_TC:EXEC> | |
52531 | ||
52532 | if (dec_BER_PDU('06075002038F509F20'O) == myValue) | |
52533 | ||
52534 | ||
52535 | {setverdict(pass);} else {setverdict(fail);} | |
52536 | ||
52537 | ||
52538 | <RESULT> | |
52539 | ||
52540 | Overall verdict: pass | |
52541 | ||
52542 | <END_TC> | |
52543 | ||
52544 | :exmp. | |
52545 | ||
52546 | .*---------------------------------------------------------------------* | |
52547 | :h3. DECODING OBJECT IDENTIFIER , CER+DER ,0 0, IMPLICIT, primitive | |
52548 | .*---------------------------------------------------------------------* | |
52549 | :xmp tab=0. | |
52550 | ||
52551 | <TC - DECODING OBJECT IDENTIFIER , CER+DER ,0 0, IMPLICIT, primitive> | |
52552 | ||
52553 | <STATIC:ASN> | |
52554 | ||
52555 | TempA | |
52556 | ||
52557 | DEFINITIONS ::= | |
52558 | BEGIN | |
52559 | BERPDU ::= [0] IMPLICIT OBJECT IDENTIFIER | |
52560 | ||
52561 | myValue BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
52562 | ||
52563 | END | |
52564 | ||
52565 | <STATIC> | |
52566 | ||
52567 | import from TempA all; | |
52568 | ||
52569 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52570 | ||
52571 | ||
52572 | <TTCN_TC:EXEC> | |
52573 | ||
52574 | if (dec_BER_PDU('8003000203'O) == myValue) | |
52575 | ||
52576 | ||
52577 | {setverdict(pass);} else {setverdict(fail);} | |
52578 | ||
52579 | ||
52580 | <RESULT> | |
52581 | ||
52582 | Overall verdict: pass | |
52583 | ||
52584 | <END_TC> | |
52585 | ||
52586 | :exmp. | |
52587 | ||
52588 | .*---------------------------------------------------------------------* | |
52589 | :h3. DECODING OBJECT IDENTIFIER , DER ,0 0, EXPLICIT, constructed | |
52590 | .*---------------------------------------------------------------------* | |
52591 | :xmp tab=0. | |
52592 | ||
52593 | <TC - DECODING OBJECT IDENTIFIER , DER ,0 0, EXPLICIT, constructed> | |
52594 | ||
52595 | <STATIC:ASN> | |
52596 | ||
52597 | TempA | |
52598 | ||
52599 | DEFINITIONS ::= | |
52600 | BEGIN | |
52601 | BERPDU ::= [0] EXPLICIT OBJECT IDENTIFIER | |
52602 | ||
52603 | myValue BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
52604 | ||
52605 | END | |
52606 | ||
52607 | <STATIC> | |
52608 | ||
52609 | import from TempA all; | |
52610 | ||
52611 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52612 | ||
52613 | ||
52614 | <TTCN_TC:EXEC> | |
52615 | ||
52616 | if (dec_BER_PDU('A0050603000203'O) == myValue) | |
52617 | ||
52618 | ||
52619 | ||
52620 | {setverdict(pass);} else {setverdict(fail);} | |
52621 | ||
52622 | ||
52623 | <RESULT> | |
52624 | ||
52625 | Overall verdict: pass | |
52626 | ||
52627 | <END_TC> | |
52628 | ||
52629 | :exmp. | |
52630 | ||
52631 | .*---------------------------------------------------------------------* | |
52632 | :h3. DECODING OBJECT IDENTIFIER , CER ,0 0, EXPLICIT, constructed | |
52633 | .*---------------------------------------------------------------------* | |
52634 | :xmp tab=0. | |
52635 | ||
52636 | <TC - DECODING OBJECT IDENTIFIER , CER ,0 0, EXPLICIT, constructed> | |
52637 | ||
52638 | <STATIC:ASN> | |
52639 | ||
52640 | TempA | |
52641 | ||
52642 | DEFINITIONS ::= | |
52643 | BEGIN | |
52644 | BERPDU ::= [0] EXPLICIT OBJECT IDENTIFIER | |
52645 | ||
52646 | myValue BERPDU ::= {itu-t(0) recommendation(0) a(2) b(3)} | |
52647 | ||
52648 | END | |
52649 | ||
52650 | <STATIC> | |
52651 | ||
52652 | import from TempA all; | |
52653 | ||
52654 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
52655 | ||
52656 | ||
52657 | <TTCN_TC:EXEC> | |
52658 | ||
52659 | if (dec_BER_PDU('A08006030002030000'O) == myValue) | |
52660 | ||
52661 | {setverdict(pass);} else {setverdict(fail);} | |
52662 | ||
52663 | ||
52664 | <RESULT> | |
52665 | ||
52666 | Overall verdict: pass | |
52667 | ||
52668 | <END_TC> | |
52669 | ||
52670 | :exmp. | |
52671 | ||
52672 | .*---------------------------------------------------------------------* | |
52673 | :h3. CER + DER encoding of OPEN TYPE from Information Object Class | |
52674 | .*---------------------------------------------------------------------* | |
52675 | :xmp tab=0. | |
52676 | ||
52677 | <TC - CER + DER encoding of OPEN TYPE from Information Object Class> | |
52678 | ||
52679 | <STATIC:ASN> | |
52680 | ||
52681 | TempA | |
52682 | ||
52683 | DEFINITIONS ::= | |
52684 | BEGIN | |
52685 | ||
52686 | ||
52687 | --*************************************************************************************************** | |
52688 | --modified class taken from Gyuri ASN1 | |
52689 | --*************************************************************************************************** | |
52690 | MY-CLASS-1 ::= CLASS | |
52691 | { | |
52692 | &TypeField OPTIONAL, | |
52693 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
52694 | ||
52695 | } | |
52696 | WITH SYNTAX | |
52697 | { | |
52698 | [TYPE FIELD &TypeField] | |
52699 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
52700 | } | |
52701 | ||
52702 | ASN1-Type1 ::= INTEGER | |
52703 | ||
52704 | ASN1-Type2 ::= BOOLEAN | |
52705 | ||
52706 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
52707 | ||
52708 | ASN1-Type4 ::= OCTET STRING | |
52709 | ||
52710 | ||
52711 | --**************************************************************************************************** | |
52712 | -- OBJECTS using the class defined above | |
52713 | --**************************************************************************************************** | |
52714 | ||
52715 | ||
52716 | myObject-1 MY-CLASS-1 ::= | |
52717 | { | |
52718 | TYPE FIELD ASN1-Type3 | |
52719 | FIXED VALUE TYPE FIELD 999 | |
52720 | } | |
52721 | ||
52722 | ||
52723 | myObject-2 MY-CLASS-1 ::= | |
52724 | { | |
52725 | TYPE FIELD ASN1-Type2 | |
52726 | FIXED VALUE TYPE FIELD 888 | |
52727 | } | |
52728 | ||
52729 | myObject-3 MY-CLASS-1 ::= | |
52730 | { | |
52731 | TYPE FIELD ASN1-Type4 | |
52732 | FIXED VALUE TYPE FIELD 555 | |
52733 | } | |
52734 | ||
52735 | --**************************************************************************************************** | |
52736 | -- Defining Information Object sets | |
52737 | --**************************************************************************************************** | |
52738 | ||
52739 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
52740 | { | |
52741 | myObject-1| | |
52742 | myObject-2, | |
52743 | ... | |
52744 | } | |
52745 | ||
52746 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
52747 | { | |
52748 | MyInformationObjectSet1| | |
52749 | myObject-3, | |
52750 | ... | |
52751 | } | |
52752 | ||
52753 | BERPDU ::= SEQUENCE | |
52754 | ||
52755 | { | |
52756 | field1 MY-CLASS-1.&TypeField ({MyInformationObjectSet1} {@.field2} ), | |
52757 | field2 MY-CLASS-1.&fixedTypeValueField ({MyInformationObjectSet1}) | |
52758 | } | |
52759 | ||
52760 | ||
52761 | END | |
52762 | ||
52763 | <STATIC> | |
52764 | ||
52765 | import from TempA all; | |
52766 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
52767 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
52768 | ||
52769 | const BERPDU myValue := { field1 := {aSN1_Type3 := {f1 := 8}},field2 := 999 }; | |
52770 | ||
52771 | ||
52772 | <TTCN_TC:EXEC> | |
52773 | ||
52774 | if ((enc_DER_PDU(myValue) == '30093003020108020203E7'O)and(enc_CER_PDU(myValue) == '308030800201080000020203E70000'O)) {setverdict(pass);} else {setverdict(fail);} | |
52775 | ||
52776 | ||
52777 | <RESULT> | |
52778 | ||
52779 | Overall verdict: pass | |
52780 | ||
52781 | <END_TC> | |
52782 | ||
52783 | :exmp. | |
52784 | ||
52785 | .*---------------------------------------------------------------------* | |
52786 | :h3. CER + DER encoding of TYPE from Information Object | |
52787 | .*---------------------------------------------------------------------* | |
52788 | :xmp tab=0. | |
52789 | ||
52790 | <TC - CER + DER encoding of TYPE from Information Object > | |
52791 | ||
52792 | <STATIC:ASN> | |
52793 | ||
52794 | TempA | |
52795 | ||
52796 | DEFINITIONS | |
52797 | ||
52798 | ||
52799 | ::= | |
52800 | ||
52801 | BEGIN | |
52802 | ||
52803 | ||
52804 | --*************************************************************************************************** | |
52805 | --modified class taken from Gyuri ASN1 | |
52806 | --*************************************************************************************************** | |
52807 | MY-CLASS-1 ::= CLASS | |
52808 | { | |
52809 | &TypeField OPTIONAL, | |
52810 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
52811 | ||
52812 | } | |
52813 | WITH SYNTAX | |
52814 | { | |
52815 | [TYPE FIELD &TypeField] | |
52816 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
52817 | } | |
52818 | ||
52819 | ASN1-Type1 ::= INTEGER | |
52820 | ||
52821 | ASN1-Type2 ::= BOOLEAN | |
52822 | ||
52823 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
52824 | ||
52825 | ASN1-Type4 ::= OCTET STRING | |
52826 | ||
52827 | ||
52828 | --**************************************************************************************************** | |
52829 | -- OBJECTS using the class defined above | |
52830 | --**************************************************************************************************** | |
52831 | ||
52832 | ||
52833 | myObject-1 MY-CLASS-1 ::= | |
52834 | { | |
52835 | TYPE FIELD ASN1-Type3 | |
52836 | FIXED VALUE TYPE FIELD 999 | |
52837 | } | |
52838 | ||
52839 | ||
52840 | myObject-2 MY-CLASS-1 ::= | |
52841 | { | |
52842 | TYPE FIELD ASN1-Type2 | |
52843 | FIXED VALUE TYPE FIELD 888 | |
52844 | } | |
52845 | ||
52846 | myObject-3 MY-CLASS-1 ::= | |
52847 | { | |
52848 | TYPE FIELD ASN1-Type4 | |
52849 | FIXED VALUE TYPE FIELD 555 | |
52850 | } | |
52851 | ||
52852 | --**************************************************************************************************** | |
52853 | -- Defining Information Object sets | |
52854 | --**************************************************************************************************** | |
52855 | ||
52856 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
52857 | { | |
52858 | myObject-1| | |
52859 | myObject-2, | |
52860 | ... | |
52861 | } | |
52862 | ||
52863 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
52864 | { | |
52865 | MyInformationObjectSet1| | |
52866 | myObject-3, | |
52867 | ... | |
52868 | } | |
52869 | ||
52870 | ||
52871 | ||
52872 | BERPDU ::= SEQUENCE | |
52873 | ||
52874 | { | |
52875 | field1 myObject-1.&TypeField , -- type from object | |
52876 | field2 MY-CLASS-1.&fixedTypeValueField | |
52877 | } | |
52878 | ||
52879 | END | |
52880 | ||
52881 | ||
52882 | <STATIC> | |
52883 | ||
52884 | import from TempA all; | |
52885 | external function enc_DER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
52886 | external function enc_CER_PDU(in BERPDU pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_CER)" } | |
52887 | ||
52888 | const BERPDU myValue := { field1 := {f1 := 8},field2 := 999 }; | |
52889 | ||
52890 | ||
52891 | <TTCN_TC:EXEC> | |
52892 | ||
52893 | if ((enc_DER_PDU(myValue) == '30093003020108020203E7'O)and(enc_CER_PDU(myValue) == '308030800201080000020203E70000'O)) {setverdict(pass);} else {setverdict(fail);} | |
52894 | ||
52895 | ||
52896 | <RESULT> | |
52897 | ||
52898 | Overall verdict: pass | |
52899 | ||
52900 | <END_TC> | |
52901 | ||
52902 | :exmp. | |
52903 | ||
52904 | .*---------------------------------------------------------------------* | |
52905 | :h3. DECODING ,OPEN TYPE, DER, from Information Object Class | |
52906 | .*---------------------------------------------------------------------* | |
52907 | :xmp tab=0. | |
52908 | ||
52909 | <TC - DECODING ,OPEN TYPE, DER, from Information Object Class> | |
52910 | ||
52911 | <STATIC:ASN> | |
52912 | ||
52913 | ||
52914 | TempA | |
52915 | ||
52916 | DEFINITIONS ::= | |
52917 | BEGIN | |
52918 | ||
52919 | ||
52920 | --*************************************************************************************************** | |
52921 | --modified class taken from Gyuri ASN1 | |
52922 | --*************************************************************************************************** | |
52923 | MY-CLASS-1 ::= CLASS | |
52924 | { | |
52925 | &TypeField OPTIONAL, | |
52926 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
52927 | ||
52928 | } | |
52929 | WITH SYNTAX | |
52930 | { | |
52931 | [TYPE FIELD &TypeField] | |
52932 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
52933 | } | |
52934 | ||
52935 | ASN1-Type1 ::= INTEGER | |
52936 | ||
52937 | ASN1-Type2 ::= BOOLEAN | |
52938 | ||
52939 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
52940 | ||
52941 | ASN1-Type4 ::= OCTET STRING | |
52942 | ||
52943 | ||
52944 | --**************************************************************************************************** | |
52945 | -- OBJECTS using the class defined above | |
52946 | --**************************************************************************************************** | |
52947 | ||
52948 | ||
52949 | myObject-1 MY-CLASS-1 ::= | |
52950 | { | |
52951 | TYPE FIELD ASN1-Type3 | |
52952 | FIXED VALUE TYPE FIELD 999 | |
52953 | } | |
52954 | ||
52955 | ||
52956 | myObject-2 MY-CLASS-1 ::= | |
52957 | { | |
52958 | TYPE FIELD ASN1-Type2 | |
52959 | FIXED VALUE TYPE FIELD 888 | |
52960 | } | |
52961 | ||
52962 | myObject-3 MY-CLASS-1 ::= | |
52963 | { | |
52964 | TYPE FIELD ASN1-Type4 | |
52965 | FIXED VALUE TYPE FIELD 555 | |
52966 | } | |
52967 | ||
52968 | --**************************************************************************************************** | |
52969 | -- Defining Information Object sets | |
52970 | --**************************************************************************************************** | |
52971 | ||
52972 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
52973 | { | |
52974 | myObject-1| | |
52975 | myObject-2, | |
52976 | ... | |
52977 | } | |
52978 | ||
52979 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
52980 | { | |
52981 | MyInformationObjectSet1| | |
52982 | myObject-3, | |
52983 | ... | |
52984 | } | |
52985 | ||
52986 | BERPDU ::= SEQUENCE | |
52987 | ||
52988 | { | |
52989 | field1 MY-CLASS-1.&TypeField ({MyInformationObjectSet1} {@.field2} ), | |
52990 | field2 MY-CLASS-1.&fixedTypeValueField ({MyInformationObjectSet1}) | |
52991 | } | |
52992 | ||
52993 | ||
52994 | END | |
52995 | <STATIC> | |
52996 | ||
52997 | import from TempA all; | |
52998 | ||
52999 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
53000 | ||
53001 | const BERPDU myValue := { field1 := {aSN1_Type3 := {f1 := 8}}, field2 := 999}; | |
53002 | ||
53003 | ||
53004 | <TTCN_TC:EXEC> | |
53005 | ||
53006 | if (dec_BER_PDU('30093003020108020203E7'O) == myValue) | |
53007 | ||
53008 | {setverdict(pass);} else {setverdict(fail);} | |
53009 | ||
53010 | ||
53011 | <RESULT> | |
53012 | ||
53013 | Overall verdict: pass | |
53014 | ||
53015 | <END_TC> | |
53016 | ||
53017 | :exmp. | |
53018 | ||
53019 | .*---------------------------------------------------------------------* | |
53020 | :h3. DECODING ,OPEN TYPE, CER, from Information Object Class | |
53021 | .*---------------------------------------------------------------------* | |
53022 | :xmp tab=0. | |
53023 | ||
53024 | <TC - DECODING ,OPEN TYPE, CER, from Information Object Class> | |
53025 | ||
53026 | <STATIC:ASN> | |
53027 | ||
53028 | ||
53029 | TempA | |
53030 | ||
53031 | DEFINITIONS ::= | |
53032 | BEGIN | |
53033 | ||
53034 | ||
53035 | --*************************************************************************************************** | |
53036 | --modified class taken from Gyuri ASN1 | |
53037 | --*************************************************************************************************** | |
53038 | MY-CLASS-1 ::= CLASS | |
53039 | { | |
53040 | &TypeField OPTIONAL, | |
53041 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
53042 | ||
53043 | } | |
53044 | WITH SYNTAX | |
53045 | { | |
53046 | [TYPE FIELD &TypeField] | |
53047 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
53048 | } | |
53049 | ||
53050 | ASN1-Type1 ::= INTEGER | |
53051 | ||
53052 | ASN1-Type2 ::= BOOLEAN | |
53053 | ||
53054 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
53055 | ||
53056 | ASN1-Type4 ::= OCTET STRING | |
53057 | ||
53058 | ||
53059 | --**************************************************************************************************** | |
53060 | -- OBJECTS using the class defined above | |
53061 | --**************************************************************************************************** | |
53062 | ||
53063 | ||
53064 | myObject-1 MY-CLASS-1 ::= | |
53065 | { | |
53066 | TYPE FIELD ASN1-Type3 | |
53067 | FIXED VALUE TYPE FIELD 999 | |
53068 | } | |
53069 | ||
53070 | ||
53071 | myObject-2 MY-CLASS-1 ::= | |
53072 | { | |
53073 | TYPE FIELD ASN1-Type2 | |
53074 | FIXED VALUE TYPE FIELD 888 | |
53075 | } | |
53076 | ||
53077 | myObject-3 MY-CLASS-1 ::= | |
53078 | { | |
53079 | TYPE FIELD ASN1-Type4 | |
53080 | FIXED VALUE TYPE FIELD 555 | |
53081 | } | |
53082 | ||
53083 | --**************************************************************************************************** | |
53084 | -- Defining Information Object sets | |
53085 | --**************************************************************************************************** | |
53086 | ||
53087 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
53088 | { | |
53089 | myObject-1| | |
53090 | myObject-2, | |
53091 | ... | |
53092 | } | |
53093 | ||
53094 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
53095 | { | |
53096 | MyInformationObjectSet1| | |
53097 | myObject-3, | |
53098 | ... | |
53099 | } | |
53100 | ||
53101 | BERPDU ::= SEQUENCE | |
53102 | ||
53103 | { | |
53104 | field1 MY-CLASS-1.&TypeField ({MyInformationObjectSet1} {@.field2} ), | |
53105 | field2 MY-CLASS-1.&fixedTypeValueField ({MyInformationObjectSet1}) | |
53106 | } | |
53107 | ||
53108 | ||
53109 | END | |
53110 | <STATIC> | |
53111 | ||
53112 | import from TempA all; | |
53113 | ||
53114 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
53115 | ||
53116 | const BERPDU myValue := { field1 := {aSN1_Type3 := {f1 := 8}}, field2 := 999}; | |
53117 | ||
53118 | ||
53119 | <TTCN_TC:EXEC> | |
53120 | ||
53121 | if (dec_BER_PDU('308030800201080000020203E70000'O) == myValue) | |
53122 | ||
53123 | {setverdict(pass);} else {setverdict(fail);} | |
53124 | ||
53125 | ||
53126 | <RESULT> | |
53127 | ||
53128 | Overall verdict: pass | |
53129 | ||
53130 | <END_TC> | |
53131 | ||
53132 | :exmp. | |
53133 | ||
53134 | .*---------------------------------------------------------------------* | |
53135 | :h3. DECODING , TYPE from Information Object Class, DER | |
53136 | .*---------------------------------------------------------------------* | |
53137 | :xmp tab=0. | |
53138 | ||
53139 | <TC - DECODING , TYPE from Information Object Class, DER> | |
53140 | ||
53141 | <STATIC:ASN> | |
53142 | ||
53143 | ||
53144 | TempA | |
53145 | ||
53146 | DEFINITIONS | |
53147 | ||
53148 | ||
53149 | ::= | |
53150 | ||
53151 | BEGIN | |
53152 | ||
53153 | ||
53154 | --*************************************************************************************************** | |
53155 | --modified class taken from Gyuri ASN1 | |
53156 | --*************************************************************************************************** | |
53157 | MY-CLASS-1 ::= CLASS | |
53158 | { | |
53159 | &TypeField OPTIONAL, | |
53160 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
53161 | ||
53162 | } | |
53163 | WITH SYNTAX | |
53164 | { | |
53165 | [TYPE FIELD &TypeField] | |
53166 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
53167 | } | |
53168 | ||
53169 | ASN1-Type1 ::= INTEGER | |
53170 | ||
53171 | ASN1-Type2 ::= BOOLEAN | |
53172 | ||
53173 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
53174 | ||
53175 | ASN1-Type4 ::= OCTET STRING | |
53176 | ||
53177 | ||
53178 | --**************************************************************************************************** | |
53179 | -- OBJECTS using the class defined above | |
53180 | --**************************************************************************************************** | |
53181 | ||
53182 | ||
53183 | myObject-1 MY-CLASS-1 ::= | |
53184 | { | |
53185 | TYPE FIELD ASN1-Type3 | |
53186 | FIXED VALUE TYPE FIELD 999 | |
53187 | } | |
53188 | ||
53189 | ||
53190 | myObject-2 MY-CLASS-1 ::= | |
53191 | { | |
53192 | TYPE FIELD ASN1-Type2 | |
53193 | FIXED VALUE TYPE FIELD 888 | |
53194 | } | |
53195 | ||
53196 | myObject-3 MY-CLASS-1 ::= | |
53197 | { | |
53198 | TYPE FIELD ASN1-Type4 | |
53199 | FIXED VALUE TYPE FIELD 555 | |
53200 | } | |
53201 | ||
53202 | --**************************************************************************************************** | |
53203 | -- Defining Information Object sets | |
53204 | --**************************************************************************************************** | |
53205 | ||
53206 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
53207 | { | |
53208 | myObject-1| | |
53209 | myObject-2, | |
53210 | ... | |
53211 | } | |
53212 | ||
53213 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
53214 | { | |
53215 | MyInformationObjectSet1| | |
53216 | myObject-3, | |
53217 | ... | |
53218 | } | |
53219 | ||
53220 | ||
53221 | ||
53222 | BERPDU ::= SEQUENCE | |
53223 | ||
53224 | { | |
53225 | field1 myObject-1.&TypeField , -- type from object | |
53226 | field2 MY-CLASS-1.&fixedTypeValueField | |
53227 | } | |
53228 | ||
53229 | END | |
53230 | ||
53231 | <STATIC> | |
53232 | ||
53233 | import from TempA all; | |
53234 | ||
53235 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
53236 | ||
53237 | const BERPDU myValue := { field1 := {f1 := 8}, field2 := 999}; | |
53238 | ||
53239 | ||
53240 | <TTCN_TC:EXEC> | |
53241 | ||
53242 | if (dec_BER_PDU('30093003020108020203E7'O) == myValue) | |
53243 | ||
53244 | {setverdict(pass);} else {setverdict(fail);} | |
53245 | ||
53246 | ||
53247 | <RESULT> | |
53248 | ||
53249 | Overall verdict: pass | |
53250 | ||
53251 | <END_TC> | |
53252 | ||
53253 | :exmp. | |
53254 | ||
53255 | .*---------------------------------------------------------------------* | |
53256 | :h3. DECODING , TYPE from Information Object Class, CER | |
53257 | .*---------------------------------------------------------------------* | |
53258 | :xmp tab=0. | |
53259 | ||
53260 | <TC - DECODING , TYPE from Information Object Class, CER> | |
53261 | ||
53262 | <STATIC:ASN> | |
53263 | ||
53264 | ||
53265 | TempA | |
53266 | ||
53267 | DEFINITIONS | |
53268 | ||
53269 | ||
53270 | ::= | |
53271 | ||
53272 | BEGIN | |
53273 | ||
53274 | ||
53275 | --*************************************************************************************************** | |
53276 | --modified class taken from Gyuri ASN1 | |
53277 | --*************************************************************************************************** | |
53278 | MY-CLASS-1 ::= CLASS | |
53279 | { | |
53280 | &TypeField OPTIONAL, | |
53281 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
53282 | ||
53283 | } | |
53284 | WITH SYNTAX | |
53285 | { | |
53286 | [TYPE FIELD &TypeField] | |
53287 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
53288 | } | |
53289 | ||
53290 | ASN1-Type1 ::= INTEGER | |
53291 | ||
53292 | ASN1-Type2 ::= BOOLEAN | |
53293 | ||
53294 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
53295 | ||
53296 | ASN1-Type4 ::= OCTET STRING | |
53297 | ||
53298 | ||
53299 | --**************************************************************************************************** | |
53300 | -- OBJECTS using the class defined above | |
53301 | --**************************************************************************************************** | |
53302 | ||
53303 | ||
53304 | myObject-1 MY-CLASS-1 ::= | |
53305 | { | |
53306 | TYPE FIELD ASN1-Type3 | |
53307 | FIXED VALUE TYPE FIELD 999 | |
53308 | } | |
53309 | ||
53310 | ||
53311 | myObject-2 MY-CLASS-1 ::= | |
53312 | { | |
53313 | TYPE FIELD ASN1-Type2 | |
53314 | FIXED VALUE TYPE FIELD 888 | |
53315 | } | |
53316 | ||
53317 | myObject-3 MY-CLASS-1 ::= | |
53318 | { | |
53319 | TYPE FIELD ASN1-Type4 | |
53320 | FIXED VALUE TYPE FIELD 555 | |
53321 | } | |
53322 | ||
53323 | --**************************************************************************************************** | |
53324 | -- Defining Information Object sets | |
53325 | --**************************************************************************************************** | |
53326 | ||
53327 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
53328 | { | |
53329 | myObject-1| | |
53330 | myObject-2, | |
53331 | ... | |
53332 | } | |
53333 | ||
53334 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
53335 | { | |
53336 | MyInformationObjectSet1| | |
53337 | myObject-3, | |
53338 | ... | |
53339 | } | |
53340 | ||
53341 | ||
53342 | ||
53343 | BERPDU ::= SEQUENCE | |
53344 | ||
53345 | { | |
53346 | field1 myObject-1.&TypeField , -- type from object | |
53347 | field2 MY-CLASS-1.&fixedTypeValueField | |
53348 | } | |
53349 | ||
53350 | END | |
53351 | ||
53352 | <STATIC> | |
53353 | ||
53354 | import from TempA all; | |
53355 | ||
53356 | external function dec_BER_PDU(in octetstring stream) return BERPDU with { extension "prototype(convert) decode(BER)" } | |
53357 | ||
53358 | const BERPDU myValue := { field1 := {f1 := 8}, field2 := 999}; | |
53359 | ||
53360 | ||
53361 | <TTCN_TC:EXEC> | |
53362 | ||
53363 | if (dec_BER_PDU('308030800201080000020203E70000'O) == myValue) | |
53364 | ||
53365 | {setverdict(pass);} else {setverdict(fail);} | |
53366 | ||
53367 | ||
53368 | <RESULT> | |
53369 | ||
53370 | Overall verdict: pass | |
53371 | ||
53372 | <END_TC> | |
53373 | ||
53374 | :exmp. | |
53375 | ||
53376 | ||
53377 | .*---------------------------------------------------------------------* | |
53378 | :h2.Testing Enc/Dec functions of implicit message encoding | |
53379 | .*---------------------------------------------------------------------* | |
53380 | .*---------------------------------------------------------------------* | |
53381 | :h3. Fast enc/dec function | |
53382 | .*---------------------------------------------------------------------* | |
53383 | :xmp tab=0. | |
53384 | ||
53385 | <TC- Implicit message encoding: prototype fast> | |
53386 | ||
53387 | <STATIC:ASN> | |
53388 | ||
53389 | TempA | |
53390 | DEFINITIONS | |
53391 | AUTOMATIC TAGS | |
53392 | ::= | |
53393 | BEGIN | |
53394 | BERPDU ::= SEQUENCE | |
53395 | { | |
53396 | a OCTET STRING, | |
53397 | b BOOLEAN, | |
53398 | ..., | |
53399 | d BIT STRING, | |
53400 | ..., | |
53401 | c INTEGER OPTIONAL | |
53402 | } | |
53403 | END | |
53404 | ||
53405 | <STATIC> | |
53406 | ||
53407 | import from TempA all; | |
53408 | external function enc_DER_PDU(in BERPDU pdu, out octetstring os) with { extension "prototype(fast) encode(BER:BER_ENCODE_DER)" } | |
53409 | external function enc_CER_PDU(in BERPDU pdu, out octetstring os) with { extension "prototype(fast) encode(BER:BER_ENCODE_CER)" } | |
53410 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
53411 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53412 | ||
53413 | const BERPDU myValue := { | |
53414 | a := 'FF'O, | |
53415 | b := true, | |
53416 | d := '1'B, | |
53417 | c := 4 | |
53418 | } | |
53419 | <TTCN_TC:EXEC> | |
53420 | ||
53421 | var octetstring der_encoded, cer_encoded; | |
53422 | var BERPDU der_decoded, cer_decoded; | |
53423 | ||
53424 | enc_DER_PDU(myValue, der_encoded); | |
53425 | enc_CER_PDU(myValue, cer_encoded); | |
53426 | ||
53427 | if ((der_encoded == '300D8001FF8101FF83020780820104'O) and | |
53428 | (cer_encoded == '30808001FF8101FF830207808201040000'O)) | |
53429 | {setverdict(pass);} else {setverdict(fail);} | |
53430 | ||
53431 | dec_BER_PDU(der_encoded, der_decoded); | |
53432 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
53433 | dec_BER_PDU(cer_encoded, cer_decoded); | |
53434 | if (cer_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
53435 | ||
53436 | <RESULT> | |
53437 | ||
53438 | Overall verdict: pass | |
53439 | ||
53440 | <END_TC> | |
53441 | ||
53442 | :exmp. | |
53443 | ||
53444 | .*---------------------------------------------------------------------* | |
53445 | :h3. Backtrack decode function | |
53446 | .*---------------------------------------------------------------------* | |
53447 | :xmp tab=0. | |
53448 | ||
53449 | <TC- Implicit message encoding: prototype backtrack> | |
53450 | ||
53451 | <STATIC:ASN> | |
53452 | ||
53453 | TempA | |
53454 | DEFINITIONS | |
53455 | AUTOMATIC TAGS | |
53456 | ::= | |
53457 | BEGIN | |
53458 | STRPDU ::= PrintableString | |
53459 | USTRPDU ::= GeneralString | |
53460 | SEQPDU ::= SEQUENCE { | |
53461 | f1 INTEGER, | |
53462 | f2 OCTET STRING, | |
53463 | f3 BOOLEAN | |
53464 | } | |
53465 | END | |
53466 | ||
53467 | <STATIC> | |
53468 | ||
53469 | import from TempA all; | |
53470 | ||
53471 | external function encode_str(in STRPDU pdu) return octetstring | |
53472 | with { extension "prototype(convert) encode(BER)" } | |
53473 | external function encode_ustr(in USTRPDU updu) return octetstring | |
53474 | with { extension "prototype(convert) encode(BER)" } | |
53475 | external function encode_seq(in SEQPDU pdu) return octetstring | |
53476 | with { extension "prototype(convert) encode(BER)" } | |
53477 | external function decode_str(in octetstring os, out STRPDU pdu) return integer | |
53478 | with { extension "prototype(backtrack) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53479 | external function decode_ustr(in octetstring os, out USTRPDU pdu) return integer | |
53480 | with { extension "prototype(backtrack) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53481 | external function decode_seq(in octetstring os, out SEQPDU pdu) return integer | |
53482 | with { extension "prototype(backtrack) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53483 | ||
53484 | <TTCN_TC:EXEC> | |
53485 | ||
53486 | var STRPDU str := "haha"; | |
53487 | var USTRPDU ustr := "uu"; | |
53488 | var SEQPDU seq := { 123, 'ABCDEF'O, true } | |
53489 | var STRPDU decoded_str; | |
53490 | var USTRPDU decoded_ustr; | |
53491 | var SEQPDU decoded_seq; | |
53492 | var integer ret_val; | |
53493 | ||
53494 | ret_val := decode_str(encode_str(str), decoded_str); | |
53495 | if (ret_val==0 and decoded_str==str) {setverdict(pass);} else {setverdict(fail);} | |
53496 | ret_val := decode_ustr(encode_ustr(ustr), decoded_ustr); | |
53497 | if (ret_val==0 and decoded_ustr==ustr) {setverdict(pass);} else {setverdict(fail);} | |
53498 | ret_val := decode_seq(encode_seq(seq), decoded_seq); | |
53499 | if (ret_val==0 and decoded_seq==seq) {setverdict(pass);} else {setverdict(fail);} | |
53500 | ||
53501 | ret_val := decode_str(''O, decoded_str); | |
53502 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53503 | ret_val := decode_ustr(''O, decoded_ustr); | |
53504 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53505 | ret_val := decode_seq(''O, decoded_seq); | |
53506 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53507 | ||
53508 | ret_val := decode_str('12'O, decoded_str); | |
53509 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53510 | ret_val := decode_ustr('12'O, decoded_ustr); | |
53511 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53512 | ret_val := decode_seq('12'O, decoded_seq); | |
53513 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53514 | ||
53515 | ret_val := decode_str('1234'O, decoded_str); | |
53516 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53517 | ret_val := decode_ustr('1234'O, decoded_ustr); | |
53518 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53519 | ret_val := decode_seq('1234'O, decoded_seq); | |
53520 | if (ret_val==1) {setverdict(pass);} else {setverdict(fail);} | |
53521 | ||
53522 | <RESULT> | |
53523 | ||
53524 | Overall verdict: pass | |
53525 | ||
53526 | <END_TC> | |
53527 | ||
53528 | :exmp. | |
53529 | ||
53530 | .*---------------------------------------------------------------------* | |
53531 | :h3. Sliding decode function | |
53532 | .*---------------------------------------------------------------------* | |
53533 | :xmp tab=0. | |
53534 | ||
53535 | <TC- Implicit message encoding: prototype sliding> | |
53536 | ||
53537 | <STATIC:ASN> | |
53538 | ||
53539 | TempA | |
53540 | DEFINITIONS | |
53541 | AUTOMATIC TAGS | |
53542 | ::= | |
53543 | BEGIN | |
53544 | PDU ::= SEQUENCE { | |
53545 | f1 INTEGER, | |
53546 | f2 OCTET STRING, | |
53547 | f3 BOOLEAN | |
53548 | } | |
53549 | END | |
53550 | ||
53551 | <STATIC> | |
53552 | ||
53553 | import from TempA all; | |
53554 | ||
53555 | external function encode_PDU(in PDU pdu) return octetstring | |
53556 | with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53557 | external function decode_PDU(inout octetstring os, out PDU pdu) return integer | |
53558 | with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53559 | ||
53560 | <TTCN_TC:EXEC> | |
53561 | ||
53562 | var PDU pdu := { 123, 'ABCDEF'O, true } | |
53563 | var octetstring encoded_pdu; | |
53564 | var PDU decoded_pdu; | |
53565 | var integer ret_val; | |
53566 | ||
53567 | encoded_pdu := encode_PDU(pdu); | |
53568 | ret_val := decode_PDU(encoded_pdu, decoded_pdu); | |
53569 | if (ret_val==0 and decoded_pdu==pdu) {setverdict(pass);} else {setverdict(fail);} | |
53570 | ||
53571 | encoded_pdu := '800100'O; | |
53572 | ret_val := decode_PDU(encoded_pdu, decoded_pdu); | |
53573 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53574 | ||
53575 | encoded_pdu := substr(encode_PDU(pdu), 0, 4); | |
53576 | ret_val := decode_PDU(encoded_pdu, decoded_pdu); | |
53577 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53578 | ||
53579 | <RESULT> | |
53580 | ||
53581 | Overall verdict: pass | |
53582 | ||
53583 | <END_TC> | |
53584 | ||
53585 | :exmp. | |
53586 | ||
53587 | .*---------------------------------------------------------------------* | |
53588 | :h3. Sliding decoding, octetstring length 0,1,2 -> incomplete TLV | |
53589 | .*---------------------------------------------------------------------* | |
53590 | :xmp tab=0. | |
53591 | ||
53592 | <TC- Implicit message encoding: incomplete TLV> | |
53593 | ||
53594 | <STATIC:ASN> | |
53595 | ||
53596 | TempA | |
53597 | DEFINITIONS | |
53598 | AUTOMATIC TAGS | |
53599 | ::= | |
53600 | BEGIN | |
53601 | PDU0 ::= NULL | |
53602 | PDU1 ::= BOOLEAN | |
53603 | PDU2 ::= INTEGER | |
53604 | PDU3 ::= ENUMERATED { e0 (0), e1 (1) } | |
53605 | PDU4 ::= REAL | |
53606 | PDU5 ::= BIT STRING | |
53607 | PDU6 ::= OCTET STRING | |
53608 | PDU7 ::= PrintableString | |
53609 | PDU8 ::= GeneralString | |
53610 | PDU9 ::= CHOICE { i INTEGER, b BOOLEAN } | |
53611 | PDU10 ::= SEQUENCE { i INTEGER, b BOOLEAN } | |
53612 | PDU11 ::= SEQUENCE OF INTEGER | |
53613 | PDU12 ::= OBJECT IDENTIFIER | |
53614 | END | |
53615 | ||
53616 | <STATIC> | |
53617 | ||
53618 | import from TempA all; | |
53619 | ||
53620 | external function encode_PDU0(in PDU0 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53621 | external function decode_PDU0(inout octetstring os, out PDU0 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53622 | ||
53623 | external function encode_PDU1(in PDU1 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53624 | external function decode_PDU1(inout octetstring os, out PDU1 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53625 | ||
53626 | external function encode_PDU2(in PDU2 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53627 | external function decode_PDU2(inout octetstring os, out PDU2 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53628 | ||
53629 | external function encode_PDU3(in PDU3 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53630 | external function decode_PDU3(inout octetstring os, out PDU3 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53631 | ||
53632 | external function encode_PDU4(in PDU4 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53633 | external function decode_PDU4(inout octetstring os, out PDU4 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53634 | ||
53635 | external function encode_PDU5(in PDU5 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53636 | external function decode_PDU5(inout octetstring os, out PDU5 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53637 | ||
53638 | external function encode_PDU6(in PDU6 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53639 | external function decode_PDU6(inout octetstring os, out PDU6 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53640 | ||
53641 | external function encode_PDU7(in PDU7 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53642 | external function decode_PDU7(inout octetstring os, out PDU7 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53643 | ||
53644 | external function encode_PDU8(in PDU8 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53645 | external function decode_PDU8(inout octetstring os, out PDU8 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53646 | ||
53647 | external function encode_PDU9(in PDU9 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53648 | external function decode_PDU9(inout octetstring os, out PDU9 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53649 | ||
53650 | external function encode_PDU10(in PDU10 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53651 | external function decode_PDU10(inout octetstring os, out PDU10 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53652 | ||
53653 | external function encode_PDU11(in PDU11 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53654 | external function decode_PDU11(inout octetstring os, out PDU11 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53655 | ||
53656 | external function encode_PDU12(in PDU12 pdu) return octetstring with { extension "prototype(convert) encode(BER:BER_ENCODE_DER)" } | |
53657 | external function decode_PDU12(inout octetstring os, out PDU12 pdu) return integer with { extension "prototype(sliding) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
53658 | ||
53659 | <TTCN_TC:EXEC> | |
53660 | ||
53661 | var octetstring encoded_pdu; | |
53662 | var integer ret_val; | |
53663 | ||
53664 | var PDU0 pdu0 := NULL; | |
53665 | var PDU0 decoded_pdu0; | |
53666 | encoded_pdu := substr(encode_PDU0(pdu0), 0, 0); | |
53667 | ret_val := decode_PDU0(encoded_pdu, decoded_pdu0); | |
53668 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53669 | encoded_pdu := substr(encode_PDU0(pdu0), 0, 1); | |
53670 | ret_val := decode_PDU0(encoded_pdu, decoded_pdu0); | |
53671 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53672 | ||
53673 | var PDU1 pdu1 := true; | |
53674 | var PDU1 decoded_pdu1; | |
53675 | encoded_pdu := substr(encode_PDU1(pdu1), 0, 0); | |
53676 | ret_val := decode_PDU1(encoded_pdu, decoded_pdu1); | |
53677 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53678 | encoded_pdu := substr(encode_PDU1(pdu1), 0, 1); | |
53679 | ret_val := decode_PDU1(encoded_pdu, decoded_pdu1); | |
53680 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53681 | encoded_pdu := substr(encode_PDU1(pdu1), 0, 2); | |
53682 | ret_val := decode_PDU1(encoded_pdu, decoded_pdu1); | |
53683 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53684 | ||
53685 | var PDU2 pdu2 := 123; | |
53686 | var PDU2 decoded_pdu2; | |
53687 | encoded_pdu := substr(encode_PDU2(pdu2), 0, 0); | |
53688 | ret_val := decode_PDU2(encoded_pdu, decoded_pdu2); | |
53689 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53690 | encoded_pdu := substr(encode_PDU2(pdu2), 0, 1); | |
53691 | ret_val := decode_PDU2(encoded_pdu, decoded_pdu2); | |
53692 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53693 | encoded_pdu := substr(encode_PDU2(pdu2), 0, 2); | |
53694 | ret_val := decode_PDU2(encoded_pdu, decoded_pdu2); | |
53695 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53696 | ||
53697 | var PDU3 pdu3 := e1; | |
53698 | var PDU3 decoded_pdu3; | |
53699 | encoded_pdu := substr(encode_PDU3(pdu3), 0, 0); | |
53700 | ret_val := decode_PDU3(encoded_pdu, decoded_pdu3); | |
53701 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53702 | encoded_pdu := substr(encode_PDU3(pdu3), 0, 1); | |
53703 | ret_val := decode_PDU3(encoded_pdu, decoded_pdu3); | |
53704 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53705 | encoded_pdu := substr(encode_PDU3(pdu3), 0, 2); | |
53706 | ret_val := decode_PDU3(encoded_pdu, decoded_pdu3); | |
53707 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53708 | ||
53709 | var PDU4 pdu4 := 1.23; | |
53710 | var PDU4 decoded_pdu4; | |
53711 | encoded_pdu := substr(encode_PDU4(pdu4), 0, 0); | |
53712 | ret_val := decode_PDU4(encoded_pdu, decoded_pdu4); | |
53713 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53714 | encoded_pdu := substr(encode_PDU4(pdu4), 0, 1); | |
53715 | ret_val := decode_PDU4(encoded_pdu, decoded_pdu4); | |
53716 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53717 | encoded_pdu := substr(encode_PDU4(pdu4), 0, 2); | |
53718 | ret_val := decode_PDU4(encoded_pdu, decoded_pdu4); | |
53719 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53720 | ||
53721 | var PDU5 pdu5 := '101010'B; | |
53722 | var PDU5 decoded_pdu5; | |
53723 | encoded_pdu := substr(encode_PDU5(pdu5), 0, 0); | |
53724 | ret_val := decode_PDU5(encoded_pdu, decoded_pdu5); | |
53725 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53726 | encoded_pdu := substr(encode_PDU5(pdu5), 0, 1); | |
53727 | ret_val := decode_PDU5(encoded_pdu, decoded_pdu5); | |
53728 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53729 | encoded_pdu := substr(encode_PDU5(pdu5), 0, 2); | |
53730 | ret_val := decode_PDU5(encoded_pdu, decoded_pdu5); | |
53731 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53732 | ||
53733 | var PDU6 pdu6 := 'ABCDEF12'O; | |
53734 | var PDU6 decoded_pdu6; | |
53735 | encoded_pdu := substr(encode_PDU6(pdu6), 0, 0); | |
53736 | ret_val := decode_PDU6(encoded_pdu, decoded_pdu6); | |
53737 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53738 | encoded_pdu := substr(encode_PDU6(pdu6), 0, 1); | |
53739 | ret_val := decode_PDU6(encoded_pdu, decoded_pdu6); | |
53740 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53741 | encoded_pdu := substr(encode_PDU6(pdu6), 0, 2); | |
53742 | ret_val := decode_PDU6(encoded_pdu, decoded_pdu6); | |
53743 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53744 | ||
53745 | var PDU7 pdu7 := "haha"; | |
53746 | var PDU7 decoded_pdu7; | |
53747 | encoded_pdu := substr(encode_PDU7(pdu7), 0, 0); | |
53748 | ret_val := decode_PDU7(encoded_pdu, decoded_pdu7); | |
53749 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53750 | encoded_pdu := substr(encode_PDU7(pdu7), 0, 1); | |
53751 | ret_val := decode_PDU7(encoded_pdu, decoded_pdu7); | |
53752 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53753 | encoded_pdu := substr(encode_PDU7(pdu7), 0, 2); | |
53754 | ret_val := decode_PDU7(encoded_pdu, decoded_pdu7); | |
53755 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53756 | ||
53757 | var PDU8 pdu8 := "huhu"; | |
53758 | var PDU8 decoded_pdu8; | |
53759 | encoded_pdu := substr(encode_PDU8(pdu8), 0, 0); | |
53760 | ret_val := decode_PDU8(encoded_pdu, decoded_pdu8); | |
53761 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53762 | encoded_pdu := substr(encode_PDU8(pdu8), 0, 1); | |
53763 | ret_val := decode_PDU8(encoded_pdu, decoded_pdu8); | |
53764 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53765 | encoded_pdu := substr(encode_PDU8(pdu8), 0, 2); | |
53766 | ret_val := decode_PDU8(encoded_pdu, decoded_pdu8); | |
53767 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53768 | ||
53769 | var PDU9 pdu9 := { b := true } | |
53770 | var PDU9 decoded_pdu9; | |
53771 | encoded_pdu := substr(encode_PDU9(pdu9), 0, 0); | |
53772 | ret_val := decode_PDU9(encoded_pdu, decoded_pdu9); | |
53773 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53774 | encoded_pdu := substr(encode_PDU9(pdu9), 0, 1); | |
53775 | ret_val := decode_PDU9(encoded_pdu, decoded_pdu9); | |
53776 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53777 | encoded_pdu := substr(encode_PDU9(pdu9), 0, 2); | |
53778 | ret_val := decode_PDU9(encoded_pdu, decoded_pdu9); | |
53779 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53780 | ||
53781 | var PDU10 pdu10 := { 123 , true } | |
53782 | var PDU10 decoded_pdu10; | |
53783 | encoded_pdu := substr(encode_PDU10(pdu10), 0, 0); | |
53784 | ret_val := decode_PDU10(encoded_pdu, decoded_pdu10); | |
53785 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53786 | encoded_pdu := substr(encode_PDU10(pdu10), 0, 1); | |
53787 | ret_val := decode_PDU10(encoded_pdu, decoded_pdu10); | |
53788 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53789 | encoded_pdu := substr(encode_PDU10(pdu10), 0, 2); | |
53790 | ret_val := decode_PDU10(encoded_pdu, decoded_pdu10); | |
53791 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53792 | ||
53793 | var PDU11 pdu11 := { 1, 2, 3 } | |
53794 | var PDU11 decoded_pdu11; | |
53795 | encoded_pdu := substr(encode_PDU11(pdu11), 0, 0); | |
53796 | ret_val := decode_PDU11(encoded_pdu, decoded_pdu11); | |
53797 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53798 | encoded_pdu := substr(encode_PDU11(pdu11), 0, 1); | |
53799 | ret_val := decode_PDU11(encoded_pdu, decoded_pdu11); | |
53800 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53801 | encoded_pdu := substr(encode_PDU11(pdu11), 0, 2); | |
53802 | ret_val := decode_PDU11(encoded_pdu, decoded_pdu11); | |
53803 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53804 | ||
53805 | var PDU12 pdu12 := objid { itu_t(0) 4 } | |
53806 | var PDU12 decoded_pdu12; | |
53807 | encoded_pdu := substr(encode_PDU12(pdu12), 0, 0); | |
53808 | ret_val := decode_PDU12(encoded_pdu, decoded_pdu12); | |
53809 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53810 | encoded_pdu := substr(encode_PDU12(pdu12), 0, 1); | |
53811 | ret_val := decode_PDU12(encoded_pdu, decoded_pdu12); | |
53812 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53813 | encoded_pdu := substr(encode_PDU12(pdu12), 0, 2); | |
53814 | ret_val := decode_PDU12(encoded_pdu, decoded_pdu12); | |
53815 | if (ret_val==2) {setverdict(pass);} else {setverdict(fail);} | |
53816 | ||
53817 | <RESULT> | |
53818 | ||
53819 | Overall verdict: pass | |
53820 | ||
53821 | <END_TC> | |
53822 | ||
53823 | :exmp. | |
53824 | ||
53825 | .*---------------------------------------------------------------------* | |
53826 | :h2. Encoding/decoding of big integers | |
53827 | .*---------------------------------------------------------------------* | |
53828 | .*---------------------------------------------------------------------* | |
53829 | :h3. Encoding/decoding of big integers | |
53830 | .*---------------------------------------------------------------------* | |
53831 | :xmp tab=0. | |
53832 | ||
53833 | <TC - Encoding/decoding of big integers> | |
53834 | ||
53835 | <STATIC:ASN> | |
53836 | ||
53837 | TempA DEFINITIONS AUTOMATIC TAGS ::= | |
53838 | BEGIN | |
53839 | ||
53840 | BERPDU ::= INTEGER | |
53841 | bi1 BERPDU ::= 5 | |
53842 | bi2 BERPDU ::= 0 | |
53843 | bi3 BERPDU ::= 127 | |
53844 | bi4 BERPDU ::= -128 | |
53845 | bi5 BERPDU ::= -5 | |
53846 | bi-6 BERPDU ::= 128 | |
53847 | bi7 BERPDU ::= -129 | |
53848 | ||
53849 | BERPDU2 ::= REAL | |
53850 | --b BERPDU2 ::= 12345678900 | |
53851 | ||
53852 | Rec-ber ::= SEQUENCE { | |
53853 | int1 Number, | |
53854 | int2 Number | |
53855 | } | |
53856 | Rec-ber-literal ::= SEQUENCE { | |
53857 | int1 NumberLit, | |
53858 | int2 NumberLit | |
53859 | } | |
53860 | Number ::= INTEGER | |
53861 | NumberLit ::= NumericString (SIZE (100)) | |
53862 | myNumber Number ::= 12345678910111213141516 | |
53863 | ||
53864 | END | |
53865 | ||
53866 | <STATIC> | |
53867 | ||
53868 | import from TempA language "ASN.1:1997" all | |
53869 | ||
53870 | external function enc_ber1(in Rec_ber r) return octetstring | |
53871 | with { extension "encode(BER:BER_ENCODE_DER) prototype(convert) errorbehavior(ALL:WARNING)" } | |
53872 | external function dec_ber1(in octetstring r) return Rec_ber | |
53873 | with { extension "decode(BER:BER_ACCEPT_ALL) prototype(convert) errorbehavior(ALL:WARNING)" } | |
53874 | external function enc_ber2(in integer r) return octetstring | |
53875 | with { extension "encode(BER:BER_ENCODE_DER) prototype(convert) errorbehavior(ALL:WARNING)" } | |
53876 | // Attributes are not checked in the compiler. | |
53877 | external function dec_ber2(in octetstring r) return integer | |
53878 | with { extension "decode(BER:BER_ENCODE_DER) prototype(convert) errorbehavior(ALL:WARNING)" } | |
53879 | external function dec_ber3(inout octetstring r, out Rec_ber s) return integer | |
53880 | with { extension "decode(BER:BER_ACCEPT_ALL) prototype(sliding) errorbehavior(ALL:WARNING)" } | |
53881 | ||
53882 | type component comp_ber { } | |
53883 | ||
53884 | <TTCN_TC:EXEC> | |
53885 | ||
53886 | const integer a := 2147483647 | |
53887 | const integer b := 2147483648 | |
53888 | const integer c := 2147483649 | |
53889 | const integer d := 128 | |
53890 | const integer e := myNumber | |
53891 | const integer f := 12147483648 | |
53892 | var Rec_ber myrec1 := {int1 := a, int2 := b} | |
53893 | var Rec_ber myrec2 := {int1 := c, int2 := d} | |
53894 | var Rec_ber myrec3 := {int1 := 1048576, int2 := 321768} | |
53895 | var Rec_ber myrec4 := {65536, 131072} | |
53896 | var Rec_ber myrec5 := {4294967296, 8388608} | |
53897 | var Rec_ber myrec6 := {12345678910111213141516, 11111111111111111111} | |
53898 | var Rec_ber myrec7 := {8589934592, 1099511627776} | |
53899 | var Rec_ber myrec8 := {int1 := a, int2 := b} | |
53900 | var Rec_ber myrec9 := {int1 := 12345678910111213141516, int2 := -1234} | |
53901 | var Rec_ber myrec10 := {int1 := -12345678910111213141516, int2 := -1234} | |
53902 | var Rec_ber myrec11 := {2147483648, -2147483648} | |
53903 | var Rec_ber myrec12 := {-2147483647, 2147483647} | |
53904 | var Rec_ber myrec13 := {2147483649, -2147483649} | |
53905 | var Rec_ber myrec14 := {-4294967296, 4294967296} | |
53906 | var Rec_ber myrec15 := {4294967295, -4294967295} | |
53907 | var Rec_ber myrec16 := {-4294967297, 4294967297} | |
53908 | var Rec_ber pdu1 := {12345678910111213141516, -2147483648} | |
53909 | var Rec_ber pdu2 := {123, 456} | |
53910 | var octetstring encoded_pdu | |
53911 | var Rec_ber decoded_pdu | |
53912 | var integer ret_val | |
53913 | encoded_pdu := enc_ber1(pdu2) | |
53914 | ret_val := dec_ber3(encoded_pdu, decoded_pdu) | |
53915 | if (ret_val == 0 and decoded_pdu == pdu2) {setverdict(pass)} else {setverdict(fail)} | |
53916 | encoded_pdu := '800100'O | |
53917 | ret_val := dec_ber3(encoded_pdu, decoded_pdu) | |
53918 | if (ret_val == 2) {setverdict(pass)} else {setverdict(fail)} | |
53919 | encoded_pdu := substr(enc_ber1(pdu1), 0, 4) | |
53920 | ret_val := dec_ber3(encoded_pdu, decoded_pdu) | |
53921 | if (ret_val == 2) {setverdict(pass)} else {setverdict(fail)} | |
53922 | encoded_pdu := enc_ber2(-2147483648) | |
53923 | if (encoded_pdu == '020480000000'O) {setverdict(pass)} else {setverdict(fail)} | |
53924 | encoded_pdu := enc_ber1(myrec1) | |
53925 | if (myrec1 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53926 | if ({int1 := a, int2 := b} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53927 | encoded_pdu := enc_ber1(myrec2) | |
53928 | if (myrec2 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53929 | if ({int1 := c, int2 := d} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53930 | encoded_pdu := enc_ber1(myrec3) | |
53931 | if (myrec3 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53932 | if ({int1 := 1048576, int2 := 321768} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53933 | encoded_pdu := enc_ber1(myrec4) | |
53934 | if (myrec4 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53935 | if ({65536, 131072} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53936 | encoded_pdu := enc_ber1(myrec5) | |
53937 | if (myrec5 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53938 | if ({4294967296, 8388608} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53939 | encoded_pdu := enc_ber1(myrec6) | |
53940 | if (myrec6 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53941 | if ({12345678910111213141516, 11111111111111111111} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53942 | encoded_pdu := enc_ber1(myrec7) | |
53943 | if (myrec7 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53944 | if ({8589934592, 1099511627776} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53945 | encoded_pdu := enc_ber1(myrec8) | |
53946 | if (myrec8 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53947 | if ({int1 := a, int2 := b} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53948 | encoded_pdu := enc_ber1(myrec9) | |
53949 | if (myrec9 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53950 | if ({int1 := 12345678910111213141516, int2 := -1234} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53951 | encoded_pdu := enc_ber1(myrec10) | |
53952 | if (myrec10 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53953 | if ({int1 := -12345678910111213141516, int2 := -1234} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53954 | encoded_pdu := enc_ber1(myrec11) | |
53955 | if (myrec11 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53956 | if ({2147483648, -2147483648} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53957 | encoded_pdu := enc_ber1(myrec12) | |
53958 | if (myrec12 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53959 | if ({-2147483647, 2147483647} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53960 | encoded_pdu := enc_ber1(myrec13) | |
53961 | if (myrec13 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53962 | if ({2147483649, -2147483649} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53963 | encoded_pdu := enc_ber1(myrec14) | |
53964 | if (myrec14 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53965 | if ({-4294967296, 4294967296} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53966 | encoded_pdu := enc_ber1(myrec15) | |
53967 | if (myrec15 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53968 | if ({4294967295, -4294967295} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53969 | encoded_pdu := enc_ber1(myrec16) | |
53970 | if (myrec16 == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53971 | if ({-4294967297, 4294967297} == dec_ber1(encoded_pdu)) {setverdict(pass)} else {setverdict(fail)} | |
53972 | ||
53973 | ||
53974 | <RESULT> | |
53975 | ||
53976 | Overall verdict: pass | |
53977 | ||
53978 | <END_TC> | |
53979 | ||
53980 | :exmp. | |
53981 | ||
53982 | .*---------------------------------------------------------------------* | |
53983 | :h2.Purpose | |
53984 | .*---------------------------------------------------------------------* | |
53985 | Negative tests for the BER decoder. | |
53986 | .*---------------------------------------------------------------------* | |
53987 | :h2.Test cases | |
53988 | .*---------------------------------------------------------------------* | |
53989 | ||
53990 | .*---------------------------------------------------------------------* | |
53991 | :h3. BER decoding REAL, decimal form NR3 pretending to be NR1 | |
53992 | .*---------------------------------------------------------------------* | |
53993 | :xmp tab=0. | |
53994 | ||
53995 | <TC- BER decoding REAL, decimal form NR3 pretending to be NR1> | |
53996 | ||
53997 | <STATIC:ASN> | |
53998 | ||
53999 | TempA | |
54000 | DEFINITIONS | |
54001 | AUTOMATIC TAGS | |
54002 | ::= | |
54003 | BEGIN | |
54004 | ||
54005 | IMPORTS; -- nothing | |
54006 | ||
54007 | BERPDU ::= REAL | |
54008 | ||
54009 | END | |
54010 | ||
54011 | <STATIC> | |
54012 | ||
54013 | type float BERPDU; | |
54014 | ||
54015 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
54016 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) " } | |
54017 | ||
54018 | // pi: 31415926.E-7 | |
54019 | const octetstring der_encoded := '090D0133313431353932362E452D37'O; | |
54020 | const BERPDU myValue := 3.1415926; | |
54021 | ||
54022 | <TTCN_TC:EXEC> | |
54023 | ||
54024 | var BERPDU der_decoded, cer_decoded; | |
54025 | ||
54026 | dec_BER_PDU(der_encoded, der_decoded); | |
54027 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
54028 | ||
54029 | <RESULT> | |
54030 | ||
54031 | Dynamic test case error: While BER-decoding type '@Temp.BERPDU': While decoding REAL type: This decimal encoding does not conform to NR1 form. | |
54032 | ||
54033 | <END_TC> | |
54034 | ||
54035 | :exmp. | |
54036 | ||
54037 | ||
54038 | .*---------------------------------------------------------------------* | |
54039 | :h3. BER decoding REAL, decimal form NR3 pretending to be NR2 | |
54040 | .*---------------------------------------------------------------------* | |
54041 | :xmp tab=0. | |
54042 | ||
54043 | <TC- BER decoding REAL, decimal form NR3 pretending to be NR2> | |
54044 | ||
54045 | <STATIC:ASN> | |
54046 | ||
54047 | TempA | |
54048 | DEFINITIONS | |
54049 | AUTOMATIC TAGS | |
54050 | ::= | |
54051 | BEGIN | |
54052 | ||
54053 | IMPORTS; -- nothing | |
54054 | ||
54055 | BERPDU ::= REAL | |
54056 | ||
54057 | END | |
54058 | ||
54059 | <STATIC> | |
54060 | ||
54061 | type float BERPDU; | |
54062 | ||
54063 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
54064 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) " } | |
54065 | ||
54066 | // pi: 31415926.E-7 | |
54067 | const octetstring der_encoded := '090D0233313431353932362E452D37'O; | |
54068 | const BERPDU myValue := 3.1415926; | |
54069 | ||
54070 | <TTCN_TC:EXEC> | |
54071 | ||
54072 | var BERPDU der_decoded, cer_decoded; | |
54073 | ||
54074 | dec_BER_PDU(der_encoded, der_decoded); | |
54075 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
54076 | ||
54077 | <RESULT> | |
54078 | ||
54079 | Dynamic test case error: While BER-decoding type '@Temp.BERPDU': While decoding REAL type: This decimal encoding does not conform to NR2 form. | |
54080 | ||
54081 | <END_TC> | |
54082 | ||
54083 | :exmp. | |
54084 | ||
54085 | .*---------------------------------------------------------------------* | |
54086 | :h3. BER decoding REAL, reserved decimal form 0x20 | |
54087 | .*---------------------------------------------------------------------* | |
54088 | :xmp tab=0. | |
54089 | ||
54090 | <TC- BER decoding REAL, reserved decimal form 0x20> | |
54091 | ||
54092 | <STATIC:ASN> | |
54093 | ||
54094 | TempA | |
54095 | DEFINITIONS | |
54096 | AUTOMATIC TAGS | |
54097 | ::= | |
54098 | BEGIN | |
54099 | ||
54100 | IMPORTS; -- nothing | |
54101 | ||
54102 | BERPDU ::= REAL | |
54103 | ||
54104 | END | |
54105 | ||
54106 | <STATIC> | |
54107 | ||
54108 | type float BERPDU; | |
54109 | ||
54110 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
54111 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) " } | |
54112 | ||
54113 | // pi: 31415926.E-7 | |
54114 | const octetstring der_encoded := '090D2033313431353932362E452D37'O; | |
54115 | const BERPDU myValue := 3.1415926; | |
54116 | ||
54117 | <TTCN_TC:EXEC> | |
54118 | ||
54119 | var BERPDU der_decoded, cer_decoded; | |
54120 | ||
54121 | dec_BER_PDU(der_encoded, der_decoded); | |
54122 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
54123 | ||
54124 | <RESULT> | |
54125 | ||
54126 | Dynamic test case error: While BER-decoding type '@Temp.BERPDU': While decoding REAL type: This is a reserved value: 0x20 (See X.690 8.5.7). | |
54127 | ||
54128 | <END_TC> | |
54129 | ||
54130 | :exmp. | |
54131 | ||
54132 | ||
54133 | .*---------------------------------------------------------------------* | |
54134 | :h3. BER decoding REAL, decimal form 0 | |
54135 | .*---------------------------------------------------------------------* | |
54136 | :xmp tab=0. | |
54137 | ||
54138 | <TC- BER decoding REAL, decimal form 0> | |
54139 | ||
54140 | <STATIC:ASN> | |
54141 | ||
54142 | TempA | |
54143 | DEFINITIONS | |
54144 | AUTOMATIC TAGS | |
54145 | ::= | |
54146 | BEGIN | |
54147 | ||
54148 | IMPORTS; -- nothing | |
54149 | ||
54150 | BERPDU ::= REAL | |
54151 | ||
54152 | END | |
54153 | ||
54154 | <STATIC> | |
54155 | ||
54156 | type float BERPDU; | |
54157 | ||
54158 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
54159 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) " } | |
54160 | ||
54161 | // pi: 31415926.E-7 | |
54162 | const octetstring der_encoded := '090D0033313431353932362E452D37'O; | |
54163 | const BERPDU myValue := 3.1415926; | |
54164 | ||
54165 | <TTCN_TC:EXEC> | |
54166 | ||
54167 | var BERPDU der_decoded, cer_decoded; | |
54168 | ||
54169 | dec_BER_PDU(der_encoded, der_decoded); | |
54170 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
54171 | ||
54172 | <RESULT> | |
54173 | ||
54174 | Dynamic test case error: While BER-decoding type '@Temp.BERPDU': While decoding REAL type: This is a reserved value: 0x0 (See X.690 8.5.7). | |
54175 | ||
54176 | <END_TC> | |
54177 | ||
54178 | :exmp. | |
54179 | ||
54180 | ||
54181 | .*---------------------------------------------------------------------* | |
54182 | :h3. BER decoding REAL, decimal form 4 | |
54183 | .*---------------------------------------------------------------------* | |
54184 | :xmp tab=0. | |
54185 | ||
54186 | <TC- BER decoding REAL, decimal form 4> | |
54187 | ||
54188 | <STATIC:ASN> | |
54189 | ||
54190 | TempA | |
54191 | DEFINITIONS | |
54192 | AUTOMATIC TAGS | |
54193 | ::= | |
54194 | BEGIN | |
54195 | ||
54196 | IMPORTS; -- nothing | |
54197 | ||
54198 | BERPDU ::= REAL | |
54199 | ||
54200 | END | |
54201 | ||
54202 | <STATIC> | |
54203 | ||
54204 | type float BERPDU; | |
54205 | ||
54206 | external function dec_BER_PDU(in octetstring os, out BERPDU pdu) | |
54207 | with { extension "prototype(fast) decode(BER:BER_ACCEPT_ALL) " } | |
54208 | ||
54209 | // pi: 31415926.E-7 | |
54210 | const octetstring der_encoded := '090D0433313431353932362E452D37'O; | |
54211 | const BERPDU myValue := 3.1415926; | |
54212 | ||
54213 | <TTCN_TC:EXEC> | |
54214 | ||
54215 | var BERPDU der_decoded, cer_decoded; | |
54216 | ||
54217 | dec_BER_PDU(der_encoded, der_decoded); | |
54218 | if (der_decoded==myValue) {setverdict(pass);} else {setverdict(fail);} | |
54219 | ||
54220 | <RESULT> | |
54221 | ||
54222 | Dynamic test case error: While BER-decoding type '@Temp.BERPDU': While decoding REAL type: This is a reserved value: 0x4 (See X.690 8.5.7). | |
54223 | ||
54224 | <END_TC> | |
54225 | ||
54226 | :exmp. | |
54227 | ||
54228 | .*---------------------------------------------------------------------* | |
54229 | :h3. Memory leak while BER decoding, test for HO73756 | |
54230 | .*---------------------------------------------------------------------* | |
54231 | :xmp tab=0. | |
54232 | ||
54233 | <TC - Memory leak while BER decoding, test for HO73756> | |
54234 | ||
54235 | <STATIC:ASN> | |
54236 | TempA DEFINITIONS ::= | |
54237 | BEGIN | |
54238 | ||
54239 | MY-CLASS-1 ::= CLASS | |
54240 | { | |
54241 | &TypeField OPTIONAL, | |
54242 | &fixedTypeValueField ASN1-Type1 UNIQUE OPTIONAL | |
54243 | ||
54244 | } | |
54245 | WITH SYNTAX | |
54246 | { | |
54247 | [TYPE FIELD &TypeField] | |
54248 | [FIXED VALUE TYPE FIELD &fixedTypeValueField] | |
54249 | } | |
54250 | ||
54251 | ASN1-Type1 ::= INTEGER | |
54252 | ||
54253 | ASN1-Type2 ::= BOOLEAN | |
54254 | ||
54255 | ASN1-Type3 ::= SEQUENCE {f1 INTEGER} | |
54256 | ||
54257 | ASN1-Type4 ::= OCTET STRING | |
54258 | ||
54259 | myObject-1 MY-CLASS-1 ::= | |
54260 | { | |
54261 | TYPE FIELD ASN1-Type3 | |
54262 | FIXED VALUE TYPE FIELD 999 | |
54263 | } | |
54264 | ||
54265 | myObject-2 MY-CLASS-1 ::= | |
54266 | { | |
54267 | TYPE FIELD ASN1-Type2 | |
54268 | FIXED VALUE TYPE FIELD 888 | |
54269 | } | |
54270 | ||
54271 | myObject-3 MY-CLASS-1 ::= | |
54272 | { | |
54273 | TYPE FIELD ASN1-Type4 | |
54274 | FIXED VALUE TYPE FIELD 555 | |
54275 | } | |
54276 | ||
54277 | MyInformationObjectSet1 MY-CLASS-1 ::= | |
54278 | { | |
54279 | myObject-1|myObject-2, | |
54280 | ... | |
54281 | } | |
54282 | ||
54283 | MyInformationObjectSet2 MY-CLASS-1 ::= | |
54284 | { | |
54285 | MyInformationObjectSet1|myObject-3, | |
54286 | ... | |
54287 | } | |
54288 | ||
54289 | BERPDU ::= SEQUENCE | |
54290 | { | |
54291 | field1 MY-CLASS-1.&TypeField ({MyInformationObjectSet1} {@.field2} ), | |
54292 | field2 MY-CLASS-1.&fixedTypeValueField ({MyInformationObjectSet1}) | |
54293 | } | |
54294 | ||
54295 | END | |
54296 | <STATIC> | |
54297 | // Test for memory leak problem in BER decoder: HO73756. | |
54298 | import from TempA all; | |
54299 | ||
54300 | external function dec_backtrack(in octetstring stream, out BERPDU outpdu) return integer with { extension "prototype(backtrack) decode(BER:BER_ACCEPT_ALL) errorbehavior(ALL:WARNING)" } | |
54301 | ||
54302 | type component empty { | |
54303 | var BERPDU mypdu | |
54304 | } | |
54305 | ||
54306 | <TTCN_TC:PURE_EXEC> | |
54307 | ||
54308 | testcase mytc() runs on empty { | |
54309 | dec_backtrack('30093003020108020203E7'O, mypdu) | |
54310 | dec_backtrack('30093003020108020203E7'O, mypdu) | |
54311 | setverdict(pass) | |
54312 | } | |
54313 | ||
54314 | control { | |
54315 | execute(mytc()) | |
54316 | } | |
54317 | ||
54318 | <RESULT> | |
54319 | ||
54320 | Overall verdict: pass | |
54321 | ||
54322 | <END_TC> | |
54323 | ||
54324 | :exmp. | |
54325 | ||
54326 | .*---------------------------------------------------------------------* | |
54327 | :h1.REFERENCES | |
54328 | .*---------------------------------------------------------------------* | |
54329 | :nl. Requirement specification(s): | |
54330 | :nl.------------------------------- | |
54331 | :list. | |
54332 | :li. 8/ETH/RUS-2003:0087 Uen - Requirement Specification for TITAN's encoder/decoder functions | |
54333 | :elist. | |
54334 | ||
54335 | :etext. |