The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# encoding: KPS9566
# This file is encoded in KPS9566.
die "This file is not encoded in KPS9566.\n" if q{‚ } ne "\x82\xa0";

use Char;
print "1..40\n";

my $__FILE__ = __FILE__;

if ("‚ " =~ /./) {
    print qq{ok - 1 . without /s ‚  $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 . without /s ‚  $^X $__FILE__\n};
}

if ("\n" !~ /./) {
    print qq{ok - 2 . without /s \\n $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 . without /s \\n $^X $__FILE__\n};
}

if ("‚ " =~ /./s) {
    print qq{ok - 3 . with /s ‚  $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 . with /s ‚  $^X $__FILE__\n};
}

if ("\n" =~ /./s) {
    print qq{ok - 4 . with /s \\n $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 . with /s \\n $^X $__FILE__\n};
}

if ("3" =~ /\d/) {
    print qq{ok - 5 \\d 3 $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 \\d 3 $^X $__FILE__\n};
}

if ("\x09" =~ /\s/) {
    print qq{ok - 6 \\s \\x09 $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 \\s \\x09 $^X $__FILE__\n};
}

if ("\x0A" =~ /\s/) {
    print qq{ok - 7 \\s \\x0A $^X $__FILE__\n};
}
else {
    print qq{not ok - 7 \\s \\x0A $^X $__FILE__\n};
}

if ("\x0C" =~ /\s/) {
    print qq{ok - 8 \\s \\x0C $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 \\s \\x0C $^X $__FILE__\n};
}

if ("\x0D" =~ /\s/) {
    print qq{ok - 9 \\s \\x0D $^X $__FILE__\n};
}
else {
    print qq{not ok - 9 \\s \\x0D $^X $__FILE__\n};
}

if ("\x20" =~ /\s/) {
    print qq{ok - 10 \\s \\x20 $^X $__FILE__\n};
}
else {
    print qq{not ok - 10 \\s \\x20 $^X $__FILE__\n};
}

if ("0" =~ /\w/) {
    print qq{ok - 11 \\w 0 $^X $__FILE__\n};
}
else {
    print qq{not ok - 11 \\w 0 $^X $__FILE__\n};
}

if ("9" =~ /\w/) {
    print qq{ok - 12 \\w 9 $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 \\w 9 $^X $__FILE__\n};
}

if ("A" =~ /\w/) {
    print qq{ok - 13 \\w A $^X $__FILE__\n};
}
else {
    print qq{not ok - 13 \\w A $^X $__FILE__\n};
}

if ("Z" =~ /\w/) {
    print qq{ok - 14 \\w Z $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 \\w Z $^X $__FILE__\n};
}

if ("_" =~ /\w/) {
    print qq{ok - 15 \\w _ $^X $__FILE__\n};
}
else {
    print qq{not ok - 15 \\w _ $^X $__FILE__\n};
}

if ("a" =~ /\w/) {
    print qq{ok - 16 \\w a $^X $__FILE__\n};
}
else {
    print qq{not ok - 16 \\w a $^X $__FILE__\n};
}

if ("z" =~ /\w/) {
    print qq{ok - 17 \\w z $^X $__FILE__\n};
}
else {
    print qq{not ok - 17 \\w z $^X $__FILE__\n};
}

if ("3" !~ /\D/) {
    print qq{ok - 18 \\D 3 $^X $__FILE__\n};
}
else {
    print qq{not ok - 18 \\D 3 $^X $__FILE__\n};
}

if ("\x09" !~ /\S/) {
    print qq{ok - 19 \\S \\x09 $^X $__FILE__\n};
}
else {
    print qq{not ok - 19 \\S \\x09 $^X $__FILE__\n};
}

if ("\x0A" !~ /\S/) {
    print qq{ok - 20 \\S \\x0A $^X $__FILE__\n};
}
else {
    print qq{not ok - 20 \\S \\x0A $^X $__FILE__\n};
}

if ("\x0C" !~ /\S/) {
    print qq{ok - 21 \\S \\x0C $^X $__FILE__\n};
}
else {
    print qq{not ok - 21 \\S \\x0C $^X $__FILE__\n};
}

if ("\x0D" !~ /\S/) {
    print qq{ok - 22 \\S \\x0D $^X $__FILE__\n};
}
else {
    print qq{not ok - 22 \\S \\x0D $^X $__FILE__\n};
}

if ("\x20" !~ /\S/) {
    print qq{ok - 23 \\S \\x20 $^X $__FILE__\n};
}
else {
    print qq{not ok - 23 \\S \\x20 $^X $__FILE__\n};
}

if ("0" !~ /\W/) {
    print qq{ok - 24 \\W 0 $^X $__FILE__\n};
}
else {
    print qq{not ok - 24 \\W 0 $^X $__FILE__\n};
}

if ("9" !~ /\W/) {
    print qq{ok - 25 \\W 9 $^X $__FILE__\n};
}
else {
    print qq{not ok - 25 \\W 9 $^X $__FILE__\n};
}

if ("A" !~ /\W/) {
    print qq{ok - 26 \\W A $^X $__FILE__\n};
}
else {
    print qq{not ok - 26 \\W A $^X $__FILE__\n};
}

if ("Z" !~ /\W/) {
    print qq{ok - 27 \\W Z $^X $__FILE__\n};
}
else {
    print qq{not ok - 27 \\W Z $^X $__FILE__\n};
}

if ("_" !~ /\W/) {
    print qq{ok - 28 \\W _ $^X $__FILE__\n};
}
else {
    print qq{not ok - 28 \\W _ $^X $__FILE__\n};
}

if ("a" !~ /\W/) {
    print qq{ok - 29 \\W a $^X $__FILE__\n};
}
else {
    print qq{not ok - 29 \\W a $^X $__FILE__\n};
}

if ("z" !~ /\W/) {
    print qq{ok - 30 \\W z $^X $__FILE__\n};
}
else {
    print qq{not ok - 30 \\W z $^X $__FILE__\n};
}

if ("\x09" =~ /\h/) {
    print qq{ok - 31 \\h \\x09 $^X $__FILE__\n};
}
else {
    print qq{not ok - 31 \\h \\x09 $^X $__FILE__\n};
}

if ("\x20" =~ /\h/) {
    print qq{ok - 32 \\h \\x20 $^X $__FILE__\n};
}
else {
    print qq{not ok - 32 \\h \\x20 $^X $__FILE__\n};
}

if ("\x0C" =~ /\v/) {
    print qq{ok - 33 \\v \\x0C $^X $__FILE__\n};
}
else {
    print qq{not ok - 33 \\v \\x0C $^X $__FILE__\n};
}

if ("\x0A" =~ /\v/) {
    print qq{ok - 34 \\v \\x0A $^X $__FILE__\n};
}
else {
    print qq{not ok - 34 \\v \\x0A $^X $__FILE__\n};
}

if ("\x0D" =~ /\v/) {
    print qq{ok - 35 \\v \\x0D $^X $__FILE__\n};
}
else {
    print qq{not ok - 35 \\v \\x0D $^X $__FILE__\n};
}

if ("\x09" !~ /\H/) {
    print qq{ok - 36 \\H \\x09 $^X $__FILE__\n};
}
else {
    print qq{not ok - 36 \\H \\x09 $^X $__FILE__\n};
}

if ("\x20" !~ /\H/) {
    print qq{ok - 37 \\H \\x20 $^X $__FILE__\n};
}
else {
    print qq{not ok - 37 \\H \\x20 $^X $__FILE__\n};
}

if ("\x0C" !~ /\V/) {
    print qq{ok - 38 \\V \\x0C $^X $__FILE__\n};
}
else {
    print qq{not ok - 38 \\V \\x0C $^X $__FILE__\n};
}

if ("\x0A" !~ /\V/) {
    print qq{ok - 39 \\V \\x0A $^X $__FILE__\n};
}
else {
    print qq{not ok - 39 \\V \\x0A $^X $__FILE__\n};
}

if ("\x0D" !~ /\V/) {
    print qq{ok - 40 \\V \\x0D $^X $__FILE__\n};
}
else {
    print qq{not ok - 40 \\V \\x0D $^X $__FILE__\n};
}

__END__