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

INA / Cyrillic-1.22 / t / 247_bytes.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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

              
# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{‚ } ne "\x82\xa0";
# ŠÖ” bytes::* ‚̃eƒXƒg
my $__FILE__ = __FILE__;
use Cyrillic;
print "1..12\n";
use bytes;
# bytes::chr()
my $eval = eval { bytes::chr(65); };
if (not $@) {
    print "ok - 1 eval { bytes::chr(65); } $^X $__FILE__\n";
    if (bytes::chr(65) eq 'A') {
        print "ok - 2 bytes::chr(65) eq 'A' $^X $__FILE__\n";
    }
    else {
        print "not ok - 2 bytes::chr(65) eq 'A' $^X $__FILE__\n";
    }
}
else {
    print "not ok - 1 eval { bytes::chr(65); } $^X $__FILE__\n";
    print "not ok - 2 bytes::chr(65) eq 'A' $^X $__FILE__\n";
}
# bytes::index()
$eval = eval { bytes::index('ABCDCDCDEF','CD'); };
if (not $@) {
    print "ok - 3 eval { bytes::index('ABCDCDCDEF','CD'); } $^X $__FILE__\n";
    if (bytes::index('ABCDCDCDEF','CD') == 2) {
        print "ok - 4 bytes::index('ABCDCDCDEF','CD') == 2 $^X $__FILE__\n";
    }
    else {
        print "not ok - 4 bytes::index('ABCDCDCDEF','CD') == 2 $^X $__FILE__\n";
    }
}
else {
    print "not ok - 3 eval { bytes::index('ABCDCDCDEF','CD'); } $^X $__FILE__\n";
    print "not ok - 4 bytes::index('ABCDCDCDEF','CD') == 2 $^X $__FILE__\n";
}
# bytes::length()
$eval = eval { bytes::length('AAA'); };
if (not $@) {
    print "ok - 5 eval { bytes::length('AAA'); } $^X $__FILE__\n";
    if (bytes::length('AAA') == 3) {
        print "ok - 6 bytes::length('AAA') == 3 $^X $__FILE__\n";
    }
    else {
        print "not ok - 6 bytes::length('AAA') == 3 $^X $__FILE__\n";
    }
}
else {
    print "not ok - 5 eval { bytes::length('AAA'); } $^X $__FILE__\n";
    print "not ok - 6 bytes::length('AAA') == 3 $^X $__FILE__\n";
}
# bytes::ord()
$eval = eval { bytes::ord('ABC'); };
if (not $@) {
    print "ok - 7 eval { bytes::ord('ABC'); } $^X $__FILE__\n";
    if (bytes::ord('ABC') == 65) {
        print "ok - 8 bytes::ord('ABC') == 65 $^X $__FILE__\n";
    }
    else {
        print "not ok - 8 bytes::ord('ABC') == 65 $^X $__FILE__\n";
    }
}
else {
    print "not ok - 7 eval { bytes::ord('ABC'); } $^X $__FILE__\n";
    print "not ok - 8 bytes::ord('ABC') == 65 $^X $__FILE__\n";
}
# bytes::rindex()
$eval = eval { bytes::rindex('ABCDCDCDEF','CD'); };
if (not $@) {
    print "ok - 9 eval { bytes::rindex('ABCDCDCDEF','CD'); } $^X $__FILE__\n";
    if (bytes::rindex('ABCDCDCDEF','CD') == 6) {
        print "ok - 10 bytes::rindex('ABCDCDCDEF','CD') == 6 $^X $__FILE__\n";
    }
    else {
        print "not ok - 10 bytes::rindex('ABCDCDCDEF','CD') == 6 $^X $__FILE__\n";
    }
}
else {
    print "not ok - 9 eval { bytes::rindex('ABCDCDCDEF','CD'); } $^X $__FILE__\n";
    print "not ok - 10 bytes::rindex('ABCDCDCDEF','CD') == 6 $^X $__FILE__\n";
}
# bytes::substr()
$eval = eval { bytes::substr('ABCDEF',3,2); };
if (not $@) {
    print "ok - 11 eval { bytes::substr('ABCDEF',3,2); } $^X $__FILE__\n";
    if (bytes::substr('ABCDEF',3,2) eq 'DE') {
        print "ok - 12 bytes::substr('ABCDEF',3,2) eq 'DE' $^X $__FILE__\n";
    }
    else {
        print "not ok - 12 bytes::substr('ABCDEF',3,2) eq 'DE' $^X $__FILE__\n";
    }
}
else {
    print "not ok - 11 eval { bytes::substr('ABCDEF',3,2); } $^X $__FILE__\n";
    print "not ok - 12 bytes::substr('ABCDEF',3,2) eq 'DE' $^X $__FILE__\n";
}
__END__