use
diagnostics;
use
strict;
use
warnings;
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
);
};