Use tempfile() in tests
[perl.git] / t / run / switchn.t
1 #!./perl -n
2
3 BEGIN {
4     print "1..2\n";
5     *ARGV = *DATA;
6 }
7 print;
8
9 __DATA__
10 ok 1
11 ok 2