|
| 1 | +# Unit tests for java_check_version_cmd and internal helpers |
| 2 | + |
| 3 | +test_that("._java_version_check_impl_original handles macOS DYLD_LIBRARY_PATH logic", { |
| 4 | + skip_on_cran() |
| 5 | + |
| 6 | + # Mock Sys.info to return Darwin |
| 7 | + local_mocked_bindings( |
| 8 | + Sys.info = function() c(sysname = "Darwin"), |
| 9 | + .package = "base" |
| 10 | + ) |
| 11 | + |
| 12 | + # Mock get_libjvm_path |
| 13 | + local_mocked_bindings( |
| 14 | + get_libjvm_path = function(home) { |
| 15 | + file.path(home, "lib", "server", "libjvm.dylib") |
| 16 | + }, |
| 17 | + .package = "rJavaEnv" |
| 18 | + ) |
| 19 | + |
| 20 | + # Mock java_env_set_session to prevent side effects |
| 21 | + local_mocked_bindings( |
| 22 | + java_env_set_session = function(...) TRUE, |
| 23 | + .package = "rJavaEnv" |
| 24 | + ) |
| 25 | + |
| 26 | + # Mock system2 |
| 27 | + local_mocked_bindings( |
| 28 | + system2 = function(command, args, ...) { |
| 29 | + # Check environment within the "subprocess" |
| 30 | + dyld <- Sys.getenv("DYLD_LIBRARY_PATH") |
| 31 | + java_home <- Sys.getenv("JAVA_HOME") |
| 32 | + |
| 33 | + # For verification purposes, return these values in the output |
| 34 | + return(c( |
| 35 | + paste0("DYLD_LIBRARY_PATH=", dyld), |
| 36 | + paste0("JAVA_HOME=", java_home), |
| 37 | + 'openjdk version "21.0.1" 2023-10-17' |
| 38 | + )) |
| 39 | + }, |
| 40 | + .package = "base" |
| 41 | + ) |
| 42 | + |
| 43 | + # Mock file.exists logic |
| 44 | + local_mocked_bindings( |
| 45 | + file.exists = function(path) { |
| 46 | + # Always return true for this test |
| 47 | + return(TRUE) |
| 48 | + }, |
| 49 | + .package = "base" |
| 50 | + ) |
| 51 | + |
| 52 | + java_home_mock <- "/mock/java/home" |
| 53 | + |
| 54 | + result <- rJavaEnv:::._java_version_check_impl_original( |
| 55 | + java_home = java_home_mock |
| 56 | + ) |
| 57 | + |
| 58 | + output_text <- paste(result$java_version_output, collapse = "\n") |
| 59 | + |
| 60 | + # Use regular expressions to match output |
| 61 | + expect_match(output_text, "/mock/java/home/lib/server") |
| 62 | + expect_match(output_text, "/mock/java/home") |
| 63 | + expect_match(result$major_version, "^21$") |
| 64 | +}) |
| 65 | + |
| 66 | +test_that("._java_version_check_impl_original returns FALSE when java binary not found", { |
| 67 | + java_home_mock <- "/mock/java/home" |
| 68 | + |
| 69 | + local_mocked_bindings( |
| 70 | + java_env_set_session = function(...) TRUE, |
| 71 | + .package = "rJavaEnv" |
| 72 | + ) |
| 73 | + |
| 74 | + # Mock file.exists to return FALSE for the java binary check |
| 75 | + local_mocked_bindings( |
| 76 | + file.exists = function(paths) { |
| 77 | + if (grepl("bin/java", paths)) { |
| 78 | + return(FALSE) |
| 79 | + } |
| 80 | + TRUE |
| 81 | + }, |
| 82 | + .package = "base" |
| 83 | + ) |
| 84 | + |
| 85 | + expect_false(rJavaEnv:::._java_version_check_impl_original( |
| 86 | + java_home = java_home_mock |
| 87 | + )) |
| 88 | +}) |
| 89 | + |
| 90 | +test_that("._java_version_check_impl_original handles timeout (status 124)", { |
| 91 | + java_home_mock <- "/mock/java/home" |
| 92 | + |
| 93 | + local_mocked_bindings( |
| 94 | + java_env_set_session = function(...) TRUE, |
| 95 | + .package = "rJavaEnv" |
| 96 | + ) |
| 97 | + |
| 98 | + local_mocked_bindings( |
| 99 | + file.exists = function(...) TRUE, |
| 100 | + .package = "base" |
| 101 | + ) |
| 102 | + |
| 103 | + local_mocked_bindings( |
| 104 | + system2 = function(...) { |
| 105 | + res <- character(0) |
| 106 | + attr(res, "status") <- 124 |
| 107 | + res |
| 108 | + }, |
| 109 | + .package = "base" |
| 110 | + ) |
| 111 | + |
| 112 | + expect_false(rJavaEnv:::._java_version_check_impl_original( |
| 113 | + java_home = java_home_mock |
| 114 | + )) |
| 115 | +}) |
| 116 | + |
| 117 | + |
| 118 | +test_that("._java_version_check_impl_original handles garbage output", { |
| 119 | + java_home_mock <- "/mock/java/home" |
| 120 | + |
| 121 | + local_mocked_bindings( |
| 122 | + java_env_set_session = function(...) TRUE, |
| 123 | + .package = "rJavaEnv" |
| 124 | + ) |
| 125 | + |
| 126 | + local_mocked_bindings( |
| 127 | + file.exists = function(...) TRUE, |
| 128 | + .package = "base" |
| 129 | + ) |
| 130 | + |
| 131 | + local_mocked_bindings( |
| 132 | + system2 = function(...) { |
| 133 | + c("Some random error", "No version here") |
| 134 | + }, |
| 135 | + .package = "base" |
| 136 | + ) |
| 137 | + |
| 138 | + expect_false(rJavaEnv:::._java_version_check_impl_original( |
| 139 | + java_home = java_home_mock |
| 140 | + )) |
| 141 | +}) |
0 commit comments