tests/testthat/test-10-read_excel.R

In Exp-Micro-Ecol-Hub/emeScheme: Microcosm Experiment Metadata Scheme

context("10-read_excel(schemeName = \"emeScheme\")")


# fail because of file -------------------------------------------------------------

test_that(
  "read_excel() fails when file does not exist",
  {
    expect_error(
      object = read_excel("DOES_NOT_EXIST"),
      regexp = "No such file or directory"
    )
  }
)


test_that(
  "read_excel() fails when file does not have right extension",
  {
    expect_error(
      object = read_excel("DummyForTests"),
      regexp = "If x is a file name, it has to have the extension 'xls' or 'xlsx'"
    )
  }
)


# read from xlsx --- value ----------------------------------------------------------

test_that(
  "read_excel() keepData and raw",
  {
    expect_equal(
      object = read_excel(
        file = scheme_path_xlsx(),
        keepData = TRUE,
        raw = TRUE,
        verbose = FALSE
      ) %>% `attr<-`("fileName", "none"),
      expected = dmdScheme_raw() %>% `attr<-`("fileName", "none")
    )
  }
)

test_that(
  "read_excel() keepData no data and not raw",
  {
    expect_equal(
      object = read_excel(
        file = scheme_path_xlsx(),
        keepData = FALSE,
        raw = FALSE,
        verbose = FALSE
      ) %>% `attr<-`("fileName", "none"),
      expected = dmdScheme() %>% `attr<-`("fileName", "none")
    )
  }
)
#

# # read from xlsx --- output -----------------------------------------------
#
# test_that(
#   "read_excel() keepData and raw",
#   {
#     expect_known_output(
#       object = read_excel(
#         file = system.file("emeScheme.xlsx", package = "emeScheme"),
#         keepData = TRUE,
#         raw = TRUE,
#         verbose = TRUE
#       ),
#       file = "emeScheme_data_raw.output"
#     )
#   }
# )