hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Add test to equalFilePath

Browse Source
This commit is contained in:
Julian Ospald 2016-05-24 15:30:56 +02:00
parent 7fa4c041a9
commit 3cb3a822d7
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/System/Posix/FilePath.hs
View File

@ -613,6 +613,8 @@ normalise filepath =
-- True -- True
-- >>> equalFilePath "foo" "./foo" -- >>> equalFilePath "foo" "./foo"
-- True -- True
-- >>> equalFilePath "" ""
-- True
-- >>> equalFilePath "foo" "/foo" -- >>> equalFilePath "foo" "/foo"
-- False -- False
-- >>> equalFilePath "foo" "FOO" -- >>> equalFilePath "foo" "FOO"