Add test to equalFilePath

2016-05-24 15:30:56 +02:00
parent 7fa4c041a9
commit 3cb3a822d7
1 changed files with 2 additions and 0 deletions
--- a/src/System/Posix/FilePath.hs
+++ b/src/System/Posix/FilePath.hs
@@ -613,6 +613,8 @@ normalise filepath =
 -- True
 -- >>> equalFilePath "foo" "./foo"
 -- True
+-- >>> equalFilePath "" ""
+-- True
 -- >>> equalFilePath "foo" "/foo"
 -- False
 -- >>> equalFilePath "foo" "FOO"