tests/testthat/test-longstring.R

context("test-longstring.R")

fname <- system.file("testdata", "lonstring-test-data.csv", package="careless")
ls.test.data <- read.csv(fname, header=T)

test_that("basic longstring output is correct", {
  expect_identical(longstring(ls.test.data), c(1:9*10,10))
})
ryentes/careless documentation built on Oct. 4, 2023, 8:58 a.m.