tests/testthat/test-aozora.R

test_that("aozora works", {
  path <- read_aozora(directory = file.path(getwd()))
  content <- readLines(path, encoding = "UTF-8")
  expect_type(content, "character")
})
paithiov909/ldccr documentation built on Oct. 14, 2024, 3:44 a.m.