1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
source("wrap_examples.R")
context('RcppProgressExample sequential\n')
.test_sequential <- function() {
expect_error(test_sequential(nb = 500), NA)
}
test_that("test_sequential", .test_sequential())
context('RcppProgressExample multithreaded\n')
.test_multithreaded <- function() {
expect_error(test_multithreaded(nb = 1000, threads = 4), NA)
}
test_that("test_multithreaded", .test_multithreaded())
context('RcppProgressArmadillo multithreaded\n')
.amardillo_multithreaded <- function() {
expect_error(amardillo_multithreaded(nb = 1000, threads = 4), NA)
}
test_that("amardillo_multithreaded", .amardillo_multithreaded())
context('RcppProgressETA:custom progress bar\n')
.eta_progress_bar <- function() {
expect_error(eta_progress_bar(nb = 1000), NA)
}
test_that("eta_progress_bar", .eta_progress_bar())
|
