[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or...

[p5sagit/p5-mst-13.2.git] / t / run / switchx.aux

diff --git a/t/run/switchx.aux b/t/run/switchx.aux
index 576730c..bfb79e1 100644 (file)
--- a/t/run/switchx.aux
+++ b/t/run/switchx.aux
@@ -17,5 +17,14 @@ still not perl
 
 #!/some/path/that/leads/to/perl -l
 
-print "1..1";
-print "ok 1";
+print "1..4";
+if (-f 'run/switchx.aux') {
+    print "ok 1";
+}
+print "ok 2";
+# other tests are in switchx2.aux
+
+__END__
+
+# This is ignored
+print "not ok 2";