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