tests/testthat/test_getDatedFilename.R

In nprcgenekeepr: Genetic Tools for Colony Management

#' Copyright(c) 2017-2024 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("getDatedFilename")
library(testthat)
library(lubridate)
library(stringi)
dateStamp <- stri_replace_all_fixed(
  stri_replace_all_fixed(as.character(now()), " ", "_"), ":", "_"
)
test_that("getDatedFilename form correctly dated file name", {
  expect_equal(
    stri_sub(getDatedFilename("testName"), 1L, 13L),
    stri_sub(stri_c(dateStamp, "_", "testName"), 1L, 13L)
  )
  root_name <- stri_split_fixed(getDatedFilename("testName"), "_",
    simplify = TRUE
  )
  expect_identical(root_name[length(root_name)], "testName")
})