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

TESTS: don't assume ordering of exceptions

Browse Source
This commit is contained in:
Julian Ospald 2016-06-05 15:37:26 +02:00
parent f07619b7c6
commit d708f80a1f
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -164,9 +164,9 @@ spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
Overwrite Overwrite
CollectFailures CollectFailures
`shouldThrow` `shouldThrow`
(\(RecursiveFailure [e1, e2]) -> (\(RecursiveFailure ex@[_, _]) ->
ioeGetErrorType e1 == InappropriateType && any (\e -> ioeGetErrorType e == InappropriateType) ex &&
ioeGetErrorType e2 == PermissionDenied) any (\e -> ioeGetErrorType e == PermissionDenied) ex)
normalDirPerms "outputDir1/foo2/foo4" normalDirPerms "outputDir1/foo2/foo4"
normalDirPerms "outputDir1/foo2/foo4/inputFile4" normalDirPerms "outputDir1/foo2/foo4/inputFile4"
c <- allDirectoryContents' "outputDir1" c <- allDirectoryContents' "outputDir1"