#Portions (c) 1995 Microsoft Corporation. All rights reserved. 
#        Developed by hip communications inc., http://info.hip.com/info/

#!./perl

# $RCSfile: script.ntt,v $$Revision: 1.1 $$Date: 1996/10/12 21:06:43 $

print "1..3\n";

# Removed the './' at the start of the command.  GJRL
#$x = `perl -e 'print "ok\n";'`;

# WYT 1995-05-02 (wyt@hip.com)
# escaped quotes and backslashes to cope with braindead MS-DOG
$x = `perl -e "print \\\"ok\\n\\\""`;

#
# Commented out - no meaning here.  GJRL
#if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]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;

#
# Removed the './' at the start of the command.  GJRL
$x = `perl Comp.script`;

#
# Commented out - no meaning here.  GJRL
#if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. Comp.script`; }

if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}

#
# Removed the './' at the start of the command.  GJRL
$x = `perl <Comp.script`;

#
# Commented out - no meaning here.  GJRL
#if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. <Comp.script`; }

if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}

#
# Line modified to call del function.  GJRL
unlink 'Comp.script' || `del/q/f Comp.script`;
