increase test coverage

Author: lorenzwalthert

R/set-assert-args.R

@@ -29,7 +29,7 @@ assert_transformers <- function(transformers) {
     )
     message <- paste(
       "Style guides without a name and a version field are depreciated and",
-      action, " in styler >= 1.4. \nIf you are a user: Open an issue on",
+      action, "in styler >= 1.4. \nIf you are a user: Open an issue on",
       "https://github.com/r-lib/styler and provide a reproducible example",
       "of this error. \nIf you are a developer:",
       "When you create a style guide with `styler::create_style_guide()`, the",

tests/testthat/test-exception_handling.R

@@ -22,3 +22,16 @@ test_that("style_file with no tokens returns empty string and warning", {
     "not contain any tokens."
   ))
 })
+
+test_that("warning is given when transformers does not contain a version", {
+  sg <- create_style_guide(style_guide_version = NULL)
+  if (packageVersion("styler") < "1.4") {
+    expect_fun <- expect_warning
+  } else {
+    expect_fun <- expect_error
+  }
+  expect_fun(
+    assert_transformers(sg),
+    "name and a version field are depreciated and won't be supported in styler >= 1.4"
+  )
+})