From 3612fcc80c900d95a539a7fa228eecd4429e7c72 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <johannes.ranke@jrwb.de>
Date: Thu, 5 Mar 2026 16:22:50 +0100
Subject: Check services directly before use in tests

This is to avoid test failures on the MacOS arm64 systems currently
occurring on R-Universe
---
 tests/testthat/test_chent.R | 4 ++++
 1 file changed, 4 insertions(+)

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

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