From a57d1467a86f816e39436baec1e66d940d35a401 Mon Sep 17 00:00:00 2001 From: Chantel Wetzel Date: Thu, 29 Aug 2024 07:56:42 -0700 Subject: [PATCH] add test --- tests/testthat/test-data.R | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R index a22687d..ff6e51e 100644 --- a/tests/testthat/test-data.R +++ b/tests/testthat/test-data.R @@ -149,6 +149,16 @@ test_that("pull_bio_triennial", { expect_is(dat, "list") expect_equal(nrow(dat[[1]]), 1596) expect_equal(nrow(dat[[2]]), 382) + + dat <- pull_bio( + common_name = "quillback rockfish", + years = c(1980, 2004), + survey = "Triennial", + verbose = TRUE + ) + expect_is(dat, "list") + expect_equal(nrow(dat[[1]]), 48) + expect_equal(dat[[2]], "no_ages_available") }) test_that("pull_biological_samples", {