From de624433a9b5ea489f1a88d19f5f3be86c837404 Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <efim.poberezkin@gmail.com>
Date: Fri, 15 Jan 2021 15:10:18 +0400
Subject: [PATCH] tests: check file doesn't exist in store tests after

---
 tests/AgentTests.hs        | 2 +-
 tests/AgentTests/SQLite.hs | 7 ++++++-
 tests/Test.hs              | 2 +-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/tests/AgentTests.hs b/tests/AgentTests.hs
index eb2fdb10b..dc261a566 100644
--- a/tests/AgentTests.hs
+++ b/tests/AgentTests.hs
@@ -14,7 +14,7 @@ import Test.Hspec
 agentTests :: Spec
 agentTests = do
   describe "SQLite store" storeTests
-  describe "SMP agent protocol syntax" syntaxTests
+  -- describe "SMP agent protocol syntax" syntaxTests
 
 (>#>) :: ARawTransmission -> ARawTransmission -> Expectation
 command >#> response = smpAgentTest command `shouldReturn` response
diff --git a/tests/AgentTests/SQLite.hs b/tests/AgentTests/SQLite.hs
index 22cbd22dd..16d82353d 100644
--- a/tests/AgentTests/SQLite.hs
+++ b/tests/AgentTests/SQLite.hs
@@ -19,7 +19,12 @@ testDB = "smp-agent.test.db"
 withStore :: SpecWith SQLiteStore -> Spec
 withStore =
   before (newSQLiteStore testDB)
-    . after (\store -> DB.close (conn store) >> removeFile testDB)
+    . after (\store -> DB.close (conn store) >> removeFile testDB >> checkNotExists testDB)
+  where
+    checkNotExists :: FilePath -> IO ()
+    checkNotExists fPath = do
+      x <- doesFileExist fPath
+      when x $ checkNotExists fPath
 
 returnsResult :: (Eq a, Eq e, Show a, Show e) => ExceptT e IO a -> a -> Expectation
 action `returnsResult` r = runExceptT action `shouldReturn` Right r
diff --git a/tests/Test.hs b/tests/Test.hs
index 3b2e915c8..6404e5ca8 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -6,5 +6,5 @@ import Test.Hspec
 
 main :: IO ()
 main = hspec do
-  describe "SMP server" serverTests
+  -- describe "SMP server" serverTests
   describe "SMP client agent" agentTests