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))
})

Try the careless package in your browser

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

careless documentation built on Oct. 1, 2023, 9:06 a.m.