diff options
Diffstat (limited to 'contrib/perl5/t/comp/script.t')
-rwxr-xr-x | contrib/perl5/t/comp/script.t | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/contrib/perl5/t/comp/script.t b/contrib/perl5/t/comp/script.t deleted file mode 100755 index a9bc47d..0000000 --- a/contrib/perl5/t/comp/script.t +++ /dev/null @@ -1,24 +0,0 @@ -#!./perl - -# $RCSfile: script.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:23 $ - -print "1..3\n"; - -$PERL = ($^O eq 'MSWin32') ? '.\perl' : './perl'; -$x = `$PERL -le "print 'ok';"`; - -if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";} - -open(try,">Comp.script") || (die "Can't open temp file."); -print try 'print "ok\n";'; print try "\n"; -close try; - -$x = `$PERL Comp.script`; - -if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";} - -$x = `$PERL <Comp.script`; - -if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";} - -unlink 'Comp.script' || `/bin/rm -f Comp.script`; |