test_that("parse_semver parses valid semver strings", {
  x <- parse_semver(c(
    "1.2.3",
    "1.2.3-alpha.1",
    "2.0.0+build.5",
    "1.2.3-alpha+abcde",
    NA
  ))
  expect_snapshot(x)
})

test_that("parse_pre_release_ids parses valid pre-release identifiers", {
  x <- parse_pre_release_ids(c("alpha.1.2", "beta.2.3.4", "", NA))
  expect_snapshot(x)
})

test_that("parse_semver rejects invalid semver strings", {
  expect_snapshot(parse_semver(""))
  expect_snapshot(parse_semver("01.2.3"))
  expect_snapshot(parse_semver("1.02.3"))
  expect_snapshot(parse_semver("1.2.03"))
})

test_that("parse_pre_release_ids rejects invalid pre-release identifiers", {
  expect_snapshot(parse_pre_release_ids(c("alpha..beta", "..", "--", "1.2.3.")))
})

test_that("Supports more than 5 pre-release identifiers", {
  expect_snapshot(parse_semver("1.2.3-alpha.1.2.3.4.5.6.7.8.9"))
  expect_snapshot(parse_pre_release_ids("alpha.1.2.3.4.5.6.7.8.9"))
})