1*f2a19305Safresh1use strict; 2*f2a19305Safresh1use warnings; 3*f2a19305Safresh1 4*f2a19305Safresh1BEGIN { 5*f2a19305Safresh1 chdir 't' if -d 't'; 6*f2a19305Safresh1} 7*f2a19305Safresh1 8*f2a19305Safresh1# This is a wrapper for a generated file. Assumes being run from 't' 9*f2a19305Safresh1# directory. 10*f2a19305Safresh1 11*f2a19305Safresh1if (! $ENV{PERL_DEBUG_FULL_TEST}) { 12*f2a19305Safresh1 print "1..0 # skipped: Lengthy Tests Disabled; to enable set environment", 13*f2a19305Safresh1 "variable \$ENV{PERL_DEBUG_FULL_TEST} to a true value\n"; 14*f2a19305Safresh1 0 15*f2a19305Safresh1} 16*f2a19305Safresh1else { 17*f2a19305Safresh1 my $file = '../lib/unicore/TestNorm.pl'; 18*f2a19305Safresh1 if (-e $file) { 19*f2a19305Safresh1 do $file; 20*f2a19305Safresh1 } 21*f2a19305Safresh1 else { 22*f2a19305Safresh1 print "1..0 # Skip $file not built (perhaps build options don't" 23*f2a19305Safresh1 . " build it)\n"; 24*f2a19305Safresh1 0 25*f2a19305Safresh1 } 26*f2a19305Safresh1} 27