tests/testthat/test-recursion.R

context("recursive")

test_that(
  "recursive append recursion token",
  {
    expected <- as.regex("foo(?R)")
    actual <- recursive("foo")
    expect_equal(actual, expected)
  }
)

Try the rebus.base package in your browser

Any scripts or data that you put into this service are public.

rebus.base documentation built on May 2, 2019, 5:14 a.m.