tests/testthat/test_read.R

test_that("basic works", {
  path <- "./journals/basic_journal.txt"
  doc <- read_journal(path)
  expect_true(identical(names(doc), c("titles", "posts")))
  expect_true(length(doc$titles)==3)
  expect_true(length(doc$posts)==3)
})



test_that("unusual ones work", {
  path <- "./journals/extra_newlines.txt"
  doc <- read_journal(path)
  expect_true(identical(names(doc), c("titles", "posts")))
  expect_true(length(doc$titles)==3)
  expect_true(length(doc$posts)==3)
  path <- "./journals/no_newlines.txt"
  doc <- read_journal(path)
  expect_true(identical(names(doc), c("titles", "posts")))
  expect_true(length(doc$titles)==3)
  expect_true(length(doc$posts)==3)
  path <- "./journals/all_one_line_except_last.txt"
  doc <- read_journal(path)
  expect_true(identical(names(doc), c("titles", "posts")))
  expect_true(length(doc$titles)==3)
  expect_true(length(doc$posts)==3)
})

  path <- "./tests/testthat/journals/dup_title.txt"

test_that("bad_date prints warning", {
  path <- "./journals/bad_date.txt"
  expect_warning(doc <- read_journal(path))
})

test_that("duplicated title prints warning", {
  path <- "./journals/dup_title.txt"
  expect_warning(doc <- read_journal(path))
})

test_that("whitespace posts have no problems", {
  path <- "./journals/whitespace_posts.txt"
  expect_silent(doc <- read_journal(path))
  expect_true(identical(names(doc), c("titles", "posts")))
  expect_true(length(doc$titles)==4)
  expect_true(length(doc$posts)==4)
})

test_that("an empty post returns an error", {
  path <- "./journals/empty_post.txt"
  expect_error(doc <- read_journal(path))
})
babeheim/journaltools documentation built on June 24, 2019, 8:21 a.m.