1 | BEGIN { $| = 1; print "1..378\n"; } |
1 | BEGIN { $| = 1; print "1..384\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 | our $test; |
6 | our $test; |
… | |
… | |
52 | fail "0202ffff", "X.690 8.3.2"; |
52 | fail "0202ffff", "X.690 8.3.2"; |
53 | fail "02020001", "X.690 8.3.2"; |
53 | fail "02020001", "X.690 8.3.2"; |
54 | fail "0208ffffffffffffffff", "X.690 8.3.2"; |
54 | fail "0208ffffffffffffffff", "X.690 8.3.2"; |
55 | |
55 | |
56 | # types |
56 | # types |
|
|
57 | roundtrip "020100", [ASN_UNIVERSAL, ASN_INTEGER, 0, 0]; |
57 | roundtrip "020105", [ASN_UNIVERSAL, ASN_INTEGER, 0, 5]; |
58 | roundtrip "020105", [ASN_UNIVERSAL, ASN_INTEGER, 0, 5]; |
58 | roundtrip "0201ff", [ASN_UNIVERSAL, ASN_INTEGER, 0, -1]; |
59 | roundtrip "0201ff", [ASN_UNIVERSAL, ASN_INTEGER, 0, -1]; |
59 | roundtrip "020200ff", [ASN_UNIVERSAL, ASN_INTEGER, 0, 255]; |
60 | roundtrip "020200ff", [ASN_UNIVERSAL, ASN_INTEGER, 0, 255]; |
60 | roundtrip "020500ffffffff", [ASN_UNIVERSAL, ASN_INTEGER, 0, 4294967295]; |
61 | roundtrip "020500ffffffff", [ASN_UNIVERSAL, ASN_INTEGER, 0, 4294967295]; |
61 | roundtrip "020488776655", [ASN_UNIVERSAL, ASN_INTEGER, 0, -2005440939]; |
62 | roundtrip "020488776655", [ASN_UNIVERSAL, ASN_INTEGER, 0, -2005440939]; |