Change 26755 by [EMAIL PROTECTED] on 2006/01/09 14:27:07
Added standard core header to test cases for Digest::SHA
Affected files ...
... //depot/perl/ext/Digest/SHA/t/0-pod-coverage.t#2 edit
... //depot/perl/ext/Digest/SHA/t/0-pod.t#2 edit
... //depot/perl/ext/Digest/SHA/t/1-exist.t#2 edit
... //depot/perl/ext/Digest/SHA/t/1-hello-world.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-1.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-224.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-256.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-384.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-512.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-base64.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-sha-oo.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-vectors-bit.t#2 edit
... //depot/perl/ext/Digest/SHA/t/2-nist-vectors-byte.t#2 edit
... //depot/perl/ext/Digest/SHA/t/3-gillogly-easy.t#2 edit
... //depot/perl/ext/Digest/SHA/t/3-gillogly-hard.t#2 edit
... //depot/perl/ext/Digest/SHA/t/4-bitstr-increasing.t#2 edit
... //depot/perl/ext/Digest/SHA/t/4-bitstr-large.t#2 edit
... //depot/perl/ext/Digest/SHA/t/4-bitstr-random.t#2 edit
... //depot/perl/ext/Digest/SHA/t/5-hmac-fips198.t#2 edit
... //depot/perl/ext/Digest/SHA/t/5-hmac-rfc2202.t#2 edit
... //depot/perl/ext/Digest/SHA/t/5-hmac-sha-256.t#2 edit
... //depot/perl/ext/Digest/SHA/t/5-hmac-woodbury.t#2 edit
... //depot/perl/ext/Digest/SHA/t/6-dump-load.t#2 edit
... //depot/perl/ext/Digest/SHA/t/7-ireland.t#2 edit
Differences ...
==== //depot/perl/ext/Digest/SHA/t/0-pod-coverage.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/0-pod-coverage.t
--- perl/ext/Digest/SHA/t/0-pod-coverage.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/0-pod-coverage.t 2006-01-09 06:27:07.000000000
-0800
@@ -1,4 +1,8 @@
BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
eval "use Test::More";
if ($@) {
print "1..0 # Skipped: Test::More not installed\n";
==== //depot/perl/ext/Digest/SHA/t/0-pod.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/0-pod.t
--- perl/ext/Digest/SHA/t/0-pod.t#1~26704~ 2006-01-07 20:17:08.000000000
-0800
+++ perl/ext/Digest/SHA/t/0-pod.t 2006-01-09 06:27:07.000000000 -0800
@@ -1,4 +1,9 @@
BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+
eval "use Test::More";
if ($@) {
print "1..0 # Skipped: Test::More not installed\n";
==== //depot/perl/ext/Digest/SHA/t/1-exist.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/1-exist.t
--- perl/ext/Digest/SHA/t/1-exist.t#1~26704~ 2006-01-07 20:17:08.000000000
-0800
+++ perl/ext/Digest/SHA/t/1-exist.t 2006-01-09 06:27:07.000000000 -0800
@@ -1,5 +1,12 @@
use Test;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
BEGIN { plan tests => 1 }
use Digest::SHA qw(
==== //depot/perl/ext/Digest/SHA/t/1-hello-world.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/1-hello-world.t
--- perl/ext/Digest/SHA/t/1-hello-world.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/1-hello-world.t 2006-01-09 06:27:07.000000000
-0800
@@ -2,6 +2,12 @@
use Digest::SHA qw(sha1);
use strict;
use integer;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
my(@vec, @rsp);
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-1.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-1.t
--- perl/ext/Digest/SHA/t/2-nist-sha-1.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-1.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha1_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, @rsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-224.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-224.t
--- perl/ext/Digest/SHA/t/2-nist-sha-224.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-224.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha224_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, @rsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-256.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-256.t
--- perl/ext/Digest/SHA/t/2-nist-sha-256.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-256.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha256_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, @rsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-384.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-384.t
--- perl/ext/Digest/SHA/t/2-nist-sha-384.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-384.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha384_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, @rsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-512.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-512.t
--- perl/ext/Digest/SHA/t/2-nist-sha-512.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-512.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha512_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, @rsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-base64.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-base64.t
--- perl/ext/Digest/SHA/t/2-nist-sha-base64.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-base64.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(sha1_base64 sha224_base64 sha256_base64 sha384_base64
sha512_base64);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec, $data);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-sha-oo.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-sha-oo.t
--- perl/ext/Digest/SHA/t/2-nist-sha-oo.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-sha-oo.t 2006-01-09 06:27:07.000000000
-0800
@@ -5,6 +5,13 @@
use File::Spec;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-vectors-bit.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-vectors-bit.t
--- perl/ext/Digest/SHA/t/2-nist-vectors-bit.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-vectors-bit.t 2006-01-09 06:27:07.000000000
-0800
@@ -12,6 +12,13 @@
use File::Spec;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my @hashes;
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/2-nist-vectors-byte.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/2-nist-vectors-byte.t
--- perl/ext/Digest/SHA/t/2-nist-vectors-byte.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/2-nist-vectors-byte.t 2006-01-09 06:27:07.000000000
-0800
@@ -12,6 +12,13 @@
use File::Spec;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my @hashes;
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/3-gillogly-easy.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/3-gillogly-easy.t
--- perl/ext/Digest/SHA/t/3-gillogly-easy.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/3-gillogly-easy.t 2006-01-09 06:27:07.000000000
-0800
@@ -7,6 +7,13 @@
use integer;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
# SHA-1 Test Vectors
#
# In the following we use the notation bitstring#n to mean a bitstring
==== //depot/perl/ext/Digest/SHA/t/3-gillogly-hard.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/3-gillogly-hard.t
--- perl/ext/Digest/SHA/t/3-gillogly-hard.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/3-gillogly-hard.t 2006-01-09 06:27:07.000000000
-0800
@@ -9,6 +9,13 @@
use File::Spec;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
# SHA-1 Test Vectors
#
# In the following we use the notation bitstring#n to mean a bitstring
==== //depot/perl/ext/Digest/SHA/t/4-bitstr-increasing.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/4-bitstr-increasing.t
--- perl/ext/Digest/SHA/t/4-bitstr-increasing.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/4-bitstr-increasing.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
BEGIN { plan tests => 1 }
my $i;
==== //depot/perl/ext/Digest/SHA/t/4-bitstr-large.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/4-bitstr-large.t
--- perl/ext/Digest/SHA/t/4-bitstr-large.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/4-bitstr-large.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
BEGIN { plan tests => 1 }
my $i;
==== //depot/perl/ext/Digest/SHA/t/4-bitstr-random.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/4-bitstr-random.t
--- perl/ext/Digest/SHA/t/4-bitstr-random.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/4-bitstr-random.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
BEGIN { plan tests => 1 }
my $reps = 8000000;
==== //depot/perl/ext/Digest/SHA/t/5-hmac-fips198.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/5-hmac-fips198.t
--- perl/ext/Digest/SHA/t/5-hmac-fips198.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/5-hmac-fips198.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(hmac_sha1_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/5-hmac-rfc2202.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/5-hmac-rfc2202.t
--- perl/ext/Digest/SHA/t/5-hmac-rfc2202.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/5-hmac-rfc2202.t 2006-01-09 06:27:07.000000000
-0800
@@ -3,6 +3,13 @@
use integer;
use Digest::SHA qw(hmac_sha1_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@vec);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/5-hmac-sha-256.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/5-hmac-sha-256.t
--- perl/ext/Digest/SHA/t/5-hmac-sha-256.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/5-hmac-sha-256.t 2006-01-09 06:27:07.000000000
-0800
@@ -5,6 +5,13 @@
use integer;
use Digest::SHA qw(hmac_sha256_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@data);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/5-hmac-woodbury.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/5-hmac-woodbury.t
--- perl/ext/Digest/SHA/t/5-hmac-woodbury.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/5-hmac-woodbury.t 2006-01-09 06:27:07.000000000
-0800
@@ -7,6 +7,13 @@
use integer;
use Digest::SHA qw(hmac_sha256_hex hmac_sha384_hex hmac_sha512_hex);
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
BEGIN { plan tests => 21 }
# Use RFC 2202 data/key values for 512-bit blocks
==== //depot/perl/ext/Digest/SHA/t/6-dump-load.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/6-dump-load.t
--- perl/ext/Digest/SHA/t/6-dump-load.t#1~26704~ 2006-01-07
20:17:08.000000000 -0800
+++ perl/ext/Digest/SHA/t/6-dump-load.t 2006-01-09 06:27:07.000000000 -0800
@@ -5,6 +5,13 @@
use File::Basename qw(dirname);
use File::Spec;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
my(@sharsp);
BEGIN {
==== //depot/perl/ext/Digest/SHA/t/7-ireland.t#2 (text) ====
Index: perl/ext/Digest/SHA/t/7-ireland.t
--- perl/ext/Digest/SHA/t/7-ireland.t#1~26704~ 2006-01-07 20:17:08.000000000
-0800
+++ perl/ext/Digest/SHA/t/7-ireland.t 2006-01-09 06:27:07.000000000 -0800
@@ -4,6 +4,13 @@
use File::Spec;
use Digest::SHA;
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ }
+}
+
# David Ireland's test vector - SHA-256 digest of "a" x 536870912
# Adapted from Julius Duque's original script (t/24-ireland.tmp)
End of Patch.
