add tests for NULL tables/urls

tests/testthat/test-eq_data.R

@@ -4,9 +4,9 @@ test_that("eq_data function output is appropriate", {
   expect_s3_class(eq_data_summary(), "tbl")
 })
 
-#eq_df <- eq_data_bulletin(.year = 2018, .month = "January")
+eq_df <- eq_data_bulletin(.year = 2018, .month = "January")
 #eq_df <- eq_data_bulletin(.year = 2019, .month = "January")
 
-# test_that("eq_data function output is appropriate", {
-#   expect_s3_class(eq_df, "tbl")
-# })
+test_that("eq_data function output is appropriate", {
+  expect_s3_class(eq_df, "tbl")
+})

tests/testthat/test-eq_get.R

@@ -42,3 +42,10 @@ test_that("get table function outputs are as expected", {
 test_that("tables are of the correct structure", {
   expect_vector(tab_list, size = 1)
 })
+
+test_that("eq_get_table works as expected", {
+  expect_null(eq_get_table("https://earthquake.phivolcs.dost.gov.ph/test"))
+})
+
+
+

tests/testthat/test-eq_process.R

@@ -36,3 +36,20 @@ test_that("eq_process outputs are appropriate", {
     )
   )
 })
+
+df <- eq_get_tables() |>
+  c(list(NULL)) |>
+  eq_process_tables()
+
+test_that("eq_process outputs are appropriate", {
+  expect_s3_class(df, "tbl")
+  expect_named(
+    df,
+    expected = c(
+      "date_time_retrieved", "date_time",
+      "latitude", "longitude",
+      "depth", "magnitude", "location"
+    )
+  )
+})
+