Merge pull request #5 from jakubsob/4-indentation

✨ Allow setting feature file indentation

.github/workflows/R-CMD-check.yaml

@@ -2,9 +2,9 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches: [main, master]
+    branches: [main, master, dev]
   pull_request:
-    branches: [main, master]
+    branches: [main, master, dev]
 
 name: R-CMD-check
 

.github/workflows/test-coverage.yaml

@@ -2,9 +2,9 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches: [main, master]
+    branches: [main, master, dev]
   pull_request:
-    branches: [main, master]
+    branches: [main, master, dev]
 
 name: test-coverage
 

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: cucumber
 Type: Package
 Title: Behavior-Driven Development for R
-Version: 1.1.0
+Version: 1.1.1
 Authors@R: person("Jakub", "Sobolewski", email = "[email protected]", role = c("aut", "cre"))
 Description: Write executable specifications in a natural language that describes how your code should behave.
     Write specifications in feature files using 'Gherkin' language and execute them using functions implemented in R.
@@ -24,6 +24,7 @@ Suggests:
 Config/testthat/edition: 3
 Imports:
     checkmate,
+    cli,
     dplyr,
     fs,
     glue,

NAMESPACE

@@ -16,6 +16,7 @@ importFrom(checkmate,assert_string)
 importFrom(checkmate,assert_subset)
 importFrom(checkmate,test_character)
 importFrom(checkmate,test_subset)
+importFrom(cli,cli_abort)
 importFrom(dplyr,bind_cols)
 importFrom(fs,dir_ls)
 importFrom(glue,glue)

NEWS.md

@@ -1,3 +1,8 @@
+# cucumber 1.1.1
+
+- ✨ Added option to set the indent of feature files. Useful when you use a different indent than the default 2 whitespaces. All user-facing options are documented in `?cucumber::opts`. (#5)
+- ✨ Added validation of feature files to check if they have a consistent indentation. (#5)
+
 # cucumber 1.1.0
 
 - ✨ Added scenario `before` and `after` hooks.

R/options.R

@@ -0,0 +1,26 @@
+#' {cucumber} Options
+#'
+#' Internally used, package-specific options.
+#' They allow overriding the default behavior of the package.
+#'
+#' @details
+#'
+#' The following options are available:
+#'
+#' - `cucumber.indent`
+#'
+#'   Regular expression for the indent of the feature files.
+#'
+#'   default: `^\\s{2}`
+#'
+#' - `cucumber.interactive`
+#'
+#'   Logical value indicating whether to ask which feature files to run.
+#'
+#'   default: `FALSE`
+#'
+#' See [base::options()] and [base::getOption()] on how to work with options.
+#'
+#' @md
+#' @name opts
+NULL

R/test.R

@@ -56,6 +56,7 @@ test <- function(
   } # nocov end
   feature_files |>
     map(readLines) |>
+    map(validate_feature) |>
     map(normalize_feature) |>
     walk(run, steps = steps, parameters = get_parameters())
 }

R/tokenize.R

@@ -1,4 +1,3 @@
-INDENT <- "^\\s{2}"
 NODE_REGEX <- paste0(
   "^(?!\\s+)(",
   paste0(
@@ -32,7 +31,7 @@ remove_trailing_colon <- function(x) {
 
 #' @importFrom stringr str_remove_all
 remove_indent <- function(x) {
-  str_remove_all(x, INDENT)
+  str_remove_all(x, getOption("cucumber.indent", default = "^\\s{2}"))
 }
 
 #' @importFrom stringr str_detect

R/validate.R

@@ -0,0 +1,25 @@
+#' Validate lines read from a feature file
+#' @keywords internal
+validate_feature <- function(lines) {
+  # Remove comments and empty lines for validation
+  clean_lines <- remove_comments(remove_empty_lines(lines))
+  clean_lines |>
+    validate_indentation()
+  invisible(lines)
+}
+
+#' @keywords internal
+#' @importFrom stringr str_detect
+#' @importFrom cli cli_abort
+validate_indentation <- function(lines) {
+  indent <- getOption("cucumber.indent", default = "^\\s{2}")
+  test_lines <- lines[!str_detect(lines, "^Feature")] |>
+    remove_empty_lines()
+  if (any(!str_detect(test_lines, indent))) {
+    cli_abort(c(
+      "All lines must be indented with {indent}",
+      "i" = "Check the {.code getOption('cucumber.indent')} option if it is set to your feature file indent."
+    ))
+  }
+  invisible(lines)
+}

tests/testthat/_snaps/examples.md

@@ -177,16 +177,16 @@
       --------------------------------------------------------------------------------
       Failure ('test-cucumber.R:1:1'): Scenario: Adding integer and float
       context$result (`actual`) not equal to `expected` (`expected`).
-      `actual`: 2
-      `expected`: 5
+      `actual`: 2.1
+      `expected`: 5.0
       Backtrace:
       x
       1. \-global `<step>`(expected = 5L, context = `<env>`)
       2.   \-testthat::expect_equal(context$result, expected) at ./steps/addition.R:7:3
       Failure ('test-cucumber.R:1:1'): Scenario: Adding float and float
       context$result (`actual`) not equal to `expected` (`expected`).
-      `actual`: 2
-      `expected`: 5
+      `actual`: 2.2
+      `expected`: 5.0
       Backtrace:
       x
       1. \-global `<step>`(expected = 5L, context = `<env>`)
@@ -207,16 +207,16 @@
       -- Failed tests ----------------------------------------------------------------
       Failure ('test-cucumber.R:1:1'): Scenario: Adding integer and float
       context$result (`actual`) not equal to `expected` (`expected`).
-      `actual`: 2
-      `expected`: 5
+      `actual`: 2.1
+      `expected`: 5.0
       Backtrace:
       x
       1. \-global `<step>`(expected = 5L, context = `<env>`)
       2.   \-testthat::expect_equal(context$result, expected) at ./steps/addition.R:7:3
       Failure ('test-cucumber.R:1:1'): Scenario: Adding float and float
       context$result (`actual`) not equal to `expected` (`expected`).
-      `actual`: 2
-      `expected`: 5
+      `actual`: 2.2
+      `expected`: 5.0
       Backtrace:
       x
       1. \-global `<step>`(expected = 5L, context = `<env>`)

tests/testthat/_snaps/validate.md

@@ -0,0 +1,5 @@
+# validate_feature: should validate indent
+
+    All lines must be indented with ^\s{4}
+    i Check the `getOption('cucumber.indent')` option if it is set to your feature file indent.
+

tests/testthat/test-examples.R

@@ -36,6 +36,11 @@ describe("test", {
   })
 
   it("should run with shinytest2", {
+    # nolint start
+    # Produces on r-devel:
+    # Superclass process has cloneable=FALSE, but subclass r_process has cloneable=TRUE. A subclass cannot be cloneable when its superclass is not cloneable, so cloning will be disabled for r_process.
+    # nolint end
+    skip_if(R.version$status == "Under development (unstable)")
     test_example("examples/shinytest2")
   })
 

tests/testthat/test-tokenize.R

@@ -454,4 +454,53 @@ describe("parse", {
       )
     )
   })
+
+  it("should parse feature files with 4 spaces indent", {
+    # Arrange
+    lines <- c(
+      "Feature: Guess the word",
+      "    Scenario: Maker starts a game",
+      "        When the Maker starts a game",
+      "        Then the Maker waits for a Breaker to join"
+    )
+    indent <- "^\\s{4}"
+
+    # Act
+    withr::with_options(list(cucumber.indent = indent), {
+      result <- tokenize(lines)
+    })
+
+    # Assert
+    expect_equal(
+      result,
+      list(
+        list(
+          type = "Feature",
+          value = "Guess the word",
+          children = list(
+            list(
+              type = "Scenario",
+              value = "Maker starts a game",
+              children = list(
+                list(
+                  type = "When",
+                  value = "the Maker starts a game",
+                  children = NULL,
+                  data = NULL
+                ),
+                list(
+                  type = "Then",
+                  value = "the Maker waits for a Breaker to join",
+                  children = NULL,
+                  data = NULL
+                )
+              ),
+              data = NULL
+            )
+          ),
+          data = NULL
+        )
+      )
+    )
+  })
 })

tests/testthat/test-validate.R

@@ -0,0 +1,33 @@
+describe("validate_feature", {
+  it("shouldn't produce error feature with valid indentation", {
+    withr::with_options(list(cucumber.indent = "^\\s{2}"), {
+      expect_no_error(
+        validate_feature(
+          c(
+            "Feature: foo",
+            "  Scenario: bar",
+            "    Given foo",
+            "    When foo",
+            "    Then foo"
+          )
+        )
+      )
+    })
+  })
+
+  it("should validate indent", {
+    withr::with_options(list(cucumber.indent = "^\\s{4}"), {
+      expect_snapshot_error(
+        validate_feature(
+          c(
+            "Feature: foo",
+            "  Scenario: bar",
+            "    Given foo",
+            "    When foo",
+            "    Then foo"
+          )
+        )
+      )
+    })
+  })
+})