# encoding: Cyrillic # This file is encoded in Cyrillic. die "This file is not encoded in Cyrillic.\n" if q{あ} ne "\x82\xa0"; use Cyrillic; print "1..6\n"; my $__FILE__ = __FILE__; if ('アABC DEF GHI' =~ /\bABC/) { print "not ok - 1 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bABC/)\n"; } else { print "ok - 1 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bABC/)\n"; } if ('アABC DEF GHI' =~ /\bDEF/) { print "ok - 2 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bDEF/)\n"; } else { print "not ok - 2 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bDEF/)\n"; } if ('アABC DEF GHI' =~ /\bGHI/) { print "ok - 3 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bGHI/)\n"; } else { print "not ok - 3 $^X $__FILE__ ('アABC DEF GHI' =~ /\\bGHI/)\n"; } if ('アABC DEF GHI' =~ /ABC\b/) { print "ok - 4 $^X $__FILE__ ('アABC DEF GHI' =~ /ABC\\b/)\n"; } else { print "not ok - 4 $^X $__FILE__ ('アABC DEF GHI' =~ /ABC\\b/)\n"; } if ('アABC DEF GHI' =~ /DEF\b/) { print "ok - 5 $^X $__FILE__ ('アABC DEF GHI' =~ /DEF\\b/)\n"; } else { print "not ok - 5 $^X $__FILE__ ('アABC DEF GHI' =~ /DEF\\b/)\n"; } if ('アABC DEF GHI' =~ /GHI\b/) { print "ok - 6 $^X $__FILE__ ('アABC DEF GHI' =~ /GHI\\b/)\n"; } else { print "not ok - 6 $^X $__FILE__ ('アABC DEF GHI' =~ /GHI\\b/)\n"; } __END__