Change 30212 by [EMAIL PROTECTED] on 2007/02/11 16:26:47
Convert new test to using t/test.pl.
(No idea where it could fit better. And since it uses the stack,
it's a bit fragile)
Affected files ...
... //depot/perl/t/op/qrstack.t#2 edit
Differences ...
==== //depot/perl/t/op/qrstack.t#2 (text) ====
Index: perl/t/op/qrstack.t
--- perl/t/op/qrstack.t#1~30211~ 2007-02-11 08:20:15.000000000 -0800
+++ perl/t/op/qrstack.t 2007-02-11 08:26:47.000000000 -0800
@@ -1,21 +1,11 @@
-#!./perl
+#!./perl -w
-my $test = 1;
-sub ok {
- my($ok, $name) = @_;
-
- # You have to do it this way or VMS will get confused.
- printf "%s %d%s\n", $ok ? "ok" : "not ok",
- $test,
- defined $name ? " - $name" : '';
-
- printf "# Failed test at line %d\n", (caller)[2] unless $ok;
-
- $test++;
- return $ok;
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ require './test.pl';
}
-print "1..1\n";
+plan tests => 1;
ok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly");
-
End of Patch.
