hasufell
/
hpath
1
1
Fork 0
Koodi Ongelmat 8 Pull-pyynnöt Julkaisut Wiki Toiminta

TESTS: don't assume ordering of exceptions

This commit is contained in:
Julian Ospald 2016-06-05 15:37:26 +02:00
vanhempi f07619b7c6
commit d708f80a1f
No known key found for this signature in database
GPG avaimen ID: 511B62C09D50CD28
1 muutettua tiedostoa jossa 3 lisäystä ja 3 poistoa
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs
Näytä tiedosto

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