~brian-sidebotham/openssl-cmake/1.0.1e

« back to all changes in this revision

Viewing changes to test/clean_test.com

  • Committer: Brian Sidebotham
  • Date: 2013-10-19 21:50:27 UTC
  • Revision ID: brian.sidebotham@gmail.com-20131019215027-yzoyh4svqj87uepu
ImportĀ OpenSSLĀ 1.0.1e

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
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
$!