diff options
Diffstat (limited to '')
-rw-r--r-- | src/arrow/r/tests/testthat/helper-arrow.R | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/src/arrow/r/tests/testthat/helper-arrow.R b/src/arrow/r/tests/testthat/helper-arrow.R new file mode 100644 index 000000000..545f2d044 --- /dev/null +++ b/src/arrow/r/tests/testthat/helper-arrow.R @@ -0,0 +1,69 @@ +# Licensed to the Apache Software Foundation (ASF) under one +# or more contributor license agreements. See the NOTICE file +# distributed with this work for additional information +# regarding copyright ownership. The ASF licenses this file +# to you under the Apache License, Version 2.0 (the +# "License"); you may not use this file except in compliance +# with the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, +# software distributed under the License is distributed on an +# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +# KIND, either express or implied. See the License for the +# specific language governing permissions and limitations +# under the License. + +# Wrap testthat::test_that with a check for the C++ library +options(..skip.tests = !arrow:::arrow_available()) + +set.seed(1) + +MAX_INT <- 2147483647L + +# Make sure this is unset +Sys.setenv(ARROW_PRE_0_15_IPC_FORMAT = "") + +# use the C locale for string collation (ARROW-12046) +Sys.setlocale("LC_COLLATE", "C") + +# Set English language so that error messages aren't internationalized +# (R CMD check does this, but in case you're running outside of check) +Sys.setenv(LANGUAGE = "en") + +with_language <- function(lang, expr) { + old <- Sys.getenv("LANGUAGE") + # Check what this message is before changing languages; this will + # trigger caching the transations if the OS does that (some do). + # If the OS does cache, then we can't test changing languages safely. + before <- i18ize_error_messages() + Sys.setenv(LANGUAGE = lang) + on.exit({ + Sys.setenv(LANGUAGE = old) + .cache$i18ized_error_pattern <<- NULL + }) + if (!identical(before, i18ize_error_messages())) { + skip(paste("This OS either does not support changing languages to", lang, "or it caches translations")) + } + force(expr) +} + +test_that <- function(what, code) { + testthat::test_that(what, { + skip_if(getOption("..skip.tests", TRUE), "arrow C++ library not available") + code + }) +} + +# Wrapper to run tests that only touch R code even when the C++ library isn't +# available (so that at least some tests are run on those platforms) +r_only <- function(code) { + withr::with_options(list(..skip.tests = FALSE), code) +} + +make_temp_dir <- function() { + path <- tempfile() + dir.create(path) + normalizePath(path, winslash = "/") +} |