d135958be5
I wanted to at least ensure my change's code was excerised, even though it makes no material difference to the allStorageTests suite.
14 lines
426 B
Haskell
14 lines
426 B
Haskell
module Main (main) where
|
|
|
|
import Database.Redis (connect, defaultConnectInfo)
|
|
import Test.Hspec
|
|
import Web.ServerSession.Backend.Redis
|
|
import Web.ServerSession.Core
|
|
import Web.ServerSession.Core.StorageTests
|
|
|
|
main :: IO ()
|
|
main = do
|
|
conn <- connect defaultConnectInfo
|
|
hspec $ describe "RedisStorage" $
|
|
allStorageTests (RedisStorage conn (Just 999999) (Just 999999)) it runIO parallel shouldBe shouldReturn shouldThrow
|