test for #111

cloudyr · Jan 1, 2020 · 58749b2 · 58749b2
1 parent 37f922c
commit 58749b2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-gcs.R b/tests/testthat/test-gcs.R
@@ -234,7 +234,9 @@ test_that("Uploads", {
   expect_equal(upload$name, "mtcars_meta.csv")
 
   # upload to bucketLevel Acl
-  bl <- gcs_upload(mtcars, bucket = "mark-bucketlevel-acl")
+  bl <- gcs_upload(mtcars, bucket = "mark-bucketlevel-acl",
+                   predefinedAcl = "bucketLevel")
+  expect_equal(bl$kind, "storage#object")
 
 })