tests/testthat/test-tox.R

In extractox: Extract Tox Info from Various Databases

library(testthat)

# @@@@@@@@@
# TOX ----
# @@@@@@@@@

Sys.sleep(5)

col_names <- c(
  "who_iarc_monographs", "pprtv", "ghs_dat", "iris", "ice",
  "comptox_cover_sheet", "comptox_main_data", "comptox_abstract_sifter",
  "comptox_synonym_identifier", "comptox_related_relationships",
  "comptox_toxcast_assays_ac50", "comptox_toxval_details",
  "comptox_chemical_properties"
)


test_that("extr_tox fetches data for CASRN 50-00-0 and warn", {
  skip_on_cran()
  skip_if_offline()

  expect_no_warning({
    out <- extr_tox(casrn = c("50-00-0", "ciao"), verbose = FALSE)
  })

  expect_true(is.list(out))
  expect_true(all(unlist(lapply(out, is.data.frame))))
  expect_equal(names(out), col_names)
})