inst/tinytest/test_container.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.")

# Tinytest for <cmd_args/parser/argument/container.h>


Rcpp::sourceCpp("cpp/container_v2.cpp")


ptr1 <- test_container_initializer(FALSE, TRUE)

# 2 and 3 should be identical.
ptr2 <- test_container_initializer(FALSE, FALSE)
ptr2 <- test_container_default_initializer()



arg1 <- list(name = 'test',
             flags = c('-t', '--test'),
             meta = NULL,
             action = 'store',
             option = 'i',
             choices = NULL)
arg2 <- list(name = "foo",
             flags = '--foo',
             meta = 'Fav',
             action = 'store_true',
             option = 'v',
             choices = NULL)
library(tinytest)

expect_silent(test_add_argument(ptr1,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]))

expect_silent(test_add_argument(ptr2,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]))

expect_silent(test_add_argument(ptr3,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]))


expect_silent(test_add_argument(ptr1,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]))

expect_error(test_add_argument(ptr2,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]), pattern = 'Duplicate flag')
expect_error(test_add_argument(ptr3,
                  arg2[["name"]],
                  arg2[["flags"]],
                  arg2[["meta"]],
                  arg2[["action"]],
                  arg2[["option"]],
                  arg2[["choices"]]), pattern = 'Duplicate flag')


expect_equal(test_nflags(ptr1), 3)
expect_equal(test_nflags(ptr2), 3)
expect_equal(test_nflags(ptr2), 3)

expect_equal(test_narguments(ptr1), 3)
expect_equal(test_narguments(ptr2), 2)
expect_equal(test_narguments(ptr2), 2)

expect_true(all(sapply(list(test_getflags(ptr1),
                            test_getflags(ptr2),
                            test_getflags(ptr3)),
                       function(x)all(x %in% c('--foo', '--test', '-t')))))