tests/testthat/test-spss-string.R

context("test-spss-string")

test_that("spss.string returns proper output with default settings", {
  expect_equal(spss.string("new_string"), "STRING new_string(A15).")
})
test_that("spss.string returns retrieves specified string.format parameter", {
  expect_equal(spss.string("new_string", string.format = "A35"), "STRING new_string(A35).")
})

Try the syntaxr package in your browser

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

syntaxr documentation built on May 2, 2019, 3:45 a.m.