1use diagnostics;
2use strict;
3use warnings;
4use Test::More tests => 2;
5BEGIN {
6    use_ok('Digest::Haval256')
7};
8
9BEGIN {
10    my $haval = new Digest::Haval256;
11    $haval->add("HAVAL");
12    my $digest = $haval->hexdigest();
13    is("153d2c81cd3c24249ab7cd476934287af845af37f53f51f5c7e2be99ba28443f",
14        $digest);
15};
16
17