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")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.