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())
Generated by dwww version 1.15 on Sat Jun 29 10:51:50 CEST 2024.