tests/testthat/test-file-open.R

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

context("file open")

library("httr")
library("readr")
library("digest")
library("utils")

# see helper.R for setup

# write file(s?) to data lake
if (interactive()){

  filename_csv_original <- tempfile(fileext = ".csv")
  write_csv(iris, filename_csv_original)

  adls_create(
    helper$adls,
    file = upload_file(filename_csv_original),
    path = "iris.csv",
    overwrite = FALSE
  )

  filename_zip_original <- tempfile(fileext = ".zip")
  zip(filename_zip_original, filename_csv_original)

  adls_create(
    helper$adls,
    file = upload_file(filename_zip_original),
    path = "iris.zip",
    overwrite = FALSE
  )

}

test_that("the text is the same", {

  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  text_original <- read_file(filename_csv_original)
  text_test <- adls_open_to_text(
    helper$adls,
    path = "iris.csv"
  )

  expect_identical(text_test, text_original)

})


test_that("the file is the same", {

  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  filename_csv_test <- tempfile(fileext = ".csv")
  text_test <- adls_open_to_file(
    helper$adls,
    path = "iris.csv",
    path_local = filename_csv_test
  )

  expect_identical(
    digest(filename_csv_original, file = TRUE),
    digest(filename_csv_test, file = TRUE)
  )

})

test_that("a zip file is the same", {

  skip_on_cran()
  skip_on_travis()
  skip_if_not(interactive())

  filename_zip_test <- tempfile(fileext = ".zip")
  text_test <- adls_open_to_file(
    helper$adls,
    path = "iris.zip",
    path_local = filename_zip_test
  )

  expect_identical(
    digest(filename_zip_original, file = TRUE),
    digest(filename_zip_test, file = TRUE)
  )

})

# delete file from data lake
if (interactive()){

  adls_delete(helper$adls, path = "iris.csv")
  adls_delete(helper$adls, path = "iris.zip")

}