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