inst/tinytest/test_options.R

In Bijaelo/cmdline.arguments: Flexible and fully customizable commandline tool for R scripting and R based applications

if(is.null(Sys.getenv('CMD_ARG_ALL_TEST')))
  exit_file("Set CMD_ARG_ALL_TEST environment variable to run these tests in this file.")


# Test for <cmd_args/utils/converters.h>
Rcpp::sourceCpp('cpp/options.cpp')

options <- c('individual', 'vectors', 'combine')

expect_equivalent(0:2, sapply(options, test_option, msg = "hello world"))

expect_inherits(test_option_xptr(options[1], msg = "hello world"), 'externalptr')

expect_error(test_option('kaos'))

expect_equivalent(test_option('iddaaadfsdf', msg = "hello world"), 0)

expect_error(test_option(NA_character_, "hello world"))

rm(options)