tests/testthat/test-rstudio.R

In r-lib/asciicast: Create 'Ascii' Screen Casts from R Scripts

test_that("is_rstudio", {
  expect_false(is_rstudio())

  mockery::stub(is_rstudio, "loadedNamespaces", "rstudioapi")
  mockery::stub(is_rstudio, "rstudioapi::isAvailable", TRUE)
  expect_true(is_rstudio())
})

test_that("view_image_in_rstudio", {
  dir.create(tmp <- tempfile())
  path2 <- file.path(tmp, "out.html")
  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)

  path <- NULL
  on.exit(unlink(path), add = TRUE)

  mockery::stub(
    view_image_in_rstudio,
    "rstudioapi::viewer",
    function(x) path <<- x
  )

  view_image_in_rstudio(tempdir())
  expect_false(is.null(path))

  file.copy(path, path2)
  expect_snapshot_file(
    path2,
    transform = function(x) {
      sub('asciicast-preview-[^"]*"', 'asciicast-preview-xxx"', x)
    },
    variant = os_type()
  )
})