This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Inline PI function
[perl5.git] / t / harness
CommitLineData
a5f75d66
AD
1#!./perl
2
3# We suppose that perl _mostly_ works at this moment, so may use
4# sophisticated testing.
5
aa689395
PP
6BEGIN {
7 chdir 't' if -d 't';
8 @INC = '../lib';
9}
a5f75d66 10use lib '../lib';
aa689395 11
a5f75d66
AD
12use Test::Harness;
13
14$Test::Harness::switches = ""; # Too much noise otherwise
90ce63d5 15$Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
a5f75d66
AD
16
17@tests = @ARGV;
18@tests = <*/*.t> unless @tests;
19Test::Harness::runtests @tests;