ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-BER-XS/t/01_helper.t
Revision: 1.3
Committed: Sat Apr 20 15:23:26 2019 UTC (5 years, 1 month 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

# 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_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
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_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
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_int +(ber_int 5), 5);
44 ok (ber_is_int +(ber_int 0), 0);
45