R/ok_group.R

In unittest: TAP-Compliant Unit Testing

# Display debug message before evaluating a code block
ok_group <- function (message, tests = NULL) {
    cat(paste0("# ", unlist(strsplit(message, "[\r\n]+")), "\n", collapse=""), sep = "", file = output_fh(), append = TRUE)
    tests
    invisible(NULL)
}