diff options
Diffstat (limited to 'gnu/usr.bin/perl/perl/t/comp/script.t')
-rwxr-xr-x | gnu/usr.bin/perl/perl/t/comp/script.t | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/perl/t/comp/script.t b/gnu/usr.bin/perl/perl/t/comp/script.t new file mode 100755 index 0000000..9dcf901 --- /dev/null +++ b/gnu/usr.bin/perl/perl/t/comp/script.t @@ -0,0 +1,23 @@ +#!./perl + +# $Header: /home/cvs/386BSD/ports/lang/perl/t/comp/script.t,v 1.1.1.1 1993/08/23 21:30:06 nate Exp $ + +print "1..3\n"; + +$x = `./perl -e 'print "ok\n";'`; + +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";} + +`/bin/rm -f Comp.script`; |