tests/testthat/test-inline-strings.R

In tidyxl: Read Untidy Excel Files

# Tests adapted from tidyverse/readxl

context("Inline strings")

test_that("can read sheets with inlineStr", {
  # Original source: http://our.componentone.com/wp-content/uploads/2011/12/TestExcel.xlsx
  # These appear to come from LibreOffice 4.2.7.2.
  x <- xlsx_cells("inlineStr.xlsx")$character
  expect_equal(x[14], "RQ11610")
})

test_that("does not crash on phonetic strings", {
  # https://github.com/nacnudus/tidyxl/issues/30
  expect_error(xlsx_cells("phonetic.xlsx"), NA)
})