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