6 use Test::Leaner tests => 4 * 8;
9 [ '1.0', '==', '1.0' ],
10 [ '1e0', '==', '1e0' ],
11 [ '1.0', '<=', '1.0' ],
12 [ '1.0', '>=', '1.0' ],
13 [ '1.0', '<=', '2.0' ],
14 [ '1.0', '<', '2.0' ],
15 [ '2.0', '>=', '1.0' ],
16 [ '2.0', '>', '1.0' ],
19 for my $t (@num_tests) {
20 my ($x, $op, $y) = @$t;
22 cmp_ok int($x), $op, $y;
23 cmp_ok $x, $op, int($y);
24 cmp_ok int($x), $op, int($y);