From 659572f30af106897e20580ee6bb2f4504997838 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 9 Oct 2014 15:40:41 -0700
Subject: [PATCH] imap-tests: Reset test folder.

---
 extra/imap/imap-tests.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor
index 04729d3d74..861ba733c1 100644
--- 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.