diff options
Diffstat (limited to 'src/lib/libssl/test/clean_test.com')
| -rwxr-xr-x | src/lib/libssl/test/clean_test.com | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/src/lib/libssl/test/clean_test.com b/src/lib/libssl/test/clean_test.com deleted file mode 100755 index 7df633fbef..0000000000 --- a/src/lib/libssl/test/clean_test.com +++ /dev/null | |||
| @@ -1,35 +0,0 @@ | |||
| 1 | $! | ||
| 2 | $! Delete various test results files. | ||
| 3 | $! | ||
| 4 | $ def_orig = f$environment( "default") | ||
| 5 | $ proc = f$environment( "procedure") | ||
| 6 | $ proc_dev_dir = f$parse( "A.;", proc) - "A.;" | ||
| 7 | $! | ||
| 8 | $ on control_c then goto tidy | ||
| 9 | $ on error then goto tidy | ||
| 10 | $! | ||
| 11 | $ set default 'proc_dev_dir' | ||
| 12 | $! | ||
| 13 | $ files := *.cms;*, *.srl;*, *.ss;*, - | ||
| 14 | cms.err;*, cms.out;*, newreq.pem;*, - | ||
| 15 | p.txt-zlib-cipher;*, - | ||
| 16 | smtst.txt;*, testkey.pem;*, testreq.pem;*, - | ||
| 17 | test_*.err;*, test_*.out;*, - | ||
| 18 | .rnd;* | ||
| 19 | $! | ||
| 20 | $ delim = "," | ||
| 21 | $ i = 0 | ||
| 22 | $ loop: | ||
| 23 | $ file = f$edit( f$element( i, delim, files), "trim") | ||
| 24 | $ if (file .eqs. delim) then goto loop_end | ||
| 25 | $ if (f$search( file) .nes. "") then - | ||
| 26 | delete 'p1' 'file' | ||
| 27 | $ i = i+ 1 | ||
| 28 | $ goto loop | ||
| 29 | $ loop_end: | ||
| 30 | $! | ||
| 31 | $ tidy: | ||
| 32 | $ | ||
| 33 | $ if (f$type( def_orig) .nes. "") then - | ||
| 34 | set default 'def_orig' | ||
| 35 | $! | ||
