tests/testthat/test-console.R

In whereami: Reliably Return the Source and Call Location of a Command

context("console functionality")

testthat::describe("console functionality", {
  skip_if_not_rstudio()
  rstudioapi::sendToConsole("x <- whereami()")

  it("class", {
    testthat::expect_true(inherits(x, c("whereami","character")))
  })

  it("value", {
    testthat::expect_equal(basename(x[1]), "Console")
  })

  #rstudioapi::sendToConsole("cat('\f')")
})