13 lines
396 B
Haskell
13 lines
396 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" $
|
|
allStorageTests (RedisStorage conn (Just 999999) (Just 999999)) it runIO parallel shouldBe shouldReturn shouldThrow
|