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

use Char;
BEGIN {
    print "1..9\n";
    if ($] >= 5.020) {
        require feature;
        feature::->import('signatures');
        require warnings;
        warnings::->unimport('experimental::signatures');
    }
    else {
        for my $tno (1 .. 9) {
            print qq{ok - $tno SKIP $^X @{[__FILE__]}\n};
        }
        exit;
    }
}

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

sub f002 ($a=qq{ƒ\}) { $a }
if (f002() eq 'ƒ\') {
    print qq{ok - 2 sub f002 (\$a=qq{ƒ\}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 2 sub f002 (\$a=qq{ƒ\}) $^X @{[__FILE__]}\n};
}

sub f003 ($a=<<END) { $a }
ƒ\
END
if (f003() eq "ƒ\\n") {
    print qq{ok - 3 sub f003 (\$a=<<END) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 3 sub f003 (\$a=<<END) $^X @{[__FILE__]}\n};
}

sub f004 ($a=<<"END") { $a }
ƒ\
END
if (f004() eq "ƒ\\n") {
    print qq{ok - 4 sub f004 (\$a=<<"END") $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 4 sub f004 (\$a=<<"END") $^X @{[__FILE__]}\n};
}

sub f005 ($a='ƒ\') { $a }
if (f005() eq 'ƒ\') {
    print qq{ok - 5 sub f005 (\$a='ƒ\') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 5 sub f005 (\$a='ƒ\') $^X @{[__FILE__]}\n};
}

sub f006 ($a=q{ƒ\}) { $a }
if (f006() eq 'ƒ\') {
    print qq{ok - 6 sub f006 (\$a=q{ƒ\}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 6 sub f006 (\$a=q{ƒ\}) $^X @{[__FILE__]}\n};
}

sub f007 ($a=<<'END') { $a }
ƒ\
END
if (f007() eq "ƒ\\n") {
    print qq{ok - 7 sub f007 (\$a=<<'END') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 7 sub f007 (\$a=<<'END') $^X @{[__FILE__]}\n};
}

sub f008 ($a=qr{ƒ\}) { $a }
if ('ƒ\' =~ f008()) {
    print qq{ok - 8 sub f008 (\$a=qr{ƒ\}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 8 sub f008 (\$a=qr{ƒ\}) $^X @{[__FILE__]}\n};
}

sub f009 ($a=qr'ƒ\') { $a }
if ('ƒ\' =~ f009()) {
    print qq{ok - 9 sub f009 (\$a=qr'ƒ\') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 9 sub f009 (\$a=qr'ƒ\') $^X @{[__FILE__]}\n};
}

__END__