1#!./perl -p
2
3# This test file does not use test.pl because of the involved way in which it
4# generates its TAP output.
5
6BEGIN {
7    print "1..3\n";
8    *ARGV = *DATA;
9}
10
11END {
12    print "ok 3 - -p switch tested\n";
13}
14
15s/^not //;
16
17__DATA__
18not ok 1 - -p switch first iteration
19not ok 2 - -p switch second iteration
20