tests/testthat/test_13_collab.R

In boxr: Interface for the 'Box.com API'

context("Box collaborations")

regexp <- "specify only one"

test_that("Access helper-function works", {
  
  user_id <- 123
  group_id <- 456
  login <- "jobs@box.com"
  
  expect_identical(
    collab_access_helper(user_id = user_id, group_id = NULL, login = NULL),
    list(type = "user", id = "123", login = NULL)
  )
  
  expect_identical(
    collab_access_helper(user_id = NULL, group_id = group_id, login = NULL),
    list(type = "group", id = "456", login = NULL)
  )
  
  expect_identical(
    collab_access_helper(user_id = NULL, group_id = NULL, login = login),
    list(type = "user", id = NULL, login = login)
  )
  
  # must provide exactly one
  expect_error(
    collab_access_helper(user_id = NULL, group_id = NULL, login = NULL),
    regexp = regexp
  )
  
  expect_error(
    collab_access_helper(user_id = user_id, group_id = group_id, login = NULL),
    regexp = regexp
  )
  

}) 

test_that("Item helper-function works", {
  
  dir_id <- 123
  file_id <- 456
  
  expect_identical(
    collab_item_helper(dir_id = dir_id, file_id = NULL),
    list(id = "123", type = "folder")
  )
  
  expect_identical(
    collab_item_helper(dir_id = NULL, file_id = file_id),
    list(id = "456", type = "file")
  )

  expect_error(
    collab_item_helper(dir_id = dir_id, file_id = file_id),
    regexp = regexp
  )
  
  expect_error(
    collab_item_helper(dir_id = NULL, file_id = NULL),
    regexp = "at least one"
  )
}) 

test_that("Collaborations can be created/detected/deleted", {
  skip_on_cran()
  skip_if_no_token()
  
  # file setup prep
  create_test_dir()
  tf <- fs::path_temp("test_dir", "collab.txt")
  writeLines("collab test file", tf)
  
  # upload them
  file <- box_ul(0, tf)
  dir <- box_dir_create("collab")
  
  # create collab with the boxr tester account
  boxr_tester_acct <- 9459307839
  collab_dir <- box_collab_create(dir$id, boxr_tester_acct)
  collab_file <- box_collab_create(file_id = file$id, user_id = boxr_tester_acct)
  
  some_bigish_int <- 1e10 # Box IDs are (so far) always integers
  expect_gt(as.numeric(collab_file$id), some_bigish_int)
  expect_gt(as.numeric(collab_dir$id), some_bigish_int)
  
  expect_s3_class(collab_dir, "boxr_collab")
  expect_s3_class(collab_file, "boxr_collab")
  
  expect_s3_class(as_tibble(collab_dir), "tbl_df")
  expect_s3_class(as.data.frame(collab_dir), "data.frame")
  
  expect_message(
    expect_s3_class(box_collab_get(dir$id), "boxr_collab_list"),
    "1 collaborator"
  )
  expect_message(
    expect_s3_class(box_collab_get(file_id = file$id), "boxr_collab_list"),
    "1 collaborator"
  )
  
  box_collab_delete(collab_dir$id)
  box_collab_delete(collab_file$id)
  
  # I don't think we should error if no collabs, but we should
  # error if file not found
  expect_message(
    box_collab_get(file_id = file$id), 
    "0 collaborator"
  )

  expect_message(
    box_collab_get(dir_id = dir$id), 
    "0 collaborator"
  )
  
  expect_error(box_collab_get(file_id = "111"), "Not Found")
  expect_error(box_collab_get(dir_id = "111"), "Not Found")
  
})