xref: /openbsd/gnu/usr.bin/perl/t/op/int.t (revision 274d7c50) 
1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    require './test.pl';
6    set_up_inc('../lib');
7    require Config;
8}
9
10plan 17;
11
12# compile time evaluation
13
14my $test1_descr = 'compile time evaluation 1.234';
15if (int(1.234) == 1) {pass($test1_descr)} else {fail($test1_descr)}
16
17my $test2_descr = 'compile time evaluation -1.234';
18if (int(-1.234) == -1) {pass($test2_descr)} else {fail($test2_descr)}
19
20# run time evaluation
21
22$x = 1.234;
23cmp_ok(int($x), '==', 1, 'run time evaluation 1');
24cmp_ok(int(-$x), '==', -1, 'run time evaluation -1');
25
26$x = length("abc") % -10;
27cmp_ok($x, '==', -7, 'subtract from string length');
28
29{
30    my $fail;
31    use integer;
32    $x = length("abc") % -10;
33    $y = (3/-10)*-10;
34    ok($x+$y == 3, 'x+y equals 3') or ++$fail;
35    ok(abs($x) < 10, 'abs(x) < 10') or ++$fail;
36    if ($fail) {
37	diag("\$x == $x", "\$y == $y");
38    }
39}
40
41@x = ( 6, 8, 10);
42cmp_ok($x["1foo"], '==', 8, 'check bad strings still get converted');
43
44# 4,294,967,295 is largest unsigned 32 bit integer
45
46$x = 4294967303.15;
47$y = int ($x);
48is($y, "4294967303", 'check values > 32 bits work');
49
50$y = int (-$x);
51
52is($y, "-4294967303", 'negative value more than maximum unsigned 32 bit value');
53
54$x = 4294967294.2;
55$y = int ($x);
56
57is($y, "4294967294", 'floating point value slightly less than the largest unsigned 32 bit');
58
59$x = 4294967295.7;
60$y = int ($x);
61
62is($y, "4294967295", 'floating point value slightly more than largest unsigned 32 bit');
63
64$x = 4294967296.11312;
65$y = int ($x);
66
67is($y, "4294967296", 'floating point value more than largest unsigned 32 bit');
68
69$y = int(279964589018079/59);
70cmp_ok($y, '==', 4745162525730, 'compile time division, result of about 42 bits');
71
72$y = 279964589018079;
73$y = int($y/59);
74cmp_ok($y, '==', 4745162525730, 'run time divison, result of about 42 bits');
75
76SKIP:
77{   # see #126635
78    my $large;
79    $large = eval "0xffff_ffff" if $Config::Config{ivsize} == 4;
80    $large = eval "0xffff_ffff_ffff_ffff" if $Config::Config{ivsize} == 8;
81    $large or skip "Unusual ivsize", 1;
82    for my $x ($large, -1) {
83        cmp_ok($x, "==", int($x), "check $x == int($x)");
84    }
85}
86