tests/testthat/test-strings.R

# library(testthat); library(remakeGenerator);
context("strings")
source("utils.R")

test_that("Function strings() is correct.", {
  testwd("strings")
  expect_equal(character(0), strings())
  expect_equal("1", strings(1))
  expect_equal("list(\"foo\", f(c(\"bar\", \"baz\")))", strings(list("foo", f(c("bar", "baz")))))
  testrm("strings")
})
wlandau/remakeGenerator documentation built on May 4, 2019, 8:44 a.m.