Adapt testHEADmain

Also, only check availability of PubChem and BCPC once, this should
really be sufficient.

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))
 })