$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
my @tests = ();
if (@ARGV) {
- @tests = @ARGV;
+ if ($^O eq 'MSWin32') {
+ @tests = map(glob($_),@ARGV);
+ }
+ else {
+ @tests = @ARGV;
+ }
} else {
unless (@tests) {
push @tests, <base/*.t>;
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;