tests/testthat/test-wm_children.R

In ropensci/worrms: World Register of Marine Species (WoRMS) Client

context("wm_children")

test_that("wm_children basic usage works", {
  vcr::use_cassette("wm_children", {
    aa <- wm_children(id = 105706)
  })
  
  expect_is(aa, "tbl_df")
  expect_is(aa, "data.frame")
  expect_gt(NROW(aa), 1)

  expect_equal(unique(aa$family), "Rhincodontidae")
  expect_equal(unique(aa$order), "Orectolobiformes")
  expect_equal(unique(aa$class), "Elasmobranchii")
  expect_equal(unique(aa$phylum), "Chordata")
  expect_equal(unique(aa$kingdom), "Animalia")
})

test_that("wm_children - marine_only usage works", {
  vcr::use_cassette("wm_children_marine_only_false", {
    expect_is(wm_children(id = 105706, FALSE), "tbl_df")
  })
  vcr::use_cassette("wm_children_marine_only_true", {
    expect_is(wm_children(id = 105706, TRUE), "tbl_df")
  })
})

test_that("wm_children - offset parameter works", {
  vcr::use_cassette("wm_children_offset", {
    off1 <- wm_children(id = 105706, offset = 1)
    off2 <- wm_children(id = 105706, offset = 2)

  }, match_requests_on = c("method", "uri", "query"))
  
  expect_equal(off1$AphiaID[1], 297110)
  expect_equal(off2$AphiaID[1], 398065)
})

test_that("wm_children fails well", {
  skip_on_cran()

  expect_error(wm_children(), "argument \"id\" is missing")
  expect_error(wm_children("asdfafasdfs"), "id must be of class")

  vcr::use_cassette("wm_children_error", {
    expect_error(wm_children(44444), "\\(204\\) No Content")
  })
})


## plural methods
context("wm_children_ - plural")

test_that("wm_children_ basic usage works", {
  # works for singleton input
  vcr::use_cassette("wm_children_", {
    aa <- wm_children_(id = 105706)
  })
  
  expect_is(aa, "tbl_df")
  expect_is(aa, "data.frame")
  expect_gt(NROW(aa), 1)
  expect_equal(unique(aa$family), "Rhincodontidae")

  # works for >1 input
  vcr::use_cassette("wm_children_many", {
    bb <- wm_children_(id = c(105706, 343613))
  }, record = "new_episodes")
  
  expect_is(bb, "tbl_df")
  expect_is(bb, "data.frame")
  expect_gt(NROW(bb), NROW(aa))
})

test_that("wm_children_ - 'name' input works", {
  vcr::use_cassette("wm_children_name", {
    aa <- wm_children_(name = 'Leucophaeus')
  })
  
  expect_is(aa, "tbl_df")
  expect_is(aa, "data.frame")
  expect_true(any(grepl('Leucophaeus', aa$scientificname)))
})

test_that("wm_children_ fails well", {
  skip_on_cran()

  expect_error(wm_children_(), "use only one of")
  expect_error(wm_children_("asdfafasdfs"), "id must be of class")

  vcr::use_cassette("wm_children_-error", {
    expect_warning(wm_children_(44444), "\\(204\\) No Content")
  })
})