Just skip the parquet test if write_parquet() fails

rstudio · Mar 21, 2024 · 8b928e9 · 8b928e9
1 parent 15e3ed3
commit 8b928e9
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/testthat/test-parse-body.R b/tests/testthat/test-parse-body.R
@@ -118,7 +118,12 @@ test_that("Test parquet parser", {
   }, add = TRUE)
 
   r_object <- iris
-  arrow::write_parquet(r_object, tmp)
+  res <- try(arrow::write_parquet(r_object, tmp))
+  skip_if(
+    inherits(res, "try-error"),
+    "arrow::write_parquet() isn't working."
+  )
+
   val <- readBin(tmp, "raw", 10000)
 
   parsed <- parse_body(val, "application/vnd.apache.parquet", make_parser("parquet"))