xref: /openbsd/gnu/usr.bin/perl/t/run/switcha.t (revision 91f110e0) 
1#!./perl -na
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6    require './test.pl';
7    *ARGV = *DATA;
8    plan(tests => 2);
9}
10chomp;
11is($F[1], 'ok', "testing split of string '$_'");
12
13__DATA__
14not ok
15not ok 3
16