tests/testthat/test-cycle.R

In r-lib/oldie: Tools for Deprecating and Retiring Functions or Arguments

context("cycle")

test_that("components are checked", {
  expect_error(ver_check(ver("0.0.0.0"), n_components = 3), "must have 3 components, not 4")
  expect_error(ver_check(ver("0.100.0"), max_digits = 2), "more than 2 digits")
  expect_error(ver_check(ver("0.99.0"), max_digits = 2), NA)
  expect_error(ver_check(ver("0.0.1"), minor = FALSE), "can't be a minor update")
  expect_error(ver_check(ver("0.1.0"), minor = TRUE), "must be a minor update")
  expect_error(ver_check(ver("0.0.1"), minor = NULL), NA)
})

test_that("cycle must have at least one version", {
  expect_error(new_cycle(""), "`cycle` can't be empty")
  expect_error(new_cycle(c("", "", ""), "`cycle` can't be empty"))
})

test_that("cycles are completed", {
  expect_identical(new_cycle("0.1.0"), new_cycle(c("0.1.0", "0.2.0", "0.3.0")))
  expect_identical(new_cycle(c("0.1.0", "0.2.0")), new_cycle(c("0.1.0", "0.2.0", "0.3.0")))
})

test_that("cycle must be a character vector with 1 to 3 components", {
  expect_error(new_cycle(c("0.0.0", "0.1.0", "0.2.0", "0.4.0")), "must have 1, 2, or 3 components")
  expect_error(new_cycle(chr()), "must have 1, 2, or 3 components")
  expect_error(new_cycle(1L), "can't parse version")
})

test_that("cycle must be monotonic", {
  expect_error(new_cycle(c("0.1.0", "0.1.0")), "must be monotonically increasing")
  expect_error(new_cycle(c("0.2.0", "0.1.0")), "must be monotonically increasing")
})

test_that("versions are trimmed", {
  ver <- ver("0.1.0")

  expect_identical(ver_trim(ver, 4), ver)
  expect_identical(ver_trim(ver, 3), ver)
  expect_identical(ver_trim(ver, 2), ver("0.1"))
})

test_that("new_cycle_chr() handles empty versions", {
  cycle <- c("0.1.0", "", "")
  expect_identical(new_cycle_chr(cycle), cycle)
})