diff options
Diffstat (limited to 'tests/testthat/test_pai.R')
| -rw-r--r-- | tests/testthat/test_pai.R | 5 |
1 files changed, 5 insertions, 0 deletions
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 ") |