diff --git a/serversession-backend-redis/serversession-backend-redis.cabal b/serversession-backend-redis/serversession-backend-redis.cabal index 25cfff1..d69bf6d 100644 --- a/serversession-backend-redis/serversession-backend-redis.cabal +++ b/serversession-backend-redis/serversession-backend-redis.cabal @@ -36,6 +36,22 @@ library TypeFamilies ghc-options: -Wall + +test-suite tests + type: exitcode-stdio-1.0 + hs-source-dirs: tests + build-depends: + base, bytestring, containers, hedis, path-pieces, text, + time, transformers + + , hspec >= 2.1 && < 3 + + , serversession + , serversession-backend-redis + main-is: Main.hs + ghc-options: -Wall -threaded -with-rtsopts=-N + + source-repository head type: git location: https://github.com/yesodweb/serversession diff --git a/serversession-backend-redis/tests/Main.hs b/serversession-backend-redis/tests/Main.hs new file mode 100644 index 0000000..cda1a2c --- /dev/null +++ b/serversession-backend-redis/tests/Main.hs @@ -0,0 +1,14 @@ +module Main (main) where + +import Database.Redis (connect, defaultConnectInfo) +import Test.Hspec +import Web.ServerSession.Backend.Redis +import Web.ServerSession.Core.StorageTests + +import qualified Control.Exception as E + +main :: IO () +main = do + conn <- connect defaultConnectInfo + hspec $ describe "AcidStorage on memory only" $ parallel $ + allStorageTests (RedisStorage conn) it runIO shouldBe shouldReturn shouldThrow