tests/testthat/test-numeric_versions.R

In smvr: Simple Implementation of Semantic Versioning

test_that("extract can extract components from numeric_version", {
  num_ver <- numeric_version(
    c(
      "1",
      "1.2",
      "1.2.3",
      "1.2.3.4",
      NA
    ),
    strict = FALSE
  )

  major <- extract_major(num_ver)
  minor <- extract_minor(num_ver)
  patch <- extract_patch(num_ver)

  expect_identical(major, c(1L, 1L, 1L, 1L, NA_integer_))
  expect_identical(minor, c(0L, 2L, 2L, 2L, NA_integer_))
  expect_identical(patch, c(0L, 0L, 3L, 3L, NA_integer_))
})