Removed manual tests and haddock explanations
authorJonatan H Sundqvist <jonatanhsundqvist@gmail.com>
Fri, 18 Aug 2017 20:12:10 +0000 (22:12 +0200)
committerJonatan H Sundqvist <jonatanhsundqvist@gmail.com>
Fri, 18 Aug 2017 20:12:10 +0000 (22:12 +0200)
System/FilePath/Internal.hs
tests/TestGen.hs

index 8840555..12f1fb4 100644 (file)
@@ -315,22 +315,11 @@ hasExtension = any isExtSeparator . takeFileName
 
 -- | Does the given filename have the specified extension?
 --
---   The extension may exclude the separator
 -- > "png" `isExtensionOf` "/directory/file.png" == True
---
---   And it may include it
 -- > ".png" `isExtensionOf` "/directory/file.png" == True
---
---   Multiple extensions are allowed
 -- > ".tar.gz" `isExtensionOf` "bar/foo.tar.gz" == True
---
---   But partial matches are not
 -- > "ar.gz" `isExtensionOf` "bar/foo.tar.gz" == False
---
---   Extensions are matched from the end, so the following yields @False@
 -- > "png" `isExtensionOf` "/directory/file.png.jpg" == False
-
---   The argument cannot simply be a suffix, it has to be to a valid extension
 -- > "csv/table.csv" `isExtensionOf` "/data/csv/table.csv" == False
 isExtensionOf :: String -> FilePath -> Bool
 isExtensionOf ext@('.':_) = isSuffixOf ext . takeExtensions
index 7342871..7bc914e 100755 (executable)
@@ -106,20 +106,6 @@ tests =
     ,("W.hasExtension \"/directory/path.ext\" == True", property $ W.hasExtension "/directory/path.ext" == True)
     ,("P.hasExtension \"/directory/path\" == False", property $ P.hasExtension "/directory/path" == False)
     ,("W.hasExtension \"/directory/path\" == False", property $ W.hasExtension "/directory/path" == False)
-
-    ,("W.isExtensionOf \"png\"           \"/directory/file.png\"     == True",  property $ W.isExtensionOf "png"           "/directory/file.png" == True)
-    ,("P.isExtensionOf \"png\"           \"/directory/file.png\"     == True",  property $ W.isExtensionOf "png"           "/directory/file.png" == True)
-    ,("W.isExtensionOf \".png\"          \"/directory/file.png\"     == True",  property $ W.isExtensionOf ".png"          "/directory/file.png" == True)
-    ,("P.isExtensionOf \".png\"          \"/directory/file.png\"     == True",  property $ W.isExtensionOf ".png"          "/directory/file.png" == True)
-    ,("W.isExtensionOf \".tar.gz\"       \"bar/foo.tar.gz\"          == True",  property $ W.isExtensionOf ".tar.gz"       "bar/foo.tar.gz" == True)
-    ,("P.isExtensionOf \".tar.gz\"       \"bar/foo.tar.gz\"          == True",  property $ W.isExtensionOf ".tar.gz"       "bar/foo.tar.gz" == True)
-    ,("W.isExtensionOf \"ar.gz\"         \"bar/foo.tar.gz\"          == False", property $ W.isExtensionOf "ar.gz"         "bar/foo.tar.gz" == False)
-    ,("P.isExtensionOf \"ar.gz\"         \"bar/foo.tar.gz\"          == False", property $ W.isExtensionOf "ar.gz"         "bar/foo.tar.gz" == False)
-    ,("W.isExtensionOf \"png\"           \"/directory/file.png.jpg\" == False", property $ W.isExtensionOf "png"           "/directory/file.png.jpg" == False)
-    ,("P.isExtensionOf \"png\"           \"/directory/file.png.jpg\" == False", property $ W.isExtensionOf "png"           "/directory/file.png.jpg" == False)
-    ,("W.isExtensionOf \"csv/table.csv\" \"/data/csv/table.csv\"     == False", property $ W.isExtensionOf "csv/table.csv" "/data/csv/table.csv" == False)
-    ,("P.isExtensionOf \"csv/table.csv\" \"/data/csv/table.csv\"     == False", property $ W.isExtensionOf "csv/table.csv" "/data/csv/table.csv" == False)
-
     ,("null (P.takeExtension x) == not (P.hasExtension x)", property $ \(QFilePath x) -> null (P.takeExtension x) == not (P.hasExtension x))
     ,("null (W.takeExtension x) == not (W.hasExtension x)", property $ \(QFilePath x) -> null (W.takeExtension x) == not (W.hasExtension x))
     ,("P.stripExtension \"hs.o\" \"foo.x.hs.o\" == Just \"foo.x\"", property $ P.stripExtension "hs.o" "foo.x.hs.o" == Just "foo.x")