diff options
author | Yves Orton <demerphq@gmail.com> | 2016-10-19 09:52:01 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:27:59 +0200 |
commit | 5656b1f654bb034c561558968ed3cf87a737b3e1 (patch) | |
tree | f8e177890edcd6c1c273cecc413092e31d58db76 /t/re/uniprops05.t | |
parent | 7eff3d39584e66495e9104149bc4f73e65307c84 (diff) | |
download | perl-5656b1f654bb034c561558968ed3cf87a737b3e1.tar.gz |
uniprops.t: split into 10 seperate test files t/re/uniprops01.t etc
This way we can run them at the same time under parallel test,
as there are a lot of tests (140k or so) this makes a difference.
Diffstat (limited to 't/re/uniprops05.t')
-rw-r--r-- | t/re/uniprops05.t | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/t/re/uniprops05.t b/t/re/uniprops05.t new file mode 100644 index 0000000000..0573377547 --- /dev/null +++ b/t/re/uniprops05.t @@ -0,0 +1,40 @@ +use strict; +use warnings; +no warnings 'once'; + +if ($^O eq 'dec_osf') { + print "1..0 # $^O cannot handle this test\n"; + exit(0); +} + +# TODO: it would be good to have watchdog(5 * 60) in here +# for slow machines, but unfortunately we cannot trivially +# use test.pl because the TestProp.pl avoids using that. + +# This is a wrapper for a generated file. Assumes being run from 't' +# directory. + +# It is skipped by default under PERL_DEBUG_READONLY_COW, but you can run +# it directly via: cd t; ./perl -I../lib ../lib/unicore/TestProp.pl + +require Config; +if ($Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DEBUG_READONLY_COW\b/) { + print "1..0 # Skip PERL_DEBUG_READONLY_COW\n"; + exit; +} + +$::TESTCHUNK=5; +do '../lib/unicore/TestProp.pl'; + +# Since TestProp.pl explicitly exits, we will only get here if it +# could not load. +if (defined &DynaLoader::boot_DynaLoader # not miniperl + || eval 'require "unicore/Heavy.pl"' # or tables are built +) { + die "Could not run lib/unicore/TestProp.pl: ", $@||$!; +} +else { + print "1..0 # Skip Unicode tables not built yet\n"; +} + +0 |