This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Removed duplicated tests #19 and #20.
[perl5.git] / t / op / do.t
index 1d6fb90..913481f 100755 (executable)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -87,14 +87,6 @@ ok( !$@ );
 eval qq{ do uc qq(a file that does not exist); };
 ok( !$@ );
 
-eval qq{ do qq(a file that does not exist); };
-print "not " if $@;
-print "ok 19\n";
-
-eval qq{ do uc qq(a file that does not exist); };
-print "not " if $@;
-print "ok 20\n";
-
 END {
     1 while unlink("$$.16", "$$.17", "$$.18");
 }