From 3cb3a822d7327cd5ffae18ba2da686da20dbc822 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Tue, 24 May 2016 15:30:56 +0200 Subject: [PATCH] Add test to equalFilePath --- src/System/Posix/FilePath.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/System/Posix/FilePath.hs b/src/System/Posix/FilePath.hs index 6df9a05..7f8f268 100644 --- 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"