Skip to content

Commit 62398fb

Browse files
committed
Add new test
1 parent ec03968 commit 62398fb

File tree

1 file changed

+28
-0
lines changed

1 file changed

+28
-0
lines changed
+28
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
context("benchmark models")
2+
3+
test_that("basic run", {
4+
testthat::skip_on_cran()
5+
6+
set.seed(48)
7+
## complex test after wrong calculation results
8+
## RLumCarlo
9+
TL110 <- RLumCarlo::run_MC_TL_DELOC(
10+
s = 5e12, E = 0.97, R = 5e-10, times = seq(20,400,2),
11+
N_e = output$`conc. level 1 (TL)`[1,2]/1e5, method = "seq")
12+
13+
TL230 <- RLumCarlo::run_MC_TL_DELOC(
14+
s = 5e14, E = 1.55, R = 5e-10, times = seq(20,400,2),
15+
N_e = output$`conc. level 2 (TL)`[1,2]/1e5, method = "seq")
16+
17+
TL325 <- RLumCarlo::run_MC_TL_DELOC(
18+
s = 5e13, E = 1.7, R = 5e-10, times = seq(20,400,2),
19+
N_e = output$`conc. level 3 (TL)`[1,2]/1e5, method = "seq")
20+
21+
## combine
22+
object <- c(TL110, TL230, TL325)
23+
24+
##test result
25+
expect_equal(round(sum(object$signal), digits = 0),10141)
26+
27+
28+
})

0 commit comments

Comments
 (0)