1#!/usr/local/bin/perl
2
3use Config;
4
5# Run and check all the tests
6
7$| = 1; # Unbuffer STDOUT
8
9# Stop f77-linking causing spurious undefined symbols (alpha)
10
11$ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf";
12
13if($^O =~ /mswin32/i) {
14  $note = "
15NOTE - Win32 only: If /XSERVE doesn't work properly then
16try /PNG (assuming libpng.dll is in your path). Then view
17the output '.png' files at the conclusion of the tests. ";
18}
19
20else {$note = ''}
21
22if ($ENV{'PGPLOT_DEV'}) {
23    $dev = $ENV{'PGPLOT_DEV'};
24} else {
25print "Default Device for plot tests [recommend /XSERVE] ? $note ";
26$dev = <STDIN>; chomp $dev;
27$dev = "/XSERVE" unless $dev=~/\w/;
28}
29
30if($dev eq '/PNG' && $^O =~ /mswin32/i) {system "del /F /Q *.png"};
31
32$ENV{PGPLOT_XW_WIDTH}=0.3;
33
34foreach $jjj (1..12) {
35
36   print "============== Running test$jjj.p ==============\n";
37   %@ = ();       # Clear error status
38   do "test$jjj.p";
39   warn $@ if $@; # Report any error detected
40   if($dev eq '/PNG' && $^O =~ /mswin32/i) {
41     system("ren pgplot.png pgplot_$jjj.png");
42     }
43   sleep 2;
44}
45
46