tests/testthat/test-startupmessage.R

test_that("Startup message is ok", {
    expect_equal(
        capture_output_lines(startupmessage()),
        c(
            "  #################################################################  ",
            " #############################   ####################################  ",
            "####             #   ###   #######    ####   ##   ###    ##       ####",
            "#########   #####   ###   ##   ##     ###   ##   ##   ####   ##   ####",
            "########   #####         ##   ##   #   #   ##       #####       ######",
            "#######   #####   ###   ##   ##   ###     ##   ##   ####   ##   ######",
            "######   #####   ###   ##   ##   ####    ##   ####   ##   ####   #####",
            " #################################################################### ",
            "  ##################################################################  "
        )
    )
})
ThinkR-open/thinkr documentation built on Aug. 25, 2022, 2:45 p.m.