ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-BER-XS/t/01_helper.t
Revision: 1.2
Committed: Sat Apr 20 14:45:03 2019 UTC (5 years, 1 month ago) by root
Content type: application/x-troff
Branch: MAIN
Changes since 1.1: +1 -1 lines
Log Message: 
*** empty log message ***

File Contents

# Content
1 BEGIN { $| = 1; print "1..29\n"; }
2
3 use common::sense;
4 use Convert::BER::XS qw(:encode :decode :const);
5
6 our $test;
7 sub ok($) {
8 print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
9 }
10
11 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, ASN_INTEGER32, 0, 5);
12 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], undef , ASN_INTEGER32, 0, 5);
13 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, undef , 0, 5);
14 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, ASN_INTEGER32, undef, 5);
15 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, ASN_INTEGER32, 0, undef);
16
17 ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, ASN_INTEGER32, 0, 4);
18 ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_UNIVERSAL, ASN_INTEGER32, 1, 5);
19 ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], ASN_APPLICATION, ASN_INTEGER32);
20 ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], undef, ASN_BOOLEAN);
21
22 ok (ber_is [ASN_UNIVERSAL, ASN_OCTET_STRING, 0, 5], undef, undef, undef, 5);
23 ok (!ber_is [ASN_UNIVERSAL, ASN_OCTET_STRING, 0, "5 "], undef, undef, undef, 5);
24 ok (ber_is [ASN_UNIVERSAL, ASN_OCTET_STRING, 0, "5 "], undef, undef, undef, "5 ");
25
26 ok (ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], 5);
27 ok (5 == ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 0, 5], 5);
28 ok (ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 0, 0], 0);
29 ok (0 == ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 0, 0], 0);
30 ok (ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 0, 0]);
31 ok (!ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 1, 3], 3);
32 ok (!ber_is_i32 [ASN_UNIVERSAL, ASN_INTEGER32, 1, 0]);
33 ok (!ber_is_i32 [ASN_PRIVATE, ASN_INTEGER32, 0, 0]);
34
35 ok (ref ber_is_seq [ASN_UNIVERSAL, ASN_SEQUENCE, 1, []]);
36 ok (!ref ber_is_seq [ASN_UNIVERSAL, ASN_SEQUENCE, 0, []]);
37 ok (!ref ber_is_seq [ASN_APPLICATION, ASN_SEQUENCE, 1, []]);
38 ok (ber_is_oid [ASN_UNIVERSAL, ASN_OID, 0, "1.2.3"]);
39 ok (ber_is_oid [ASN_UNIVERSAL, ASN_OID, 0, "1.2.3"], "1.2.3");
40 ok (!ber_is_oid [ASN_CONTEXT, ASN_OID, 0, "1.2.3"], "1.2.3");
41 ok (!ber_is_oid [ASN_UNIVERSAL, ASN_OCTET_STRING, 0, "1.2.3"], "1.2.3");
42
43 ok (ber_is_i32 +(ber_i32 5), 5);
44 ok (ber_is_i32 +(ber_i32 0), 0);
45