Fix tests

streamly-filesystem.cabal

@@ -14,7 +14,7 @@ category:            Streaming
 build-type:          Simple
 extra-source-files:  CHANGELOG.md
 
-library
+library streamly-filesystem
   if os(windows) -- not supported yet
     build-depends: unbuildable<0
     buildable: False

test/Main.hs

@@ -9,7 +9,9 @@ import GHC.IO.Handle (Handle)
 import           Streamly
 import           Streamly.FileSystem.Handle     ( readChunks )
 import           Streamly.Memory.Array          ( Array )
-import System.IO (openFile, IOMode(ReadMode))
+import           System.IO                      ( openFile
+                                                , IOMode(ReadMode)
+                                                )
 import           System.IO.Temp                 ( withSystemTempFile )
 import           Test.Hspec
 import           Test.Hspec.QuickCheck
@@ -23,17 +25,35 @@ checkCopyLBS :: FilePath -> Handle -> IO ()
 checkCopyLBS filename handle' = do
   let content = "Some file content"
   print $ "Checking " <> filename
+  copyLBS content handle'
   handle    <- openFile filename ReadMode
-  copyLBS content handle
-  bsContent <- BS.hGetContents handle'
-  bsContent `shouldBe` content
+  bsContent <- BS.hGetContents handle
+  bsContent `shouldBe` (BSL.toStrict content)
+
+checkReadFileLBS :: FilePath -> Handle -> IO ()
+checkReadFileLBS filename handle' = do
+  let content = "Some file content"
+  print $ "Checking " <> filename
+  copyLBS content handle'
+  handle    <- openFile filename ReadMode
+  bsContent <- readFileLBS handle
+  (BSL.toStrict bsContent) `shouldBe` (BSL.toStrict content)
+
+checkCopyFileHandle :: Handle -> Handle -> IO ()
+checkCopyFileHandle from to = do
+  let content = "Some file content"
+  copyLBS' content from
+  copyFileHandle' from to
+  fromContent <- readFileLBS from
+  toContent <- readFileLBS to
+  (BSL.toStrict fromContent) `shouldBe` (BSL.toStrict toContent)
 
 
 main :: IO ()
-main =
-  hspec $ do
+main = hspec $ do
   describe "Streamly.External.FileSystem.Handle.Posix" $ do
-      it "copyLBS" $
-        withSystemTempFile "x" checkCopyLBS
-
-
+    it "copyLBS" $ withSystemTempFile "x" checkCopyLBS
+    it "readFileLBS" $ withSystemTempFile "x" checkReadFileLBS
+    it "copyFileHandle" $ withSystemTempFile
+      "x"
+      (\_ h1 -> withSystemTempFile "y" $ (\_ h2 -> checkCopyFileHandle h1 h2))