# encoding: EUCJP
# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";
use Char;
print "1..6\n";
my $__FILE__ = __FILE__;
my $aaa = 'AAA';
my $bbb = 'BBB';
if (<<'END' eq "¥½\$aaa¥½\n" and <<'END' eq "ɽ\$bbbɽ\n") {
¥½$aaa¥½
END
ɽ$bbbɽ
END
print qq{ok - 1 <<'END' and <<'END' $^X $__FILE__\n};
}
else {
print qq{not ok - 1 <<'END' and <<'END' $^X $__FILE__\n};
}
if (<<\END eq "¥½\$aaa¥½\n" and <<\END eq "ɽ\$bbbɽ\n") {
¥½$aaa¥½
END
ɽ$bbbɽ
END
print qq{ok - 2 <<\\END and <<\\END $^X $__FILE__\n};
}
else {
print qq{not ok - 2 <<\\END and <<\\END $^X $__FILE__\n};
}
if (<<END eq "¥½\L$aaa¥½\n" and <<END eq "ɽ\L$bbb\Eɽ\n") {
¥½\L$aaa¥½
END
ɽ\L$bbb\Eɽ
END
print qq{ok - 3 <<END and <<END $^X $__FILE__\n};
}
else {
print qq{not ok - 3 <<END and <<END $^X $__FILE__\n};
}
if (<<"END" eq "¥½\L$aaa¥½\n" and <<"END" eq "ɽ\L$bbb\Eɽ\n") {
¥½\L$aaa¥½
END
ɽ\L$bbb\Eɽ
END
print qq{ok - 4 <<"END" and <<"END" $^X $__FILE__\n};
}
else {
print qq{not ok - 4 <<"END" and <<"END" $^X $__FILE__\n};
}
if (<<'END' eq "¥½\$aaa¥½\n" and <<END eq "¥½$aaa¥½\n" and <<'END' eq "ɽ\$bbbɽ\n") {
¥½$aaa¥½
END
¥½$aaa¥½
END
ɽ$bbbɽ
END
print qq{ok - 5 <<'END' and <<"END" and <<'END' $^X $__FILE__\n};
}
else {
print qq{not ok - 5 <<'END' and <<"END" and <<'END' $^X $__FILE__\n};
}
if (<<END eq "¥½\L$aaa¥½\n" and <<'END' eq "ɽ\$bbbɽ\n" and <<END eq "ɽ\L$bbb\Eɽ\n") {
¥½\L$aaa¥½
END
ɽ$bbbɽ
END
ɽ\L$bbb\Eɽ
END
print qq{ok - 6 <<END and <<'END' and <<END $^X $__FILE__\n};
}
else {
print qq{not ok - 6 <<END and <<'END' and <<END $^X $__FILE__\n};
}
__END__