tests/testthat/test_print.R

In BenjaminPhillips22/sillyr: Has a few silly function

context("Test the print functions")
library(sillyr)

test_that("silly_print behaves as expected", {
    expect_equal(silly_print("hello"), "silly - hello")
    expect_equal(silly_print("??"), "silly - ??")
})

test_that("print_silly behaves as expected", {
    expect_equal(print_silly("a"), "a - silly")
    expect_equal(print_silly("my name is"), "my name is - silly")
})