From 0d73256947c7c79890a5f94622f0948645ea4da7 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <johannes.ranke@jrwb.de>
Date: Thu, 5 Mar 2026 14:32:30 +0100
Subject: Make test robust against unavailable services

Test logs are without internet.
---
 tests/testthat/test_pai.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'tests/testthat/test_pai.R')

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
-- 
cgit v1.2.3