add tests for eq_get_links

panukatan · Aug 18, 2024 · 3d29d70 · 3d29d70
1 parent c021cfe
commit 3d29d70
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-eq_get.R b/tests/testthat/test-eq_get.R
@@ -49,6 +49,12 @@ test_that("get_links function outputs are as expected", {
   expect_vector(tab_list, ptype = character(), size = nrow(eq_data()))
 })
 
+tab_list <- eq_get_links(latest = FALSE)
+
+test_that("get_links function outputs are as expected", {
+  expect_vector(tab_list, ptype = character())
+})
+
 tab_list <- eq_get_links(.year = 2018)
 
 test_that("tables are of the correct structure", {