The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
INA / Char-GB18030-1.01 / t / 239_filetest.t 
# This file is encoded in Char::GB18030.
die "This file is not encoded in Char::GB18030.\n" if q{‚ } ne "\x82\xa0";

# Char::Egb18030::X ‚Æ -X (Perl‚̃tƒ@ƒCƒ‹ƒeƒXƒg‰‰ŽZŽq) ‚ÌŒ‹‰Ê‚ªˆê’v‚·‚邱‚Ƃ̃eƒXƒg(‘Ώۂ̓fƒBƒŒƒNƒgƒŠ)

my $__FILE__ = __FILE__;

use Char::Egb18030;
print "1..22\n";

if ($^O !~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
    for my $tno (1..22) {
        print "ok - $tno # SKIP $^X $0\n";
    }
    exit;
}

mkdir('directory',0777);

opendir(DIR,'directory');

if (((Char::Egb18030::r 'directory') ne '') == ((-r 'directory') ne '')) {
    print "ok - 1 Char::Egb18030::r 'directory' == -r 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 1 Char::Egb18030::r 'directory' == -r 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::w 'directory') ne '') == ((-w 'directory') ne '')) {
    print "ok - 2 Char::Egb18030::w 'directory' == -w 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 2 Char::Egb18030::w 'directory' == -w 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::x 'directory') ne '') == ((-x 'directory') ne '')) {
    print "ok - 3 Char::Egb18030::x 'directory' == -x 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 3 Char::Egb18030::x 'directory' == -x 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::o 'directory') ne '') == ((-o 'directory') ne '')) {
    print "ok - 4 Char::Egb18030::o 'directory' == -o 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 4 Char::Egb18030::o 'directory' == -o 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::R 'directory') ne '') == ((-R 'directory') ne '')) {
    print "ok - 5 Char::Egb18030::R 'directory' == -R 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 5 Char::Egb18030::R 'directory' == -R 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::W 'directory') ne '') == ((-W 'directory') ne '')) {
    print "ok - 6 Char::Egb18030::W 'directory' == -W 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 6 Char::Egb18030::W 'directory' == -W 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::X 'directory') ne '') == ((-X 'directory') ne '')) {
    print "ok - 7 Char::Egb18030::X 'directory' == -X 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 7 Char::Egb18030::X 'directory' == -X 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::O 'directory') ne '') == ((-O 'directory') ne '')) {
    print "ok - 8 Char::Egb18030::O 'directory' == -O 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 8 Char::Egb18030::O 'directory' == -O 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::e 'directory') ne '') == ((-e 'directory') ne '')) {
    print "ok - 9 Char::Egb18030::e 'directory' == -e 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 9 Char::Egb18030::e 'directory' == -e 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::z 'directory') ne '') == ((-z 'directory') ne '')) {
    print "ok - 10 Char::Egb18030::z 'directory' == -z 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 10 Char::Egb18030::z 'directory' == -z 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::s 'directory') ne '') == ((-s 'directory') ne '')) {
    print "ok - 11 Char::Egb18030::s 'directory' == -s 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 11 Char::Egb18030::s 'directory' == -s 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::f 'directory') ne '') == ((-f 'directory') ne '')) {
    print "ok - 12 Char::Egb18030::f 'directory' == -f 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 12 Char::Egb18030::f 'directory' == -f 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::d 'directory') ne '') == ((-d 'directory') ne '')) {
    print "ok - 13 Char::Egb18030::d 'directory' == -d 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 13 Char::Egb18030::d 'directory' == -d 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::p 'directory') ne '') == ((-p 'directory') ne '')) {
    print "ok - 14 Char::Egb18030::p 'directory' == -p 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 14 Char::Egb18030::p 'directory' == -p 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::S 'directory') ne '') == ((-S 'directory') ne '')) {
    print "ok - 15 Char::Egb18030::S 'directory' == -S 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 15 Char::Egb18030::S 'directory' == -S 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::b 'directory') ne '') == ((-b 'directory') ne '')) {
    print "ok - 16 Char::Egb18030::b 'directory' == -b 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 16 Char::Egb18030::b 'directory' == -b 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::c 'directory') ne '') == ((-c 'directory') ne '')) {
    print "ok - 17 Char::Egb18030::c 'directory' == -c 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 17 Char::Egb18030::c 'directory' == -c 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::u 'directory') ne '') == ((-u 'directory') ne '')) {
    print "ok - 18 Char::Egb18030::u 'directory' == -u 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 18 Char::Egb18030::u 'directory' == -u 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::g 'directory') ne '') == ((-g 'directory') ne '')) {
    print "ok - 19 Char::Egb18030::g 'directory' == -g 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 19 Char::Egb18030::g 'directory' == -g 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::M 'directory') ne '') == ((-M 'directory') ne '')) {
    print "ok - 20 Char::Egb18030::M 'directory' == -M 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 20 Char::Egb18030::M 'directory' == -M 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::A 'directory') ne '') == ((-A 'directory') ne '')) {
    print "ok - 21 Char::Egb18030::A 'directory' == -A 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 21 Char::Egb18030::A 'directory' == -A 'directory' $^X $__FILE__\n";
}

if (((Char::Egb18030::C 'directory') ne '') == ((-C 'directory') ne '')) {
    print "ok - 22 Char::Egb18030::C 'directory' == -C 'directory' $^X $__FILE__\n";
}
else {
    print "not ok - 22 Char::Egb18030::C 'directory' == -C 'directory' $^X $__FILE__\n";
}

closedir(DIR);
rmdir('directory');

__END__