Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.6.1
/
distrib
/
t
/
comp
/
script.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
script.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./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
`
;