logging: delete old test logs.

diff --git a/basis/logging/logging-tests.factor b/basis/logging/logging-tests.factor
index a2e67bfd627dc2b71b3bc779e220e33e59525798..53dd61548037508ec2efaf186a08cb6eb49a5149 100644 (file)
--- a/basis/logging/logging-tests.factor
+++ b/basis/logging/logging-tests.factor
@@ -1,6 +1,6 @@
+USING: continuations io io.directories.hierarchy io.files.temp
+logging logging.analysis logging.server math tools.test ;
 IN: logging.tests
-USING: tools.test logging logging.analysis logging.server io
-io.files.temp math ;
 
 : input-logging-test ( a b -- c ) + ;
 
@@ -15,6 +15,8 @@ io.files.temp math ;
 \ error-logging-test ERROR add-error-logging
 
 temp-directory [
+    [ "logging-test" temp-file delete-tree ] ignore-errors
+
     "logging-test" [
         [ 4 ] [ 1 3 input-logging-test ] unit-test