Make also hex() and oct() to croak if their arguments

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index d5ddb51..330cc43 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -14,6 +14,10 @@ use Test::Harness;
 $Test::Harness::switches = "";    # Too much noise otherwise
 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
 
+# Let tests know they're running in the perl core.  Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
 #fudge DATA for now.
 %datahandle = qw(
                lib/bigint.t            1
@@ -46,6 +50,7 @@ if (@ARGV) {
         push @tests, <run/*.t>;
         push @tests, <io/*.t>;
         push @tests, <op/*.t>;
+        push @tests, <uni/*.t>;
         push @tests, <lib/*.t>;
        use File::Spec;
        my $updir = File::Spec->updir;