ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-BER-XS/t/01_helper.t
Revision: 1.1
Committed: Sat Apr 20 13:46:15 2019 UTC (5 years, 1 month ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-0_8
Log Message: 
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 BEGIN { $| = 1; print "1..29\n"; }
2    
3     use common::sense;
4     use Convert::BER::XS ':all';
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