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

Fix live server test (#142)

Browse Source 
* Update travis ghc to 8.8.2

* Fix live server test
This commit is contained in:
Aditya Manthramurthy 2020-01-29 14:53:27 -08:00 committed by GitHub
parent d2a78df4eb
commit 9739376227
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.travis.yml
View File

@ -18,7 +18,7 @@ matrix:
# Cabal # Cabal
- ghc: 8.4.4 - ghc: 8.4.4
- ghc: 8.6.5 - ghc: 8.6.5
- ghc: 8.8.1 - ghc: 8.8.2
# Stack # Stack
- ghc: 8.6.5 - ghc: 8.6.5

2
test/LiveServer.hs
View File

@ -615,7 +615,7 @@ bucketPolicyFunTest = funTestWithBucket "Bucket Policy tests" $
step "try a malformed policy, expect error" step "try a malformed policy, expect error"
resE'' <- try $ setBucketPolicy bucket expectedPolicyJSON resE'' <- try $ setBucketPolicy bucket expectedPolicyJSON
case resE'' of case resE'' of
Left exn -> liftIO $ exn @?= ServiceErr "MalformedPolicy" "Policy has invalid resource." Left exn -> liftIO $ exn @?= ServiceErr "MalformedPolicy" "bucket name does not match"
_ -> return () _ -> return ()
let expectedPolicyJSON' = "{\"Version\":\"2012-10-17\",\"Statement\":[{\"Action\":[\"s3:GetBucketLocation\",\"s3:ListBucket\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "\"]},{\"Action\":[\"s3:GetObject\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "/*\"]}]}" let expectedPolicyJSON' = "{\"Version\":\"2012-10-17\",\"Statement\":[{\"Action\":[\"s3:GetBucketLocation\",\"s3:ListBucket\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "\"]},{\"Action\":[\"s3:GetObject\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "/*\"]}]}"