diff options
Diffstat (limited to 'tests/testthat/test_chent.R')
| -rw-r--r-- | tests/testthat/test_chent.R | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/tests/testthat/test_chent.R b/tests/testthat/test_chent.R index a008599..7d1a58b 100644 --- a/tests/testthat/test_chent.R +++ b/tests/testthat/test_chent.R @@ -4,10 +4,9 @@ test_that("We can initialise an object and add information", { expect_equal(oct$inchikey, structure(NA, source = "user")) expect_equal(oct$smiles, c(user = "CCCCCCCCO")) - if (webchem::ping_service("pc")) { + if (pc_up) { oct$try_pubchem() |> - expect_message("Querying PubChem for name 1-octanol") |> - expect_warning("Overwriting uninitialized InChIKey") + expect_message("Querying PubChem for name 1-octanol") expect_equal(oct$inchikey, structure("KBPLFHHGFOOTCA-UHFFFAOYSA-N", source = "pubchem")) expect_equal(oct$smiles[["PubChem"]], "CCCCCCCCO") expect_equal(round(oct$mw, 2), structure(130.23, source = "pubchem")) @@ -17,10 +16,6 @@ test_that("We can initialise an object and add information", { oct$get_rdkit() |> expect_message("Get chemical information from RDKit using user SMILES") - # Check availability of BCPC and PubChem immediately before use - bcpc_up <- webchem::ping_service("bcpc") - pc_up <- webchem::ping_service("pc") - skip_if_not(pc_up) expect_snapshot(print(oct)) }) |