diff --git a/.travis.yml b/.travis.yml index 294960c..f7f552d 100644 --- a/.travis.yml +++ b/.travis.yml @@ -18,7 +18,7 @@ matrix: # Cabal - ghc: 8.4.4 - ghc: 8.6.5 - - ghc: 8.8.1 + - ghc: 8.8.2 # Stack - ghc: 8.6.5 diff --git a/test/LiveServer.hs b/test/LiveServer.hs index dd8c080..ff10f1b 100644 --- a/test/LiveServer.hs +++ b/test/LiveServer.hs @@ -615,7 +615,7 @@ bucketPolicyFunTest = funTestWithBucket "Bucket Policy tests" $ step "try a malformed policy, expect error" resE'' <- try $ setBucketPolicy bucket expectedPolicyJSON 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 () 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 <> "/*\"]}]}"