Running 'Arguments-FILES.R'
  Running 'FileProgressBar.R'
  Running 'GString.R'
  Running 'Java.R'
  Running 'MultiVerbose.R'
  Running 'NullVerbose.R'
  Running 'Options.R'
  Running 'ProgressBar.R'
  Running 'Settings.R'
  Running 'System.R'
  Running 'TextStatusBar.R'
  Running 'VComments.R'
  Running 'Verbose.R'
  Running 'absolute-relative-paths.R'
Running the tests in 'tests/absolute-relative-paths.R' failed.
Complete output:
  > library("R.utils")
  Loading required package: R.oo
  Loading required package: R.methodsS3
  R.methodsS3 v1.8.1 (2020-08-26 16:20:06 UTC) successfully loaded. See ?R.methodsS3 for help.
  R.oo v1.24.0 (2020-08-26 16:11:58 UTC) successfully loaded. See ?R.oo for help.
  
  Attaching package: 'R.oo'
  
  The following object is masked from 'package:R.methodsS3':
  
      throw
  
  The following objects are masked from 'package:methods':
  
      getClasses, getMethods
  
  The following objects are masked from 'package:base':
  
      attach, detach, load, save
  
  R.utils v2.11.0 (2021-09-26 08:30:02 UTC) successfully loaded. See ?R.utils for help.
  
  Attaching package: 'R.utils'
  
  The following object is masked from 'package:utils':
  
      timestamp
  
  The following objects are masked from 'package:base':
  
      cat, commandArgs, getOption, inherits, isOpen, nullfile, parse,
      warnings
  
  > warnifnot <- egsub("stop", "warning", stopifnot, value=FALSE)
  > 
  > 
  > # Current directory
  > stopifnot(identical(getAbsolutePath("."), getwd()))
  > stopifnot(identical(getRelativePath("."), "."))
  > 
  > # Tilde expansion
  > pathH <- normalizePath("~")
  > print(pathH)
  [1] "C:\\msys64"
  > pathHA <- getAbsolutePath(pathH)
  > print(pathHA)
  [1] "C:/msys64"
  > pathA <- getAbsolutePath("~", expandTilde=TRUE)
  > print(pathA)
  [1] "C:/msys64"
  > pathR <- getRelativePath("~")
  > print(pathR)
  [1] "../../../../../../msys64"
  > warnifnot(identical(tolower(pathA), tolower(pathH)))
  Warning message:
  identical(tolower(pathA), tolower(pathH)) is not TRUE 
  > warnifnot(identical(tolower(getAbsolutePath(pathR)), tolower(pathH)))
  Warning message:
  identical(tolower(getAbsolutePath(pathR)), tolower(pathH)) is not TRUE 
  > 
  > pathR <- getRelativePath("~", caseSensitive=TRUE)
  > print(pathR)
  [1] "../../../../../../msys64"
  > 
  > pathA <- getAbsolutePath("~/../Documents", expandTilde=TRUE)
  > pathA0 <- file.path(getParent(pathH), "Documents")
  > utils::str(list(pathA = pathA, pathA0 = pathA0))
  List of 2
   $ pathA : chr "C:/Documents"
   $ pathA0: chr "C://Documents"
  > stopifnot(pathA == pathA0)
  Error: pathA == pathA0 is not TRUE
  Execution halted