1 $! Test.Com - DCL wrapper for perl5 regression test driver
3 $! Version 2.0 25-April-2002 Craig Berry craigberry@mac.com
4 $! (and many other hands in the last 7+ years)
5 $! The most significant difference is that we now run the external t/TEST
6 $! rather than keeping a separately maintained test driver embedded here.
8 $! Version 1.1 4-Dec-1995
9 $! Charles Bailey bailey@newman.upenn.edu
11 $! Set up error handler and save things we'll restore later.
12 $ On Control_Y Then Goto Control_Y_exit
13 $ On Error Then Goto wrapup
14 $ olddef = F$Environment("Default")
15 $ oldmsg = F$Environment("Message")
16 $ oldpriv = F$SetPrv("NOALL") ! downgrade privs for safety
17 $ discard = F$SetPrv("NETMBX,TMPMBX") ! only need these to run tests
19 $! Process arguments. P1 is the file extension of the Perl images.
20 $! P2, when not empty, indicates that we are testing a version of Perl built
21 $! for the VMS debugger. The other arguments are passed directly to t/TEST.
22 $! P3 is the test target to use:
26 $ If p1.nes."" Then exe = p1
27 $ If F$Extract(0,1,exe) .nes. "."
30 $ Write Sys$Error "The first parameter passed to Test.Com must be the file type used for the"
31 $ Write Sys$Error "images produced when you built Perl (i.e. "".Exe"", unless you edited"
32 $ Write Sys$Error "Descrip.MMS or used the AXE=1 macro in the MM[SK] command line."
38 $! "debug" perl if second parameter is nonblank
42 $ if p2.nes."" then dbg = "dbg"
43 $ if p2.nes."" then ndbg = "ndbg"
47 $ if p3.nes."" then testfile = p3
49 $! Make sure we are where we need to be.
50 $ If F$Search("t.dir").nes.""
54 $ If F$TrnLNm("Perl_Root").nes.""
56 $ Set Default Perl_Root:[t]
58 $ Write Sys$Error "Can't find test directory"
64 $! Pick up a copy of perl to use for the tests
65 $ If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl.;*
66 $ Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl.
68 $! Pick up a copy of vmspipe.com to use for the tests
69 $ If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;*
70 $ Copy/Log/NoConfirm [-]VMSPIPE.COM []
72 $! This may be set for the C compiler in descrip.mms, but it confuses the File::Find tests
73 $ if f$trnlnm("sys") .nes. "" then Define sys " "
76 $ Set Message /NoFacility/NoSeverity/NoIdentification/NoText
77 $ Show Process/Accounting
78 $ testdir = "Directory/NoHead/NoTrail/Column=1"
79 $ PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'")
80 $ Define 'dbg'Perlshr 'PerlShr_filespec'
81 $ If F$Mode() .nes. "INTERACTIVE" Then Define/Nolog PERL_SKIP_TTY_TEST 1
82 $ MCR Sys$Disk:[]Perl. "-I[-.lib]" 'testfile' "''p4'" "''p5'" "''p6'" "''p7'"
86 $ $status = 1552 ! %SYSTEM-W-CONTROLY
90 $ If f$trnlnm("''dbg'PerlShr") .nes. "" Then DeAssign 'dbg'PerlShr
91 $ Show Process/Accounting
92 $ If f$type(olddef) .nes. "" Then Set Default &olddef
93 $ If f$type(oldmsg) .nes. "" Then Set Message 'oldmsg'
94 $ If f$type(oldpriv) .nes. "" Then discard = F$SetPrv(oldpriv)