Refactor t/run/noswitch.t to use test.pl instead of making TAP by hand.
authorColin Kuskie <colink@perldreamer.com>
Sat, 15 Sep 2012 07:51:28 +0000 (00:51 -0700)
committerjkeenan <jkeenan@cpan.org>
Sun, 16 Sep 2012 16:50:05 +0000 (12:50 -0400)
t/run/noswitch.t

index a902c1f..ff56253 100644 (file)
@@ -1,12 +1,16 @@
 #!./perl
 
 BEGIN {
-    print "1..3\n";
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
     *ARGV = *DATA;
+    plan(tests => 3);
 }
-print "ok 1\n";
-print <>;
-print "ok 3\n";
+
+pass("first test");
+is( scalar <>, "ok 2\n", "read from aliased DATA filehandle");
+pass("last test");
 
 __DATA__
-ok 2 - read from aliased DATA filehandle
+ok 2