tests/testthat/test-internal.R

In JBGruber/LexisNexisTools: Working with Files from 'LexisNexis'

context("Internal functions")

test_that("get files throws correct errors", {
  expect_error(LexisNexisTools:::get_files(),
               "No path was given as x.")
  expect_error(LexisNexisTools:::get_files("test.mp3"),
               "Provide either file name(s) ending on txt, rtf, doc, pdf, docx, zip or folder name(s) to x or leave blank to search wd.",
               fixed = TRUE)
})


test_that("check_install", {
  expect_error(LexisNexisTools:::check_install("test"),
               "Package \"test\" is needed for this function to work. Please install it.",
               fixed = TRUE)
})

test_that("trim", {
  expect_equal(LexisNexisTools:::trim("test", 1),
               "t...",
               fixed = TRUE)
  expect_equal(LexisNexisTools:::trim(c("test1", "test2"), 1),
               c("t...", "t..."),
               fixed = TRUE)
  expect_equal(LexisNexisTools:::trim(NA, 1),
               "",
               fixed = TRUE)
  expect_equal(LexisNexisTools:::trim(NULL, 1),
               character(0),
               fixed = TRUE)
})