Browse Source

TESTS: don't assume ordering of exceptions

tags/0.8.0
Julian Ospald 7 years ago
parent
commit
d708f80a1f
No known key found for this signature in database GPG Key ID: 511B62C09D50CD28
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs

+ 3
- 3
test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs View File

@@ -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"


Loading…
Cancel
Save