skip on R < 4.1, add tests for infix_spaces_linter()

Author: AshesITR

tests/testthat/test-indentation_linter.R

@@ -111,25 +111,6 @@ test_that("indentation linter flags unindented expressions", {
     linter
   )
 
-  # native pipe indents
-  expect_lint(
-    trim_some("
-      a |>
-        foo()
-    "),
-    NULL,
-    linter
-  )
-
-  expect_lint(
-    trim_some("
-      b <- a |>
-        foo()
-    "),
-    NULL,
-    linter
-  )
-
   expect_lint(
     trim_some("
       if (cond)
@@ -686,3 +667,26 @@ test_that("consecutive same-level lints are suppressed", {
     indentation_linter()
   )
 })
+
+test_that("native pipe is supported", {
+  skip_if_not_r_version("4.1")
+  linter <- indentation_linter()
+
+  expect_lint(
+    trim_some("
+      a |>
+        foo()
+    "),
+    NULL,
+    linter
+  )
+
+  expect_lint(
+    trim_some("
+      b <- a |>
+        foo()
+    "),
+    NULL,
+    linter
+  )
+})

tests/testthat/test-infix_spaces_linter.R

@@ -177,3 +177,11 @@ test_that("Rules around missing arguments are respected", {
   expect_lint("switch(a =, b = 2)", lint_msg, linter)
   expect_lint("alist(missing_arg =)", lint_msg, linter)
 })
+
+test_that("native pipe is supported", {
+  skip_if_not_r_version("4.1")
+  linter <- infix_spaces_linter()
+
+  expect_lint("a |> foo()", NULL, linter)
+  expect_lint("a|>foo()", rex::rex("Put spaces around all infix operators."), linter)
+})