Nothing
context("oxcalSumSim")
test_that("oxcalSumSim produces error given wrong oxcal result file", {
with_mock(
`executeOxcalScript`= function(...) {
return("ox_output_wrong.js");
}, {
expect_error( suppressWarnings(oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = 10)))
})
})
with_mock(
`executeOxcalScript`= function(...) {
return("ox_sum_work.js");
}, {
file.copy("ox_sum.js", "ox_sum_work.js")
test_that("oxcalSumSim is processed without error given oxcal result file", {
expect_error(suppressWarnings(oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = 10)), NA)
})
file.copy("ox_sum.js", "ox_sum_work.js")
test_that("oxcalSumSim is processed without error given oxcal result file with uniform distribution", {
expect_error(suppressWarnings(oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = 10,date_distribution = "uniform")), NA)
})
file.copy("ox_sum.js", "ox_sum_work.js")
test_that("oxcalSumSim complains when given wrong amount of stds", {
expect_error(oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = c(10,10)), "Please give either one stds")
})
file.copy("ox_sum.js", "ox_sum_work.js")
test_that("oxcalSumSim complains when given wrong distribution", {
expect_error(oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = 10, date_distribution = "kaffeemühle" ), "should be one of")
})
file.copy("ox_sum.js", "ox_sum_work.js")
this_result <- oxcalSumSim(timeframe_begin = -1000, timeframe_end = -2000, n = 10, stds = 10)
test_that("oxcalSimulate is produces an oxcAARCalibratedDate", {
expect_equal(class(this_result), "oxcAARCalibratedDate")
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.