fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test: enusre arc roundtrips

Browse Source
This commit is contained in:
Gregor Kleen 2021-02-11 08:53:09 +01:00
parent 5794ca384c
commit ef7a743c60
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/Handler/Utils/FilesSpec.hs
View File

@ -42,11 +42,12 @@ spec = withApp . describe "File handling" $ do
suppliedContent <- runConduit $ transPipe generalize fileContentContent suppliedContent <- runConduit $ transPipe generalize fileContentContent
.| C.sinkLazy .| C.sinkLazy
readContent <- runConduit $ sourceFileMinio fileReferenceContentContent for_ [1..10] $ \_i -> do
.| C.takeE (succ $ olength suppliedContent) readContent <- runConduit $ sourceFileMinio fileReferenceContentContent
.| C.sinkLazy .| C.takeE (succ $ olength suppliedContent)
.| C.sinkLazy
liftIO $ readContent `shouldBe` suppliedContent liftIO $ readContent `shouldBe` suppliedContent
describe "DB" $ do describe "DB" $ do
modifyMaxSuccess (`div` 10) . it "roundtrips" $ \(tSite, _) -> property $ do modifyMaxSuccess (`div` 10) . it "roundtrips" $ \(tSite, _) -> property $ do
fileContentContent <- arbitrary fileContentContent <- arbitrary
@ -61,9 +62,10 @@ spec = withApp . describe "File handling" $ do
suppliedContent <- runConduit $ transPipe generalize fileContentContent suppliedContent <- runConduit $ transPipe generalize fileContentContent
.| C.sinkLazy .| C.sinkLazy
readContent <- runDB . runConduit for_ [1..10] $ \_i -> do
$ sourceFileDB fRef' readContent <- runDB . runConduit
.| C.takeE (succ $ olength suppliedContent) $ sourceFileDB fRef'
.| C.sinkLazy .| C.takeE (succ $ olength suppliedContent)
.| C.sinkLazy
liftIO $ readContent `shouldBe` suppliedContent liftIO $ readContent `shouldBe` suppliedContent