feat: Add function to check whether all versions are git-tagged

R/synchronization.R

@@ -0,0 +1,23 @@
+#' Check whether all versions NEWS.md have been git-tagged
+#'
+#' @return `NULL`
+#'
+#' @example man/examples/check-tags.R
+check_tags <- function() {
+  versions <- get_news_headers()[["version"]]
+  tags <- gsub("^v", "", gert::git_tag_list()[["name"]])
+
+  untagged_versions <- versions[!(versions %in% tags)]
+  if (length(untagged_versions) == 0) {
+    return(NULL)
+  }
+
+  rlang::warn(
+    sprintf(
+      "Version%s with no corresponding tags: %s.",
+      ifelse(length(untagged_versions) == 1, "", "s"),
+      toString(untagged_versions)
+    )
+  )
+  return(NULL)
+}

man/examples/check-tags.R

@@ -0,0 +1,18 @@
+# Create mock package in a temporary directory.
+with_demo_project({
+  # Use functions as if inside the newly created package project.
+  # (Or go and actually run code inside the newly created package project!)
+  # Add a new R file.
+  usethis::use_r("cool-function", open = FALSE)
+  # Pretend we added useful code inside it.
+  # Track the new R file with Git.
+  gert::git_add("R/cool-function.R")
+  gert::git_commit("- Add cool function.")
+  # Bump version with fledge.
+  fledge::bump_version()
+  fledge::update_news(c("- something I forgot", "- blabla"))
+  fledge::update_version()
+  gert::git_add("NEWS.md")
+  gert::git_commit(message = "release notes tweaking")
+  fledge::check_tags()
+})

tests/testthat/_snaps/synchronization.md

@@ -0,0 +1,10 @@
+# check_tags
+
+    Code
+      check_tags()
+    Condition
+      Warning:
+      Version with no corresponding tags: 0.0.0.9000.
+    Output
+      NULL
+

tests/testthat/test-synchronization.R

@@ -0,0 +1,9 @@
+test_that("check_tags", {
+  skip_if_not_installed("rlang", "1.0.1")
+  skip_if_not_installed("testthat", "3.1.2")
+
+  local_demo_project(quiet = TRUE)
+  expect_snapshot(check_tags())
+  shut_up_fledge(tag_version())
+  expect_null(expect_silent(check_tags()))
+})