Nothing
context("test-set_version.R")
test_that("canSetSvptr", {
semver <- parse_version(c("1.2.3", "1.2.4-alpha+bld1"))
res <- as.character(set_version(semver[[1]], "major", 2L))
expect_identical(res, "2.2.3")
res <- as.character(set_version(semver[[1]], "minor", 3L))
expect_identical(res, "1.3.3")
res <- as.character(set_version(semver[[1]], "patch", 4L))
expect_identical(res, "1.2.4")
res <- as.character(set_version(semver[[1]], "prerelease", "alpha"))
expect_identical(res, "1.2.3-alpha")
res <- as.character(set_version(semver[[2]], "build", "bld1.1"))
expect_identical(res, "1.2.4-alpha+bld1.1")
})
test_that("errorWhenSetSvptr", {
semver <- parse_version(c("1.2.3", "1.2.4-alpha+bld1"))
expect_error(
set_version(semver[[1]], "major", "2L"),
"value should be an integer"
)
expect_error(
set_version(semver[[1]], "build", 2L),
"value should be a character string"
)
})
test_that("canDollarAssignSvptr", {
semver <- parse_version(c("1.2.3", "1.2.4-alpha+bld1"))
semver[[1]]$major <- 3L
expect_identical(as.character(semver[[1]]), "3.2.3")
})
test_that("canSetSvlist", {
semver <- parse_version(c("1.2.3", "1.2.4-alpha+bld1"))
res <- as.character(set_version(semver, "major", list(2L)))
expect_identical(res, c("2.2.3", "2.2.4-alpha+bld1"))
res <- as.character(set_version(semver, c("major", "minor"), list(3L)))
expect_identical(res, c("3.2.3", "1.3.4-alpha+bld1"))
res <- as.character(set_version(semver, c("minor"), list(3L, 3L)))
expect_identical(res, c("1.3.3", "1.3.4-alpha+bld1"))
res <- as.character(set_version(semver,
c("prerelease", "build"),
list("hello", "world")))
expect_identical(res, c("1.2.3-hello", "1.2.4-alpha+world"))
})
test_that("errorWhenResetSvptr", {
semver <- parse_version(c("1.2.3", "1.2.4-alpha+bld1"))
expect_error(
set_version(semver, "major", 2L),
"value is not a list"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.