From 3f61bd287ed4a45378c0cdef7688e5043655fec7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 15 Sep 2012 00:42:36 -0700
Subject: [PATCH] Refactor t/run/switchn.t to use test.pl instead of making TAP
 by hand.

---
 t/run/switchn.t | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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 /;
 
-- 
2.7.4