tests/testthat/test-bump.R

In krlmlr/rpkgweb: Managing Webs of R Packages

context("bump")

test_that("formatting", {
  expect_equal(get_sprintf_format("0.0", 2), "%s.%s")
  expect_equal(get_sprintf_format("0.0-0", 2), "%s.%s")
  expect_equal(get_sprintf_format("0.0-0", 3), "%s.%s-%s")
  expect_equal(get_sprintf_format("0.0-0", 5), "%s.%s-%s.%s.%s")
  expect_equal(get_sprintf_format("0.0", 1), "%s.%s")
})

test_that("increasing", {
  expect_equal(increase_version("0.0", 2, "0.0"), "0.1")
  expect_equal(increase_version("0.0-0", 2, "0.0-0"), "0.1")
  expect_equal(increase_version("0.0-10", 3, "0.0-0"), "0.0-11")
  expect_equal(increase_version("0.0-10", 5, "0.0-0"), "0.0-10.0.1")
  expect_equal(increase_version("0.0", 1, "0.0"), "1.0")
  expect_equal(increase_version("0.2", 1, "0.0"), "1.0")
})

test_that("bumping", {
  pkg_path <- "test_web/AA"
  desc <- readLines(file.path(pkg_path, "DESCRIPTION"))
  on.exit(writeLines(desc, file.path(pkg_path, "DESCRIPTION")), add = TRUE)
  expect_message(bump(pkg_path), "bumped to version 0.1")
  expect_message(bump(pkg_path, 3), "bumped to version 0.1-1")
  expect_message(bump(pkg_path, 4), "bumped to version 0.1-1.1")
  expect_message(bump(pkg_path), "bumped to version 0.2")
  expect_message(bump(pkg_path, 1), "bumped to version 1.0")
})