diff options
| -rw-r--r-- | log/test.log | 9 | ||||
| -rw-r--r-- | tests/testthat/test_chent.R | 9 | ||||
| -rw-r--r-- | tests/testthat/test_pai.R | 4 |
3 files changed, 6 insertions, 16 deletions
diff --git a/log/test.log b/log/test.log index 79e6206..241947e 100644 --- a/log/test.log +++ b/log/test.log @@ -12,14 +12,13 @@ The following object is masked from ‘package:devtools’: ⠏ | 0 | chent ⠸ | 4 | chent ⠇ | 9 | chent -⠏ | 10 | chent -✔ | 10 | chent [4.3s] +✔ | 9 | chent [3.2s] ⠏ | 0 | pai ⠋ | 1 | pai -✔ | 9 | pai [4.1s] +✔ | 9 | pai [3.6s] ══ Results ═════════════════════════════════════════════════════════════════════ -Duration: 8.4 s +Duration: 6.8 s -[ FAIL 0 | WARN 0 | SKIP 0 | PASS 19 ] +[ FAIL 0 | WARN 0 | SKIP 0 | PASS 18 ] 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)) }) diff --git a/tests/testthat/test_pai.R b/tests/testthat/test_pai.R index fbc9757..4934ab8 100644 --- a/tests/testthat/test_pai.R +++ b/tests/testthat/test_pai.R @@ -1,9 +1,5 @@ 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)} |> |