This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/harness can run the tests lib/*.t in parallel with each other.
[perl5.git] / t / run / switchp.t
CommitLineData
d11311f7
RGS
1#!./perl -p
2
3BEGIN {
4 print "1..2\n";
5 *ARGV = *DATA;
6}
7
8__DATA__
9ok 1
10ok 2