10 @ISA = qw(Digest::base);
20 $$self .= join("", @_);
26 my $len = length($$self);
27 my $first = ($len > 0) ? substr($$self, 0, 1) : "X";
29 return sprintf "$first%04d", $len;
33 my $ctx = LenDigest->new;
34 ok($ctx->digest, "X0000");
36 my $EBCDIC = ord('A') == 193;
39 ok($ctx->hexdigest, "e7f0f0f0f0");
40 ok($ctx->b64digest, "5/Dw8PA");
42 ok($ctx->hexdigest, "5830303030");
43 ok($ctx->b64digest, "WDAwMDA");
47 ok($ctx->digest, "f0003");
50 ok($ctx->hexdigest, $EBCDIC ? "86f0f0f0f3" : "6630303033");
53 ok($ctx->b64digest, $EBCDIC ? "hvDw8PM" : "ZjAwMDM");
55 open(F, ">xxtest$$") || die;
57 print F "abc" x 100, "\n";
60 open(F, "xxtest$$") || die;
63 unlink("xxtest$$") || warn;
65 ok($ctx->digest, "a0301");
68 $ctx->add_bits("1010");
70 ok($@ =~ /^Number of bits must be multiple of 8/);
72 $ctx->add_bits($EBCDIC ? "11100100" : "01010101");
73 ok($ctx->digest, "U0001");
76 $ctx->add_bits("abc", 12);
78 ok($@ =~ /^Number of bits must be multiple of 8/);
80 $ctx->add_bits("abc", 16);
81 ok($ctx->digest, "a0002");
83 $ctx->add_bits("abc", 32);
84 ok($ctx->digest, "a0003");