9 use vars qw(@ISA $VERSION);
10 @ISA = qw(Digest::base);
20 $$self .= join("", @_);
26 return sprintf "%04d", length($$self);
30 use Digest::file qw(digest_file digest_file_hex digest_file_base64);
34 open(F, ">$file") || die "Can't create '$file': $!";
37 close(F) || die "Can't write '$file': $!";
39 ok(digest_file($file, "Foo"), "0005");
41 if (ord('A') == 193) { # EBCDIC.
42 ok(digest_file_hex($file, "Foo"), "f0f0f0f5");
43 ok(digest_file_base64($file, "Foo"), "8PDw9Q");
45 ok(digest_file_hex($file, "Foo"), "30303035");
46 ok(digest_file_base64($file, "Foo"), "MDAwNQ");
49 unlink($file) || warn "Can't unlink '$file': $!";
51 ok(eval { digest_file("not-there.txt", "Foo") }, undef);