t/op/pat.t

1290 	use utf8; # needed for the raw UTF-8
1590     # The original bug report had 'no utf8' here but that was irrelevant.
2006     # [ID 20010407.006] matching utf8 return values from functions does not work
2738     # check utf8/non-utf8 mixtures
2841 +utf8::InHiragana
2842 +utf8::InKatakana
2848 +utf8::InHiragana
2849 +utf8::InKatakana
2850 -utf8::IsCn
2856 !utf8::InHiragana
2857 -utf8::InKatakana
2858 +utf8::IsCn
2891     print "# [ID 20020630.002] utf8 regex only matches 32k\n";
2893     for ([ 'byte', "\x{ff}" ], [ 'utf8', "\x{1ff}" ]) {
2922 print(($x =~ $a ? '' : 'not '), "ok $test - utf8 interpolation in qr//\n");
2926       "ok $test - stringifed qr// preserves utf8\n");
2930       "ok $test - interpolated qr// preserves utf8\n");
2934       "ok $test - postponed interpolation of qr// preserves utf8\n");
2944       "ok $test - postponed utf8 string in utf8 re matches utf8\n");
2948       "ok $test - postponed utf8 string in non-utf8 re matches utf8\n");
2952       "ok $test - postponed non-utf8 string in non-utf8 re doesn't match utf8\n");
2956       "ok $test - postponed non-utf8 string in utf8 re doesn't match utf8\n");
2960       "ok $test - postponed non-utf8 string in non-utf8 re matches non-utf8\n");
2964       "ok $test - postponed non-utf8 string in utf8 re matches non-utf8\n");
2969       "ok $test - postponed utf8 string in utf8 re doesn't match non-utf8\n");
2974       "ok $test - postponed utf8 string in non-utf8 re doesn't match non-utf8\n");
3061 utf8::upgrade($_); chop $_; $\="\n";
3062 ok(/[^\s]+/, "m/[^\s]/ utf8");
3063 ok(/[^\d]+/, "m/[^\d]/ utf8");
3064 ok(($a = $_, $_ =~ s/[^\s]+/./g), "s/[^\s]/ utf8");
3065 ok(($a = $_, $a =~ s/[^\d]+/./g), "s/[^\s]/ utf8");
3097     use utf8;
3109     use utf8;
3182     utf8::upgrade($re);
3245     ok("\xc4\xc4\xc4" !~ /(\x{100}+)/, "[perl #23769] don't match first byte of utf8 representation");
3246     ok("\xc4\xc4\xc4" !~ /(\x{100}+?)/, "[perl #23769] don't match first byte of utf8 representation");
3264     ok($c=~/${c}|\x{100}/, "ASCII pattern that really is utf8");