imap-tests: Reset test folder.

2014-10-09 15:40:41 -07:00 · 2014-10-09 15:40:41 -07:00 · 659572f30a
parent c0b4537e1a
commit 659572f30a
1 changed files with 6 additions and 0 deletions
--- 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.