tests/testthat/test-createImportTemplates.R

In brownag/NASIStools: Tools for the USDA-NRCS National Soil Information System (NASIS)

test_that("create_ESD_ecosites_import works", {

  expect_warning(create_ESD_ecosites_import("test_esd.csv", c(1,1,1), c("A","A","C")))
  expect_silent(create_ESD_ecosites_import("test_esd.csv", c(1,2,3), c("A","B","C")))

  expect_warning(create_ESD_ecosites_import("test_esd.xlsx", c(1,1,1), c("A","A","C")))
  expect_silent(create_ESD_ecosites_import("test_esd.xlsx", c(1,2,3), c("A","B","C")))

  if (soilDB::local_NASIS_defined()){
    expect_silent(create_note_from_ESD_ecosites("test_esd.xlsx", template = "%s/%s"))
  }

  unlink(c("test_esd.csv", "test_esd.xlsx","test_esd_note.xlsx"))
})