From 0d73256947c7c79890a5f94622f0948645ea4da7 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 5 Mar 2026 14:32:30 +0100 Subject: Make test robust against unavailable services Test logs are without internet. --- tests/testthat/test_chent.R | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'tests/testthat/test_chent.R') diff --git a/tests/testthat/test_chent.R b/tests/testthat/test_chent.R index 76af7aa..4017042 100644 --- a/tests/testthat/test_chent.R +++ b/tests/testthat/test_chent.R @@ -3,15 +3,20 @@ test_that("We can initialise an object and add information", { expect_equal(oct$identifier, c(X1.octanol = "1-octanol")) # The name of the identifier is generated using make.names() expect_equal(oct$inchikey, structure(NA, source = "user")) expect_equal(oct$smiles, c(user = "CCCCCCCCO")) - oct$try_pubchem() |> - expect_message("Querying PubChem for name 1-octanol") |> - expect_warning("Overwriting uninitialized InChIKey") - expect_equal(oct$inchikey, structure("KBPLFHHGFOOTCA-UHFFFAOYSA-N", source = "pubchem")) - expect_equal(oct$smiles[["PubChem"]], "CCCCCCCCO") + + if (webchem::ping_service("pc")) { + oct$try_pubchem() |> + expect_message("Querying PubChem for name 1-octanol") |> + expect_warning("Overwriting uninitialized InChIKey") + 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")) + } skip_if_no_rdkit() oct$get_rdkit() |> expect_message("Get chemical information from RDKit using user SMILES") - expect_equal(round(oct$mw, 2), structure(130.23, source = "pubchem")) + + skip_if_not(pc_up) expect_snapshot(print(oct)) }) -- cgit v1.2.3