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
|
#!./perl
BEGIN {
chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
}
use strict;
use warnings;
my $truevar = (5 == 5);
my $falsevar = (5 == 6);
cmp_ok($truevar, '==', 1);
cmp_ok($truevar, 'eq', "1");
cmp_ok($falsevar, '==', 0);
cmp_ok($falsevar, 'eq', "");
{
# Check that boolean COW string buffer is safe to copy into new SVs and
# doesn't get corrupted by inplace mutations
my $x = $truevar;
$x =~ s/1/t/;
cmp_ok($x, 'eq', "t");
cmp_ok($truevar, 'eq', "1");
my $y = $truevar;
substr($y, 0, 1, "T");
cmp_ok($y, 'eq', "T");
cmp_ok($truevar, 'eq', "1");
}
done_testing();
|
