git.iko.soy/typeable/wai
on wai-extra/3.0.14.3 help sign in
typeable/wai/warp/test/FdCacheSpec.hs
27 lines 593 B history raw
1{-# LANGUAGE CPP #-}
3module FdCacheSpec where
5import Test.Hspec
6#ifndef WINDOWS
7import Data.IORef
8import Network.Wai.Handler.Warp.FdCache
9import System.Posix.IO (fdRead)
10import System.Posix.Types (Fd(..))
12main :: IO ()
13main = hspec spec
15spec :: Spec
16spec = describe "withFdCache" $ do
17 it "clean up Fd" $ do
18 ref <- newIORef (Fd (-1))
19 withFdCache 30000000 $ \getFd -> do
20 (Just fd,_) <- getFd 0 "warp.cabal"
21 writeIORef ref fd
22 nfd <- readIORef ref
23 fdRead nfd 1 `shouldThrow` anyIOException
24#else
25spec :: Spec
26spec = return ()
27#endif