5 if ($^O eq 'dec_osf') {
6 print "1..0 # $^O cannot handle this test\n";
10 # TODO: it would be good to have watchdog(5 * 60) in here
11 # for slow machines, but unfortunately we cannot trivially
12 # use test.pl because the TestProp.pl avoids using that.
14 # This is a wrapper for a generated file. Assumes being run from 't'
17 # It is skipped by default under PERL_DEBUG_READONLY_COW, but you can run
18 # it directly via: cd t; ./perl -I../lib ../lib/unicore/TestProp.pl
21 if ($Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DEBUG_READONLY_COW\b/) {
22 print "1..0 # Skip PERL_DEBUG_READONLY_COW\n";
27 do '../lib/unicore/TestProp.pl';
29 # Since TestProp.pl explicitly exits, we will only get here if it
31 if (defined &DynaLoader::boot_DynaLoader # not miniperl
32 || eval 'require "unicore/Heavy.pl"' # or tables are built
34 die "Could not run lib/unicore/TestProp.pl: ", $@||$!;
37 print "1..0 # Skip Unicode tables not built yet\n";