tests/testthat/test-dribble.R

In googledrive: An Interface to Google Drive

# ---- tests ----

test_that("tbl_sum.dribble method works", {
  d <- new_dribble(
    tibble(
      name = letters[1:2],
      id = letters[2:1],
      drive_resource = list(list(kind = "drive#file"))
    )
  )
  expect_snapshot(print(d))
})

test_that("dribble() creates empty dribble", {
  expect_dribble(dribble())
  expect_equal(nrow(dribble()), 0)
})

test_that("new_dribble() requires a list and adds the dribble class", {
  expect_snapshot(new_dribble(1:3), error = TRUE)
  expect_dribble(new_dribble(list(
    name = "NAME", id = "ID", drive_resource = list("DRIVE_RESOURCE")
  )))
})

test_that("validate_dribble() checks class, var names, var types", {
  expect_snapshot(validate_dribble("a"), error = TRUE)

  ## wrong type
  d <- dribble()
  d$id <- numeric()
  expect_snapshot(validate_dribble(d), error = TRUE)
  d$name <- logical()
  expect_snapshot(validate_dribble(d), error = TRUE)

  ## missing a required variable
  d <- dribble()
  d$name <- NULL
  expect_snapshot(validate_dribble(d), error = TRUE)
  d$id <- NULL
  expect_snapshot(validate_dribble(d), error = TRUE)

  ## list-col elements do not have `kind = "drive#file"`
  d <- new_dribble(
    tibble(
      name = "a",
      id = "1",
      drive_resource = list(kind = "whatever")
    )
  )
  expect_snapshot(validate_dribble(d), error = TRUE)
})

test_that("as_tibble() drops the dribble class", {
  expect_false(inherits(as_tibble(dribble()), "dribble"))
})

test_that("`[` retains dribble class when possible", {
  d <- new_dribble(
    tibble(
      name = letters[1:4],
      id = letters[4:1],
      drive_resource = list(list(kind = "drive#file"))
    )
  )
  expect_dribble(d)
  expect_dribble(d[1, ])
  expect_dribble(d[1:2, ])
  expect_dribble(d[1:3])
  d$foo <- "foo"
  expect_dribble(d)
  expect_dribble(d[-4])
})

test_that("`[` drops dribble class when not valid", {
  d <- new_dribble(
    tibble(
      name = letters[1:4],
      id = letters[4:1],
      drive_resource = list(list(kind = "drive#file"))
    )
  )
  expect_dribble(d)
  expect_false(inherits(d[1], "dribble"))
  expect_false(inherits(d[, 1], "dribble"))
})

test_that("dribble nrow checkers work", {
  d <- dribble()
  expect_true(no_file(d))
  expect_false(single_file(d))
  expect_false(some_files(d))
  expect_snapshot(confirm_single_file(d), error = TRUE)
  expect_snapshot(confirm_some_files(d), error = TRUE)

  d <- new_dribble(
    tibble(
      name = "a",
      id = "b",
      drive_resource = list(list(kind = "drive#file"))
    )
  )
  expect_false(no_file(d))
  expect_true(single_file(d))
  expect_true(some_files(d))
  expect_identical(confirm_single_file(d), d)
  expect_identical(confirm_some_files(d), d)

  d <- d[c(1, 1), ]
  expect_false(no_file(d))
  expect_false(single_file(d))
  expect_true(some_files(d))
  expect_snapshot(confirm_single_file(d), error = TRUE)
  expect_identical(confirm_some_files(d), d)
})

test_that("is_folder() works", {
  expect_identical(is_folder(dribble()), logical(0))
  d <- new_dribble(
    tibble::tribble(
      ~name, ~id, ~drive_resource,
      "a", "aa", list(mimeType = "application/vnd.google-apps.folder"),
      "b", "bb", list(mimeType = "foo")
    )
  )
  expect_identical(is_folder(d), c(TRUE, FALSE))
})

test_that("as_dribble(NULL) returns empty dribble", {
  expect_identical(as_dribble(), dribble())
})

test_that("as_dribble() default method handles unsuitable input", {
  expect_snapshot(as_dribble(1.3), error = TRUE)
  expect_snapshot(as_dribble(TRUE), error = TRUE)
})

test_that("as_dribble.list() works for good input", {
  drib_lst <- list(
    name = "name",
    id = "id",
    kind = "drive#file"
  )
  expect_silent(d <- as_dribble(list(drib_lst)))
  expect_dribble(d)
})

test_that("as_dribble.list() catches bad input", {
  ## not testing error messages, as_dribble.list() intended for internal use
  drib_lst <- list(
    name = "name"
  )
  expect_snapshot(as_dribble(list(drib_lst)), error = TRUE)

  drib_lst <- list(
    name = "name",
    id = "id",
    kind = "whatever"
  )
  expect_snapshot(as_dribble(list(drib_lst)), error = TRUE)
})

test_that("as_parent() throws specific errors", {
  d <- new_dribble(
    tibble::tibble(
      name = letters[1:4],
      id = letters[4:1],
      drive_resource = list(list(kind = "drive#file"))
    )
  )

  expect_snapshot(
    {
      foo <- d[0, ]
      as_parent(foo)
    },
    error = TRUE
  )

  expect_snapshot(
    {
      foo <- d
      as_parent(foo)
    },
    error = TRUE
  )

  expect_snapshot(
    {
      foo <- d[1, ]
      as_parent(foo)
    },
    error = TRUE
  )
})