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