use strict;
use Test::More tests => 2;
BEGIN {
use_ok('Digest::Haval256')
};
BEGIN {
open INFILE, "t/file4.test";
my $haval = new Digest::Haval256;
$haval->addfile(*INFILE);
my $digest = $haval->hexdigest();
close INFILE;
is("153d2c81cd3c24249ab7cd476934287af845af37f53f51f5c7e2be99ba28443f",
$digest);
};