test_that("add_information_to_doc_body can add information to a list", {
  # nothing added
  expect_equal(add_information_to_doc_body(list()), list())
  # template_id
  expect_error(add_information_to_doc_body(list(), template_id = "incorrect ID"))
  # TODO: how to test an API?
  # TODO below how to check a correct but non-existing template and think about the attachments
  # expect_error(add_information_to_doc_body(list(), template_id = "SD001"))
  # expect_equal(add_information_to_doc_body(list(), folder_id = "SD123", tags = "test", attachment = list("7" = "hoi.txt")))

  expect_equal(
    add_information_to_doc_body(list(), folder_id = "SD123", tags = "test"),
    list(parentFolderId = 123, tags = "test")
  )
})

test_that("create_rspace_document_name can process a document name", {
  sections <- helper_get_sections()
  # Check document name
  expect_equal(create_rspace_document_name(
    path = "minimal_excel.xlsx",
    sections = NULL, document_name = "thisone"
  ), "thisone")
  expect_error(create_rspace_document_name(path = "minimal_excel.xlsx", sections = NULL, document_name = NA))
  expect_error(create_rspace_document_name(path = "minimal_excel.xlsx", sections = NULL, document_name = 123))
  # Check to get name from sections in the order that is in the user manual
  expect_equal(create_rspace_document_name(
    path = "minimal_excel.xlsx",
    sections = sections, document_name = "thisone"
  ), "thisone")
  expect_equal(create_rspace_document_name(path = "minimal_excel.xlsx", sections = sections), "The title")
  expect_equal(create_rspace_document_name(path = "minimal_excel.xlsx", sections = sections[2:6, ]), "test")
  expect_equal(create_rspace_document_name(path = "minimal_excel.xlsx", sections = sections[3:6, ]), "small title")
  expect_equal(create_rspace_document_name(path = "minimal_excel.xlsx", sections = sections[4:6, ]), "smaller name")
  # Get the name from a file path
  expect_equal(
    create_rspace_document_name(path = "some_path/minimal_excel.xlsx", sections = sections[5:6, ]),
    "minimal_excel"
  )
})

test_that("tabfile_to_doc_body can create a doc body", {
  # these should work
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_excel.xlsx"), verbose = FALSE, file_type = "xlsx"), "list")
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_csv1.csv"), verbose = FALSE, file_type = "csv"), "list")
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_tsv.txt"), verbose = FALSE, file_type = "tsv"), "list")
  # guess file format. should also work
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_excel.xlsx"), verbose = FALSE), "list")
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_csv1.csv"), verbose = FALSE), "list")
  # this one should be too hard to guess because tsv file saved as .txt without specifying that it is tab-separated.
  expect_error(tabfile_to_doc_body(path = testthat::test_path("minimal_tsv.txt"), verbose = FALSE))
  # test verbose
  expect_type(tabfile_to_doc_body(path = testthat::test_path("minimal_excel.xlsx"), verbose = FALSE, file_type = "xlsx"), "list")
  # not existing file
  expect_error(tabfile_to_doc_body(path = "not_existing_file.xlsx", verbose = FALSE, file_type = ".xlsx"))
  # incorrect excel file type specified
  expect_error(tabfile_to_doc_body(path = testthat::test_path("minimal_excel.xlsx"), verbose = FALSE, file_type = ".xlsx"))
})