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 | $! | ||