2
0

clean_test.com 783 B

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