soft test for SWC url

* this sometimes isn't available * I don't think tests should fail when this happens
natverse · Oct 14, 2024 · 2c2dcd1 · 2c2dcd1
1 parent b242f3a
commit 2c2dcd1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/testthat/test-neuron-io.R b/tests/testthat/test-neuron-io.R
@@ -391,8 +391,9 @@ test_that("we can write neuron to swc file",{
 
   #Check if the URL exists
   if(nzchar(Sys.getenv("NAT_INTERNET_TESTS"))) {
-    expect_true(url_ok(swc_url))}
-
+    if(!url_ok(swc_url))
+      warning("Unable to access swc URL: ", swc_url)
+  }
 
   expect_equal(write.neuron(y, dir=td, format='swc', file='rhubarb'),
                file.path(td,'rhubarb.swc'))