tests/testthat/test-sitrep.R

In thierrymoudiki/devtools: Tools to Make Developing R Packages Easier

test_that("check_for_rstudio_updates", {
  skip_on_cran()

  # returns nothing rstudio not available
  expect_null(check_for_rstudio_updates("mac", "1.0.0", FALSE))

  # returns nothing if the version is ahead of the current version
  expect_null(check_for_rstudio_updates("mac", "1000.0.0", TRUE))

  # returns something if the version is behind of the current version
  res <- check_for_rstudio_updates("mac", "0.0.1", TRUE)
  expect_match(res, "RStudio .* is now available")
  expect_match(res, "Download at")
})