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
extra-source-files: CHANGELOG.md
library
library streamly-filesystem
if os(windows) -- not supported yet
build-depends: unbuildable<0
buildable: False

70
test/Main.hs
View File

@ -3,37 +3,57 @@
module Main where
import Data.ByteString (ByteString)
import Data.Word (Word8)
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.Temp (withSystemTempFile)
import Test.Hspec
import Test.Hspec.QuickCheck
import Data.ByteString ( ByteString )
import Data.Word ( Word8 )
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.Temp ( withSystemTempFile )
import Test.Hspec
import Test.Hspec.QuickCheck
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
import Streamly.External.FileSystem.Handle.Posix
import qualified Streamly.Prelude as S
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
import Streamly.External.FileSystem.Handle.Posix
import qualified Streamly.Prelude as S
checkCopyLBS :: FilePath -> Handle -> IO ()
checkCopyLBS filename handle' = do
let content = "Some file content"
print $ "Checking " <> filename
handle <- openFile filename ReadMode
copyLBS content handle
bsContent <- BS.hGetContents handle'
bsContent `shouldBe` content
copyLBS content handle'
handle <- openFile filename ReadMode
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
describe "Streamly.External.FileSystem.Handle.Posix" $ do
it "copyLBS" $
withSystemTempFile "x" checkCopyLBS
main = hspec $ do
describe "Streamly.External.FileSystem.Handle.Posix" $ do
it "copyLBS" $ withSystemTempFile "x" checkCopyLBS
it "readFileLBS" $ withSystemTempFile "x" checkReadFileLBS
it "copyFileHandle" $ withSystemTempFile
"x"
(\_ h1 -> withSystemTempFile "y" $ (\_ h2 -> checkCopyFileHandle h1 h2))