This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f9512af
)
Refactor t/run/switch0.t to use test.pl instead of making TAP by hand.
author
Colin Kuskie
<colink@perldreamer.com>
Fri, 14 Sep 2012 02:06:02 +0000
(19:06 -0700)
committer
Steffen Mueller
<smueller@cpan.org>
Fri, 14 Sep 2012 05:56:04 +0000
(07:56 +0200)
t/run/switch0.t
patch
|
blob
|
blame
|
history
diff --git
a/t/run/switch0.t
b/t/run/switch0.t
index
9919e12
..
94d5bd2
100644
(file)
--- a/
t/run/switch0.t
+++ b/
t/run/switch0.t
@@
-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');