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