streaming-commons 0.1.14 → 0.1.14.1

raw patch · 2 files changed

+9/−5 lines, 2 files

Files

• streaming-commons.cabal +1/−1
• test/Data/Streaming/FilesystemSpec.hs +8/−4

@@ -1,5 +1,5 @@ name:                streaming-commons-version:             0.1.14+version:             0.1.14.1 synopsis:            Common lower-level functions needed by various streaming data libraries description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes. homepage:            https://github.com/fpco/streaming-commons

@@ -39,10 +39,14 @@             ft `shouldBe` FTDirectorySym         it "other" $ do             _ <- tryIO $ removeLink "tmp"-            createNamedPipe "tmp" 0-            ft <- getFileType "tmp"-            _ <- tryIO $ removeLink "tmp"-            ft `shouldBe` FTOther+            e <- tryIO $ createNamedPipe "tmp" 0+            case e of+                -- Creating named pipe might fail on some filesystems+                Left _ -> return ()+                Right _ -> do+                    ft <- getFileType "tmp"+                    _ <- tryIO $ removeLink "tmp"+                    ft `shouldBe` FTOther         it "recursive symlink is other" $ do             _ <- tryIO $ removeLink "tmp"             createSymbolicLink "tmp" "tmp"