tests/testthat/test_guess_quote.R

In Athospd/forkliftr: Smart Set of Tools to Stack Tabular Files

library(tibble)
library(dplyr)
library(readr)

context("guess_quote")

# Tiny tables
tiny <- tibble(
  a = c(1, 2, 3),
  b = c("as,df", "as,df", "gf,ds"))
file_tiny1 <- tempfile()
file_tiny2 <- tempfile()
file_tiny_unquoted1 <- tempfile()
write_csv(tiny, file_tiny1)
write_delim(tiny, file_tiny2, ";")
write.csv(tiny, file_tiny_unquoted1, quote = FALSE)

# Tiny table3 - quoted with ' and has comma as both decimal mark and delim.
tiny3 <- c(
  "", "", "", "",
  "'1,1','2,1','3,1','4,1'",
  "'5,1','6,1','7,1','8,1'"
)
file_tiny3 <- tempfile()
writeLines(tiny3, file_tiny3)

test_that("guess_quote can guess from tiny tables", {
  expect_identical(guess_quote(file_tiny1), "\"")
  expect_identical(guess_quote(file_tiny2), "")
  expect_identical(guess_quote(file_tiny3), "\'")
  expect_message(guess_quote(file_tiny1, verbose = TRUE), "probable")
})

test_that("guess_quote can guess that there is no quote", {
  expect_message(guess_quote(file_tiny_unquoted1, verbose = TRUE), "unquoted")
  expect_identical(guess_quote(file_tiny_unquoted1), "")
})