imap-tests: Reset test folder.

diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor
index 04729d3d74d3aaf826f2a9333809a480d8a2c1f8..861ba733c16414814dd0ef0e16cc79f8773ebd66 100644 (file)
--- a/extra/imap/imap-tests.factor
+++ b/extra/imap/imap-tests.factor
@@ -58,6 +58,12 @@ ERROR: no-imap-test-host ;
     [ get-test-host <imap4ssl> [ f f login ] with-stream ] [ ind>> ] recover
 ] unit-test
 
+! Try to reset test folder before starting tests
+[ ] [
+    [ base-folder delete-folder ] ignore-errors
+] imap-test
+
+
 [ ] [ \ imap-settings get-global [ ] with-imap-settings ] unit-test
 
 ! Newly created and then selected folder is empty.