# test for 'namespace' arg. ----
test_that("pulling SDFs via 'name' is succesful", {
  temp_dir <- tempdir(check = TRUE)

  tmp <- try(get_sdf(
    identifier = "aspirin",
    namespace = "name",
    path = temp_dir,
    file_name = "file"
  ))

  expect_true(file.exists(temp_dir))
  expect_true(file.exists(file.path(temp_dir, "file.sdf")))

  file.remove(file.path(temp_dir, "file.sdf"))
  file.remove(temp_dir)
})

test_that("pulling SDFs via 'cid' is succesful", {
  temp_dir <- tempdir(check = TRUE)

  tmp <- try(get_sdf(
    identifier = 2244,
    namespace = "cid",
    path = temp_dir,
    file_name = "file"
  ))

  expect_true(file.exists(temp_dir))
  expect_true(file.exists(file.path(temp_dir, "file.sdf")))

  file.remove(file.path(temp_dir, "file.sdf"))
  file.remove(temp_dir)
})

test_that("no SDF file saved for unknown/incorrect identifiers", {
  temp_dir <- tempdir(check = TRUE)

  expect_message({
    tmp <- try(get_sdf(
      identifier = "dncr",
      namespace = "name",
      path = temp_dir,
      file_name = "file"
    ))
  })

  expect_null(tmp)

  file.remove(temp_dir)
})

# test_that("save SDF files to temporary working directory when path is not specified.", {
#
#   tmp <- try(get_sdf(
#     identifier = "aspirin",
#     namespace = "name",
#     file_name = "file",
#     path = NULL
#   ))
#
#   default_path <- temp_dir
#   expect_true(file.exists(default_path))
#   expect_true(file.exists(file.path(default_path, "file.sdf")))
#
#   file.remove(file.path(default_path, "file.sdf"))
# })