tests/testthat/test-update-corner.R

In greatgray/scorecard: GGCM Model Performance Scorecard

context("Scorecard update corner")

build_filename <- function() {
  ts <- format(lubridate::today("America/Chicago"), "%Y%m%d")
  fs <- paste0(ts,"_scorecard_workspace.RData")
  return(fs)
}

# test_that("Update seeded Bivio transactions",{
#   wsd <- "testdata"
#   tmpdir <- "testdata/tmp"
#   expect_warning( scorecard_update(tmpdir,
#                                    file.path(wsd,"scorecard.yml"),
#                                    file.path(wsd,"seeded.xml.gz")))
#   fs <- build_filename()
#   expect_true(file.exists(file.path(tmpdir,fs)))
#   file.remove(file.path(tmpdir,fs))
# })