diff options
| author | Richard Levitte <levitte@openssl.org> | 2011-03-20 14:02:20 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2011-03-20 14:02:20 +0000 |
| commit | f0d919623728111052bbc9b204ac0681c7d2351c (patch) | |
| tree | 37c20d702fce89f1599c8148825036c3472efc42 /test | |
| parent | 8ecef24a6607fef55101bdc06bddf1fe2a2e4c51 (diff) | |
* apps/makeapps.com: Forgot to end the check for /POINTER_SIZE=64=ARGV
with turning trapping back on.
* test/maketests.com: Do the same check for /POINTER_SIZE=64=ARGV
here.
* test/clean-test.com: A new script for cleaning up.
Diffstat (limited to 'test')
| -rwxr-xr-x | test/clean_test.com | 35 | ||||
| -rw-r--r-- | test/maketests.com | 23 |
2 files changed, 57 insertions, 1 deletions
diff --git a/test/clean_test.com b/test/clean_test.com new file mode 100755 index 0000000000..7df633fbef --- /dev/null +++ b/test/clean_test.com @@ -0,0 +1,35 @@ +$! +$! Delete various test results files. +$! +$ def_orig = f$environment( "default") +$ proc = f$environment( "procedure") +$ proc_dev_dir = f$parse( "A.;", proc) - "A.;" +$! +$ on control_c then goto tidy +$ on error then goto tidy +$! +$ set default 'proc_dev_dir' +$! +$ files := *.cms;*, *.srl;*, *.ss;*, - + cms.err;*, cms.out;*, newreq.pem;*, - + p.txt-zlib-cipher;*, - + smtst.txt;*, testkey.pem;*, testreq.pem;*, - + test_*.err;*, test_*.out;*, - + .rnd;* +$! +$ delim = "," +$ i = 0 +$ loop: +$ file = f$edit( f$element( i, delim, files), "trim") +$ if (file .eqs. delim) then goto loop_end +$ if (f$search( file) .nes. "") then - + delete 'p1' 'file' +$ i = i+ 1 +$ goto loop +$ loop_end: +$! +$ tidy: +$ +$ if (f$type( def_orig) .nes. "") then - + set default 'def_orig' +$! diff --git a/test/maketests.com b/test/maketests.com index 5c2e2bdf19..4cb1da3221 100644 --- a/test/maketests.com +++ b/test/maketests.com @@ -536,7 +536,28 @@ $ POINTER_SIZE = "/POINTER_SIZE=32" $ ELSE $ IF (P5 .EQS. "64") $ THEN -$ POINTER_SIZE = "/POINTER_SIZE=64=ARGV" +$ POINTER_SIZE = "/POINTER_SIZE=64" +$ SET NOON +$ DEFINE /USER SYS$OUTPUT NL: +$ DEFINE /USER SYS$ERROR NL: +$ CC /POINTER_SIZE=64=ARGV NL: +$ IF ($STATUS .AND. %X0FFF0000) .EQ. %X00030000 +$ THEN +$ ! If we got here, it means DCL complained like this: +$ ! %DCL-W-NOVALU, value not allowed - remove value specification +$ ! \64=\ +$ ! +$ ! If the compiler was run, logicals defined in /USER would +$ ! have been deassigned automatically. However, when DCL +$ ! complains, they aren't, so we do it here (it might be +$ ! unnecessary, but just in case there will be another error +$ ! message further on that we don't want to miss) +$ DEASSIGN/USER SYS$ERROR +$ DEASSIGN/USER SYS$OUTPUT +$ ELSE +$ POINTER_SIZE = POINTER_SIZE + "=ARGV" +$ ENDIF +$ SET ON $ ARCHD = ARCH+ "_64" $ LIB32 = "" $ ELSE |