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