tests/testthat/test-basenameSansExt.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

test_that("basenameSansExt", {
    path <- c("dir/foo.txt", "bar.tar.gz", "DESCRIPTION")
    expect_identical(
        basenameSansExt(path),
        c("foo", "bar", "DESCRIPTION")
    )
})