t/re/uniprops.t

   1 use strict;
   2 use warnings;
   3 no warnings 'once';
   4
   5 if ($^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
  20 require Config;
  21 if ($Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DEBUG_READONLY_COW\b/) {
  22     print "1..0 # Skip PERL_DEBUG_READONLY_COW\n";
  23     exit;
  24 }
  25
  26 do '../lib/unicore/TestProp.pl';
  27
  28 # Since TestProp.pl explicitly exits, we will only get here if it
  29 # could not load.
  30 if (defined &DynaLoader::boot_DynaLoader # not miniperl
  31  || eval 'require "unicore/Heavy.pl"'    # or tables are built
  32 ) {
  33     die "Could not run lib/unicore/TestProp.pl: ", $@||$!;
  34 }
  35 else {
  36     print "1..0 # Skip Unicode tables not built yet\n";
  37 }
  38
  39 0