tests/testthat/test-Log.R

In VennDiagram: Generate High-Resolution Venn and Euler Plots

#Testing using package testthat for detailed error messages
library(testthat)

#Suppress plotting for sanity
options(device = pdf(file = NULL));

test_that(
    'Disabled log file export', {
        disabled.output <- capture_messages(
            venn.diagram(
                list(A = 1:20, B = 11:30),
                filename = NULL,
                disable.logging = TRUE
                )
            )
        expect_gt(nchar(paste(disabled.output, collapse = "\n")), 0)
        }
    );