agent store: add updateQueueStatus tests

This commit is contained in:
Efim Poberezkin committed 2021-01-11 19:34:30 +04:00
1 parent 6f8b3787b0
commit 7f22dcd496
2 files changed
+91 -4

No files matched your search

@@ -405,7 +405,6 @@ instance (MonadUnliftIO m, MonadError StoreError m) => MonadAgentStore SQLiteSto
removeSndAuth :: SQLiteStore -> ConnAlias -> m ()
removeSndAuth _st _connAlias = throwError SEInternal
-- TODO test
updateQueueStatus :: SQLiteStore -> ConnAlias -> QueueDirection -> QueueStatus -> m ()
updateQueueStatus st connAlias qDirection status = do
case qDirection of