tests/testthat/projects/test_simple_teardown_failure/test/lib/controllers/person.R

test_that("it can parse a simple person", {
  input <- list(first_name = "Foo", last_name = "Bar, Ph.D.")
  expect_equal(
    `environment<-`(resource()$parser, environment())(),
    utils::person("Foo", "Bar, Ph.D.")
  )
})
robertzk/syberia documentation built on May 27, 2019, 11:37 a.m.