hasufell/streamly-filesystem
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix tests

Browse Source
This commit is contained in:
Julian Ospald 2020-01-29 21:26:45 +01:00
parent 8ef8bda3ce
commit 45aca26340
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 46 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
streamly-filesystem.cabal
View File

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

52
test/Main.hs
View File

@ -3,14 +3,16 @@
module Main where module Main where
import Data.ByteString (ByteString) import Data.ByteString ( ByteString )
import Data.Word (Word8) import Data.Word ( Word8 )
import GHC.IO.Handle (Handle) import GHC.IO.Handle ( Handle )
import Streamly import Streamly
import Streamly.FileSystem.Handle (readChunks) import Streamly.FileSystem.Handle ( readChunks )
import Streamly.Memory.Array (Array) import Streamly.Memory.Array ( Array )
import System.IO (openFile, IOMode(ReadMode)) import System.IO ( openFile
import System.IO.Temp (withSystemTempFile) , IOMode(ReadMode)
)
import System.IO.Temp ( withSystemTempFile )
import Test.Hspec import Test.Hspec
import Test.Hspec.QuickCheck import Test.Hspec.QuickCheck
@ -23,17 +25,35 @@ checkCopyLBS :: FilePath -> Handle -> IO ()
checkCopyLBS filename handle' = do checkCopyLBS filename handle' = do
let content = "Some file content" let content = "Some file content"
print $ "Checking " <> filename print $ "Checking " <> filename
copyLBS content handle'
handle <- openFile filename ReadMode handle <- openFile filename ReadMode
copyLBS content handle bsContent <- BS.hGetContents handle
bsContent <- BS.hGetContents handle' bsContent `shouldBe` (BSL.toStrict content)
bsContent `shouldBe` 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 :: IO ()
main = main = hspec $ do
hspec $ do
describe "Streamly.External.FileSystem.Handle.Posix" $ do describe "Streamly.External.FileSystem.Handle.Posix" $ do
it "copyLBS" $ it "copyLBS" $ withSystemTempFile "x" checkCopyLBS
withSystemTempFile "x" checkCopyLBS it "readFileLBS" $ withSystemTempFile "x" checkReadFileLBS
it "copyFileHandle" $ withSystemTempFile
"x"
(\_ h1 -> withSystemTempFile "y" $ (\_ h2 -> checkCopyFileHandle h1 h2))