From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

INA / Cyrillic-1.22 / t / 065_option_s.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

              
# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{‚ } ne "\x82\xa0";
use Cyrillic;
print "1..3\n";
$| = 1;
my $__FILE__ = __FILE__;
my $tno = 1;
# s///o
for $i (1 .. 3) {
    $a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    if ($i == 1) {
        $re = 'J';
    }
    elsif ($i == 2) {
        $re = 'K';
    }
    elsif ($i == 3) {
        $re = 'L';
    }
    if ($a =~ s/$re/‚ /o) {
        if ($a eq "ABCDEFGHI‚ KLMNOPQRSTUVWXYZ") {
            print qq{ok - $tno \$a =~ s/\$re/‚ /o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
        }
        else {
            if ($] =~ /^5\.006/) {
                print qq{ok - $tno # SKIP \$a =~ s/\$re/‚ /o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
            }
            else {
                print qq{not ok - $tno \$a =~ s/\$re/‚ /o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
            }
        }
    }
    else {
        print qq{not ok - $tno \$a =~ s/\$re/‚ /o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
    }
    $tno++;
}
__END__