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"))
})
ajabadi/Alstuff documentation built on Jan. 19, 2022, 1:43 p.m.