1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
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 = "/")
}
|
