# This file is encoded in Char::GB18030.
die "This file is not encoded in Char::GB18030.\n" if q{‚ } ne "\x82\xa0";

use Char::GB18030;
print "1..10\n";

my $__FILE__ = __FILE__;

$a = "ƒ\";
if ("$a" eq $a) {
    print qq/ok - 1 "\$a" eq \$a $^X $__FILE__\n/;
}
else {
    print qq/not ok - 1 "\$a" eq \$a $^X $__FILE__\n/;
}

$a[0] = "ƒ\";
if ("$a[0]" eq $a[0]) {
    print qq/ok - 2 "\$a[0]" eq \$a[0] $^X $__FILE__\n/;
}
else {
    print qq/not ok - 2 "\$a[0]" eq \$a[0] $^X $__FILE__\n/;
}

$b = 1;
$a[1] = '';
if ("$a[$b]" eq $a[$b]) {
    print qq/ok - 3 "\$a[\$b]" eq \$a[\$b] $^X $__FILE__\n/;
}
else {
    print qq/not ok - 3 "\$a[\$b]" eq \$a[\$b] $^X $__FILE__\n/;
}

$a{"ƒ\"} = "•\";
if ("$a{'ƒ\'}" eq $a{'ƒ\'}) {
    print qq/ok - 4 "\$a{'ƒ\'}" eq \$a{'ƒ\'} $^X $__FILE__\n/;
}
else {
    print qq/not ok - 4 "\$a{'ƒ\'}" eq \$a{'ƒ\'} $^X $__FILE__\n/;
}

$b = "ƒ\";
if ("$a{$b}" eq $a{$b}) {
    print qq/ok - 5 "\$a{\$b}" eq \$a{\$b} $^X $__FILE__\n/;
}
else {
    print qq/not ok - 5 "\$a{\$b}" eq \$a{\$b} $^X $__FILE__\n/;
}

#---

$a = "ƒ\";
if (qq{$a} eq $a) {
    print qq/ok - 6 qq{\$a} eq \$a $^X $__FILE__\n/;
}
else {
    print qq/not ok - 6 "\$a" eq \$a $^X $__FILE__\n/;
}

$a[0] = "ƒ\";
if (qq{$a[0]} eq $a[0]) {
    print qq/ok - 7 qq{\$a[0]} eq \$a[0] $^X $__FILE__\n/;
}
else {
    print qq/not ok - 7 "\$a[0]" eq \$a[0] $^X $__FILE__\n/;
}

$b = 1;
if (qq{$a[$b]} eq $a[$b]) {
    print qq/ok - 8 qq{\$a[\$b]} eq \$a[\$b] $^X $__FILE__\n/;
}
else {
    print qq/not ok - 8 "\$a[\$b]" eq \$a[\$b] $^X $__FILE__\n/;
}

$a{"ƒ\"} = "•\";
if (qq{$a{'ƒ\'}} eq $a{'ƒ\'}) {
    print qq/ok - 9 qq{\$a{'ƒ\'}} eq \$a{'ƒ\'} $^X $__FILE__\n/;
}
else {
    print qq/not ok - 9 "\$a{'ƒ\'}" eq \$a{'ƒ\'} $^X $__FILE__\n/;
}

$b = "ƒ\";
if (qq{$a{$b}} eq $a{$b}) {
    print qq/ok - 10 qq{\$a{\$b}} eq \$a{\$b} $^X $__FILE__\n/;
}
else {
    print qq/not ok - 10 "\$a{\$b}" eq \$a{\$b} $^X $__FILE__\n/;
}

__END__