tests/testthat/test-parent_base_ext.R

library(testthat)

test_that("parent_base_ext separates a full path properly",{
  out <- parent_base_ext("directory/file.extension")
  expect_identical(out, list(parent="directory", base="file", ext="extension"))
})
aljabadi/Altools documentation built on Jan. 17, 2022, 8:55 a.m.