tests/testthat/test_bare_file_name.R

context("Bare file name generation")

test_that(desc = "Bare file name does not contain extension.",
          code = expect_false(grepl(
              x = bare_file_name(x = tempfile(fileext = ".csv")),
              pattern = "csv",
              perl = TRUE
          )))
konradedgar/KEmisc documentation built on April 15, 2021, 1:50 p.m.