tests/testthat/test-06-open_new_spreadsheet.R

In Exp-Micro-Ecol-Hub/dmdScheme: Domain Specific MetaData Scheme

context("06-open_new_spreadsheet()")

# x is object -------------------------------------------------------------

fn <- tempfile()

test_that(
  "open_new_spreadsheet() returns path after saving to file and opening - `format = TRUE`",
  {
    expect_equal(
      object = suppressWarnings(open_new_spreadsheet(file = fn, format = FALSE, open = FALSE)),
      expected = fn,
    )
  }
)

test_that(
  "open_new_spreadsheet() reports error when file exist",
  {
    expect_error(
      object = suppressWarnings(open_new_spreadsheet(file = fn, format = FALSE, open = FALSE)),
      regexp = "Error during copying of the file from"
    )
  }
)

test_that(
  "open_new_spreadsheet() returns path when file exist and overwrite = TRUE",
  {
    expect_equal(
      object = suppressWarnings(open_new_spreadsheet(file = fn, format = TRUE, overwrite = TRUE, open = FALSE)),
      expected = fn,
    )
  }
)

##

# test_that(
#   "open_new_spreadsheet() creates file",
#   {
#     expect_true(
#       object = file.exists( suppressWarnings(open_new_spreadsheet(file = NULL, format = FALSE, open = FALSE, overwrite = FALSE) ) )
#     )
#   }
# )

unlink(fn)