diff options
| author | Johannes Ranke <johannes.ranke@jrwb.de> | 2026-03-05 14:32:30 +0100 |
|---|---|---|
| committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2026-03-05 14:32:30 +0100 |
| commit | 0d73256947c7c79890a5f94622f0948645ea4da7 (patch) | |
| tree | 73469afee00da18d2e3ece1368c355afbb8817ff /tests/testthat/test_pai.R | |
| parent | d6c7e8f5a0d0d4b564addf5b447bed6b3ba03b5e (diff) | |
Make test robust against unavailable services
Test logs are without internet.
Diffstat (limited to 'tests/testthat/test_pai.R')
| -rw-r--r-- | tests/testthat/test_pai.R | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/testthat/test_pai.R b/tests/testthat/test_pai.R index 9d73b58..7d9c566 100644 --- a/tests/testthat/test_pai.R +++ b/tests/testthat/test_pai.R @@ -1,14 +1,15 @@ test_that("a pai object is correctly generated", { - {glyphosate <- pai$new("glyphosate", rdkit = FALSE)} |> - expect_message("Querying BCPC for glyphosate") |> + 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 ") - + # Check BCPC results expect_equal(glyphosate$bcpc$cas, "1071-83-6") expect_equal(glyphosate$bcpc$formula, "C3H8NO5P") expect_equal(glyphosate$bcpc$iupac_name, "N-(phosphonomethyl)glycine") - + expect_equal(names(glyphosate$identifier), "glyphosate") # Check PubChem results |