tests/testthat/test-integration.R

In ropensci/webchem: Chemical Information from the Web

# These all might occasionally fail because cts_translate() is currently
# somewhat unreliable.

etox_up <- ping_service("etox")
fn_up <- ping_service("fn")
up <- ping_service("cts")

test_that("with_cts() works when no translation needed", {
  skip_on_cran()
  skip_if_not(etox_up, "ETOX down!")
  skip_if_not(up, "CTS service down")

  CASs <- c("75-07-0",  "64-17-5")
  a <-
    with_cts(
      query = CASs,
      from = "cas",
      .f = "get_etoxid",
      .verbose = getOption("verbose")
    )
  b <- get_etoxid(CASs, from = "cas")
  expect_equal(a, b)
})


test_that("with_cts() translates", {
  skip_on_cran()
  skip_if_not(etox_up, "ETOX down!")
  skip_if_not(up, "CTS service down")

  x <-
    with_cts(query = "XDDAORKBJWWYJS-UHFFFAOYSA-N", from = "inchikey", .f = "get_etoxid")
  y <- get_etoxid(query = "1071-83-6", from = "cas")
  expect_equal(x, y)
})


test_that("find_db() function works", {
  skip_on_cran()
  skip_if_not(fn_up)
  skip_if_not(etox_up)
  skip_if_not(up, "CTS service down")

  out <- find_db(c("triclosan", NA, "balloon"),
                        from = "name",
                        sources = c("etox", "fn"))
  df <- tibble(query = c("triclosan", NA, "balloon"),
               etox = c(TRUE, FALSE, FALSE),
               fn = c(FALSE, FALSE, FALSE))
  expect_equal(out, df, ignore_attr = TRUE)
})