This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #87708] use integer; $tied < $tied
[perl5.git] / t / op / tie_fetch_count.t
index cecfd7f..d0a3b62 100644 (file)
@@ -245,8 +245,8 @@ bin_test '.' ,  1, 2, 12;
         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 '<' ,  1, 2, 1;
 bin_int_test '>' , 44, 2, 1;
 bin_int_test '<=', 44, 2, "";
 bin_int_test '>=',  1, 2, "";