# Test oc_check_query() --------------------------------------------------
test_that("oc_check_query checks placename", {
expect_error(
oc_check_query(
placename = 222
),
"`placename` must be a character vector."
)
})
test_that("oc_check_query checks latitude", {
expect_error(
oc_check_query(
latitude = "fortytwo",
longitude = 51.11892
),
"Every `latitude` must be numeric."
)
expect_error(
oc_check_query(
latitude = 433,
longitude = 51.11892
),
"Every `latitude` must be between -90 and 90."
)
})
test_that("oc_check_query checks longitude", {
expect_error(
oc_check_query(
latitude = 43,
longitude = TRUE
),
"Every `longitude` must be numeric."
)
expect_error(
oc_check_query(
latitude = 43,
longitude = 5111892
),
"Every `longitude` must be between -180 and 180."
)
})
test_that("oc_check_query checks bounds", {
expect_error(
oc_check_query(
placename = "Sarzeau",
bounds = list(c(-5, 51, 0))
),
"Every `bbox` must be a numeric vector of length 4."
)
})
test_that("oc_check_query checks proximity", {
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(47.5, longitude = -2.7)) # latitude not named
),
"must be named 'latitude' and 'longitude'"
)
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(longitude = 47.5, -2.7)) # longitude not named
),
"must be named 'latitude' and 'longitude'"
)
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(1, 2, 3)) # too many coordinates
),
"Every `proximity` point must be a numeric vector of length 2."
)
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(1)) # too few coordinates
),
"Every `proximity` point must be a numeric vector of length 2."
)
expect_error(
oc_check_query(
placename = c("Sarzeau", "Biarritz"),
proximity = c(1, 2) # not wrapped in a list
),
"Every `proximity` point must be a numeric vector of length 2."
)
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(latitude = -91, longitude = 2))
),
"Every `latitude` must be between -90 and 90.",
fixed = TRUE
)
expect_error(
oc_check_query(
placename = "Sarzeau",
proximity = list(c(latitude = 0, longitude = 181))
),
"Every `longitude` must be between -180 and 180.",
fixed = TRUE
)
})
test_that("oc_check_query checks countrycode", {
expect_error(
oc_check_query(
placename = "Sarzeau",
countrycode = "notacountrycode"
),
"Every `countrycode` must be valid.*"
)
})
test_that("oc_check_query ok with lower case countrycode", {
expect_silent(
oc_check_query(
placename = "Sarzeau",
countrycode = "fr"
)
)
expect_silent(
oc_check_query(
placename = "Sarzeau",
countrycode = "FR"
)
)
})
test_that("oc_check_query checks language", {
expect_error(
oc_check_query(
placename = "Sarzeau",
language = TRUE
),
"`language` must be a character vector."
)
})
test_that("oc_check_query checks limit", {
expect_error(
oc_check_query(
placename = "Sarzeau",
limit = 200
),
"`limit` must be an integer between 1 and 100."
)
})
test_that("oc_check_query checks min_confidence", {
expect_error(
oc_check_query(
placename = "Sarzeau",
min_confidence = 20
),
"`min_confidence` must be an integer between 1 and 10."
)
})
test_that("oc_check_query checks no_annotations", {
expect_error(
oc_check_query(
placename = "Sarzeau",
no_annotations = "yes"
),
"`no_annotations` must be a logical vector."
)
})
test_that("oc_check_query checks roadinfo", {
expect_error(
oc_check_query(
placename = "Afsluitdijk",
roadinfo = "yes"
),
"`roadinfo` must be a logical vector."
)
expect_silent(
oc_check_query(
placename = "Afsluitdijk",
roadinfo = TRUE
)
)
})
test_that("oc_check_query checks no_dedupe", {
expect_error(
oc_check_query(
placename = "Sarzeau",
no_dedupe = "yes"
),
"`no_dedupe` must be a logical vector."
)
})
test_that("oc_check_query checks abbrv", {
expect_error(
oc_check_query(
placename = "Sarzeau",
abbrv = "yes"
),
"`abbrv` must be a logical vector."
)
})
test_that("oc_check_query checks address_only", {
expect_error(
oc_check_query(
placename = "Sarzeau",
address_only = "yes"
),
"`address_only` must be a logical vector."
)
})
test_that("oc_check_query checks add_request", {
expect_error(
oc_check_query(
placename = "Sarzeau",
add_request = "yes"
),
"`add_request` must be a logical vector."
)
})
test_that("oc_check_query checks argument lengths", {
expect_error(
oc_check_query(
placename = "Sarzeau",
abbrv = c(TRUE, FALSE)
),
"same length as `placename` or `latitude`"
)
})
# Test oc_check_logical() -------------------------------------------------
test_that("oc_check_logical checks no_record", {
no_record <- "yes"
expect_error(
oc_check_logical(
variable = no_record,
check_length_one = TRUE
),
"`no_record` must be a logical vector."
)
no_record <- c(TRUE, FALSE)
expect_error(
oc_check_logical(
variable = no_record,
check_length_one = TRUE
),
"`no_record` must be a vector of length one."
)
no_record <- TRUE
expect_silent(
oc_check_logical(
variable = no_record,
check_length_one = TRUE
)
)
})
# Test oc_check_between() -------------------------------------------------
test_that("oc_check_between works", {
symbol <- 11
expect_snapshot(oc_check_between(symbol, 0, 10), error = TRUE)
expect_snapshot(oc_check_between(symbol, 11.0001, 11.0002), error = TRUE)
expect_silent(oc_check_between(symbol, 0, 11))
# integer
symbol <- 11L
expect_snapshot(oc_check_between(symbol, 0L, 10L), error = TRUE)
expect_snapshot(oc_check_between(symbol, 11.0001, 11.0002), error = TRUE)
expect_silent(oc_check_between(symbol, 0L, 11L))
# non-numeric
symbol <- "11"
expect_snapshot(oc_check_between(symbol, 0, 11), error = TRUE)
symbol <- "TRUE"
expect_snapshot(oc_check_between(symbol, 0, 11), error = TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.