Add test to ensure a directory doesn't exist (assertDirectoryMissing)

input-output-hk · Mar 13, 2024 · a94023e · a94023e
1 parent 56cb839
commit a94023e
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Hedgehog/Extras/Test/File.hs b/src/Hedgehog/Extras/Test/File.hs
@@ -47,6 +47,7 @@ module Hedgehog.Extras.Test.File
   , assertEndsWithSingleNewline
 
   , appendFileTimeDelta
+  , assertDirectoryMissing
   ) where
 
 import           Control.Applicative (Applicative (..))
@@ -336,3 +337,9 @@ appendFileTimeDelta filePath offsetTime = GHC.withFrozenCallStack $ do
   baseTime <- H.noteShowIO DTC.getCurrentTime
   let delay = DTC.diffUTCTime baseTime offsetTime
   appendFile filePath $ show @DTC.NominalDiffTime delay <> "\n"
+
+-- | Asserts that the given directory is missing.
+assertDirectoryMissing :: (MonadTest m, MonadIO m, HasCallStack) => FilePath -> m ()
+assertDirectoryMissing dir = GHC.withFrozenCallStack $ do
+  exists <- H.evalIO $ IO.doesDirectoryExist dir
+  when exists $ H.failWithCustom GHC.callStack Nothing (dir <> " should not have been created.")