[p5sagit/p5-mst-13.2.git] / ext / Digest / SHA / t / 1-hello-world.t

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]);
}
Commit	Line	Data
6bc89f92	1	use Test;
	2	use Digest::SHA qw(sha1);
	3	use strict;
	4	use integer;
77d2a621	5
41c686de	6	BEGIN {
77d2a621	7	if ($ENV{PERL_CORE}) {
	8	chdir 't' if -d 't';
	9	@INC = '../lib';
	10	}
41c686de	11	}
6bc89f92	12
	13	my(@vec, @rsp);
	14
77d2a621	15	BEGIN {
6bc89f92	16
	17	@vec = ( "hello world" );
	18
	19	@rsp = ( pack("H*", "2aae6c35c94fcfb415dbe95f408b9ce91ee846ed") );
	20
	21	plan tests => scalar(@vec);
	22
	23	}
	24
	25	for (my $i = 0; $i < @vec; $i++) {
	26	ok(sha1($vec[$i]), $rsp[$i]);
	27	}