Fixed test for fault simple query

VyacheslavHashov · VyacheslavHashov · commit 9b66435d493b · 2017-02-12T20:51:39.000+03:00
diff --git a/tests/Fault.hs b/tests/Fault.hs
@@ -10,7 +10,7 @@ import qualified Data.ByteString.Char8 as BS
 import qualified Data.Vector as V
 import System.Socket (SocketException(..))
 import System.Mem.Weak (Weak, deRefWeak)
-import Control.Concurrent (throwTo)
+import Control.Concurrent (throwTo, threadDelay)
 import Control.Concurrent.Async
 import Control.Exception
 
@@ -65,6 +65,8 @@ testBatchNextData interruptAction = withConnection $ \c -> do
 testSimpleQuery :: (Connection -> IO ()) -> IO ()
 testSimpleQuery interruptAction = withConnection $ \c -> do
     asyncVar <- async $ sendSimpleQuery c "SELECT pg_sleep(5)"
+    -- Make sure that query was sent.
+    threadDelay 1000000
     interruptAction c
     r <- wait asyncVar
     assertUnexpected r
