tests/testthat/test-assert-version-package.R

In OuhscBbmc/OuhscMunge: Data Manipulation Operations

library(testthat)

test_that("old minimum", {
  r <- assert_version_package("base", "3.1.0")
  expect_true(r)

  r <- assert_version_package("OuhscMunge", "0.1.0")
  expect_true(r)

  assert_version_package("base", package_version("3.1.0"))
  expect_true(r)

  assert_version_package("OuhscMunge", package_version("0.1.0"))
  expect_true(r)
})

test_that("minimum that throws an error -base", {
  expected_error_message <- "Your version of the `base` package is too old"
  expect_error(
    assert_version_package("base", "99.1.0"),
    expected_error_message
  )

  expect_error(
    assert_version_package("base", package_version("99.1.0")),
    expected_error_message
  )
})
test_that("minimum that throws an error -tibble", {
  expected_error_message <- "Your version of the `tibble` package is too old"
  expect_error(
    assert_version_package("tibble", "99.1.0"),
    expected_error_message
  )

  expect_error(
    assert_version_package("tibble", package_version("99.1.0")),
    expected_error_message
  )
})
test_that("minimum that throws an error with installation code", {
  expected_error_message <- 'Your version of the `OuhscMunge` package is too old\\.  It is [\\.\\d]+, but needs to be at least 99\\.1.0.  Install the package with `remotes::install_github\\("OuhscBbmc/OuhscMunge"\\)`.  Afterwards, please restart the R session.'
  expect_error(
    assert_version_package(
      package_name      = "OuhscMunge",
      minimum           = "99.1.0",
      installation_code = 'remotes::install_github("OuhscBbmc/OuhscMunge")'
    ),
    regexp = expected_error_message,
    perl   = TRUE
  )

  expect_error(
    assert_version_package(
      package_name      = "OuhscMunge",
      minimum           = package_version("99.1.0"),
      installation_code = 'remotes::install_github("OuhscBbmc/OuhscMunge")'
    ),
    regexp = expected_error_message,
    perl   = TRUE
  )
})
test_that("missing package throws an error", {
  expected_error_message <- "The package 'tibbleeee' not installed\\.  Afterwards, please restart the R session\\."

  expect_error(
    assert_version_package("tibbleeee", "99.1.0"),
    expected_error_message
  )

  expect_error(
    assert_version_package("tibbleeee", package_version("99.1.0")),
    expected_error_message
  )
})