ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/Convert-BER-XS/t/01_helper.t
Revision: 1.3
Committed: Sat Apr 20 15:23:26 2019 UTC (7 years, 6 months ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-1_1, rel-1_0, rel-1_2, rel-1_11, rel-0_9, HEAD
Changes since 1.2: +20 -20 lines
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 root 1.2 use Convert::BER::XS qw(:encode :decode :const);
5 root 1.1
6     our $test;
7     sub ok($) {
8     print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
9     }
10    
11 root 1.3 ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER, 0, 5);
12     ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], undef , ASN_INTEGER, 0, 5);
13     ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, undef , 0, 5);
14     ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER, undef, 5);
15     ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER, 0, undef);
16    
17     ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER, 0, 4);
18     ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER, 1, 5);
19     ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_APPLICATION, ASN_INTEGER);
20     ok (!ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], undef, ASN_BOOLEAN);
21 root 1.1
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 root 1.3 ok (ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], 5);
27     ok (5 == ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], 5);
28     ok (ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 0, 0], 0);
29     ok (0 == ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 0, 0], 0);
30     ok (ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 0, 0]);
31     ok (!ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 1, 3], 3);
32     ok (!ber_is_int [ASN_UNIVERSAL, ASN_INTEGER, 1, 0]);
33     ok (!ber_is_int [ASN_PRIVATE, ASN_INTEGER, 0, 0]);
34 root 1.1
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 root 1.3 ok (ber_is_int +(ber_int 5), 5);
44     ok (ber_is_int +(ber_int 0), 0);
45 root 1.1