diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-11-27 03:23:54 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-27 13:44:33 +0000 |
| commit | 59d8d783bee4df22a7dbe31f662f6925267b185b (patch) | |
| tree | 9e9778c3bb758b05445568002e1b94a58618dd27 /vms/test.com | |
| parent | daf1811632cf55f31e559704559b9f8c15b1f2e3 (diff) | |
| download | perl-59d8d783bee4df22a7dbe31f662f6925267b185b.tar.gz | |
VMS test cleanup
Message-Id: <001127082318.6381c@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7884
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/vms/test.com b/vms/test.com index 6732c42065..d91534005b 100644 --- a/vms/test.com +++ b/vms/test.com @@ -43,7 +43,11 @@ $! $! Pick up a copy of perl to use for the tests $ If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl.;* $ Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl. -$ +$! +$! Pick up a copy of vmspipe.com to use for the tests +$ If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;* +$ Copy/Log/NoConfirm [-]VMSPIPE.COM [] +$! $! Make the environment look a little friendlier to tests which assume Unix $ cat == "Type" $ Macro/NoDebug/NoList/Object=Echo.Obj Sys$Input @@ -86,6 +90,7 @@ $ Macro/NoDebug/NoList/Object=Echo.Obj Sys$Input movl #1,r0 ret .end echo +$ If F$Search("Echo.Exe").nes."" Then Delete/Log/NoConfirm Echo.Exe;* $ Link/NoMap/NoTrace/Exe=Echo.Exe Echo.Obj; $ Delete/Log/NoConfirm Echo.Obj;* $ echo == "$" + F$Parse("Echo.Exe") @@ -242,7 +247,6 @@ $$END-OF-TEST$$ $ wrapup: $ deassign 'dbg'Perlshr $ Show Process/Accounting -$ If F$Search("Echo.Exe").nes."" Then Delete/Log/NoConfirm Echo.Exe;* $ Set Default &olddef $ Set Message 'oldmsg' $ Exit |