1use strict; 2 3use Test::More tests => 1; 4 5use File::Spec; 6use Digest::Whirlpool; 7 8my $path = File::Spec->catfile( qw< t file.test > ); 9 10open INFILE, $path; 11 12my $whirlpool = Digest::Whirlpool->new; 13 14$whirlpool->addfile( *INFILE ); 15 16like $whirlpool->clone->hexdigest, qr/^f1d/, "adding two items to the first one"; 17