tests/testthat/test_api_webdav.R

In ocs4R: Interface to Open Collaboration Services (OCS) REST API

# test_api_webdav.R
# Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
#
# Description: Unit tests for Webdav API methods
#=======================
require(ocs4R, quietly = TRUE)
require(testthat)

context("api-webdav")

test_that("WEBDAV API - list files",{
  files <- OCS$listFiles()
  expect_is(files, "data.frame")
  expect_true(nrow(files)>0)
  subfiles <- OCS$listFiles("Documents")
  expect_is(subfiles, "data.frame")
  expect_true(nrow(subfiles)>0)
})

test_that("WEBDAV API - make collection",{
  myfolder_url <- OCS$makeCollection("myfolder")
  expect_is(myfolder_url, "character")
  expect_true(endsWith(myfolder_url, "myfolder"))
  files <- OCS$listFiles()
  expect_true("myfolder/" %in% files$name)
  subfiles <- OCS$listFiles("myfolder")
  expect_is(subfiles, "data.frame")
  expect_true(nrow(subfiles)==0)
})

test_that("WEBDAV API - upload file - from working dir",{
  nf <- file.create("test.txt")
  nfcon <- file("test.txt", "wb")
  writeChar("This is a test file", nfcon)
  close(nfcon)
  #1st upload
  nfname <- OCS$uploadFile("test.txt")
  expect_true("test.txt" %in% OCS$listFiles()$name)
  #2d upload (overwrite test)
  nfname <- OCS$uploadFile("test.txt")
  expect_true("test.txt" %in% OCS$listFiles()$name)
})

test_that("WEBDAV API - upload file - from subdir",{
  dir.create("myfolder")
  nf <- file.create(file.path("myfolder","test.txt"))
  nfcon <- file(file.path("myfolder","test.txt"), "wb")
  writeChar("This is a test file", nfcon)
  close(nfcon)
  nfname <- OCS$uploadFile("myfolder/test.txt", relPath = "myfolder")
  expect_true("test.txt" %in% OCS$listFiles("myfolder")$name)
})