1use strict; 2use Digest::SHA qw(sha1_base64 sha224_base64 sha256_base64 3 sha384_base64 sha512_base64); 4 5my $in = "abc"; 6my @out = map { eval } <DATA>; 7my @fcn = (\&sha1_base64, \&sha224_base64, \&sha256_base64, 8 \&sha384_base64, \&sha512_base64); 9 10print "1..", scalar @out, "\n"; 11 12my $testnum = 1; 13while (@out) { 14 my $fcn = shift @fcn; 15 my $rsp = shift @out; 16 my $skip = &$fcn("") ? 0 : 1; 17 unless ($skip) { 18 print "not " unless &$fcn($in) eq $rsp; 19 } 20 print "ok ", $testnum++, $skip ? " # skip: no 64-bit" : "", "\n"; 21} 22 23__DATA__ 24"qZk+NkcGgWq6PiVxeFDCbJzQ2J0" 25"Iwl9IjQF2CKGQqR3vaJVsyqtvOS9oLP342ydpw" 26"ungWv48Bz+pBQUDeXa4iI7ADYaOWF3qctBD/YfIAFa0" 27"ywB1P0WjXou1oD1pmsZQBycsMqsO3tFjGotgWkP/W+2AhgcroefMI1i67KE0yCWn" 28"3a81oZNherrMQXNJriBBMRLm+k6JqX6iCp7u5ktV05ohkpkqJ0/BqDa6PCOj/uu9RU1EI2Q86A4qmslPpUyknw" 29 30