diff --git a/tests/testthat/test-check_api_key.R b/tests/testthat/test-check_api_key.R index 46bbb42..ffc4178 100644 --- a/tests/testthat/test-check_api_key.R +++ b/tests/testthat/test-check_api_key.R @@ -1,4 +1,5 @@ test_that("check_api_key works", { + skip_on_cran() check_api_key() |> expect_message("Using valid") }) diff --git a/tests/testthat/test-get_organization_data.R b/tests/testthat/test-get_organization_data.R index 4ea45ed..ea11528 100644 --- a/tests/testthat/test-get_organization_data.R +++ b/tests/testthat/test-get_organization_data.R @@ -1,4 +1,6 @@ test_that("get_organization_data works", { + skip_on_os(c("windows", "linux", "solaris")) + skip_on_cran() od <- get_organization_data() expect_equal(od$organization_name, "Organization Cole Brokamp C8A17F7C") }) diff --git a/tests/testthat/test-get_sensor_data.R b/tests/testthat/test-get_sensor_data.R index 994ffd2..d8a46af 100644 --- a/tests/testthat/test-get_sensor_data.R +++ b/tests/testthat/test-get_sensor_data.R @@ -1,4 +1,6 @@ test_that("get_sensor_data works", { + skip_on_os(c("windows", "linux", "solaris")) + skip_on_cran() c( get_sensor_data(175413, fields = "name"), get_sensor_data(as.integer(175413), fields = "name"), diff --git a/tests/testthat/test-get_sensor_history.R b/tests/testthat/test-get_sensor_history.R index f56d5af..ebfd170 100644 --- a/tests/testthat/test-get_sensor_history.R +++ b/tests/testthat/test-get_sensor_history.R @@ -1,4 +1,6 @@ test_that("get_sensor_history works", { + skip_on_os(c("windows", "linux", "solaris")) + skip_on_cran() get_sensor_history( sensor_index = 175413, fields = c("pm1.0_cf_1", "pm1.0_atm", "pm2.5_cf_1", "pm2.5_atm"), diff --git a/tests/testthat/test-get_sensors_data.R b/tests/testthat/test-get_sensors_data.R index 37f4bb8..281fca6 100644 --- a/tests/testthat/test-get_sensors_data.R +++ b/tests/testthat/test-get_sensors_data.R @@ -1,4 +1,6 @@ test_that("get_sensors_data works", { + skip_on_os(c("windows", "linux", "solaris")) + skip_on_cran() get_sensors_data(x = as.integer(c(175257, 175413)), fields = c("name")) |> expect_identical( tibble::tibble(