13 lines
370 B
Haskell
13 lines
370 B
Haskell
module Main (main) where
|
|
|
|
import Database.Redis (connect, defaultConnectInfo)
|
|
import Test.Hspec
|
|
import Web.ServerSession.Backend.Redis
|
|
import Web.ServerSession.Core.StorageTests
|
|
|
|
main :: IO ()
|
|
main = do
|
|
conn <- connect defaultConnectInfo
|
|
hspec $ describe "RedisStorage" $ parallel $
|
|
allStorageTests (RedisStorage conn) it runIO shouldBe shouldReturn shouldThrow
|