| Index: openssl/test/clean_test.com
|
| ===================================================================
|
| --- openssl/test/clean_test.com (revision 0)
|
| +++ openssl/test/clean_test.com (revision 0)
|
| @@ -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'
|
| +$!
|
|
|