tests/testthat/test-substitution.R

context("substitution")

setup(start_app())
teardown(stop_app())

test_that("glue errors", {
  expect_error(cli_h1("foo { asdfasdfasdf } bar"))
  expect_error(cli_text("foo {cmd {dsfsdf()}}"))
})

Try the cliapp package in your browser

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

cliapp documentation built on Oct. 23, 2020, 6:36 p.m.