tmp-proc-0.5.0.0: test/Test/Hspec/TmpProc.hs

module Test.Hspec.TmpProc
  (  -- * functions
    tdescribe
  )
where

import           System.TmpProc (hasDocker)
import           Test.Hspec


{-| Like 'describe', but makes the specs @pending@ when docker is unavailable. -}
tdescribe :: HasCallStack => String -> SpecWith a -> SpecWith a
tdescribe label action = do
  noDocker <- not <$> runIO hasDocker
  if noDocker then tmpPending label action else describe label action


tmpPending :: HasCallStack => String -> SpecWith a -> SpecWith a
tmpPending label spec = before_ (pendingWith noDockerMessage) $ describe label spec


noDockerMessage :: String
noDockerMessage = "docker could not be detected"