provisionr: Provision a Library

context("util")

test_that("check_r_version", {
  expect_equal(check_r_version(NULL), getRversion())
  v <- numeric_version("3.1.2")
  expect_equal(check_r_version("3.1.2"), v)
  expect_equal(check_r_version(v), v)

  ## Error cases:
  expect_error(check_r_version(1), "Invalid type")
  expect_error(check_r_version("one"))
  expect_error(check_r_version(c(v, v)),
               "version must be a scalar")
  expect_error(check_r_version(c("3.1.1", "3.1.2")),
               "version must be a scalar")
})

test_that("r_version_str", {
  expect_equal(r_version_str("3.1.1"), "3.1")
  expect_equal(r_version_str("3.1.1", 3), "3.1.1")
  expect_equal(r_version_str("3.1.1", 1), "3")
  expect_equal(r_version_str(numeric_version("3.1.1")), "3.1")
})

test_that("Unknown version", {
  expect_error(r_version_str("2.9.9"), "2.9.9 is not a known R version")
})

test_that("file_unurl", {
  testthat::with_mock(
    "provisionr::is_windows" = function() FALSE,
    expect_equal(file_unurl("file:///usr/local"), "/usr/local"))
  testthat::with_mock(
    "provisionr::is_windows" = function() TRUE,
    expect_equal(file_unurl("file:///c:/foo"), "c:/foo"))
})

test_that("assertions", {
  expect_error(assert_scalar(NULL), "must be a scalar")
  expect_error(assert_scalar(1:2), "must be a scalar")
  expect_error(assert_scalar(character(0)), "must be a scalar")

  expect_error(assert_nonmissing(NA), "must not be NA")
  expect_error(assert_nonmissing(NA_real_), "must not be NA")

  expect_error(assert_character(1L), "must be character")
  expect_error(assert_character(pi), "must be character")

  expect_error(assert_logical(1L), "must be logical")
  expect_error(assert_logical(pi), "must be logical")

  expect_error(assert_numeric(FALSE), "must be numeric")
  expect_error(assert_numeric("a"), "must be numeric")

  expect_error(assert_is(1, "R6"), "must inherit from R6")

  expect_error(match_value("a", c("b", "c")),
               "\"a\" must be one of {b, c}", fixed = TRUE)
})