test: use more specific expectations for class

ropensci · Sep 30, 2024 · 1bc3285 · 1bc3285
1 parent 171f5da
commit 1bc3285
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/test-cetesb_retrieve_met_pol.R b/tests/testthat/test-cetesb_retrieve_met_pol.R
@@ -34,7 +34,10 @@ test_that("cetesb_retrieve_met_pol works!", {
   expect_gt(param_means["pm25"], 7)
 
   # Testing data.frame classes
-  expect_equal(TRUE,  "data.frame" %in% class(pinheiros))
+  expect_s3_class(pinheiros, "data.frame")
+  expect_type(pinheiros$tc, "double")
+  # but probably better
+  # expect_setequal(unname(apply(pinheiros, 2, class)), c(<vector-of-classes>))
   expect_equal(TRUE,  "numeric" %in% class(pinheiros$tc))
   expect_equal(TRUE,  "numeric" %in% class(pinheiros$rh))
   expect_equal(TRUE,  "numeric" %in% class(pinheiros$ws))