Uninitialized tmbuf.

[perl5.git] / t / run / switchp.t

diff --git a/t/run/switchp.t b/t/run/switchp.t
index 1d1fe14..ab1ae90 100644 (file)
--- a/t/run/switchp.t
+++ b/t/run/switchp.t
@@ -1,16 +1,19 @@
 #!./perl -p
 
+# This test file does not use test.pl because of the involved way in which it
+# generates its TAP output.
+
 BEGIN {
     print "1..3\n";
     *ARGV = *DATA;
 }
 
 END {
-    print "ok 3\n";
+    print "ok 3 - -p switch tested\n";
 }
 
 s/^not //;
 
 __DATA__
-not ok 1
-not ok 2
+not ok 1 - -p switch first iteration
+not ok 2 - -p switch second iteration