tests/testthat/test-Deprecated_functions.R

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)))
})

#  ------------------------------------------------------------------------
GegznaV/knitrContainer documentation built on April 16, 2023, 1:38 p.m.