1 | BEGIN { $| = 1; print "1..44\n"; } |
1 | BEGIN { $| = 1; print "1..60\n"; } |
2 | |
2 | |
3 | use common::sense; |
3 | use common::sense; |
4 | use Convert::BER::XS ':all'; |
4 | use Convert::BER::XS ':all'; |
5 | |
5 | |
6 | # finally, the "löonger" testcase |
6 | # finally, the "löonger" testcase |
… | |
… | |
424 | 61f5 bd17 1d64 2c49 59bd cb93 6b70 11f |
424 | 61f5 bd17 1d64 2c49 59bd cb93 6b70 11f |
425 | 51bf d2f8 5f90 dc5d 91a0 d498 e655 ef6 |
425 | 51bf d2f8 5f90 dc5d 91a0 d498 e655 ef6 |
426 | 7a82 41a2 70ff 3238 bc7d 8a6b 7441 a96 |
426 | 7a82 41a2 70ff 3238 bc7d 8a6b 7441 a96 |
427 | 80af 2b1b 6e7a 98 |
427 | 80af 2b1b 6e7a 98 |
428 | |
428 | |
|
|
429 | # indefinite encoding. invalid snmp, but valid ber. |
|
|
430 | |
|
|
431 | 60 80 01 01 01 01 01 00 |
|
|
432 | 61 80 a0 80 03 02 04 80 |
|
|
433 | 03 02 04 40 00 00 00 00 |
|
|
434 | 04 06 313233343536 00 00 |
|
|
435 | |
|
|
436 | # rfc 3416, slightly changed to roundtrip |
|
|
437 | roundtrip |
|
|
438 | a5 39 |
|
|
439 | 02 04 54 52 5d 76 |
|
|
440 | 02 01 01 |
|
|
441 | 02 01 02 |
|
|
442 | 30 2b |
|
|
443 | 30 0b |
|
|
444 | 06 07 2b 06 01 02 01 01 03 |
|
|
445 | 05 00 |
|
|
446 | 30 0d |
|
|
447 | 06 09 2b 06 01 02 01 04 16 01 02 |
|
|
448 | 05 00 |
|
|
449 | 30 0d |
|
|
450 | 06 09 2b 06 01 02 01 04 16 01 04 |
|
|
451 | 05 00 |
|
|
452 | |