source("helper/helper.R")
f = get("URLencode", envir = getNamespace("utils"))
z = "ab%20cd"
expect_identical(backports:::URLencode(z, repeated = TRUE), "ab%2520cd")
if (getRversion() >= "3.2.0") {
expect_same = makeCompareFun(f, backports:::URLencode)
expect_same(z)
expect_same(z, repeated = FALSE)
expect_same(z, repeated = TRUE)
} else {
expect_identical(f(z), backports:::URLencode(z, repeated = TRUE))
}
Generated by dwww version 1.15 on Wed Jun 26 02:27:50 CEST 2024.