Fix #392 (#393)

* Fix #392 also partially #380 * c
gesistsa · Apr 4, 2024 · 87bf15d · 87bf15d
1 parent 53ff4ba
commit 87bf15d
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -72,7 +72,8 @@ Suggests:
     yaml,
     qs,
     arrow (>= 0.17.0),
-    stringi
+    stringi,
+    withr
 License: GPL-2
 VignetteBuilder: knitr
 Encoding: UTF-8

diff --git a/tests/testthat/test_format_parquet.R b/tests/testthat/test_format_parquet.R
@@ -3,7 +3,10 @@ require("datasets")
 
 test_that("Export to and import from parquet", {
     skip_if_not_installed("arrow")
-    expect_true(export(iris, "iris.parquet") %in% dir())
-    expect_true(is.data.frame(import("iris.parquet")))
-    unlink("iris.parquet")
+    skip_on_os("mac") ## apache/arrow#40991
+    withr::with_tempfile("iris_path", fileext = ".parquet", code = {
+        export(iris, iris_path)
+        expect_true(file.exists(iris_path))
+        expect_true(is.data.frame(import(iris_path)))
+    })
 })
diff --git a/tests/testthat/test_import_list.R b/tests/testthat/test_import_list.R
@@ -131,6 +131,7 @@ test_that("Universal dummy `which` (Suggests) #326", {
     skip_if_not_installed("qs")
     skip_if_not_installed("arrow")
     skip_if_not_installed("readODS")
+    skip_on_os("mac") ## apache/arrow#40991
     formats <- c("qs", "parquet", "ods")
     for (format in formats) {
         tempzip <- tempfile(fileext = paste0(".", format, ".zip"))