1use strict; 2use warnings; 3 4use Test::More tests => 2; 5 6use Digest::Whirlpool; 7 8{ 9 local $@; 10 eval { Digest::Whirlpool::digest }; 11 like $@, qr/\(self/, "digest as a non-oo method"; 12} 13 14my $whirlpool = Digest::Whirlpool->new; 15 16$whirlpool->add( "a" ); 17 18cmp_ok length $whirlpool->digest, '==', 64, "digest"; 19 20