# This file is encoded in Char::UHC. die "This file is not encoded in Char::UHC.\n" if q{あ} ne "\x82\xa0"; use strict; use Char::UHC; print "1..56\n"; my $__FILE__ = __FILE__; if ('A' =~ qr'A') { print qq{ok - 1 'A' =~ qr'A' $^X $__FILE__\n}; } else { print qq{not ok - 1 'A' =~ qr'A' $^X $__FILE__\n}; } if ('A' =~ qr'A'b) { print qq{ok - 2 'A' =~ qr'A'b $^X $__FILE__\n}; } else { print qq{not ok - 2 'A' =~ qr'A'b $^X $__FILE__\n}; } if ('A' =~ qr'a'i) { print qq{ok - 3 'A' =~ qr'a'i $^X $__FILE__\n}; } else { print qq{not ok - 3 'A' =~ qr'a'i $^X $__FILE__\n}; } if ('A' =~ qr'a'ib) { print qq{ok - 4 'A' =~ qr'a'ib $^X $__FILE__\n}; } else { print qq{not ok - 4 'A' =~ qr'a'ib $^X $__FILE__\n}; } if ('a' =~ qr'A') { print qq{not ok - 5 'a' =~ qr'A' $^X $__FILE__\n}; } else { print qq{ok - 5 'a' =~ qr'A' $^X $__FILE__\n}; } if ('a' =~ qr'A'b) { print qq{not ok - 6 'a' =~ qr'A'b $^X $__FILE__\n}; } else { print qq{ok - 6 'a' =~ qr'A'b $^X $__FILE__\n}; } if ('a' =~ qr'a'i) { print qq{ok - 7 'a' =~ qr'a'i $^X $__FILE__\n}; } else { print qq{not ok - 7 'a' =~ qr'a'i $^X $__FILE__\n}; } if ('a' =~ qr'a'ib) { print qq{ok - 8 'a' =~ qr'a'ib $^X $__FILE__\n}; } else { print qq{not ok - 8 'a' =~ qr'a'ib $^X $__FILE__\n}; } if ('A' =~ qr'ア') { print qq{not ok - 9 'A' =~ qr'ア' $^X $__FILE__\n}; } else { print qq{ok - 9 'A' =~ qr'ア' $^X $__FILE__\n}; } if ('A' =~ qr'ア'b) { print qq{not ok - 10 'A' =~ qr'ア'b $^X $__FILE__\n}; } else { print qq{ok - 10 'A' =~ qr'ア'b $^X $__FILE__\n}; } if ('A' =~ qr'ア'i) { print qq{not ok - 11 'A' =~ qr'ア'i $^X $__FILE__\n}; } else { print qq{ok - 11 'A' =~ qr'ア'i $^X $__FILE__\n}; } if ('A' =~ qr'ア'ib) { print qq{not ok - 12 'A' =~ qr'ア'ib $^X $__FILE__\n}; } else { print qq{ok - 12 'A' =~ qr'ア'ib $^X $__FILE__\n}; } if ('A' =~ qr'ヂ') { print qq{not ok - 13 'A' =~ qr'ヂ' $^X $__FILE__\n}; } else { print qq{ok - 13 'A' =~ qr'ヂ' $^X $__FILE__\n}; } if ('A' =~ qr'ヂ'b) { print qq{not ok - 14 'A' =~ qr'ヂ'b $^X $__FILE__\n}; } else { print qq{ok - 14 'A' =~ qr'ヂ'b $^X $__FILE__\n}; } if ('A' =~ qr'ヂ'i) { print qq{not ok - 15 'A' =~ qr'ヂ'i $^X $__FILE__\n}; } else { print qq{ok - 15 'A' =~ qr'ヂ'i $^X $__FILE__\n}; } if ('A' =~ qr'ヂ'ib) { print qq{not ok - 16 'A' =~ qr'ヂ'ib $^X $__FILE__\n}; } else { print qq{ok - 16 'A' =~ qr'ヂ'ib $^X $__FILE__\n}; } if ('a' =~ qr'ア') { print qq{not ok - 17 'a' =~ qr'ア' $^X $__FILE__\n}; } else { print qq{ok - 17 'a' =~ qr'ア' $^X $__FILE__\n}; } if ('a' =~ qr'ア'b) { print qq{not ok - 18 'a' =~ qr'ア'b $^X $__FILE__\n}; } else { print qq{ok - 18 'a' =~ qr'ア'b $^X $__FILE__\n}; } if ('a' =~ qr'ア'i) { print qq{not ok - 19 'a' =~ qr'ア'i $^X $__FILE__\n}; } else { print qq{ok - 19 'a' =~ qr'ア'i $^X $__FILE__\n}; } if ('a' =~ qr'ア'ib) { print qq{not ok - 20 'a' =~ qr'ア'ib $^X $__FILE__\n}; } else { print qq{ok - 20 'a' =~ qr'ア'ib $^X $__FILE__\n}; } if ('a' =~ qr'ヂ') { print qq{not ok - 21 'a' =~ qr'ヂ' $^X $__FILE__\n}; } else { print qq{ok - 21 'a' =~ qr'ヂ' $^X $__FILE__\n}; } if ('a' =~ qr'ヂ'b) { print qq{not ok - 22 'a' =~ qr'ヂ'b $^X $__FILE__\n}; } else { print qq{ok - 22 'a' =~ qr'ヂ'b $^X $__FILE__\n}; } if ('a' =~ qr'ヂ'i) { print qq{not ok - 23 'a' =~ qr'ヂ'i $^X $__FILE__\n}; } else { print qq{ok - 23 'a' =~ qr'ヂ'i $^X $__FILE__\n}; } if ('a' =~ qr'ヂ'ib) { print qq{not ok - 24 'a' =~ qr'ヂ'ib $^X $__FILE__\n}; } else { print qq{ok - 24 'a' =~ qr'ヂ'ib $^X $__FILE__\n}; } if ('ア' =~ qr'A') { print qq{not ok - 25 'ア' =~ qr'A' $^X $__FILE__\n}; } else { print qq{ok - 25 'ア' =~ qr'A' $^X $__FILE__\n}; } if ('ア' =~ qr'A'b) { print qq{ok - 26 'ア' =~ qr'A'b $^X $__FILE__\n}; } else { print qq{not ok - 26 'ア' =~ qr'A'b $^X $__FILE__\n}; } if ('ア' =~ qr'A'i) { print qq{not ok - 27 'ア' =~ qr'A'i $^X $__FILE__\n}; } else { print qq{ok - 27 'ア' =~ qr'A'i $^X $__FILE__\n}; } if ('ア' =~ qr'A'ib) { print qq{ok - 28 'ア' =~ qr'A'ib $^X $__FILE__\n}; } else { print qq{not ok - 28 'ア' =~ qr'A'ib $^X $__FILE__\n}; } if ('ア' =~ qr'a') { print qq{not ok - 29 'ア' =~ qr'a' $^X $__FILE__\n}; } else { print qq{ok - 29 'ア' =~ qr'a' $^X $__FILE__\n}; } if ('ア' =~ qr'a'b) { print qq{not ok - 30 'ア' =~ qr'a'b $^X $__FILE__\n}; } else { print qq{ok - 30 'ア' =~ qr'a'b $^X $__FILE__\n}; } if ('ア' =~ qr'a'i) { print qq{not ok - 31 'ア' =~ qr'a'i $^X $__FILE__\n}; } else { print qq{ok - 31 'ア' =~ qr'a'i $^X $__FILE__\n}; } if ('ア' =~ qr'a'ib) { print qq{ok - 32 'ア' =~ qr'a'ib $^X $__FILE__\n}; } else { print qq{not ok - 32 'ア' =~ qr'a'ib $^X $__FILE__\n}; } if ('ヂ' =~ qr'A') { print qq{not ok - 33 'ヂ' =~ qr'A' $^X $__FILE__\n}; } else { print qq{ok - 33 'ヂ' =~ qr'A' $^X $__FILE__\n}; } if ('ヂ' =~ qr'A'b) { print qq{not ok - 34 'ヂ' =~ qr'A'b $^X $__FILE__\n}; } else { print qq{ok - 34 'ヂ' =~ qr'A'b $^X $__FILE__\n}; } if ('ヂ' =~ qr'A'i) { print qq{not ok - 35 'ヂ' =~ qr'A'i $^X $__FILE__\n}; } else { print qq{ok - 35 'ヂ' =~ qr'A'i $^X $__FILE__\n}; } if ('ヂ' =~ qr'A'ib) { print qq{ok - 36 'ヂ' =~ qr'A'ib $^X $__FILE__\n}; } else { print qq{not ok - 36 'ヂ' =~ qr'A'ib $^X $__FILE__\n}; } if ('ヂ' =~ qr'a') { print qq{not ok - 37 'ヂ' =~ qr'a' $^X $__FILE__\n}; } else { print qq{ok - 37 'ヂ' =~ qr'a' $^X $__FILE__\n}; } if ('ヂ' =~ qr'a'b) { print qq{ok - 38 'ヂ' =~ qr'a'b $^X $__FILE__\n}; } else { print qq{not ok - 38 'ヂ' =~ qr'a'b $^X $__FILE__\n}; } if ('ヂ' =~ qr'a'i) { print qq{not ok - 39 'ヂ' =~ qr'a'i $^X $__FILE__\n}; } else { print qq{ok - 39 'ヂ' =~ qr'a'i $^X $__FILE__\n}; } if ('ヂ' =~ qr'a'ib) { print qq{ok - 40 'ヂ' =~ qr'a'ib $^X $__FILE__\n}; } else { print qq{not ok - 40 'ヂ' =~ qr'a'ib $^X $__FILE__\n}; } if ('ャA' =~ qr'ア') { print qq{not ok - 41 'ャA' =~ qr'ア' $^X $__FILE__\n}; } else { print qq{ok - 41 'ャA' =~ qr'ア' $^X $__FILE__\n}; } if ('ャA' =~ qr'ア'b) { print qq{ok - 42 'ャA' =~ qr'ア'b $^X $__FILE__\n}; } else { print qq{not ok - 42 'ャA' =~ qr'ア'b $^X $__FILE__\n}; } if ('ャA' =~ qr'ア'i) { print qq{not ok - 43 'ャA' =~ qr'ア'i $^X $__FILE__\n}; } else { print qq{ok - 43 'ャA' =~ qr'ア'i $^X $__FILE__\n}; } if ('ャA' =~ qr'ア'ib) { print qq{ok - 44 'ャA' =~ qr'ア'ib $^X $__FILE__\n}; } else { print qq{not ok - 44 'ャA' =~ qr'ア'ib $^X $__FILE__\n}; } if ('ャA' =~ qr'ヂ') { print qq{not ok - 45 'ャA' =~ qr'ヂ' $^X $__FILE__\n}; } else { print qq{ok - 45 'ャA' =~ qr'ヂ' $^X $__FILE__\n}; } if ('ャA' =~ qr'ヂ'b) { print qq{not ok - 46 'ャA' =~ qr'ヂ'b $^X $__FILE__\n}; } else { print qq{ok - 46 'ャA' =~ qr'ヂ'b $^X $__FILE__\n}; } if ('ャA' =~ qr'ヂ'i) { print qq{not ok - 47 'ャA' =~ qr'ヂ'i $^X $__FILE__\n}; } else { print qq{ok - 47 'ャA' =~ qr'ヂ'i $^X $__FILE__\n}; } if ('ャA' =~ qr'ヂ'ib) { print qq{ok - 48 'ャA' =~ qr'ヂ'ib $^X $__FILE__\n}; } else { print qq{not ok - 48 'ャA' =~ qr'ヂ'ib $^X $__FILE__\n}; } if ('ャa' =~ qr'ア') { print qq{not ok - 49 'ャa' =~ qr'ア' $^X $__FILE__\n}; } else { print qq{ok - 49 'ャa' =~ qr'ア' $^X $__FILE__\n}; } if ('ャa' =~ qr'ア'b) { print qq{not ok - 50 'ャa' =~ qr'ア'b $^X $__FILE__\n}; } else { print qq{ok - 50 'ャa' =~ qr'ア'b $^X $__FILE__\n}; } if ('ャa' =~ qr'ア'i) { print qq{not ok - 51 'ャa' =~ qr'ア'i $^X $__FILE__\n}; } else { print qq{ok - 51 'ャa' =~ qr'ア'i $^X $__FILE__\n}; } if ('ャa' =~ qr'ア'ib) { print qq{ok - 52 'ャa' =~ qr'ア'ib $^X $__FILE__\n}; } else { print qq{not ok - 52 'ャa' =~ qr'ア'ib $^X $__FILE__\n}; } if ('ャa' =~ qr'ヂ') { print qq{not ok - 53 'ャa' =~ qr'ヂ' $^X $__FILE__\n}; } else { print qq{ok - 53 'ャa' =~ qr'ヂ' $^X $__FILE__\n}; } if ('ャa' =~ qr'ヂ'b) { print qq{ok - 54 'ャa' =~ qr'ヂ'b $^X $__FILE__\n}; } else { print qq{not ok - 54 'ャa' =~ qr'ヂ'b $^X $__FILE__\n}; } if ('ャa' =~ qr'ヂ'i) { print qq{not ok - 55 'ャa' =~ qr'ヂ'i $^X $__FILE__\n}; } else { print qq{ok - 55 'ャa' =~ qr'ヂ'i $^X $__FILE__\n}; } if ('ャa' =~ qr'ヂ'ib) { print qq{ok - 56 'ャa' =~ qr'ヂ'ib $^X $__FILE__\n}; } else { print qq{not ok - 56 'ャa' =~ qr'ヂ'ib $^X $__FILE__\n}; } __END__