1use strict; 2use warnings; 3no warnings 'once'; 4 5if ($^O eq 'dec_osf') { 6 print "1..0 # $^O cannot handle this test\n"; 7 exit(0); 8} 9 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. 13 14# This is a wrapper for a generated file. Assumes being run from 't' 15# directory. 16 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 19 20require Config; 21if ($Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DEBUG_READONLY_COW\b/) { 22 print "1..0 # Skip PERL_DEBUG_READONLY_COW\n"; 23 exit; 24} 25 26$::TESTCHUNK=8; 27do '../lib/unicore/TestProp.pl'; 28 29# Since TestProp.pl explicitly exits, we will only get here if it 30# could not load. 31if (defined &DynaLoader::boot_DynaLoader # not miniperl 32 || eval 'require "unicore/UCD.pl"' # or tables are built 33) { 34 die "Could not run lib/unicore/TestProp.pl: ", $@||$!; 35} 36else { 37 print "1..0 # Skip Unicode tables not built yet\n"; 38} 39 400 41