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