Lines Matching refs:tests
24 # Let tests know they're running in the perl core. Useful for modules
48 my @tests = ();
52 @tests = map(glob($_),@ARGV);
55 @tests = @ARGV;
58 unless (@tests) {
59 push @tests, <base/*.t>;
60 push @tests, <comp/*.t>;
61 push @tests, <cmd/*.t>;
62 push @tests, <run/*.t>;
63 push @tests, <io/*.t>;
64 push @tests, <op/*.t>;
65 push @tests, <uni/*.t>;
66 push @tests, <lib/*.t>;
67 push @tests, <japh/*.t> if $torture;
68 push @tests, <win32/*.t> if $^O eq 'MSWin32';
75 push @tests, File::Spec->catfile($updir, $1);
82 push @tests, <pod/*.t>;
83 push @tests, <x2p/*.t>;
87 s,\\,/,g for @tests;
89 Test::Harness::runtests @tests;
104 @tests = grep (!$infinite{$_}, @tests);
105 @tests = map {
117 } @tests;
119 print "The tests ", join(' ', keys(%infinite)),
125 Test::Harness::runtests @tests;