tests/testthat/test_create_standard_result_columns.R

In thomasWeise/literatureAndResultsGen: A code/data generator package that can be used to build and validate code and data for R packages for presenting literature and results

library("literatureAndResultsGen");
library("testthat");
context("create.standard.result.columns");

test_that("Test create.standard.result.columns", {
  for(are.objective.values.ints in c(TRUE, FALSE)) {
    for(is.time.int in c(TRUE, FALSE)) {
      for(objective.value.lower.bound in c(NA_integer_, 0L, 10L)) {
        for(objective.value.upper.bound in c(NA_integer_, 20L, 50L)) {
          cc <- create.standard.result.columns(are.objective.values.ints,
                                               is.time.int,
                                               objective.value.lower.bound,
                                               objective.value.upper.bound);
          expect_length(cc, 3L);
          expect_identical(names(cc), c("columns", "conditions", "mergers"));
          for(ccc in cc) {
            expect_gt(length(cc), 0L);
          }
        }
      }
    }
  }
})