serversession-backend-redis-1.0.2: tests/Main.hs

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