| 1 | $! Test.Com - DCL wrapper for perl5 regression test driver
|
|---|
| 2 | $!
|
|---|
| 3 | $! Version 2.0 25-April-2002 Craig Berry [email protected]
|
|---|
| 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.
|
|---|
| 7 | $!
|
|---|
| 8 | $! Version 1.1 4-Dec-1995
|
|---|
| 9 | $! Charles Bailey [email protected]
|
|---|
| 10 | $!
|
|---|
| 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
|
|---|
| 18 | $!
|
|---|
| 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 | $!
|
|---|
| 23 | $ exe = ".Exe"
|
|---|
| 24 | $ If p1.nes."" Then exe = p1
|
|---|
| 25 | $ If F$Extract(0,1,exe) .nes. "."
|
|---|
| 26 | $ Then
|
|---|
| 27 | $ Write Sys$Error ""
|
|---|
| 28 | $ Write Sys$Error "The first parameter passed to Test.Com must be the file type used for the"
|
|---|
| 29 | $ Write Sys$Error "images produced when you built Perl (i.e. "".Exe"", unless you edited"
|
|---|
| 30 | $ Write Sys$Error "Descrip.MMS or used the AXE=1 macro in the MM[SK] command line."
|
|---|
| 31 | $ Write Sys$Error ""
|
|---|
| 32 | $ $status = 44
|
|---|
| 33 | $ goto wrapup
|
|---|
| 34 | $ EndIf
|
|---|
| 35 | $!
|
|---|
| 36 | $! "debug" perl if second parameter is nonblank
|
|---|
| 37 | $!
|
|---|
| 38 | $ dbg = ""
|
|---|
| 39 | $ ndbg = ""
|
|---|
| 40 | $ if p2.nes."" then dbg = "dbg"
|
|---|
| 41 | $ if p2.nes."" then ndbg = "ndbg"
|
|---|
| 42 | $!
|
|---|
| 43 | $! Run using "TEST." unless something else (e.g. "harness.") was specified.
|
|---|
| 44 | $ If F$Type(PERL_TEST_DRIVER) .eqs. "" Then PERL_TEST_DRIVER == "TEST."
|
|---|
| 45 | $!
|
|---|
| 46 | $! Make sure we are where we need to be.
|
|---|
| 47 | $ If F$Search("t.dir").nes.""
|
|---|
| 48 | $ Then
|
|---|
| 49 | $ Set Default [.t]
|
|---|
| 50 | $ Else
|
|---|
| 51 | $ If F$TrnLNm("Perl_Root").nes.""
|
|---|
| 52 | $ Then
|
|---|
| 53 | $ Set Default Perl_Root:[t]
|
|---|
| 54 | $ Else
|
|---|
| 55 | $ Write Sys$Error "Can't find test directory"
|
|---|
| 56 | $ $status = 44
|
|---|
| 57 | $ goto wrapup
|
|---|
|
|---|
