/-- This set of tests is for UTF-16 and UTF-32 support, and is relevant only to
    the 16- and 32-bit libraries. --/
    
< forbid W 
/xxx/8?DZSS
/abc/8
    ]
/X(\C{3})/8
    X\x{11234}Y
    X\x{11234}YZ
/X(\C{4})/8
    X\x{11234}YZ
    X\x{11234}YZW
/X\C*/8
    XYZabcdce
/X\C*?/8
    XYZabcde
/X\C{3,5}/8
    Xabcdefg
    X\x{11234}Y
    X\x{11234}YZ
    X\x{11234}\x{512}
    X\x{11234}\x{512}YZ
    X\x{11234}\x{512}\x{11234}Z
/X\C{3,5}?/8
    Xabcdefg
    X\x{11234}Y
    X\x{11234}YZ
    X\x{11234}\x{512}YZ
    *** Failers
    X\x{11234}
/a\Cb/8
    aXb
    a\nb
/a\C\Cb/8
    a\x{12257}b
    a\x{12257}\x{11234}b
    ** Failers
    a\x{100}b
/ab\Cde/8
    abXde
/-- Check maximum character size --/
/\x{ffff}/8DZ
/\x{10000}/8DZ
/\x{100}/8DZ
/\x{1000}/8DZ
/\x{10000}/8DZ
/\x{100000}/8DZ
/\x{10ffff}/8DZ
/[\x{ff}]/8DZ
/[\x{100}]/8DZ
/\x80/8DZ
/\xff/8DZ
/\x{D55c}\x{ad6d}\x{C5B4}/DZ8
    \x{D55c}\x{ad6d}\x{C5B4}
/\x{65e5}\x{672c}\x{8a9e}/DZ8
    \x{65e5}\x{672c}\x{8a9e}
/\x{80}/DZ8
/\x{084}/DZ8
/\x{104}/DZ8
/\x{861}/DZ8
/\x{212ab}/DZ8
/-- This one is here not because it's different to Perl, but because the way
the captured single-byte is displayed. (In Perl it becomes a character, and you
can't tell the difference.) --/
/X(\C)(.*)/8
    X\x{1234}
    X\nabc
/-- This one is here because Perl gives out a grumbly error message (quite
correctly, but that messes up comparisons). --/
/a\Cb/8
    *** Failers
    a\x{100}b
/[^ab\xC0-\xF0]/8SDZ
    \x{f1}
    \x{bf}
    \x{100}
    \x{1000}
    *** Failers
    \x{c0}
    \x{f0}
/Ā{3,4}/8SDZ
  \x{100}\x{100}\x{100}\x{100\x{100}
/(\x{100}+|x)/8SDZ
/(\x{100}*a|x)/8SDZ
/(\x{100}{0,2}a|x)/8SDZ
/(\x{100}{1,2}a|x)/8SDZ
/\x{100}/8DZ
/a\x{100}\x{101}*/8DZ
/a\x{100}\x{101}+/8DZ
/[^\x{c4}]/DZ
/[\x{100}]/8DZ
    \x{100}
    Z\x{100}
    \x{100}Z
    *** Failers
/[\xff]/DZ8
    >\x{ff}<
/[^\xff]/8DZ
/\x{100}abc(xyz(?1))/8DZ
/\777/8I
  \x{1ff}
  \777
/\x{100}+\x{200}/8DZ
/\x{100}+X/8DZ
/^[\QĀ\E-\QŐ\E/BZ8
/X/8
    \x{d800}
    \x{d800}\?
    \x{da00}
    \x{da00}\?
    \x{dc00}
    \x{dc00}\?
    \x{de00}
    \x{de00}\?
    \x{dfff}
    \x{dfff}\?
    \x{110000}
    \x{d800}\x{1234}
/(*UTF16)\x{11234}/
  abcd\x{11234}pqr
/(*UTF)\x{11234}/I
  abcd\x{11234}pqr
/(*UTF-32)\x{11234}/
  abcd\x{11234}pqr
/(*CRLF)(*UTF16)(*BSR_UNICODE)a\Rb/I
/(*CRLF)(*UTF32)(*BSR_UNICODE)a\Rb/I
/\h/SI8
    ABC\x{09}
    ABC\x{20}
    ABC\x{a0}
    ABC\x{1680}
    ABC\x{180e}
    ABC\x{2000}
    ABC\x{202f}
    ABC\x{205f}
    ABC\x{3000}
/\v/SI8
    ABC\x{0a}
    ABC\x{0b}
    ABC\x{0c}
    ABC\x{0d}
    ABC\x{85}
    ABC\x{2028}
/\h*A/SI8
    CDBABC
    \x{2000}ABC 
/\R*A/SI8
    CDBABC
    \x{2028}A  
/\v+A/SI8
/\s?xxx\s/8SI
/\sxxx\s/I8ST1
    AB\x{85}xxx\x{a0}XYZ
    AB\x{a0}xxx\x{85}XYZ
/\S \S/I8ST1
    \x{a2} \x{84}
    A Z
/a+/8
    a\x{123}aa\>1
    a\x{123}aa\>2
    a\x{123}aa\>3
    a\x{123}aa\>4
    a\x{123}aa\>5
    a\x{123}aa\>6
/\x{1234}+/iS8I
/\x{1234}+?/iS8I
/\x{1234}++/iS8I
/\x{1234}{2}/iS8I
/[^\x{c4}]/8DZ
/X+\x{200}/8DZ
/\R/SI8
/-- Check bad offset --/
/a/8
    \x{10000}\>1
    \x{10000}ab\>1
    \x{10000}ab\>2
    \x{10000}ab\>3
    \x{10000}ab\>4
    \x{10000}ab\>5
//8
/\w+\x{C4}/8BZ
    a\x{C4}\x{C4}
/\w+\x{C4}/8BZT1
    a\x{C4}\x{C4}
    
/\W+\x{C4}/8BZ
    !\x{C4}
 
/\W+\x{C4}/8BZT1
    !\x{C4}
/\W+\x{A1}/8BZ
    !\x{A1}
 
/\W+\x{A1}/8BZT1
    !\x{A1}
/X\s+\x{A0}/8BZ
    X\x20\x{A0}\x{A0}
/X\s+\x{A0}/8BZT1
    X\x20\x{A0}\x{A0}
/\S+\x{A0}/8BZ
    X\x{A0}\x{A0}
/\S+\x{A0}/8BZT1
    X\x{A0}\x{A0}
/\x{a0}+\s!/8BZ
    \x{a0}\x20!
/\x{a0}+\s!/8BZT1
    \x{a0}\x20!
/(*UTF)abc/9
/abc/89
/-- End of testinput18 --/
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>