diff options
author | Jay Berkenbilt <ejb@ql.org> | 2017-08-11 02:24:16 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2017-08-11 03:30:32 +0200 |
commit | 9a96e233b051b31289c84f90a321583887b1400a (patch) | |
tree | 233f0f9ad9c257b80f13734698e97ba842a59799 /libtests/qtest/pcre.test | |
parent | 30f109e244f365111d5219903f13d64cf1a95054 (diff) | |
download | qpdf-9a96e233b051b31289c84f90a321583887b1400a.tar.zst |
Remove PCRE
Diffstat (limited to 'libtests/qtest/pcre.test')
-rw-r--r-- | libtests/qtest/pcre.test | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/libtests/qtest/pcre.test b/libtests/qtest/pcre.test deleted file mode 100644 index 9e0ebe1a..00000000 --- a/libtests/qtest/pcre.test +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/env perl -require 5.008; -BEGIN { $^W = 1; } -use strict; - -chdir("pcre") or die "chdir testdir failed: $!\n"; - -require TestDriver; - -my $td = new TestDriver('pcre'); - -$td->runtest("PCRE", - {$td->COMMAND => "pcre"}, - {$td->FILE => "pcre.out", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -chop(my $supported = `pcre --unicode-classes-supported`); -if ($supported =~ m/^1/) -{ - my $xflags = 0; - if (`pcre --unicode-classes | wc -l` == 1) - { - # On Red Hat Enterprise Linux 5, the version of pcre provided - # by default claims to support unicode character classes, but - # they don't actually work. Since qpdf doesn't use this - # functionality, we won't care if this particular test case - # fails. If someone were to make general use of this wrapper, - # this test should be re-enabled, but on the other hand, they - # could just use the C++ interface that's been added to pcre - # since this code was written. - $xflags |= $td->EXPECT_FAILURE; - } - $td->runtest("unicode character classes", - {$td->COMMAND => "pcre --unicode-classes"}, - {$td->FILE => "pcre-unicode-classes.out", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES | $xflags); -} -else -{ - $td->runtest("unicode classes are not supported", - {$td->STRING => "1"}, - {$td->STRING => "1"}); -} - -$td->report(2); |