check unix tests

Author: pachadotdev

tests/testthat/test-source-local.R

@@ -75,7 +75,26 @@ test_that("cpp_source local controls RTTI/vtable symbol visibility", {
   # Emulate the snippet to locate the provider shared object and show that it
   # exists; we already demonstrated the consumer works without running this
   # manual snippet because cpp_source(local = FALSE) provided global symbols.
+  # Try to determine the built provider shared object path. On some runners
+  # the file may not be discoverable via listing (packaged R builds, macOS
+  # variations). Fall back to inspecting getLoadedDLLs(); if still not
+  # available, skip the explicit dyn.load check on this platform.
   so_path <- provider_so_path(dirs$provider)
+  if (length(so_path) == 0) {
+    dlls <- getLoadedDLLs()
+    for (nm in names(dlls)) {
+      p <- tryCatch({ dlls[[nm]]$path }, error = function(e) NULL)
+      if (!is.null(p) && grepl(dirs$provider, p, fixed = TRUE)) {
+        so_path <- p
+        break
+      }
+    }
+  }
+
+  if (length(so_path) == 0 || !nzchar(so_path)) {
+    skip("Could not locate provider shared object on this platform; skipping manual dyn.load check")
+  }
+
   expect_true(file.exists(so_path))
   # Loading it manually with local = FALSE would succeed, but wasn't required.
   expect_silent(dyn.load(so_path, local = FALSE, now = TRUE))