SV *leftsv = CAT2(X,s); \
IV left = USE_LEFT(leftsv) ? SvIV(leftsv) : 0
#define dPOPXiirl_ul_nomg(X) \
- IV right = POPi; \
+ SV *rightsv = POPs; \
SV *leftsv = CAT2(X,s); \
- IV left = USE_LEFT(leftsv) ? SvIV_nomg(leftsv) : 0
+ IV left = USE_LEFT(leftsv) ? SvIV_nomg(leftsv) : 0; \
+ IV right = SvIV(rightsv)
#define dPOPPOPssrl dPOPXssrl(POP)
#define dPOPPOPnnrl dPOPXnnrl(POP)
$v = $m1 <=> $g1;
$v = -$m1;
EXPECT
-Use of uninitialized value $g1 in integer addition (+) at - line 6.
Use of uninitialized value $m1 in integer addition (+) at - line 6.
-Use of uninitialized value $g1 in integer subtraction (-) at - line 7.
+Use of uninitialized value $g1 in integer addition (+) at - line 6.
Use of uninitialized value $m1 in integer subtraction (-) at - line 7.
+Use of uninitialized value $g1 in integer subtraction (-) at - line 7.
Use of uninitialized value $g1 in integer multiplication (*) at - line 8.
Use of uninitialized value $m1 in integer multiplication (*) at - line 8.
Use of uninitialized value $g1 in integer division (/) at - line 9.
bin_int_test '*' , 2, 3, 6;
bin_int_test '/' , 10, 2, 5;
bin_int_test '%' , 11, 2, 1;
- # For these two, one of the tests in bin_int_test passes and the other
- # fails, so we spell them out for now.
- #bin_int_test '+' , 1, 2, 3;
- #bin_int_test '-' , 11, 2, 9;
- {
- use integer;
- tie my $var, "main", 1, 2;
- is($var + $var, 3, 'retval of $var + $var under use integer');
- { local $TODO; check_count '+ under use integer', 2; }
- tie $var, "main", 11, 2;
- is($var - $var, 9, 'retval of $var - $var under use integer');
- { local $TODO; check_count '- under use integer', 2; }
- }
}
+bin_int_test '+' , 1, 2, 3;
+bin_int_test '-' , 11, 2, 9;
bin_int_test '<' , 1, 2, 1;
bin_int_test '>' , 44, 2, 1;
bin_int_test '<=', 44, 2, "";