This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
b2614f79e0cd0445ac5141776b76d7c27da2893f
[perl5.git] / cpan / Digest / t / base.t
1 #!perl -w
2
3 use Test qw(plan ok);
4 plan tests => 12;
5
6 {
7    package LenDigest;
8    require Digest::base;
9    use vars qw(@ISA);
10    @ISA = qw(Digest::base);
11
12    sub new {
13         my $class = shift;
14         my $str = "";
15         bless \$str, $class;
16    }
17
18    sub add {
19         my $self = shift;
20         $$self .= join("", @_);
21         return $self;
22    }
23
24    sub digest {
25         my $self = shift;
26         my $len = length($$self);
27         my $first = ($len > 0) ? substr($$self, 0, 1) : "X";
28         $$self = "";
29         return sprintf "$first%04d", $len;
30    }
31 }
32
33 my $ctx = LenDigest->new;
34 ok($ctx->digest, "X0000");
35
36 my $EBCDIC = ord('A') == 193;
37
38 if ($EBCDIC) {
39     ok($ctx->hexdigest, "e7f0f0f0f0");
40     ok($ctx->b64digest, "5/Dw8PA");
41 } else {
42     ok($ctx->hexdigest, "5830303030");
43     ok($ctx->b64digest, "WDAwMDA");
44 }
45
46 $ctx->add("foo");
47 ok($ctx->digest, "f0003");
48
49 $ctx->add("foo");
50 ok($ctx->hexdigest, $EBCDIC ? "86f0f0f0f3" : "6630303033");
51
52 $ctx->add("foo");
53 ok($ctx->b64digest, $EBCDIC ? "hvDw8PM" : "ZjAwMDM");
54
55 open(F, ">xxtest$$") || die;
56 binmode(F);
57 print F "abc" x 100, "\n";
58 close(F) || die;
59
60 open(F, "xxtest$$") || die;
61 $ctx->addfile(*F);
62 close(F);
63 unlink("xxtest$$") || warn;
64
65 ok($ctx->digest, "a0301");
66
67 eval {
68     $ctx->add_bits("1010");
69 };
70 ok($@ =~ /^Number of bits must be multiple of 8/);
71
72 $ctx->add_bits($EBCDIC ? "11100100" : "01010101");
73 ok($ctx->digest, "U0001");
74
75 eval {
76     $ctx->add_bits("abc", 12);
77 };
78 ok($@ =~ /^Number of bits must be multiple of 8/);
79
80 $ctx->add_bits("abc", 16);
81 ok($ctx->digest, "a0002");
82
83 $ctx->add_bits("abc", 32);
84 ok($ctx->digest, "a0003");