Commit | Line | Data |
---|---|---|
d082fec2 CB |
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. | |
a0d0e21e | 7 | $! |
e518068a | 8 | $! Version 1.1 4-Dec-1995 |
bd3fa61c | 9 | $! Charles Bailey bailey@newman.upenn.edu |
d9ae6319 | 10 | $! |
d082fec2 CB |
11 | $! Set up error handler and save things we'll restore later. |
12 | $ On Control_Y Then Goto Control_Y_exit | |
a0d0e21e | 13 | $ On Error Then Goto wrapup |
e518068a | 14 | $ olddef = F$Environment("Default") |
84902520 | 15 | $ oldmsg = F$Environment("Message") |
d082fec2 CB |
16 | $ oldpriv = F$SetPrv("NOALL") ! downgrade privs for safety |
17 | $ discard = F$SetPrv("NETMBX,TMPMBX") ! only need these to run tests | |
18 | $! | |
40996b78 AT |
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. | |
d9ae6319 | 22 | $! |
491527d0 GS |
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 "" | |
d082fec2 CB |
32 | $ $status = 44 |
33 | $ goto wrapup | |
491527d0 | 34 | $ EndIf |
3eeba6fb CB |
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 | $! | |
20533b5a CB |
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." | |
40996b78 | 45 | $! |
d082fec2 CB |
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 | |
58 | $ EndIf | |
59 | $ EndIf | |
60 | $! | |
a0d0e21e | 61 | $! Pick up a copy of perl to use for the tests |
c0e08cf6 | 62 | $ If F$Search("Perl''exe'").nes."" Then Delete/Log/NoConfirm Perl'exe';* |
68ccb645 AT |
63 | $ If PERL_TEST_DRIVER .eqs. "minitest" |
64 | $ Then | |
31e425b5 | 65 | $ Copy/Log/NoConfirm [-]miniperl'exe' []Perl'exe' |
68ccb645 | 66 | $ Else |
31e425b5 | 67 | $ Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl'exe' |
68ccb645 | 68 | $ EndIf |
59d8d783 CL |
69 | $! |
70 | $! Pick up a copy of vmspipe.com to use for the tests | |
71 | $ If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;* | |
72 | $ Copy/Log/NoConfirm [-]VMSPIPE.COM [] | |
73 | $! | |
1e9d704e | 74 | $! This may be set for the C compiler in descrip.mms, but it confuses the File::Find tests |
139df077 | 75 | $ if f$trnlnm("sys") .nes. "" then Define sys " " |
1e9d704e | 76 | $! |
a0d0e21e | 77 | $! And do it |
d082fec2 | 78 | $ Set Message /NoFacility/NoSeverity/NoIdentification/NoText |
09b7f37c | 79 | $ Show Process/Accounting |
e518068a | 80 | $ testdir = "Directory/NoHead/NoTrail/Column=1" |
746380c8 CB |
81 | $ PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'") |
82 | $ Define 'dbg'Perlshr 'PerlShr_filespec' | |
d082fec2 | 83 | $ If F$Mode() .nes. "INTERACTIVE" Then Define/Nolog PERL_SKIP_TTY_TEST 1 |
68ccb645 AT |
84 | $ If PERL_TEST_DRIVER .eqs. "minitest" |
85 | $ Then | |
31e425b5 | 86 | $ MCR Sys$Disk:[]Perl'exe' TEST. "-minitest" "base/*.t" "comp/*.t" "cmd/*.t" "run/*.t" "io/*.t" "op/*.t" "uni/*.t" |
68ccb645 | 87 | $ Else |
31e425b5 | 88 | $ MCR Sys$Disk:[]Perl'exe' "-I[-.lib]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'" |
68ccb645 | 89 | $ EndIf |
d082fec2 CB |
90 | $ goto wrapup |
91 | $! | |
92 | $ Control_Y_exit: | |
93 | $ $status = 1552 ! %SYSTEM-W-CONTROLY | |
94 | $! | |
a0d0e21e | 95 | $ wrapup: |
d082fec2 CB |
96 | $ status = $status |
97 | $ If f$trnlnm("''dbg'PerlShr") .nes. "" Then DeAssign 'dbg'PerlShr | |
09b7f37c | 98 | $ Show Process/Accounting |
d082fec2 CB |
99 | $ If f$type(olddef) .nes. "" Then Set Default &olddef |
100 | $ If f$type(oldmsg) .nes. "" Then Set Message 'oldmsg' | |
101 | $ If f$type(oldpriv) .nes. "" Then discard = F$SetPrv(oldpriv) | |
102 | $ Exit status |