tests/testthat/test-pre_release_ids.R

In smvr: Simple Implementation of Semantic Versioning

test_that("pre_release_ids construction and empty rules", {
  expect_snapshot(new_pre_release_ids("alpha", "", "1", "", ""), error = TRUE)
})

test_that("format.pre_release_ids works", {
  x <- new_pre_release_ids("alpha", "1")
  expect_equal(format(x), "alpha.1")
  y <- new_pre_release_ids("alpha")
  expect_equal(format(y), "alpha")
})

test_that("pre_release_ids comparison", {
  expect_true(
    new_pre_release_ids("alpha", "1") > new_pre_release_ids("alpha", "0")
  )
  expect_true(
    new_pre_release_ids("alpha", "1") == new_pre_release_ids("alpha", "1")
  )
  expect_true(
    new_pre_release_ids("alpha", "1") > new_pre_release_ids("alpha")
  )
  expect_true(
    new_pre_release_ids("alpha", "foo") > new_pre_release_ids("alpha")
  )
  expect_true(
    new_pre_release_ids("alpha", "10") > new_pre_release_ids("alpha", "2")
  )
  # The identifier_type attribute is consistent across all values,
  # so when comparing through the vector, the result sometimes unexpectedly
  expect_identical(
    # alphanumeric
    new_pre_release_ids(c("10", "1", "a")) > new_pre_release_ids("2"),
    c(TRUE, FALSE, TRUE)
  )
  expect_identical(
    # numeric
    new_pre_release_ids(c("10", "1", "0")) > new_pre_release_ids("2"),
    c(TRUE, FALSE, FALSE)
  )
})

test_that("NA can be cast to pre_release_ids", {
  expect_identical(
    vec_c(
      NA,
      NA,
      new_pre_release_ids(
        new_pre_release_identifier("rc"),
        new_pre_release_identifier("1")
      )
    ),
    new_pre_release_ids(
      vec_c(NA, NA, new_pre_release_identifier("rc")),
      vec_c("", "", new_pre_release_identifier("1"))
    )
  )
})

test_that("cast from/to character", {
  expect_identical(
    vec_cast(
      new_pre_release_ids(c("alpha", "beta", "rc", NA), "1"),
      character()
    ),
    c("alpha.1", "beta.1", "rc.1", NA)
  )
  expect_snapshot(
    vec_cast(
      c("alpha.1", "beta.2", "rc.3", NA),
      new_pre_release_ids()
    )
  )
})