diff options
| author | Colin Kuskie <colink@perldreamer.com> | 2012-09-15 00:42:36 -0700 |
|---|---|---|
| committer | jkeenan <jkeenan@cpan.org> | 2012-09-16 12:40:26 -0400 |
| commit | 3f61bd287ed4a45378c0cdef7688e5043655fec7 (patch) | |
| tree | 787ecfb7a1d1a3eb365af1a9fe833ee016a0ea87 | |
| parent | c3fcf49dfa6136c02c1f42a36f08c75a5f7a5c5c (diff) | |
| download | perl-3f61bd287ed4a45378c0cdef7688e5043655fec7.tar.gz | |
Refactor t/run/switchn.t to use test.pl instead of making TAP by hand.
| -rw-r--r-- | t/run/switchn.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/run/switchn.t b/t/run/switchn.t index bca9a66e76..6ad4a7265f 100644 --- a/t/run/switchn.t +++ b/t/run/switchn.t @@ -1,15 +1,19 @@ #!./perl -n BEGIN { - print "1..3\n"; + chdir 't' if -d 't'; + @INC = '../lib'; + require './test.pl'; *ARGV = *DATA; + plan(tests => 3); } END { - print "ok 3\n"; + pass("Final test"); } -print; +chomp; +is("ok ".$., $_, "Checking line $."); s/^/not /; |