tests/testthat/test-directory-operations.R

In ijlyttle/AzureDatalakeStore: REST API Client for Microsoft Azure Data Lake Store

context("folder operations")

test_that("we can create a directory", {
  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  expect_true(adls_mkdirs(helper$adls, "foo"))
})

test_that("we can see the directory listed", {
  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  # the directory we created is empty
  expect_null(adls_list_status(helper$adls, "foo"))

  # the root directory has only one thing, the "foo" directory
  result <- adls_list_status(helper$adls)

  expect_is(result, "tbl_df")
  expect_identical(nrow(result), 1L)
  expect_identical(result$pathSuffix, "foo")
  expect_identical(result$type, "DIRECTORY")
})

test_that("we can rename the directory", {
  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  # we can rename the directory we just created
  expect_true(adls_rename(helper$adls, "foo", "bar"))

  # the root directory has only one thing, the "bar" directory
  result <- adls_list_status(helper$adls)

  expect_identical(nrow(result), 1L)
  expect_identical(result$pathSuffix, "bar")
  expect_identical(result$type, "DIRECTORY")

})

test_that("we can delete the directory", {
  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  # we can delete the directory we just renamed
  expect_true(adls_delete(helper$adls, "bar"))

  # the root directory is empty
  expect_null(adls_list_status(helper$adls))
})