tests/testthat/progresstest/R/test.R

In r-pkgs/boxes: Helpers for Developing Command Line Interfaces

#' @useDynLib progresstest, .registration = TRUE, .fixes = "c_"
NULL

#' @export

test_baseline <- function() {
  .Call(c_test0)
}

#' @export

test_modulo <- function(progress = FALSE) {
  .Call(c_test00, progress)
}

#' @export

test_cli <- function() {
  .Call(c_test1)
}

#' @export

test_cli_unroll <- function() {
  this <- "test2"
  .Call(c_test2)
}

#' @export

testx <- function() {
  this <- "testx"
  .Call(c_testx)
}

test3 <- function() {
  this <- "test3"
  test2()
}

call_with_cleanup <- function(ptr, ...) {
  .Call(c_cleancall_call, pairlist(ptr, ...), parent.frame())
}

testc <- function() {
  this <- "testc"
  call_with_cleanup(c_testc)
}