Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

INA / Cyrillic-1.22 / t / 369_postderef.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

              
# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{‚ } ne "\x82\xa0";
use Cyrillic;
BEGIN {
    print "1..6\n";
    if ($] >= 5.020) {
        require feature;
        feature::->import('postderef');
        require warnings;
        warnings::->unimport('experimental::postderef');
    }
    else{
        for my $tno (1..6) {
            print qq{ok - $tno SKIP $^X @{[__FILE__]}\n};
        }
        exit;
    }
}
# same as ${$sref}
$scalar = 'a scalar value';
$sref = \$scalar;
if ($sref->$* eq ${$sref}) {
    print qq{ok - 1 \$sref->\$* eq \${\$sref} $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 1 \$sref->\$* eq \${\$sref} $^X @{[__FILE__]}\n};
}
# same as @{$aref}
@array = (5,20,0);
$aref = \@array;
if (join('.',$aref->@*) eq join('.',@{$aref})) {
    print qq{ok - 2 join('.',\$aref->\@*) eq join('.',\@{\$aref}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 2 join('.',\$aref->\@*) eq join('.',\@{\$aref}) $^X @{[__FILE__]}\n};
}
# same as %{$href}
%hash = (qw(‚ ‚© 1 ‚ ‚¨ 2 ‚« 3 ‚ނ炳‚«‚¢‚ë 4));
$href = \%hash;
if (join(',',$href->%*) eq join(',',%{$href})) {
    print qq{ok - 3 join(',',\$href->%*) eq join(',',%{\$href}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 3 join(',',\$href->%*) eq join(',',%{\$href}) $^X @{[__FILE__]}\n};
}
# same as &{$cref}
$cref = sub { '‚Í‚ñ‚È‚è' };
if ($cref->&* eq &{$cref}) {
    print qq{ok - 4 \$cref->&* eq &{\$cref} $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 4 \$cref->&* eq &{\$cref} $^X @{[__FILE__]}\n};
}
# same as *{$gref}
$gref = \*scalar;
if ($gref->** eq *{$gref}) {
    print qq{ok - 5 \$gref->** eq *{\$gref} $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 5 \$gref->** eq *{\$gref} $^X @{[__FILE__]}\n};
}
# same as $#{$aref}
@array = (5,20,0);
$aref = \@array;
if ($aref->$#* eq $#{$aref}) {
    print qq{ok - 6 \$aref->\$#* eq \$#{\$aref} $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 6 \$aref->\$#* eq \$#{\$aref} $^X @{[__FILE__]}\n};
}
__END__