From cb8ec7e0b7214e5a231303f0687824c3d667f406 Mon Sep 17 00:00:00 2001 From: Pyry Kantanen Date: Wed, 28 Jun 2023 16:22:38 +0300 Subject: [PATCH] Typo fix --- tests/testthat/test_04_get.R | 6 +++--- tests/testthat/test_99_restore_cache.R | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/testthat/test_04_get.R b/tests/testthat/test_04_get.R index 069c88ec..d20faf41 100755 --- a/tests/testthat/test_04_get.R +++ b/tests/testthat/test_04_get.R @@ -50,11 +50,11 @@ test_that("get_eurostat (dissemination API) works correctly with multi-frequency test_that("get_eurostat return right classes", { skip_on_cran() skip_if_offline() - expect_true(all(c("character", "numeric") %in% + expect_true(all(c("character", "numeric", "Date") %in% sapply(get_eurostat("road_eqr_trams"), class))) - expect_true(all(c("character", "numeric") %in% + expect_true(all(c("character", "numeric", "Date") %in% sapply( - get_eurostat("road_eqr_trams"), + get_eurostat("road_eqr_trams", keepFlags = TRUE), class ))) }) diff --git a/tests/testthat/test_99_restore_cache.R b/tests/testthat/test_99_restore_cache.R index 7904eecf..2abf5f6d 100644 --- a/tests/testthat/test_99_restore_cache.R +++ b/tests/testthat/test_99_restore_cache.R @@ -7,9 +7,9 @@ test_that("Restore user cache dir after testing", { expect_message(clean_eurostat_cache(config = FALSE)) user_dir <- Sys.getenv("TEST_EUROSTAT_CURRENT_CACHE") - curret_env <- Sys.getenv("EUROSTAT_CACHE_DIR") + current_env <- Sys.getenv("EUROSTAT_CACHE_DIR") - expect_false(curret_env == user_dir) + expect_false(current_env == user_dir) expect_message(expect_message( set_eurostat_cache_dir(user_dir)