diff options
| author | Johannes Ranke <johannes.ranke@jrwb.de> | 2026-03-05 16:22:50 +0100 |
|---|---|---|
| committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2026-03-05 16:22:50 +0100 |
| commit | 3612fcc80c900d95a539a7fa228eecd4429e7c72 (patch) | |
| tree | b3dd6f946bc568558cb904d443312a85f7754521 | |
| parent | 85df76b97bc7c0e15ef95d184327e130d781a1b6 (diff) | |
This is to avoid test failures on the MacOS arm64 systems currently
occurring on R-Universe
| -rw-r--r-- | tests/testthat/test_chent.R | 4 | ||||
| -rw-r--r-- | tests/testthat/test_pai.R | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/testthat/test_chent.R b/tests/testthat/test_chent.R index 4017042..a008599 100644 --- a/tests/testthat/test_chent.R +++ b/tests/testthat/test_chent.R @@ -17,6 +17,10 @@ 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)) }) diff --git a/tests/testthat/test_pai.R b/tests/testthat/test_pai.R index 7d9c566..fbc9757 100644 --- a/tests/testthat/test_pai.R +++ b/tests/testthat/test_pai.R @@ -1,6 +1,11 @@ test_that("a pai object is correctly generated", { + # Check availability of BCPC and PubChem immediately before use + bcpc_up <- webchem::ping_service("bcpc") + pc_up <- webchem::ping_service("pc") + skip_if_not(bcpc_up & pc_up) + {glyphosate <- pai$new("glyphosate", rdkit = FALSE)} |> expect_message("Querying BCPC for glyphosate") |> expect_message("Querying PubChem for inchikey ") |