diff --git a/tests/AgentTests/SQLite.hs b/tests/AgentTests/SQLite.hs
index c3eea4f65..84a691ac6 100644
--- a/tests/AgentTests/SQLite.hs
+++ b/tests/AgentTests/SQLite.hs
@@ -38,9 +38,10 @@ storeTests = withStore do
       describe "Receive connection" testDeleteConnReceive
       describe "Send connection" testDeleteConnSend
       describe "Duplex connection" testDeleteConnDuplex
-    describe "updateQueueStatus" testUpdateQueueStatus
-    describe "updateQueueStatusBadDirectionSnd" testUpdateQueueStatusBadDirectionSnd
-    describe "updateQueueStatusBadDirectionRcv" testUpdateQueueStatusBadDirectionRcv
+    describe "updateQueueStatus" do
+      describe "updateQueueStatusCorrect" testUpdateQueueStatus
+      describe "updateQueueStatusBadDirectionSnd" testUpdateQueueStatusBadDirectionSnd
+      describe "updateQueueStatusBadDirectionRcv" testUpdateQueueStatusBadDirectionRcv
 
 testCreateRcvConn :: SpecWith SQLiteStore
 testCreateRcvConn = do