Another test for (*ACCEPT)

git-svn-id: svn://vcs.exim.org/pcre/code/trunk@449 2f5784b3-3f2a-0410-8824-cb99058d5e15

3 files changed, 31 insertions, 5 deletions

diff --git a/RunTest b/RunTest
index 593fb30..6bdc73e 100755
--- a/RunTest
+++ b/RunTest
@@ -133,10 +133,10 @@ echo ""
 echo PCRE C library tests
 ./pcretest /dev/null
 
-# Primary test, Perl-compatible
+# Primary test, Perl-compatible for both 5.8 and 5.10
 
 if [ $do1 = yes ] ; then
-  echo "Test 1: main functionality (Perl compatible)"
+  echo "Test 1: main functionality (Perl 5.8 & 5.10 compatible)"
   $valgrind ./pcretest -q $testdata/testinput1 testtry
   if [ $? = 0 ] ; then
     $cf $testdata/testoutput1 testtry
@@ -146,10 +146,10 @@ if [ $do1 = yes ] ; then
   echo "OK"
 fi
 
-# PCRE tests that are not Perl-compatible - API & error tests, mostly
+# PCRE tests that are not Perl-compatible - API, errors, internals
 
 if [ $do2 = yes ] ; then
-  echo "Test 2: API, errors, and non-Perl stuff"
+  echo "Test 2: API, errors, internals, and non-Perl stuff"
   $valgrind ./pcretest -q $testdata/testinput2 testtry
   if [ $? = 0 ] ; then
     $cf $testdata/testoutput2 testtry
@@ -215,7 +215,7 @@ fi
 # Additional tests for UTF8 support
 
 if [ $do4 = yes ] ; then
-  echo "Test 4: UTF-8 support (Perl compatible)"
+  echo "Test 4: UTF-8 support (Perl 5.8 & 5.10 compatible)"
   $valgrind ./pcretest -q $testdata/testinput4 testtry
   if [ $? = 0 ] ; then
     $cf $testdata/testoutput4 testtry
diff --git a/testdata/testinput2 b/testdata/testinput2
index 4fa1160..1e29593 100644
--- a/testdata/testinput2
+++ b/testdata/testinput2
@@ -2750,6 +2750,8 @@ a random value. /Ix
 
 /(?&word)(?&element)(?(DEFINE)(?<element><[^\d][^>]>[^<])(?<word>\w*+))/BZ
 
+/(ab)(x(y)z(cd(*ACCEPT)))pq/BZ
+
 /abc\K/+
     abcdef
     abcdef\N\N
diff --git a/testdata/testoutput2 b/testdata/testoutput2
index f223df0..393556e 100644
--- a/testdata/testoutput2
+++ b/testdata/testoutput2
@@ -9606,6 +9606,30 @@ Partial match: +ab
         End
 ------------------------------------------------------------------
 
+/(ab)(x(y)z(cd(*ACCEPT)))pq/BZ
+------------------------------------------------------------------
+        Bra
+        CBra 1
+        ab
+        Ket
+        CBra 2
+        x
+        CBra 3
+        y
+        Ket
+        z
+        CBra 4
+        cd
+        Close 4
+        Close 2
+        *ACCEPT
+        Ket
+        Ket
+        pq
+        Ket
+        End
+------------------------------------------------------------------
+
 /abc\K/+
     abcdef
  0: