haskell/minio-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix listIncompleteParts tests (#74)

Browse Source
This commit is contained in:
Krishnan Parthasarathi 2017-11-08 11:25:32 +00:00 committed by Aditya Manthramurthy
parent 0d8f5c08e8
commit 566e796409
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/LiveServer.hs
View File

@ -205,10 +205,7 @@ highLevelListingTest = funTestWithBucket "High-level listObjects Test" $
step "fetch list parts" step "fetch list parts"
incompleteParts <- listIncompleteParts bucket object uid $$ sinkList incompleteParts <- listIncompleteParts bucket object uid $$ sinkList
-- Minio server behaviour changed to list no incomplete uploads, liftIO $ length incompleteParts @?= 10
-- so the check below reflects this; this test is expected to
-- fail on AWS S3.
liftIO $ length incompleteParts @?= 0
step "cleanup" step "cleanup"
abortMultipartUpload bucket object uid abortMultipartUpload bucket object uid
@ -275,10 +272,7 @@ listingTest = funTestWithBucket "Listing Test" $ \step bucket -> do
step "fetch list parts" step "fetch list parts"
listPartsResult <- listIncompleteParts' bucket object uid Nothing Nothing listPartsResult <- listIncompleteParts' bucket object uid Nothing Nothing
-- Minio server behaviour changed to list no incomplete uploads, liftIO $ (length $ lprParts listPartsResult) @?= 10
-- so the check below reflects this; this test is expected to
-- fail on AWS S3.
liftIO $ (length $ lprParts listPartsResult) @?= 0
abortMultipartUpload bucket object uid abortMultipartUpload bucket object uid