diff options
| author | Colin Kuskie <colink@perldreamer.com> | 2012-09-15 00:45:44 -0700 |
|---|---|---|
| committer | jkeenan <jkeenan@cpan.org> | 2012-09-16 12:48:43 -0400 |
| commit | 4e94c743932935b6db5a300ea207f241bdfcd130 (patch) | |
| tree | afa8b6f5ebe94f268ae2d5b25d069faef910dc96 /t/run/switchF.t | |
| parent | 3f61bd287ed4a45378c0cdef7688e5043655fec7 (diff) | |
| download | perl-4e94c743932935b6db5a300ea207f241bdfcd130.tar.gz | |
Refactor t/run/switchF.t to use test.pl instead of making TAP by hand.
Diffstat (limited to 't/run/switchF.t')
| -rw-r--r-- | t/run/switchF.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/t/run/switchF.t b/t/run/switchF.t index a6e9031d0c..dcf44094dd 100644 --- a/t/run/switchF.t +++ b/t/run/switchF.t @@ -1,11 +1,16 @@ #!./perl -anFx+ BEGIN { - print "1..2\n"; + chdir 't' if -d 't'; + @INC = '../lib'; + require './test.pl'; *ARGV = *DATA; + plan(tests => 2); } -print "@F"; +my $index = $F[-1]; +chomp $index; +is($index, $., "line $."); __DATA__ okx1 -okxxx2 +okx3xx2 |