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 | |
| 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')
| -rw-r--r-- | vms/descrip_mms.template | 7 | ||||
| -rw-r--r-- | vms/test.com | 8 |
2 files changed, 12 insertions, 3 deletions
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index c34be75e0a..35f66762ef 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -1211,6 +1211,11 @@ cleanlis : - If F$Search("*.CPP").nes."" Then Delete/NoConfirm/Log *.CPP;* - If F$Search("*.Map").nes."" Then Delete/NoConfirm/Log *.Map;* +cleantest : + - If F$Search("[.t]Perl.").nes."" Then Delete/NoConfirm/Log [.t]Perl.;* + - If F$Search("[.t]VMSPIPE.COM").nes."" Then Delete/NoConfirm/Log [.t]VMSPIPE.COM;* + - If F$Search("[.t]Echo.exe").nes."" Then Delete/NoConfirm/Log [.t]Echo.exe;* + tidy : cleanlis - If F$Search("[...]*.Opt;-1").nes."" Then Purge/NoConfirm/Log [...]*.Opt - If F$Search("[...]*$(O);-1").nes."" Then Purge/NoConfirm/Log [...]*$(O) @@ -1247,7 +1252,7 @@ tidy : cleanlis - If F$Search("[.x2p]*.com;-1").nes."" Then Purge/NoConfirm/Log [.x2p]*.com - If F$Search("[.lib.pod]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib.pod]*.com -clean : tidy +clean : tidy cleantest - @make_ext "$(dynamic_ext)" "$(MINIPERL_EXE)" "$(MMS)" clean - If F$Search("*.Opt").nes."" Then Delete/NoConfirm/Log *.Opt;*/Exclude=PerlShr_*.Opt - If F$Search("[...]*$(O);*") .nes."" Then Delete/NoConfirm/Log [...]*$(O);* 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 |