inst/examples/duplicate_step/tests/acceptance/setup-steps.R

In cucumber: Behavior-Driven Development for R

given("I have {int} and {int}", function(a, b, context) {
  context$a <- a
  context$b <- b
})

when("I add them", function(context) {
  context$result <- context$a + context$b
})

when("I add them", function(context) {
  context$result <- context$a + context$b
})

then("the result is {int}", function(expected, context) {
  expect_equal(context$result, expected)
})