# encoding: Sjis # This file is encoded in ShiftJIS. die "This file is not encoded in ShiftJIS.\n" if q{あ} ne "\x82\xa0"; use strict; use Sjis; 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__