From 123fe0e3e2dae0b82f05460f41bcfe4e8731a885 Mon Sep 17 00:00:00 2001 From: Efim Poberezkin Date: Mon, 11 Jan 2021 20:28:20 +0400 Subject: [PATCH] agent store: adjust tests hierarchy --- tests/AgentTests/SQLite.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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