# encoding: INFORMIXV6ALS
# This file is encoded in INFORMIX V6 ALS.
die "This file is not encoded in INFORMIX V6 ALS.\n" if q{‚ } ne "\x82\xa0";

use INFORMIXV6ALS;
print "1..2\n";

my $__FILE__ = __FILE__;

# /g ‚È‚µ‚̃XƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg
my $success = "ƒAƒ\ƒA" =~ qr/ƒ\/;
if ($success) {
    print qq{ok - 1 "ƒAƒ\ƒA" =~ qr/ƒ\/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "ƒAƒ\ƒA" =~ qr/ƒ\/ $^X $__FILE__\n};
}

# /g ‚È‚µ‚̃ŠƒXƒgƒRƒ“ƒeƒLƒXƒg
if (my($c1,$c2,$c3,$c4) = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ qr/^...(.)(.)(.)(.)...$/) {
    if ("($c1)($c2)($c3)($c4)" eq "(ƒZ)(ƒ\)(ƒ^)(ƒ`)") {
        print "ok - 2 ($c1)($c2)($c3)($c4) $^X $__FILE__\n";
    }
    else {
        print "not ok - 2 ($c1)($c2)($c3)($c4) $^X $__FILE__\n";
    }
}
else {
    print "not ok - 2 ($c1)($c2)($c3)($c4) $^X $__FILE__\n";
}

__END__