Add fallback to tmpfile for use in cases where user's relying on
[p5sagit/p5-mst-13.2.git] / t / harness
1 #!./perl
2
3 # We suppose that perl _mostly_ works at this moment, so may use
4 # sophisticated testing.
5
6 BEGIN {
7     chdir 't' if -d 't';
8     unshift @INC, '../lib';
9     $ENV{PERL5LIB} = '../lib';    # so children will see it too
10 }
11 use lib '../lib';
12
13 use Test::Harness;
14
15 $Test::Harness::switches = "";    # Too much noise otherwise
16 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
17
18 #fudge DATA for now.
19 %datahandle = qw(
20                 lib/bigint.t            1
21                 lib/bigintpm.t          1
22                 lib/bigfloat.t          1
23                 lib/bigfloatpm.t        1
24                 op/gv.t                 1
25                 lib/complex.t           1
26                 lib/ph.t                1
27                 lib/soundex.t           1
28                 op/misc.t               1
29                 op/runlevel.t           1
30                 op/tie.t                1
31                 op/lex_assign.t         1
32                 pragma/subs.t           1
33                 );
34
35 foreach (keys %datahandle) {
36      unlink "$_.t";
37 }
38
39 @tests = @ARGV;
40 @tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
41
42 Test::Harness::runtests @tests;
43 exit(0) unless -e "../testcompile";
44
45 %infinite =  qw (
46         op/bop.t        1
47         lib/hostname.t  1
48         op/lex_assign.t 1
49         lib/ph.t        1  
50         );
51
52 my $dhwrapper = <<'EOT';
53 open DATA,"<".__FILE__;
54 until (($_=<DATA>) =~ /^__END__/) {};
55 EOT
56
57 @tests = grep (!$infinite{$_}, @tests);
58 @tests = map {
59          my $new = $_;
60          if ($datahandle{$_} && !( -f "$new.t") ) {
61              $new .= '.t';
62              local(*F, *T);
63              open(F,"<$_") or die "Can't open $_: $!";
64              open(T,">$new") or die "Can't open $new: $!";
65              print T $dhwrapper, <F>;
66              close F;
67              close T;
68          }
69          $new;
70          } @tests;
71
72 print "The tests ", join(' ', keys(%infinite)),
73     " generate infinite loops! Skipping!\n";
74
75 $ENV{'HARNESS_COMPILE_TEST'} = 1; 
76 $ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'};
77
78 Test::Harness::runtests @tests; 
79 foreach (keys %datahandle) {
80      unlink "$_.t";
81 }