use Test;
use Digest::SHA qw(sha1);
use strict;
use integer;
BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
my(@vec, @rsp);
BEGIN {
@vec = ( "hello world" );
@rsp = ( pack("H*", "2aae6c35c94fcfb415dbe95f408b9ce91ee846ed") );
plan tests => scalar(@vec);
}
for (my $i = 0; $i < @vec; $i++) {
ok(sha1($vec[$i]), $rsp[$i]);
}