tests/testthat/test_oxcaarcalibrateddate.R

In oxcAAR: Interface to 'OxCal' Radiocarbon Calibration

context("format.oxcAARCalibratedDate")

result <- readOxcalOutput("ox_output.js")
this_date <- parseOxcalOutput(result)[[1]]
this_date$name <- "my_date"

test_that("format is delegated to format.oxcAARCalibratedDate on a oxcAARCalibratedDate", {
  expect_match(format(this_date), "BP")
  expect_match(format(this_date), "std")
  expect_match(format(this_date), "sigma")
  expect_match(format(this_date), "Atmospheric")
})

test_that("format.oxcAARCalibratedDate returns a character string", {
  expect_is(format(this_date),"character")
})

test_that("format.oxcAARCalibratedDate returns no output", {
  expect_silent(format(this_date))
})

context("print.oxcAARCalibratedDate")

test_that("print is delegated to print.oxcAARCalibratedDate on a oxcAARCalibratedDate", {
  expect_output(print(this_date), "BP")
})

# Dummy test for plots

context("plot.oxcAARCalibratedDate")

test_that("plot produces no error", {
  expect_error(plot( this_date), NA)
})

context("is.oxcAARCalibratedDate")

test_that("is.oxcAARCalibratedDate distinguishes between objects", {
  expect_true(is.oxcAARCalibratedDate(this_date))
  expect_false(is.oxcAARCalibratedDate(data.frame(test=NA)))
})