Refactor t/run/switch0.t to use test.pl instead of making TAP by hand.
authorColin Kuskie <colink@perldreamer.com>
Fri, 14 Sep 2012 02:06:02 +0000 (19:06 -0700)
committerSteffen Mueller <smueller@cpan.org>
Fri, 14 Sep 2012 05:56:04 +0000 (07:56 +0200)
t/run/switch0.t

index 9919e12..94d5bd2 100644 (file)
@@ -1,3 +1,11 @@
 #!./perl -0
-print "1..1\n";
-print ord $/ == 0 ? "ok 1\n" : "not ok 1\n";
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+plan tests => 1;
+
+is(ord $/, 0, '$/ set to 0 via switch');