add the 'test_harness' target to vms "makefile"
[p5sagit/p5-mst-13.2.git] / vms / test.com
1 $!  Test.Com - DCL wrapper for perl5 regression test driver
2 $!
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.
7 $!
8 $!  Version 1.1   4-Dec-1995
9 $!  Charles Bailey  bailey@newman.upenn.edu
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 $! P3 is the test target to use:
23 $!    TEST. or harness.
24 $!
25 $   exe = ".Exe"
26 $   If p1.nes."" Then exe = p1
27 $   If F$Extract(0,1,exe) .nes. "."
28 $   Then
29 $     Write Sys$Error ""
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."
33 $     Write Sys$Error ""
34 $     $status = 44
35 $     goto wrapup
36 $   EndIf
37 $!
38 $!  "debug" perl if second parameter is nonblank
39 $!
40 $   dbg = ""
41 $   ndbg = ""
42 $   if p2.nes."" then dbg  = "dbg"
43 $   if p2.nes."" then ndbg = "ndbg"
44 $!
45 $!  P3 - testfile
46 $  testfile = "TEST."
47 $  if p3.nes."" then testfile = p3
48 $!
49 $!  Make sure we are where we need to be.
50 $   If F$Search("t.dir").nes.""
51 $   Then
52 $       Set Default [.t]
53 $   Else
54 $       If F$TrnLNm("Perl_Root").nes.""
55 $       Then 
56 $           Set Default Perl_Root:[t]
57 $       Else
58 $           Write Sys$Error "Can't find test directory"
59 $           $status = 44
60 $           goto wrapup
61 $       EndIf
62 $   EndIf
63 $!
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.
67 $!
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 []
71 $!
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 " "
74 $!
75 $!  And do it
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'"
83 $   goto wrapup
84 $!
85 $ Control_Y_exit:
86 $   $status = 1552   ! %SYSTEM-W-CONTROLY
87 $!
88 $ wrapup:
89 $   status = $status
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)
95 $   Exit status