tests/testthat/test_get_report_date_from_filename.R

In rmsharp/snprcspf: SNPRC SPF Colony Screening Data Software Tool Package

library(snprcspf)
context("get_report_date_from_file_name_test")
run_props <-
  data.frame(name = c("severityLevel",
                      "runDataFile",
                      "runDataUploadedFile",
                      "transformedRunPropertiesFile",
                      "runformedRunPropertiesFile"),
             value = c("", "data_file","uploaded_data_file","runProperties.csv",
                       "properties_file"),
             java_data_type = c("java.lang.String", "java.lang.String",
                                "java.lang.String", "java.lang.String", "java.lang.String"),
             location = c("", "../data/input_file.csv",
                          "../data/uploaded_input_file.csv",
                          "run_properties_file.csv",
                          "run_properties_file.csv"),
             stringsAsFactors = FALSE)

run_error <- list(level = 0, msg = character(0))

file_names <- c(
  "../data/new//Report plate 55 03-21-2014.xlsx",
  "../data/new/spfcolonyplate54.lxd",
  "../data/new//Report plate 68 01-23-2015b.xlsx",
  "../data/new//Report plate 69 02-06-2015.xlsx",
  "../data/new//Report Plate 76  06-09-15 b.xlsx",
  "../data/new//Report Plate 75  05-13-15.xlsx",
  "../data/SPF Colony Testing Plate 89   02-16-16.xlsx",
  "../data/SPF Colony Testing Plate 89   02-16-16-1.xlsx")
file_names2 <- c(
  "../data/SPF Colony Testing Plate 89   18-16-16-1.xlsx",
  "../data/SPF Colony Testing Plate 89   18-16-16-1.xlsx")

test_that("get_report_date_from_file_name returns either correct date or NA", {
  expect_equal(get_report_date_from_filename(file_names, run_props, run_error),
               c("2014-03-21", NA, "2015-01-23", "2015-02-06", "2015-06-09",
                 "2015-05-13", "2016-02-16", "2016-02-16"))})
test_that("get_report_date_from_file_name returns error for bad date", {
  expect_error(get_report_date_from_filename(file_names2, run_props, run_error),
               "The file name date is malformed")})