tests/testthat/test_run_MC_TL_LOC.R

In RLumCarlo: Monte-Carlo Methods for Simulating Luminescence Phenomena

test_that("basic run", {
  testthat::skip_on_cran()
  local_edition(3)

  ##break the function on purpose
  expect_error(run_MC_TL_LOC(method = "error"), "Allowed keywords for 'method' are either 'par' or 'seq'!")
  expect_error(run_MC_TL_LOC(output = "error"), "Allowed keywords for 'output' are either 'signal' or 'remaining_e'!")

  ## run function with basic setting
  ## sequential and multicore
  results_seq <- expect_silent(run_MC_TL_LOC(
    s = 1e8,
    E = 0.5,
    times = 0:100,
    clusters = 1e1,
    n_filled = 1,
    r = 1e-7,
    method = "seq"
  ))

  results_par <- expect_silent(run_MC_TL_LOC(
    s = 1e8,
    E = 0.5,
    times = 0:100,
    clusters = 1e1,
    n_filled = 1,
    r = 1e-7,
    method = "par"
  ))

  ##check cluster system
  expect_silent(run_MC_TL_LOC(
    s = 1e8,
    E = 0.5,
    times = 0:100,
    clusters = create_ClusterSystem(10),
    n_filled = 100,
    r = 1e-7,
    method = "seq"
  ))

  ## check output
  expect_s3_class(results_par, class = "RLumCarlo_Model_Output")
  expect_length(results_par, 2)
  expect_s3_class(results_seq, class = "RLumCarlo_Model_Output")
  expect_length(results_seq, 2)

})