tests/testthat/test-osf_tbl.R

In CenterForOpenScience/osfr: Interface to the 'Open Science Framework' ('OSF')

context("osf_tbl construction")

test_that("NULL input returns empty osf_tbl", {
  out <- osf_tbl()
  expect_s3_class(out, "osf_tbl")
  expect_equal(nrow(out), 0)
  expect_true(is_valid_osf_tbl(out))
})

test_that("empty list returns empty osf_tbl", {
  out <- osf_tbl(list())
  expect_s3_class(out, "osf_tbl")
  expect_equal(nrow(out), 0)
  expect_true(is_valid_osf_tbl(out))
})


context("osf_tbl validation")

test_that("valid osf_tbls are passed through validation", {
  skip_on_production_server()

  user_tbl <<- osf_retrieve_user("dguxh")
  user_tbl$foo <<- "bar"
  expect_s3_class(rebuild_osf_tbl(user_tbl), "osf_tbl_user")
})

test_that("osf_tbls missing required columns are detected", {
  skip_on_production_server()

  expect_true(has_osf_tbl_colnames(user_tbl))
  expect_false(has_osf_tbl_colnames(user_tbl[-1]))
  expect_false(has_osf_tbl_colnames(user_tbl[-2]))
  expect_false(has_osf_tbl_colnames(user_tbl[-3]))
})

test_that("osf_tbls with incorrect column types are detected", {
  skip_on_production_server()

  user_tbl$id <- as.factor(user_tbl$id)
  expect_false(has_osf_tbl_coltypes(user_tbl))
})

test_that("can't combine osf_tbls with different subclasses", {
  skip_on_production_server()

  proj_tbl <- osf_retrieve_node("brfza")
  proj_tbl$foo <- "bar"
  out <- rbind(user_tbl, proj_tbl)
  expect_identical(class(out), c("tbl_df", "tbl", "data.frame"))
})