Running 'basename2-tests.R' [0s]
  Running 'ext-tests.R' [0s]
  Running 'faster-subsequent-times.R' [1s]
  Running 'isclipboard-tests.R' [0s]
  Running 'pathjoin-tests.R' [0s]
  Running 'set-sys-path-tests.R' [1s]
  Running 'this-path-tests.R' [1s]
  Running 'zzz.R' [0s]
Running the tests in 'tests/set-sys-path-tests.R' failed.
Complete output:
  > local({
  + 
  + 
  +     FILE.R <- tempfile(fileext = ".R")
  +     on.exit(unlink(FILE.R))
  +     writeLines("
  + test.this.path <- function ()
  + {
  +     try(print(this.path::sys.path(verbose = TRUE)))
  +     try(print(this.path::env.path(verbose = TRUE)))
  +     try(print(this.path::src.path(verbose = TRUE)))
  +     try(print(this.path::this.path(verbose = TRUE)))
  + }
  + 
  + 
  + test.this.path()", FILE.R)
  + 
  + 
  +     sourcelike <- function(file) {
  +         ofile <- file
  +         file <- this.path::set.sys.path(file, Function = "sourcelike")
  +         lines <- readLines(file, warn = FALSE)
  +         filename <- this.path::sys.path(local = TRUE, for.msg = TRUE)
  +         isFile <- !is.na(filename)
  +         if (isFile) {
  +             timestamp <- file.info(filename)$mtime[1]
  +             if (is.na(timestamp))
  +                 timestamp <- Sys.time()
  +         }
  +         else {
  +             filename <- if (is.character(ofile)) ofile else "<connection>"
  +             timestamp <- Sys.time()
  +         }
  +         srcfile <- srcfilecopy(filename, lines, timestamp, isFile)
  +         this.path::set.src.path(srcfile)
  +         envir <- new.env(hash = TRUE, parent = .BaseNamespaceEnv)
  +         envir$.packageName <- filename
  +         oopt <- options(topLevelEnvironment = envir)
  +         on.exit(options(oopt))
  +         this.path::set.env.path(envir)
  +         exprs <- parse(text = lines, srcfile = srcfile)
  +         this.path::source.exprs(exprs, evaluated = TRUE, envir)
  +         `.this.path::document.context`
  +     }
  + 
  + 
  +     this.path::source.exprs({
  + 
  + 
  + x <- sourcelike(this.path::relpath(FILE.R))
  + print(x, quote = FALSE)
  + 
  + 
  + y <- local({
  +     FILE.zip <- tempfile(fileext = ".zip")
  +     on.exit(unlink(FILE.zip))
  +     local({
  +         owd <- getwd()
  +         on.exit(setwd(owd))
  +         setwd(this.path::dirname2(FILE.R))
  +         status <- utils::zip(FILE.zip, this.path::basename2(FILE.R))
  +         on.exit()
  +         setwd(owd)
  +         if (status == 0L) {
  +             local({
  +                 conn <- unz(this.path::relpath(FILE.zip), this.path::basename2(FILE.R))
  +                 on.exit(close(conn))
  +                 sourcelike(conn)
  +             })
  +         }
  +     })
  + })
  + print(y, quote = FALSE)
  + 
  + 
  +     })
  + 
  + 
  + })
  Error in regexec(" ([ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:) +(.*?) *(?:Web Client Network|Microsoft Windows Network)?$",  : 
    input string 9 is invalid in this locale
  Calls: local ... eval -> sourcelike -> <Anonymous> -> .relpath -> regexec
  In addition: Warning message:
  In regexec(" ([ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:) +(.*?) *(?:Web Client Network|Microsoft Windows Network)?$",  :
    unable to translate 'Der Befehl wurde erfolgreich ausgef<81>hrt.' to a wide string
  Execution halted