hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

TESTS: don't use lazy IO -.-

Browse Source
This commit is contained in:
Julian Ospald 2016-06-05 14:55:21 +02:00
parent 4f047dbc77
commit c5bcb90b65
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs
View File

@ -180,10 +180,10 @@ spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
,"outputDir1/foo2/foo4" ,"outputDir1/foo2/foo4"
,"outputDir1/foo2/foo4/inputFile6" ,"outputDir1/foo2/foo4/inputFile6"
,"outputDir1/foo2/foo4/inputFile4"]) ,"outputDir1/foo2/foo4/inputFile4"])
sort c `shouldBe` sort shouldC
deleteFile' "outputDir1/foo2/inputFile1" deleteFile' "outputDir1/foo2/inputFile1"
deleteFile' "outputDir1/foo2/inputFile2" deleteFile' "outputDir1/foo2/inputFile2"
deleteFile' "outputDir1/foo2/inputFile3" deleteFile' "outputDir1/foo2/inputFile3"
sort c `shouldBe` sort shouldC
it "copyDirRecursive (Strict, CollectFailures), no write permission on output dir" $ it "copyDirRecursive (Strict, CollectFailures), no write permission on output dir" $

7
test/Utils.hs
View File

@ -34,10 +34,7 @@ import System.IO.Unsafe
( (
unsafePerformIO unsafePerformIO
) )
import System.Posix.Directory.Traversals import qualified System.Posix.Directory.Traversals as DT
(
allDirectoryContents
)
import System.Posix.Env.ByteString import System.Posix.Env.ByteString
( (
getEnv getEnv
@ -283,5 +280,5 @@ writeFile' ip bs =
allDirectoryContents' :: ByteString -> IO [ByteString] allDirectoryContents' :: ByteString -> IO [ByteString]
{-# NOINLINE allDirectoryContents' #-} {-# NOINLINE allDirectoryContents' #-}
allDirectoryContents' ip = allDirectoryContents' ip =
withTmpDir ip $ \p -> allDirectoryContents (P.fromAbs p) withTmpDir ip $ \p -> DT.allDirectoryContents' (P.fromAbs p)