tests/testthat/test-check_embargo_date.R

context("Tests check for embargo date")

test_that("Flags passed date", {
  metadata <- list("nid" = "007")
  metadata$field_wbddh_ds_embargo_date$und[[1]]$value <- "1997-06-26 00:00:00"
  expect_equal(
    check_embargo_date(metadata),
    list("dataset", "007", "check_embargo_date", "FAIL", "embargo date has passed")
  )
})

test_that("Ok with empty date", {
  metadata <- list("nid" = "007")
  metadata$field_wbddh_ds_embargo_date$und[[1]]$value <- ""
  expect_equal(
    check_embargo_date(metadata),
    list("dataset", "007", "check_embargo_date", "PASS", "there is no embargo date")
  )
})

test_that("Ok with future date", {
  metadata <- list("nid" = "007")
  metadata$field_wbddh_ds_embargo_date$und[[1]]$value <- "2027-06-26 00:00:00"
  expect_equal(
    check_embargo_date(metadata),
    list("dataset", "007", "check_embargo_date", "PASS", "embargo date hasn't passed")
  )
})
tonyfujs/ddhqa documentation built on May 20, 2019, 3:03 p.m.