From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 11 Feb 2007 16:26:47 +0000 (+0000)
Subject: Convert new test to using t/test.pl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66b941864ac8a8f2fe5cb4315b4e9fcb08835dd8;p=p5sagit%2Fp5-mst-13.2.git

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)

p4raw-id: //depot/perl@30212
---

diff --git a/t/op/qrstack.t b/t/op/qrstack.t
index 6483eba..47d190d 100644
--- a/t/op/qrstack.t
+++ b/t/op/qrstack.t
@@ -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");
-