tests/testthat/test-04-rdrop2-metadata.R

context("Testing drop_get_metadata")

test_that("Able to retrieve metadata for file in multiple ways", {
  skip_on_cran()

  # upload new file to root
  file_name <- traceless("test-drop-get-metadata.csv")
  write.csv(mtcars, file_name)
  drop_upload(file_name)

  # lookup by path
  metadata <- drop_get_metadata(file_name)

  expect_is(metadata, "list")
  expect_equal(metadata$.tag, "file")

  # lookup by id
  expect_identical(metadata, drop_get_metadata(metadata$id))

  # lookup by revision
  expect_identical(metadata, drop_get_metadata(paste0("rev:", metadata$rev)))

  # delete
  drop_delete(file_name)

  # get deleted metadata
  deleted_metadata <- drop_get_metadata(file_name, include_deleted = TRUE)

  expect_is(deleted_metadata, "list")
  expect_equal(deleted_metadata$.tag, "deleted")
  expect_identical(
    metadata[c("name", "path_lower", "path_display")],
    deleted_metadata[c("name", "path_lower", "path_display")]
  )

  # cleanup
  unlink(file_name)
})

Try the rdrop2 package in your browser

Any scripts or data that you put into this service are public.

rdrop2 documentation built on Aug. 5, 2020, 5:07 p.m.