src/external/pcre2-10.32/testdata/testinput22

   1 # Tests of \C when Unicode support is available. Note that \C is not supported
   2 # for DFA matching in UTF mode, so this test is not run with -dfa. The output
   3 # of this test is different in 8-, 16-, and 32-bit modes. Some tests may match
   4 # in some widths and not in others.
   5
   6 /ab\Cde/utf,info
   7     abXde
   8
   9 # This should produce an error diagnostic (\C in UTF lookbehind) in 8-bit and
  10 # 16-bit modes, but not in 32-bit mode.
  11
  12 /(?<=ab\Cde)X/utf
  13     ab!deXYZ
  14
  15 # Autopossessification tests
  16
  17 /\C+\X \X+\C/Bx
  18
  19 /\C+\X \X+\C/Bx,utf
  20
  21 /\C\X*TӅ;\r
  22 {0,6}\v+\rF
  23 /utf
  24 \= Expect no match
  25     Ӆ\x0a
  26
  27 /\C(\W?ſ)'?{{/utf
  28 \= Expect no match
  29     \\C(\\W?ſ)'?{{
  30
  31 /X(\C{3})/utf
  32     X\x{1234}
  33     X\x{11234}Y
  34     X\x{11234}YZ
  35
  36 /X(\C{4})/utf
  37     X\x{1234}YZ
  38     X\x{11234}YZ
  39     X\x{11234}YZW
  40
  41 /X\C*/utf
  42     XYZabcdce
  43
  44 /X\C*?/utf
  45     XYZabcde
  46
  47 /X\C{3,5}/utf
  48     Xabcdefg
  49     X\x{1234}
  50     X\x{1234}YZ
  51     X\x{1234}\x{512}
  52     X\x{1234}\x{512}YZ
  53     X\x{11234}Y
  54     X\x{11234}YZ
  55     X\x{11234}\x{512}
  56     X\x{11234}\x{512}YZ
  57     X\x{11234}\x{512}\x{11234}Z
  58
  59 /X\C{3,5}?/utf
  60     Xabcdefg
  61     X\x{1234}
  62     X\x{1234}YZ
  63     X\x{1234}\x{512}
  64     X\x{11234}Y
  65     X\x{11234}YZ
  66     X\x{11234}\x{512}YZ
  67     X\x{11234}
  68
  69 /a\Cb/utf
  70     aXb
  71     a\nb
  72     a\x{100}b
  73
  74 /a\C\Cb/utf
  75     a\x{100}b
  76     a\x{12257}b
  77     a\x{12257}\x{11234}b
  78
  79 /ab\Cde/utf
  80     abXde
  81
  82 # This one is here not because it's different to Perl, but because the way
  83 # the captured single code unit is displayed. (In Perl it becomes a character,
  84 # and you can't tell the difference.)
  85
  86 /X(\C)(.*)/utf
  87     X\x{1234}
  88     X\nabc
  89
  90 # This one is here because Perl gives out a grumbly error message (quite
  91 # correctly, but that messes up comparisons).
  92
  93 /a\Cb/utf
  94 \= Expect no match in 8-bit mode
  95     a\x{100}b
  96
  97 /^ab\C/utf,no_start_optimize
  98 \= Expect no match - tests \C at end of subject
  99     ab
 100
 101 /\C[^\v]+\x80/utf
 102     [AΏBŀC]
 103
 104 /\C[^\d]+\x80/utf
 105     [AΏBŀC]
 106
 107 # End of testinput22