Add regression test for 177

Rufflewind · May 20, 2024 · 80ef205 · 80ef205
1 parent 81d4be1
commit 80ef205
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/CopyFile001.hs b/tests/CopyFile001.hs
@@ -13,6 +13,13 @@ main _t = do
   copyFile (dir </> from) (dir </> to)
   T(expectEq) () [from, to] . List.sort =<< listDirectory dir
   T(expectEq) () contents =<< readFile (so (dir </> to))
+
+  -- Regression test for https://github.com/haskell/directory/issues/177
+  createDirectory "issue177"
+  T(expectIOErrorType) () isDoesNotExistError
+    (copyFile "issue177/nonexistentSrc" "issue177/dst")
+  T(expectEq) () [] =<< listDirectory "issue177"
+
   where
     contents = "This is the data\n"
     from     = "source"