fix tests

Author: e-kotov

R/java_build_env.R

@@ -173,12 +173,22 @@ set_java_build_env_vars <- function(java_home, quiet = FALSE) {
       # Construct and set LIBS for the linker
       r_cmd_path <- file.path(R.home("bin"), "R")
       r_libs <- tryCatch(
-        system2(r_cmd_path, "CMD config LIBS", stdout = TRUE, stderr = TRUE),
+        system2(
+          r_cmd_path,
+          "CMD config LIBS",
+          stdout = TRUE,
+          stderr = TRUE
+        ),
         warning = function(w) "",
         error = function(e) ""
       )
       r_ldflags <- tryCatch(
-        system2(r_cmd_path, "CMD config LDFLAGS", stdout = TRUE, stderr = TRUE),
+        system2(
+          r_cmd_path,
+          "CMD config LDFLAGS",
+          stdout = TRUE,
+          stderr = TRUE
+        ),
         warning = function(w) "",
         error = function(e) ""
       )
@@ -255,7 +265,12 @@ set_java_build_env_vars <- function(java_home, quiet = FALSE) {
       # Set LDFLAGS for the JRI compilation step's configure script
       r_cmd_path <- file.path(R.home("bin"), "R")
       r_ldflags <- tryCatch(
-        system2(r_cmd_path, "CMD config LDFLAGS", stdout = TRUE, stderr = TRUE),
+        system2(
+          r_cmd_path,
+          "CMD config LDFLAGS",
+          stdout = TRUE,
+          stderr = TRUE
+        ),
         warning = function(w) "",
         error = function(e) ""
       )

R/java_find.R

@@ -133,7 +133,11 @@
 
   # 4. Validation & Cleaning
   # Normalize first to ensure unique() handles backslash/forward-slash duplicates
-  candidates <- normalizePath(candidates, winslash = "/", mustWork = FALSE)
+  candidates <- suppressWarnings(normalizePath(
+    candidates,
+    winslash = "/",
+    mustWork = FALSE
+  ))
   candidates <- unique(candidates)
 
   # Filter out rJavaEnv cache paths - we only want true system installations

R/mock_bindings.R

@@ -0,0 +1,10 @@
+# NULL bindings to allow mocking base functions in tests.
+# This file is only used to create entries in the package namespace
+# so that testthat::local_mocked_bindings can replace them.
+# See: https://testthat.r-lib.org/reference/local_mocked_bindings.html
+
+Sys.info <- NULL
+file.exists <- NULL
+system2 <- NULL
+dyn.load <- NULL
+dirname <- NULL

tests/testthat/test-java_build_env_extra.R

@@ -145,7 +145,7 @@ test_that("set_java_build_env_vars sets JAVA_HOME and PATH", {
   # Mock file system operations for Linux-specific code
   local_mocked_bindings(
     Sys.info = function() c(sysname = "Darwin"),
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   # Call the function with a temporary PATH
@@ -182,12 +182,12 @@ test_that("set_java_build_env_vars sets JAVAH when available", {
     file.exists = function(x) {
       if (x == javah_path) TRUE else FALSE
     },
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   local_mocked_bindings(
     Sys.info = function() c(sysname = "Darwin"),
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   withr::with_envvar(c("PATH" = "/usr/bin"), {
@@ -216,12 +216,12 @@ test_that("set_java_build_env_vars handles missing javah", {
   # Mock file.exists to say javah doesn't exist
   local_mocked_bindings(
     file.exists = function(x) FALSE,
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   local_mocked_bindings(
     Sys.info = function() c(sysname = "Darwin"),
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   withr::with_envvar(c("PATH" = "/usr/bin"), {
@@ -243,7 +243,7 @@ test_that("set_java_build_env_vars sets Linux-specific variables", {
 
   local_mocked_bindings(
     Sys.info = function() c(sysname = "Linux"),
-    .package = "base"
+    .package = "rJavaEnv"
   )
 
   local_mocked_bindings(