From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 15 Sep 2012 07:42:36 +0000 (-0700)
Subject: Refactor t/run/switchn.t to use test.pl instead of making TAP by hand.
X-Git-Tag: upstream/5.20.0~5413
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3f61bd287ed4a45378c0cdef7688e5043655fec7;p=platform%2Fupstream%2Fperl.git

Refactor t/run/switchn.t to use test.pl instead of making TAP by hand.
---

diff --git a/t/run/switchn.t b/t/run/switchn.t
index bca9a66..6ad4a72 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 /;