Properly mock base::Sys.info().

r-lib · Aug 15, 2024 · 7b83144 · 7b83144
1 parent 6b412ed
commit 7b83144
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 12 deletions.
diff --git a/R/mocks.R b/R/mocks.R
@@ -0,0 +1,2 @@
+# Define these objects so they can be mocked in tests.
+Sys.info <- NULL
diff --git a/tests/testthat/test-default-backend.R b/tests/testthat/test-default-backend.R
@@ -50,18 +50,12 @@ test_that("mixing options and env vars", {
 })
 
 test_that("auto windows", {
-  local_mocked_bindings(
-    Sys.info = function() c(sysname = "Windows"),
-    .package = "base"
-  )
+  local_mocked_bindings(Sys.info = function() c(sysname = "Windows"))
   expect_equal(default_backend_auto(), backend_wincred)
 })
 
 test_that("auto macos", {
-  local_mocked_bindings(
-    Sys.info = function() c(sysname = "Darwin"),
-    .package = "base"
-  )
+  local_mocked_bindings(Sys.info = function() c(sysname = "Darwin"))
   expect_equal(default_backend_auto(), backend_macos)
 })
 
@@ -72,9 +66,6 @@ test_that("auto linux", {
 })
 
 test_that("auto other", {
-  local_mocked_bindings(
-    Sys.info = function() c(sysname = "Solaris"),
-    .package = "base"
-  )
+  local_mocked_bindings(Sys.info = function() c(sysname = "Solaris"))
   expect_equal(suppressWarnings(default_backend_auto()), backend_file)
 })