tests/testthat/test-iconv.R

In fpeek: Check Text Files Content at a Glance

context("iconv tests")

file <- system.file(package = "fpeek", "datafiles", "cigfou-ISO-8859-1.txt")

test_that("ckeck head output", {

  skip_if_not( l10n_info()$`UTF-8` )

  file_utf8 <- tempfile()
  peek_iconv(path = file, newfile = file_utf8, from = "ISO-8859-1", to = "UTF-8")

  content <- c("La Cigale et la Fourmi", "", "La Cigale, ayant chanté",
               "Tout l'été,", "Se trouva fort dépourvue")

  expect_output(peek_head(file_utf8, n = 5), paste(content, collapse = "\n") )
})