tests/testthat/test_parsing_functions.R

In ISAAKiel/oxcAAR: Interface to 'OxCal' Radiocarbon Calibration

context("R_Date")

test_that("R_Date produces correct oxcal code", {
  expect_equal(R_Date("date", 4000, 10), "R_Date(\"date\", 4000, 10);")
}
         )

context("R_Simulate")

test_that("R_Simulate produces correct oxcal code", {
  expect_equal(R_Simulate(4000, 10), "R_Simulate(\"1\",\n          4000, 10);")
})


context("oxcal_Sum")

test_that("oxcal_Sum produces correct oxcal code", {
  expect_equal(oxcal_Sum(R_Simulate(4000, 10)), "Sum(\" Sum \"){\n R_Simulate(\"1\",\n          4000, 10); \n};")
})

context("atomic parsing operations")

test_result <- oxcAAR::readOxcalOutput("ox_output.js")
date_text <- stats::na.omit(do.call(rbind, stringi::stri_match_all_regex(test_result, "^ocd\\[2\\]\\..*")))[, 1]

test_that("extractSigmaValuesFromOxcalResult does is job", {
  expect_equal(
    oxcAAR:::extractSigmaValuesFromOxcalResult(
      date_text,
      "(ocd\\[\\d+\\].likelihood.range\\[1\\]).*?(=\\[)(.*)(\\];)"
    ),
    data.frame(matrix(c(1177, 1292.5, 68.2), 1, 3))
  )
})

context("parseFullOxcalOutput")

test_that("parseFullOxcalOutput parses oxcal output file correct", {
  result <- readOxcalOutput("ox_output.js")
  RVA <- oxcAAR::parseFullOxcalOutput(result)
  expect_equal(length(RVA), 4)
  })