tests/testthat/test-Deprecated_functions.R

In GegznaV/knitrContainer: Collect and Print Multiple Objects in a `Knitr` R Markdown Report

context("Deprecated_functions")


#  ------------------------------------------------------------------------

test_that("print_objects() throws warning as it is deprecated", {
    cont <- add_as_is(obj = "A")
    expect_warning(capture.output(print_objects(cont)))
})

#  ------------------------------------------------------------------------
test_that("extract_and_print() throws warning as it is deprecated", {
    cont <- add_as_is(obj = "A")
    expect_warning(capture.output(extract_and_print(cont)))
})

#  ------------------------------------------------------------------------