In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a21c949457ed8dffe5096a444346d641f9a09a6e?hp=89229eb48301daff383ca37dcc690a1eff43d51f>
- Log ----------------------------------------------------------------- commit a21c949457ed8dffe5096a444346d641f9a09a6e Author: Colin Kuskie <[email protected]> Date: Sat Sep 15 00:53:57 2012 -0700 Refactor t/run/switcha.t to use test.pl instead of making TAP by hand. ----------------------------------------------------------------------- Summary of changes: t/run/switcha.t | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) diff --git a/t/run/switcha.t b/t/run/switcha.t index ec2f0cc..16c7917 100644 --- a/t/run/switcha.t +++ b/t/run/switcha.t @@ -1,11 +1,14 @@ #!./perl -na BEGIN { - print "1..2\n"; + chdir 't' if -d 't'; + @INC = '../lib'; + require './test.pl'; *ARGV = *DATA; - $i = 0; + plan(tests => 2); } -print "$F[1] ",++$i,"\n"; +chomp; +is($F[1], 'ok', "testing split of string '$_'"); __DATA__ not ok -- Perl5 Master Repository
