test fixInNamespace()

git-svn-id: https://svn.r-project.org/R/trunk@88424 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: smeyer

src/library/utils/R/objects.R

@@ -443,7 +443,7 @@ function(x, value, ns, pos = -1, envir = as.environment(pos))
         ns <- asNamespace(substring(nm, 9L))
     } else ns <- asNamespace(ns)
     ns_name <- getNamespaceName(ns)
-    if (nf > 1L) {
+    if (nf > 1L && !identical(sys.function(1), fixInNamespace)) {
         if(ns_name %in% tools:::.get_standard_package_names()$base)
             stop("locked binding of ", sQuote(x), " cannot be changed",
                  domain = NA)

tests/reg-tests-1e.R

@@ -2040,8 +2040,9 @@ omethod <- tools:::toRd.default
 assignInNamespace("toRd.default", `body<-`(omethod, value = ""), "tools")
 ## R <= 4.5.1 gave Error: object 'toRd' of mode 'function' was not found
 assertValueIs("")  # failed for tools::toRd(1): S3 table was not updated
-## now restore the original definition:
-assignInNamespace("toRd.default", omethod, "tools")
+## now restore the original definition, testing fixInNamespace():
+fixInNamespace("toRd.default", "tools", editor = function (...) omethod)
+## failed in R <= 4.5.1
 assertValueIs("1")