tests/testthat/test-validate_model_folder.R

In covid19-forecast-hub-europe/HubValidations: Validate Data Submitted to a Modeling Hub

test_that("Output class", {

  res <- validate_model(
    "example-model",
    data_folder = system.file("testdata", "data-processed", package = "HubValidations"),
    metadata_folder = system.file("testdata", "model-metadata", package = "HubValidations"),
    system.file("testdata", "schema-data.yml", package = "HubValidations"),
    system.file("testdata", "schema-metadata.yml", package = "HubValidations")
  )

  expect_s3_class(res, c("fhub_validations", "list"))

  expect_true(all(map_lgl(res, rlang::is_condition)))

  expect_true(all(purrr::map_int(res, length) == 3L))

})

test_that("Successful validation", {

  res <- validate_model(
    "example-model",
    data_folder = system.file("testdata", "data-processed", package = "HubValidations"),
    metadata_folder = system.file("testdata", "model-metadata", package = "HubValidations"),
    system.file("testdata", "schema-data.yml", package = "HubValidations"),
    system.file("testdata", "schema-metadata.yml", package = "HubValidations")
  )

  expect_true(all(map_lgl(res, rlang::is_message)))

  expect_true(all(map_lgl(res, ~ rlang::inherits_any(.x, "fhub_success"))))

})

test_that("Failed validation", {

  tdir <- fs::path(tempdir(), "failed_fh_validations")

  withr::with_dir(tdir, {
    res <- expect_silent({
      validate_model(
        "example-model",
        fs::path("testdata", "data-processed"),
        fs::path("testdata", "model-metadata"),
        fs::path("testdata", "schema-data.yml"),
        fs::path("testdata", "schema-metadata.yml")
      )
    })
  })

  expect_true(any(map_lgl(res, rlang::is_warning)))

  expect_true(any(map_lgl(res, ~ rlang::inherits_any(.x, "fhub_failure"))))

})

test_that("Number of validations", {

  res <- validate_model(
    "example-model",
    data_folder = system.file("testdata", "data-processed", package = "HubValidations"),
    metadata_folder = system.file("testdata", "model-metadata", package = "HubValidations"),
    system.file("testdata", "schema-data.yml", package = "HubValidations"),
    system.file("testdata", "schema-metadata.yml", package = "HubValidations")
  )

  expect_length(res, 12L)

})