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