tests/testthat/test-function-windowsPath.R

test_that("windowsPath() and rStylePath() work", {

  x <- "a/b/c"
  y <- windowsPath(x)
  
  expect_identical(hsCountInStr("\\\\", y), hsCountInStr("/", x))
  expect_identical(rStylePath(y), x)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.