diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-06 10:15:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-07 00:46:55 +0000 |
| commit | ad20d923779746662bb01e56a1dd24d2ecb02dc2 (patch) | |
| tree | b83b4594888d94faad0d8643b12860374dff5138 /t/comp | |
| parent | fedd8cf1f5167f0f052a36462feefd9188699fb9 (diff) | |
| download | perl-ad20d923779746662bb01e56a1dd24d2ecb02dc2.tar.gz | |
[PATCH t/base/lex.t, term.t] Purging echo from base tests
Date: Thu, 6 Dec 2001 15:15:28 -0500
Message-ID: <20011206201528.GF16414@blackrider>
(just the term.t, not the lex.t)
Subject: [PATCH t/comp/script.t] Elimininating needless logic, runs from t/ now
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 15:22:22 -0500
Message-ID: <20011206202222.GG16414@blackrider>
Subject: [PATCH t/run/kill_perl.t] Eliminationg needless $^X logic
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 15:31:58 -0500
Message-ID: <20011206203158.GI16414@blackrider>
Subject: [PATCH t/io/open.t t/test.pl] Cleanup and echo purge
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 17:38:55 -0500
Message-ID: <20011206223855.GC22648@blackrider>
p4raw-id: //depot/perl@13503
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/script.t | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/t/comp/script.t b/t/comp/script.t index 4891f5bae7..f925b59727 100755 --- a/t/comp/script.t +++ b/t/comp/script.t @@ -1,13 +1,8 @@ #!./perl -# $RCSfile: script.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:23 $ - print "1..3\n"; -$PERL = ($^O eq 'MSWin32') ? '.\perl' - : (($^O eq 'NetWare') ? 'perl' - : ($^O eq 'MacOS') ? $^X : './perl'); -$x = `$PERL -le "print 'ok';"`; +$x = `$^X -le "print 'ok';"`; if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";} @@ -15,11 +10,11 @@ open(try,">Comp.script") || (die "Can't open temp file."); print try 'print "ok\n";'; print try "\n"; close try; -$x = `$PERL Comp.script`; +$x = `$^X Comp.script`; if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";} -$x = `$PERL <Comp.script`; +$x = `$^X <Comp.script`; if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";} |