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 79c9015..6643941 100644 (file)
@@ -229,10 +229,13 @@ bin_test '.' ,  1, 2, 12;
     local $TODO = $todo ;
     bin_test '==',  1, 2, "";
     bin_test '+' ,  1, 2, 3;
     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 '/' , 10, 2, 5;
-    bin_int_test '%' , 11, 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 '+' ,  1, 2, 3;
 bin_int_test '-' , 11, 2, 9;
 bin_int_test '<' ,  1, 2, 1;