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
|
#!./perl
BEGIN {
unshift @INC, 't';
require Config;
if (($Config::Config{'extensions'} !~ /\bB\b/) ){
print "1..0 # Skip -- Perl configured without B module\n";
exit 0;
}
}
use strict;
use warnings;
use B;
use Test::More;
$| = 1;
{
note "testing true";
my $bool = ( 1 == 1 );
my $sv = B::svref_2object(\$bool);
ok $sv->IsBOOL, "got a boolean";
ok $sv->TRUE_nomg, "TRUE_nomg is true";
ok $sv->TRUE, "TRUE is true";
}
{
note "testing false";
my $bool = ( 1 == 0 );
my $sv = B::svref_2object(\$bool);
ok $sv->IsBOOL, "got a boolean";
ok !$sv->TRUE_nomg, "TRUE_nomg is false";
ok !$sv->TRUE, "TRUE is false";
}
{
note "not a boolean";
my $iv = 42;
my $sv = B::svref_2object(\$iv);
ok !$sv->IsBOOL, "not a boolean";
ok $sv->TRUE_nomg, "TRUE_nomg is true";
ok $sv->TRUE, "TRUE is true";
}
{
note "not a boolean";
my $iv = 0;
my $sv = B::svref_2object(\$iv);
ok !$sv->IsBOOL, "not a boolean";
ok !$sv->TRUE_nomg, "TRUE_nomg is false";
ok !$sv->TRUE, "TRUE is false";
}
done_testing();
|
