diff options
Diffstat (limited to 'lib/libssl/src/test/clean_test.com')
| -rwxr-xr-x | lib/libssl/src/test/clean_test.com | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/lib/libssl/src/test/clean_test.com b/lib/libssl/src/test/clean_test.com deleted file mode 100755 index 7df633fbef1..00000000000 --- a/lib/libssl/src/test/clean_test.com +++ /dev/null @@ -1,35 +0,0 @@ -$! -$! 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' -$! |