This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #87708] $tied % $tied and $tied * $tied under use integer
[perl5.git] / t / op / tie_fetch_count.t
index a0e7491..6643941 100644 (file)
@@ -229,30 +229,22 @@ bin_test '.' ,  1, 2, 12;
     local $TODO = $todo ;
     bin_test '==',  1, 2, "";
     bin_test '+' ,  1, 2, 3;
-    bin_int_test '*' ,  2, 3, 6;
+}
+bin_int_test '*' ,  2, 3, 6;
+{
+    local $TODO = $todo ;
     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, 1;
-    bin_int_test '>' , 44, 2, 1;
-    bin_int_test '<=', 44, 2, "";
-    bin_int_test '>=',  1, 2, "";
-    bin_int_test '==',  1, 2, "";
-    bin_int_test '!=',  1, 2, 1;
-    bin_int_test '<=>', 1, 2, -1;
 }
+bin_int_test '%' , 11, 2, 1;
+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, "";
+bin_int_test '>=',  1, 2, "";
+bin_int_test '==',  1, 2, "";
+bin_int_test '!=',  1, 2, 1;
+bin_int_test '<=>', 1, 2, -1;
 tie $var, "main", 1, 4;
 cmp_ok(atan2($var, $var), '<', .3, 'retval of atan2 $var, $var');
 check_count 'atan2',  2;