R Under development (unstable) (2023-08-05 r84874 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> check <- function (path, root, ext, compression = FALSE)
+ {
+     stopifnot(
+         identical(splitext(path, compression), matrix(c(character(), root, ext), 2, byrow = TRUE, dimnames = list(c("root", "ext"), NULL))),
+         identical(removeext(path, compression), root),
+         identical(ext(path, compression), ext)
+     )
+ }
> 
> 
> splitext  <- this.path:::.windows.splitext
> removeext <- this.path:::.windows.removeext
> ext       <- this.path:::.windows.ext
> 
> 
> check(character(), character(), character())
> check("", "", "")
> 
> 
> check("d:", "d:", "")
> check("//host/shar.e", "//host/shar.e", "")
> 
> 
> check("d:/", "d:/", "")
> check("//host/shar.e/", "//host/shar.e/", "")
> check("/", "/", "")
> 
> 
> check("d:/file.ext", "d:/file", ".ext")
> check("//host/share/file.ext", "//host/share/file", ".ext")
> check("d:file.ext", "d:file", ".ext")
> check("file.ext", "file", ".ext")
> check("/file.ext", "/file", ".ext")
> 
> 
> check("d:/path/t.o/file", "d:/path/t.o/file", "")
> check("//host/shar.e/file", "//host/shar.e/file", "")
> check("//host/share/pa.th/to/file", "//host/share/pa.th/to/file", "")
> check("/path/t.o/file", "/path/t.o/file", "")
> check("path/t.o/file", "path/t.o/file", "")
> 
> 
> check("file"    , "file", "")
> check("file."   , "file.", "")
> check(".file"   , ".file", "")
> check("...ext"  , "...ext", "")
> check("file.ext", "file", ".ext")
> 
> 
> check("file.tar.gz" , "file"  , ".tar.gz" , compression = TRUE)
> check("file.tar.bz2", "file"  , ".tar.bz2", compression = TRUE)
> check("file.tar.xz" , "file"  , ".tar.xz" , compression = TRUE)
> check("file.gz"     , "file"  , ".gz"     , compression = TRUE)
> check("file..gz"    , "file." , ".gz"     , compression = TRUE)
> check(".file.gz"    , ".file" , ".gz"     , compression = TRUE)
> check("...ext.gz"   , "...ext", ".gz"     , compression = TRUE)
> check("file.ext.gz" , "file"  , ".ext.gz" , compression = TRUE)
> 
> 
> check(letters, letters, character(26))
> 
> 
> 
> splitext  <- this.path:::.unix.splitext
> removeext <- this.path:::.unix.removeext
> ext       <- this.path:::.unix.ext
> 
> 
> check(character(), character(), character())
> check("", "", "")
> 
> 
> check("//host/shar.e", "//host/shar.e", "")
> 
> 
> check("//host/shar.e/", "//host/shar.e/", "")
> check("/", "/", "")
> 
> 
> check("//host/shar.e/file", "//host/shar.e/file", "")
> check("/file", "/file", "")
> 
> 
> check("file",     "file", "")
> check("file.",    "file.", "")
> check(".file",    ".file", "")
> check("...ext",   "...ext", "")
> check("file.ext", "file", ".ext")
> 
> 
> check("file.tar.gz" , "file"  , ".tar.gz" , compression = TRUE)
> check("file.tar.bz2", "file"  , ".tar.bz2", compression = TRUE)
> check("file.tar.xz" , "file"  , ".tar.xz" , compression = TRUE)
> check("file.gz"     , "file"  , ".gz"     , compression = TRUE)
> check("file..gz"    , "file." , ".gz"     , compression = TRUE)
> check(".file.gz"    , ".file" , ".gz"     , compression = TRUE)
> check("...ext.gz"   , "...ext", ".gz"     , compression = TRUE)
> check("file.ext.gz" , "file"  , ".ext.gz" , compression = TRUE)
> 
> 
> check(letters, letters, character(26))
> 
> 
> ## windows replacement tests ----
> 
> 
> ext     <- this.path:::.windows.ext
> `ext<-` <- this.path:::`.windows.ext<-`
> 
> 
> x   <- c(NA, "", ""    , "C:"  , "//host/share", "C:/" , "/path/to/fi", "/path/to/.", "/path/to/..", "/"   )
> val <- c("", NA, ".png", ".png", ".png"        , ".png", ".png"       , ".png"      , ".png"       , ".png")
> names(x) <- rev(LETTERS)[seq_along(x)]
> ext(x) <- val
> stopifnot(identical(x, c(Z = NA_character_, Y = NA_character_, X = "", W = "C:", V = "//host/share", U = "C:/", T = "/path/to/fi.png", S = "/path/to/.", R = "/path/to/..", Q = "/")))
> 
> 
> x <- paste0("this.path_1.0.0.tar", c(".gz", ".bz2", ".xz"))
> names(x) <- x
> ext(x, compression = TRUE) <- ".png"
> stopifnot(identical(x, c(this.path_1.0.0.tar.gz = "this.path_1.0.0.png", this.path_1.0.0.tar.bz2 = "this.path_1.0.0.png", this.path_1.0.0.tar.xz = "this.path_1.0.0.png")))
> 
> 
> x   <- c("C:/path/to/file", "C:/path/to/.file", "C:/path/to/file.", "C:/path/to/.....", "C:/path/to/file.jpg", "C:/path/to/file.jpg")
> val <- c(".png"           , ".png"            , ".png"            , ".png"            , ".png"               , ""                   )
> names(x) <- rev(LETTERS)[seq_along(x)]
> ext(x) <- val
> stopifnot(identical(x, c(Z = "C:/path/to/file.png", Y = "C:/path/to/.file.png", X = "C:/path/to/file..png", W = "C:/path/to/.....", V = "C:/path/to/file.png", U = "C:/path/to/file")))
> 
> 
> x <- "a"
> ext(x) <- 5
> stopifnot(identical(x, "a.5"))
> 
> 
> ## unix replacement tests ----
> 
> 
> ext     <- this.path:::.unix.ext
> `ext<-` <- this.path:::`.unix.ext<-`
> 
> 
> x <- "C:.jpg"
> ext(x) <- ".png"
> stopifnot(identical(x, "C:.png"))
> 
> 
> x   <- c(NA, "", ""    , "C:"  , "//host/share", "C:/" , "/path/to/fi", "/path/to/.", "/path/to/..", "/"   )
> val <- c("", NA, ".png", ".png", ".png"        , ".png", ".png"       , ".png"      , ".png"       , ".png")
> names(x) <- rev(LETTERS)[seq_along(x)]
> ext(x) <- val
> stopifnot(identical(x, c(Z = NA_character_, Y = NA_character_, X = "", W = "C:.png", V = "//host/share", U = "C:.png", T = "/path/to/fi.png", S = "/path/to/.", R = "/path/to/..", Q = "/")))
> 
> 
> x <- paste0("this.path_1.0.0.tar", c(".gz", ".bz2", ".xz"))
> names(x) <- x
> ext(x, compression = TRUE) <- ".png"
> stopifnot(identical(x, c(this.path_1.0.0.tar.gz = "this.path_1.0.0.png", this.path_1.0.0.tar.bz2 = "this.path_1.0.0.png", this.path_1.0.0.tar.xz = "this.path_1.0.0.png")))
> 
> 
> x   <- c("/path/to/file", "/path/to/.file", "/path/to/file.", "/path/to/.....", "/path/to/file.jpg", "/path/to/file.jpg")
> val <- c(".png"         , ".png"          , ".png"          , ".png"          , ".png"             , ""                 )
> names(x) <- rev(LETTERS)[seq_along(x)]
> ext(x) <- val
> stopifnot(identical(x, c(Z = "/path/to/file.png", Y = "/path/to/.file.png", X = "/path/to/file..png", W = "/path/to/.....", V = "/path/to/file.png", U = "/path/to/file")))
> 
> 
> x <- "a"
> ext(x) <- 5
> stopifnot(identical(x, "a.5"))
> 
> proc.time()
   user  system elapsed 
   0.14    0.04    0.18