[BACK]Return to testinput1 CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre / testdata

Diff for /embedaddon/pcre/testdata/testinput1 between versions 1.1.1.1 and 1.1.1.4

version 1.1.1.1, 2012/02/21 23:05:52 version 1.1.1.4, 2013/07/22 08:25:57
Line 1 Line 1
 /-- This set of tests is for features that are compatible with all versions of  /-- This set of tests is for features that are compatible with all versions of
    Perl 5, in non-UTF-8 mode. --/    Perl >= 5.10, in non-UTF-8 mode. It should run clean for both the 8-bit and
     16-bit PCRE libraries. --/
   
 /the quick brown fox/  /the quick brown fox/
     the quick brown fox      the quick brown fox
Line 3772 Line 3773
     abc123abc      abc123abc
     abc123bc        abc123bc  
   
/-- This tests for an IPv6 address in the form where it can have up to --//-- This tests for an IPv6 address in the form where it can have up to
/-- eight components, one and only one of which is empty. This must be --/    eight components, one and only one of which is empty. This must be
/-- an internal component. --/    an internal component. --/
   
 /^(?!:)                       # colon disallowed at start  /^(?!:)                       # colon disallowed at start
   (?:                         # start of item    (?:                         # start of item
Line 4317 Line 4318
   
 /a[\C-X]b/  /a[\C-X]b/
     aJb      aJb
   
   /\H\h\V\v/
       X X\x0a
       X\x09X\x0b
       ** Failers
       \xa0 X\x0a   
       
   /\H*\h+\V?\v{3,4}/ 
       \x09\x20\xa0X\x0a\x0b\x0c\x0d\x0a
       \x09\x20\xa0\x0a\x0b\x0c\x0d\x0a
       \x09\x20\xa0\x0a\x0b\x0c
       ** Failers 
       \x09\x20\xa0\x0a\x0b
        
   /\H{3,4}/
       XY  ABCDE
       XY  PQR ST 
       
   /.\h{3,4}./
       XY  AB    PQRS
   
   /\h*X\h?\H+Y\H?Z/
       >XNNNYZ
       >  X NYQZ
       ** Failers
       >XYZ   
       >  X NY Z
   
   /\v*X\v?Y\v+Z\V*\x0a\V+\x0b\V{2,3}\x0c/
       >XY\x0aZ\x0aA\x0bNN\x0c
       >\x0a\x0dX\x0aY\x0a\x0bZZZ\x0aAAA\x0bNNN\x0c
   
   /(foo)\Kbar/
       foobar
      
   /(foo)(\Kbar|baz)/
       foobar
       foobaz 
   
   /(foo\Kbar)baz/
       foobarbaz
   
   /abc\K|def\K/g+
       Xabcdefghi
   
   /ab\Kc|de\Kf/g+
       Xabcdefghi
       
   /(?=C)/g+
       ABCDECBA
       
   /^abc\K/+
       abcdef
       ** Failers
       defabcxyz   
   
   /^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-02}Z/
       ababababbbabZXXXX
   
   /(?<A>tom|bon)-\g{A}/
       tom-tom
       bon-bon 
       
   /(^(a|b\g{-1}))/
       bacxxx
   
   /(?|(abc)|(xyz))\1/
       abcabc
       xyzxyz 
       ** Failers
       abcxyz
       xyzabc   
       
   /(?|(abc)|(xyz))(?1)/
       abcabc
       xyzabc 
       ** Failers 
       xyzxyz 
    
   /^X(?5)(a)(?|(b)|(q))(c)(d)(Y)/
       XYabcdY
   
   /^X(?7)(a)(?|(b|(r)(s))|(q))(c)(d)(Y)/
       XYabcdY
   
   /^X(?7)(a)(?|(b|(?|(r)|(t))(s))|(q))(c)(d)(Y)/
       XYabcdY
   
   /(?'abc'\w+):\k<abc>{2}/
       a:aaxyz
       ab:ababxyz
       ** Failers
       a:axyz
       ab:abxyz
   
   /(?'abc'\w+):\g{abc}{2}/
       a:aaxyz
       ab:ababxyz
       ** Failers
       a:axyz
       ab:abxyz
   
   /^(?<ab>a)? (?(<ab>)b|c) (?('ab')d|e)/x
       abd
       ce
   
   /^(a.)\g-1Z/
       aXaXZ
   
   /^(a.)\g{-1}Z/
       aXaXZ
   
   /^(?(DEFINE) (?<A> a) (?<B> b) )  (?&A) (?&B) /x
       abcd
   
   /(?<NAME>(?&NAME_PAT))\s+(?<ADDR>(?&ADDRESS_PAT))
     (?(DEFINE)
     (?<NAME_PAT>[a-z]+)
     (?<ADDRESS_PAT>\d+)
     )/x
       metcalfe 33
   
   /(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))\b(?&byte)(\.(?&byte)){3}/
       1.2.3.4
       131.111.10.206
       10.0.0.0
       ** Failers
       10.6
       455.3.4.5
   
   /\b(?&byte)(\.(?&byte)){3}(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))/
       1.2.3.4
       131.111.10.206
       10.0.0.0
       ** Failers
       10.6
       455.3.4.5
   
   /^(\w++|\s++)*$/
       now is the time for all good men to come to the aid of the party
       *** Failers
       this is not a line with only words and spaces!
   
   /(\d++)(\w)/
       12345a
       *** Failers
       12345+
   
   /a++b/
       aaab
   
   /(a++b)/
       aaab
   
   /(a++)b/
       aaab
   
   /([^()]++|\([^()]*\))+/
       ((abc(ade)ufh()()x
   
   /\(([^()]++|\([^()]+\))+\)/
       (abc)
       (abc(def)xyz)
       *** Failers
       ((()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   
   /^([^()]|\((?1)*\))*$/
       abc
       a(b)c
       a(b(c))d
       *** Failers)
       a(b(c)d
   
   /^>abc>([^()]|\((?1)*\))*<xyz<$/
      >abc>123<xyz<
      >abc>1(2)3<xyz<
      >abc>(1(2)3)<xyz<
   
   /^(?:((.)(?1)\2|)|((.)(?3)\4|.))$/i
       1221
       Satanoscillatemymetallicsonatas
       AmanaplanacanalPanama
       AblewasIereIsawElba
       *** Failers
       Thequickbrownfox
   
   /^(\d+|\((?1)([+*-])(?1)\)|-(?1))$/
       12
       (((2+2)*-3)-7)
       -12
       *** Failers
       ((2+2)*-3)-7)
   
   /^(x(y|(?1){2})z)/
       xyz
       xxyzxyzz
       *** Failers
       xxyzz
       xxyzxyzxyzz
   
   /((< (?: (?(R) \d++  | [^<>]*+) | (?2)) * >))/x
       <>
       <abcd>
       <abc <123> hij>
       <abc <def> hij>
       <abc<>def>
       <abc<>
       *** Failers
       <abc
   
   /^a+(*FAIL)/
       aaaaaa
       
   /a+b?c+(*FAIL)/
       aaabccc
   
   /a+b?(*PRUNE)c+(*FAIL)/
       aaabccc
   
   /a+b?(*COMMIT)c+(*FAIL)/
       aaabccc
       
   /a+b?(*SKIP)c+(*FAIL)/
       aaabcccaaabccc
   
   /^(?:aaa(*THEN)\w{6}|bbb(*THEN)\w{5}|ccc(*THEN)\w{4}|\w{3})/
       aaaxxxxxx
       aaa++++++ 
       bbbxxxxx
       bbb+++++ 
       cccxxxx
       ccc++++ 
       dddddddd   
   
   /^(aaa(*THEN)\w{6}|bbb(*THEN)\w{5}|ccc(*THEN)\w{4}|\w{3})/
       aaaxxxxxx
       aaa++++++ 
       bbbxxxxx
       bbb+++++ 
       cccxxxx
       ccc++++ 
       dddddddd   
   
   /a+b?(*THEN)c+(*FAIL)/
       aaabccc
   
   /(A (A|B(*ACCEPT)|C) D)(E)/x
       AB
       ABX
       AADE
       ACDE
       ** Failers
       AD 
           
   /^\W*+(?:((.)\W*+(?1)\W*+\2|)|((.)\W*+(?3)\W*+\4|\W*+.\W*+))\W*+$/i
       1221
       Satan, oscillate my metallic sonatas!
       A man, a plan, a canal: Panama!
       Able was I ere I saw Elba.
       *** Failers
       The quick brown fox
   
   /^((.)(?1)\2|.)$/
       a
       aba
       aabaa  
       abcdcba 
       pqaabaaqp  
       ablewasiereisawelba
       rhubarb
       the quick brown fox  
   
   /(a)(?<=b(?1))/
       baz
       ** Failers
       caz  
       
   /(?<=b(?1))(a)/
       zbaaz
       ** Failers
       aaa  
       
   /(?<X>a)(?<=b(?&X))/
       baz
   
   /^(?|(abc)|(def))\1/
       abcabc
       defdef 
       ** Failers
       abcdef
       defabc   
       
   /^(?|(abc)|(def))(?1)/
       abcabc
       defabc
       ** Failers
       defdef
       abcdef    
   
   /(?:a(?<quote> (?<apostrophe>')|(?<realquote>")) |b(?<quote> (?<apostrophe>')|(?<realquote>")) ) (?('quote')[a-z]+|[0-9]+)/xJ
       a\"aaaaa
       b\"aaaaa 
       ** Failers 
       b\"11111
   
   /(?:(?1)|B)(A(*F)|C)/
       ABCD
       CCD
       ** Failers
       CAD   
   
   /^(?:(?1)|B)(A(*F)|C)/
       CCD
       BCD 
       ** Failers
       ABCD
       CAD
       BAD    
   
   /(?:(?1)|B)(A(*ACCEPT)XX|C)D/
       AAD
       ACD
       BAD
       BCD
       BAX  
       ** Failers
       ACX
       ABC   
   
   /(?(DEFINE)(A))B(?1)C/
       BAC
   
   /(?(DEFINE)((A)\2))B(?1)C/
       BAAC
   
   /(?<pn> \( ( [^()]++ | (?&pn) )* \) )/x
       (ab(cd)ef)
   
   /^(?=a(*SKIP)b|ac)/
       ** Failers
       ac
       
   /^(?=a(*PRUNE)b)/
       ab  
       ** Failers 
       ac
   
   /^(?=a(*ACCEPT)b)/
       ac
   
   /(?>a\Kb)/
       ab
   
   /((?>a\Kb))/
       ab
   
   /(a\Kb)/
       ab
       
   /^a\Kcz|ac/
       ac
       
   /(?>a\Kbz|ab)/
       ab 
   
   /^(?&t)(?(DEFINE)(?<t>a\Kb))$/
       ab
   
   /^([^()]|\((?1)*\))*$/
       a(b)c
       a(b(c)d)e 
   
   /(?P<L1>(?P<L2>0)(?P>L1)|(?P>L2))/
       0
       00
       0000  
   
   /(?P<L1>(?P<L2>0)|(?P>L2)(?P>L1))/
       0
       00
       0000  
   
   /--- This one does fail, as expected, in Perl. It needs the complex item at the
        end of the pattern. A single letter instead of (B|D) makes it not fail,
        which I think is a Perl bug. --- /
   
   /A(*COMMIT)(B|D)/
       ACABX
   
   /--- Check the use of names for failure ---/
   
   /^(A(*PRUNE:A)B|C(*PRUNE:B)D)/K
       ** Failers
       AC
       CB    
       
   /--- Force no study, otherwise mark is not seen. The studied version is in
        test 2 because it isn't Perl-compatible. ---/
   
   /(*MARK:A)(*SKIP:B)(C|X)/KSS
       C
       D
        
   /^(A(*THEN:A)B|C(*THEN:B)D)/K
       ** Failers
       CB    
   
   /^(?:A(*THEN:A)B|C(*THEN:B)D)/K
       CB    
       
   /^(?>A(*THEN:A)B|C(*THEN:B)D)/K
       CB    
       
   /--- This should succeed, as the skip causes bump to offset 1 (the mark). Note
   that we have to have something complicated such as (B|Z) at the end because,
   for Perl, a simple character somehow causes an unwanted optimization to mess
   with the handling of backtracking verbs. ---/
   
   /A(*MARK:A)A+(*SKIP:A)(B|Z) | AC/xK
       AAAC
       
   /--- Test skipping over a non-matching mark. ---/
   
   /A(*MARK:A)A+(*MARK:B)(*SKIP:A)(B|Z) | AC/xK
       AAAC
       
   /--- Check shorthand for MARK ---/
   
   /A(*:A)A+(*SKIP:A)(B|Z) | AC/xK
       AAAC
   
   /--- Don't loop! Force no study, otherwise mark is not seen. ---/
   
   /(*:A)A+(*SKIP:A)(B|Z)/KSS
       AAAC
   
   /--- This should succeed, as a non-existent skip name disables the skip ---/ 
   
   /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/xK
       AAAC
   
   /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC(*:B)/xK
       AAAC
   
   /--- COMMIT at the start of a pattern should act like an anchor. Again, 
   however, we need the complication for Perl. ---/
   
   /(*COMMIT)(A|P)(B|P)(C|P)/
       ABCDEFG
       ** Failers
       DEFGABC  
   
   /--- COMMIT inside an atomic group can't stop backtracking over the group. ---/
   
   /(\w+)(?>b(*COMMIT))\w{2}/
       abbb
   
   /(\w+)b(*COMMIT)\w{2}/
       abbb
   
   /--- Check opening parens in comment when seeking forward reference. ---/ 
   
   /(?&t)(?#()(?(DEFINE)(?<t>a))/
       bac
   
   /--- COMMIT should override THEN ---/
   
   /(?>(*COMMIT)(?>yes|no)(*THEN)(*F))?/
     yes
   
   /(?>(*COMMIT)(yes|no)(*THEN)(*F))?/
     yes
   
   /b?(*SKIP)c/
       bc
       abc
      
   /(*SKIP)bc/
       a
   
   /(*SKIP)b/
       a 
   
   /(?P<abn>(?P=abn)xxx|)+/
       xxx
   
   /(?i:([^b]))(?1)/
       aa
       aA     
       ** Failers
       ab
       aB
       Ba
       ba
   
   /^(?&t)*+(?(DEFINE)(?<t>a))\w$/
       aaaaaaX
       ** Failers 
       aaaaaa 
   
   /^(?&t)*(?(DEFINE)(?<t>a))\w$/
       aaaaaaX
       aaaaaa 
   
   /^(a)*+(\w)/
       aaaaX
       YZ 
       ** Failers 
       aaaa
   
   /^(?:a)*+(\w)/
       aaaaX
       YZ 
       ** Failers 
       aaaa
   
   /^(a)++(\w)/
       aaaaX
       ** Failers 
       aaaa
       YZ 
   
   /^(?:a)++(\w)/
       aaaaX
       ** Failers 
       aaaa
       YZ 
   
   /^(a)?+(\w)/
       aaaaX
       YZ 
   
   /^(?:a)?+(\w)/
       aaaaX
       YZ 
   
   /^(a){2,}+(\w)/
       aaaaX
       ** Failers
       aaa
       YZ 
   
   /^(?:a){2,}+(\w)/
       aaaaX
       ** Failers
       aaa
       YZ 
   
   /(a|)*(?1)b/
       b
       ab
       aab  
   
   /(a)++(?1)b/
       ** Failers
       ab 
       aab
   
   /(a)*+(?1)b/
       ** Failers
       ab
       aab  
   
   /(?1)(?:(b)){0}/
       b
   
   /(foo ( \( ((?:(?> [^()]+ )|(?2))*) \) ) )/x
       foo(bar(baz)+baz(bop))
   
   /(A (A|B(*ACCEPT)|C) D)(E)/x
       AB
   
   /\A.*?(a|bc)/
       ba
   
   /\A.*?(?:a|bc)++/
       ba
   
   /\A.*?(a|bc)++/
       ba
   
   /\A.*?(?:a|bc|d)/
       ba
   
   /(?:(b))++/
       beetle
   
   /(?(?=(a(*ACCEPT)z))a)/
       a
   
   /^(a)(?1)+ab/
       aaaab
       
   /^(a)(?1)++ab/
       aaaab
   
   /^(?=a(*:M))aZ/K
       aZbc
   
   /^(?!(*:M)b)aZ/K
       aZbc
   
   /(?(DEFINE)(a))?b(?1)/
       backgammon
   
   /^\N+/
       abc\ndef
       
   /^\N{1,}/
       abc\ndef 
   
   /(?(R)a+|(?R)b)/
       aaaabcde
   
   /(?(R)a+|((?R))b)/
       aaaabcde
   
   /((?(R)a+|(?1)b))/
       aaaabcde
   
   /((?(R1)a+|(?1)b))/
       aaaabcde
   
   /a(*:any 
   name)/K
       abc
       
   /(?>(?&t)c|(?&t))(?(DEFINE)(?<t>a|b(*PRUNE)c))/
       a
       ba
       bba 
       
   /--- Checking revised (*THEN) handling ---/ 
   
   /--- Capture ---/
   
   /^.*? (a(*THEN)b) c/x
       aabc
   
   /^.*? (a(*THEN)b|(*F)) c/x
       aabc
   
   /^.*? ( (a(*THEN)b) | (*F) ) c/x
       aabc
   
   /^.*? ( (a(*THEN)b) ) c/x
       aabc
   
   /--- Non-capture ---/
   
   /^.*? (?:a(*THEN)b) c/x
       aabc
   
   /^.*? (?:a(*THEN)b|(*F)) c/x
       aabc
   
   /^.*? (?: (?:a(*THEN)b) | (*F) ) c/x
       aabc
   
   /^.*? (?: (?:a(*THEN)b) ) c/x
       aabc
   
   /--- Atomic ---/
   
   /^.*? (?>a(*THEN)b) c/x
       aabc
   
   /^.*? (?>a(*THEN)b|(*F)) c/x
       aabc
   
   /^.*? (?> (?>a(*THEN)b) | (*F) ) c/x
       aabc
   
   /^.*? (?> (?>a(*THEN)b) ) c/x
       aabc
   
   /--- Possessive capture ---/
   
   /^.*? (a(*THEN)b)++ c/x
       aabc
   
   /^.*? (a(*THEN)b|(*F))++ c/x
       aabc
   
   /^.*? ( (a(*THEN)b)++ | (*F) )++ c/x
       aabc
   
   /^.*? ( (a(*THEN)b)++ )++ c/x
       aabc
   
   /--- Possessive non-capture ---/
   
   /^.*? (?:a(*THEN)b)++ c/x
       aabc
   
   /^.*? (?:a(*THEN)b|(*F))++ c/x
       aabc
   
   /^.*? (?: (?:a(*THEN)b)++ | (*F) )++ c/x
       aabc
   
   /^.*? (?: (?:a(*THEN)b)++ )++ c/x
       aabc
       
   /--- Condition assertion ---/
   
   /^(?(?=a(*THEN)b)ab|ac)/
       ac
    
   /--- Condition ---/
   
   /^.*?(?(?=a)a|b(*THEN)c)/
       ba
   
   /^.*?(?:(?(?=a)a|b(*THEN)c)|d)/
       ba
   
   /^.*?(?(?=a)a(*THEN)b|c)/
       ac
   
   /--- Assertion ---/
   
   /^.*(?=a(*THEN)b)/ 
       aabc
   
   /------------------------------/
   
   /(?>a(*:m))/imsxSK 
       a
   
   /(?>(a)(*:m))/imsxSK 
       a
   
   /(?<=a(*ACCEPT)b)c/
       xacd
   
   /(?<=(a(*ACCEPT)b))c/
       xacd
   
   /(?<=(a(*COMMIT)b))c/
       xabcd
       ** Failers 
       xacd
       
   /(?<!a(*FAIL)b)c/
       xcd
       acd 
   
   /(?<=a(*:N)b)c/K
       xabcd
       
   /(?<=a(*PRUNE)b)c/
       xabcd 
   
   /(?<=a(*SKIP)b)c/
       xabcd 
   
   /(?<=a(*THEN)b)c/
       xabcd 
   
   /(a)(?2){2}(.)/
       abcd
   
   /(*MARK:A)(*PRUNE:B)(C|X)/KS
       C
       D 
   
   /(*MARK:A)(*PRUNE:B)(C|X)/KSS
       C
       D 
   
   /(*MARK:A)(*THEN:B)(C|X)/KS
       C
       D 
   
   /(*MARK:A)(*THEN:B)(C|X)/KSY
       C
       D 
   
   /(*MARK:A)(*THEN:B)(C|X)/KSS
       C
       D 
   
   /--- This should fail, as the skip causes a bump to offset 3 (the skip) ---/
   
   /A(*MARK:A)A+(*SKIP)(B|Z) | AC/xK
       AAAC
   
   /--- Same --/
   
   /A(*MARK:A)A+(*MARK:B)(*SKIP:B)(B|Z) | AC/xK
       AAAC
   
   /A(*:A)A+(*SKIP)(B|Z) | AC/xK
       AAAC
   
   /--- This should fail, as a null name is the same as no name ---/
   
   /A(*MARK:A)A+(*SKIP:)(B|Z) | AC/xK
       AAAC
   
   /--- A check on what happens after hitting a mark and them bumping along to
   something that does not even start. Perl reports tags after the failures here, 
   though it does not when the individual letters are made into something 
   more complicated. ---/
   
   /A(*:A)B|XX(*:B)Y/K
       AABC
       XXYZ 
       ** Failers
       XAQQ  
       XAQQXZZ  
       AXQQQ 
       AXXQQQ 
       
   /^(A(*THEN:A)B|C(*THEN:B)D)/K
       AB
       CD
       ** Failers
       AC
       CB    
       
   /^(A(*PRUNE:A)B|C(*PRUNE:B)D)/K
       AB
       CD
       ** Failers
       AC
       CB    
       
   /--- An empty name does not pass back an empty string. It is the same as if no
   name were given. ---/ 
   
   /^(A(*PRUNE:)B|C(*PRUNE:B)D)/K
       AB
       CD 
   
   /--- PRUNE goes to next bumpalong; COMMIT does not. ---/
       
   /A(*PRUNE:A)B/K
       ACAB
   
   /--- Mark names can be duplicated ---/
   
   /A(*:A)B|X(*:A)Y/K
       AABC
       XXYZ 
       
   /b(*:m)f|a(*:n)w/K
       aw 
       ** Failers 
       abc
   
   /b(*:m)f|aw/K
       abaw
       ** Failers 
       abc
       abax 
   
   /A(*MARK:A)A+(*SKIP:B)(B|Z) | AAC/xK
       AAAC
   
   /a(*PRUNE:X)bc|qq/KY
       ** Failers
       axy
   
   /a(*THEN:X)bc|qq/KY
       ** Failers
       axy
   
   /(?=a(*MARK:A)b)..x/K
       abxy
       ** Failers
       abpq  
   
   /(?=a(*MARK:A)b)..(*:Y)x/K
       abxy
       ** Failers
       abpq  
   
   /(?=a(*PRUNE:A)b)..x/K
       abxy
       ** Failers
       abpq  
   
   /(?=a(*PRUNE:A)b)..(*:Y)x/K
       abxy
       ** Failers
       abpq  
   
   /(?=a(*THEN:A)b)..x/K
       abxy
       ** Failers
       abpq  
   
   /(?=a(*THEN:A)b)..(*:Y)x/K
       abxy
       ** Failers
       abpq  
   
   /(another)?(\1?)test/
       hello world test
   
   /(another)?(\1+)test/
       hello world test
   
   /(a(*COMMIT)b){0}a(?1)|aac/
       aac
   
   /((?:a?)*)*c/
     aac   
   
   /((?>a?)*)*c/
     aac   
   
   /(?>.*?a)(?<=ba)/
       aba
   
   /(?:.*?a)(?<=ba)/
       aba
   
   /.*?a(*PRUNE)b/
       aab
   
   /.*?a(*PRUNE)b/s
       aab
   
   /^a(*PRUNE)b/s
       aab
   
   /.*?a(*SKIP)b/
       aab
   
   /(?>.*?a)b/s
       aab
   
   /(?>.*?a)b/
       aab
   
   /(?>^a)b/s
       aab
   
   /(?>.*?)(?<=(abcd)|(wxyz))/
       alphabetabcd
       endingwxyz 
   
   /(?>.*)(?<=(abcd)|(wxyz))/
       alphabetabcd
       endingwxyz 
   
   "(?>.*)foo"
       abcdfooxyz
       
   "(?>.*?)foo"
       abcdfooxyz
   
   /(?:(a(*PRUNE)b)){0}(?:(?1)|ac)/
       ac
       
   /(?:(a(*SKIP)b)){0}(?:(?1)|ac)/
       ac 
   
   /(?<=(*SKIP)ac)a/
       aa
   
   /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/xK
       AAAC
   
   /a(*SKIP:m)x|ac(*:n)(*SKIP:n)d|ac/K
       acacd
   
   /A(*SKIP:m)x|A(*SKIP:n)x|AB/K
       AB
   
   /((*SKIP:r)d){0}a(*SKIP:m)x|ac(*:n)|ac/K
       acacd
   
   /-- Tests that try to figure out how Perl works. My hypothesis is that the
       first verb that is backtracked onto is the one that acts. This seems to be
       the case almost all the time, but there is one exception that is perhaps a 
       bug. --/
   
   /-- This matches "aaaac"; each PRUNE advances one character until the subject
       no longer starts with 5 'a's. --/
   
   /aaaaa(*PRUNE)b|a+c/
       aaaaaac
   
   /-- Putting SKIP in front of PRUNE makes no difference, as it is never 
   backtracked onto, whether or not it has a label. --/
   
   /aaaaa(*SKIP)(*PRUNE)b|a+c/
       aaaaaac
   
   /aaaaa(*SKIP:N)(*PRUNE)b|a+c/
       aaaaaac
   
   /aaaa(*:N)a(*SKIP:N)(*PRUNE)b|a+c/
       aaaaaac
   
   /-- Putting THEN in front makes no difference. */
       
   /aaaaa(*THEN)(*PRUNE)b|a+c/
       aaaaaac
    
   /-- However, putting COMMIT in front of the prune changes it to "no match". I 
       think this is inconsistent and possibly a bug. For the moment, running this
       test is moved out of the Perl-compatible file. --/
   
   /aaaaa(*COMMIT)(*PRUNE)b|a+c/
       
   
   /---- OK, lets play the same game again using SKIP instead of PRUNE. ----/
   
   /-- This matches "ac" because SKIP forces the next match to start on the
       sixth "a". --/
   
   /aaaaa(*SKIP)b|a+c/
       aaaaaac
    
   /-- Putting PRUNE in front makes no difference. --/
   
   /aaaaa(*PRUNE)(*SKIP)b|a+c/
       aaaaaac
   
   /-- Putting THEN in front makes no difference. --/
   
   /aaaaa(*THEN)(*SKIP)b|a+c/
       aaaaaac
   
   /-- In this case, neither does COMMIT. This still matches "ac". --/
   
   /aaaaa(*COMMIT)(*SKIP)b|a+c/
       aaaaaac
       
   /-- This gives "no match", as expected. --/
   
   /aaaaa(*COMMIT)b|a+c/
       aaaaaac
       
   
   /------ Tests using THEN ------/
   
   /-- This matches "aaaaaac", as expected. --/
   
   /aaaaa(*THEN)b|a+c/
       aaaaaac
   
   /-- Putting SKIP in front makes no difference. --/
   
   /aaaaa(*SKIP)(*THEN)b|a+c/
       aaaaaac
       
   /-- Putting PRUNE in front makes no difference. --/
   
   /aaaaa(*PRUNE)(*THEN)b|a+c/
       aaaaaac
       
   /-- Putting COMMIT in front makes no difference. --/
   
   /aaaaa(*COMMIT)(*THEN)b|a+c/
       aaaaaac
       
   /-- End of "priority" tests --/ 
   
   /aaaaa(*:m)(*PRUNE:m)(*SKIP:m)m|a+/
       aaaaaa
   
   /aaaaa(*:m)(*MARK:m)(*PRUNE)(*SKIP:m)m|a+/
       aaaaaa
   
   /aaaaa(*:n)(*PRUNE:m)(*SKIP:m)m|a+/
       aaaaaa
   
   /aaaaa(*:n)(*MARK:m)(*PRUNE)(*SKIP:m)m|a+/
       aaaaaa
   
   /a(*MARK:A)aa(*PRUNE:A)a(*SKIP:A)b|a+c/
       aaaac
   
   /a(*MARK:A)aa(*MARK:A)a(*SKIP:A)b|a+c/
       aaaac
   
   /aaa(*PRUNE:A)a(*SKIP:A)b|a+c/
       aaaac
   
   /aaa(*MARK:A)a(*SKIP:A)b|a+c/
       aaaac
   
   /a(*:m)a(*COMMIT)(*SKIP:m)b|a+c/K
       aaaaaac
   
   /.?(a|b(*THEN)c)/
       ba
   
   /(a(*COMMIT)b)c|abd/
       abc
       abd
   
   /(?=a(*COMMIT)b)abc|abd/
       abc
       abd
   
   /(?>a(*COMMIT)b)c|abd/
       abc
       abd
   
   /a(?=b(*COMMIT)c)[^d]|abd/
       abd
       abc 
   
   /a(?=bc).|abd/
       abd
       abc 
       
   /a(?>b(*COMMIT)c)d|abd/
       abceabd 
   
   /a(?>bc)d|abd/
       abceabd 
   
   /(?>a(*COMMIT)b)c|abd/
       abd
   
   /(?>a(*COMMIT)c)d|abd/
       abd
   
   /((?=a(*COMMIT)b)ab|ac){0}(?:(?1)|a(c))/
       ac 
       
   /-- These tests were formerly in test 2, but changes in PCRE and Perl have
       made them compatible. --/
       
   /^(a)?(?(1)a|b)+$/
       *** Failers
       a
   
   /(?=a\Kb)ab/
       ab 
   
   /(?!a\Kb)ac/
       ac 
       
   /^abc(?<=b\Kc)d/
       abcd
   
   /^abc(?<!b\Kq)d/
       abcd
   
   
   /A(*PRUNE:A)A+(*SKIP:A)(B|Z) | AC/xK
       AAAC
   
   /^((abc|abcx)(*THEN)y|abcd)/
       abcd
       *** Failers 
       abcxy 
       
   /^((yes|no)(*THEN)(*F))?/
     yes
   
   /(A (.*)   C? (*THEN)  | A D) (*FAIL)/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   C? (*THEN)  | A D) z/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   C? (*THEN)  | A D) \s* (*FAIL)/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   C? (*THEN)  | A D) \s* z/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   (?:C|) (*THEN)  | A D) (*FAIL)/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   (?:C|) (*THEN)  | A D) z/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   C{0,6} (*THEN)  | A D) (*FAIL)/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   C{0,6} (*THEN)  | A D) z/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   (CE){0,6} (*THEN)  | A D) (*FAIL)/x
   AbcdCEBefgBhiBqz
   
   /(A (.*)   (CE){0,6} (*THEN)  | A D) z/x
   AbcdCEBefgBhiBqz
   
   /(A (.*)   (CE*){0,6} (*THEN)  | A D) (*FAIL)/x
   AbcdCBefgBhiBqz
   
   /(A (.*)   (CE*){0,6} (*THEN)  | A D) z/x
   AbcdCBefgBhiBqz
   
   /(?=a(*COMMIT)b|ac)ac|ac/
       ac
   
   /(?=a(*COMMIT)b|(ac)) ac | (a)c/x
       ac
   
   /--------/
   
   /(?(?!b(*THEN)a)bn|bnn)/
      bnn 
   
   /(?!b(*SKIP)a)bn|bnn/
       bnn
       
   /(?(?!b(*SKIP)a)bn|bnn)/
      bnn 
   
   /(?!b(*PRUNE)a)bn|bnn/
       bnn
       
   /(?(?!b(*PRUNE)a)bn|bnn)/
      bnn 
      
   /(?!b(*COMMIT)a)bn|bnn/
       bnn
       
   /(?(?!b(*COMMIT)a)bn|bnn)/
      bnn 
   
   /(?=b(*SKIP)a)bn|bnn/
       bnn
   
   /(?=b(*THEN)a)bn|bnn/
       bnn
       
    /^(?!a(*SKIP)b)/
        ac
   
    /^(?!a(*SKIP)b)../
        acd
   
   /(?!a(*SKIP)b)../
        acd
   
   /^(?(?!a(*SKIP)b))/
        ac
   
   /^(?!a(*PRUNE)b)../
        acd
   
   /(?!a(*PRUNE)b)../
        acd
   
    /(?!a(*COMMIT)b)ac|cd/
        ac
   
   /\A.*?(?:a|bc)/
       ba
   
   /^(A(*THEN)B|C(*THEN)D)/
       CD           
   
   /(*:m(m)(?&y)(?(DEFINE)(?<y>b))/K
       abc
   
   /(*PRUNE:m(m)(?&y)(?(DEFINE)(?<y>b))/K
       abc
   
   /(*SKIP:m(m)(?&y)(?(DEFINE)(?<y>b))/K
       abc
   
   /(*THEN:m(m)(?&y)(?(DEFINE)(?<y>b))/K
       abc
   
   /^\d*\w{4}/
       1234
       123 
   
   /^[^b]*\w{4}/
       aaaa
       aaa     
   
   /^[^b]*\w{4}/i
       aaaa
       aaa     
   
   /^a*\w{4}/
       aaaa
       aaa     
   
   /^a*\w{4}/i
       aaaa
       aaa     
   
 /-- End of testinput1 --/  /-- End of testinput1 --/
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>