tests/testthat/test-function-fileExtension.R

test_that("fileExtension() works", {
  
  paths <- c("C:/example/file.csv", "file2.txt", "D:/e/f/ghi.jkl.zip")
  
  expect_equal(fileExtension(paths), c("csv", "txt", "zip"))
  expect_equal(fileExtension("C:/NEWS"), "")
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.