From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 11 May 2003 17:50:49 +0000 (+0000)
Subject: Use test.pl.
X-Git-Tag: accepted/trunk/20130322.191538~24214
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=220939e6fe5e4dc50b0921e74e7b08bf1f26aa37;p=platform%2Fupstream%2Fperl.git

Use test.pl.

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

diff --git a/t/io/fflush.t b/t/io/fflush.t
index eab9a01..19143c6 100644
--- a/t/io/fflush.t
+++ b/t/io/fflush.t
@@ -3,6 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
 # Script to test auto flush on fork/exec/system/qx.  The idea is to
@@ -132,7 +133,11 @@ for (qw(system qx popen)) {
     ++$t;
 }
 
-my $cmd = qq[$runperl -e "print qq[ok \$_\\n] for ($t..$t+2)"];
+my $cmd = _create_runperl(
+			  switches => ['-l'],
+			  prog =>
+			  sprintf('print qq[ok $_] for (%d..%d)', $t, $t+2));
+print "# cmd = '$cmd'\n";
 open my $CMD, "$cmd |" or die "Can't open pipe to '$cmd': $!";
 while (<$CMD>) {
     system("$runperl -e 0");