tests/testthat/test-getcid.R

test_that("Check get.cid for CID 297", {
  d <- get.cid(297)
  expect_true(nrow(d) == 1, TRUE)
  expect_true(d$IUPAC.Name == 'methane')
})
CDK-R/rpubchem documentation built on Nov. 6, 2019, 3:59 a.m.