tests/testthat/test-read_collected_nltts_strees.R

In richelbilderbeek/wiritttea: WIRITTTE analysis

context("read_collected_nltts_strees")

test_that("read_collected_nltts_strees: use", {
  df <- read_collected_nltts_strees()
  expect_true(
    identical(
      names(df),
      c("filename", "sti", "t", "nltt")
    )
  )
})