tests/testthat/test-users.R

library(testthat)
library(WufooR)

options(Wufoo_Name = "johnmalc", Wufoo_API = "S6VI-I8UA-BY11-TDHO")

context("Users")

test_that("User request returns 17 rows, always", {
  userDB <- user_info()
  expect_gte(dim(userDB)[2], 17)
})
dmpe/wufoor documentation built on April 17, 2020, 2:12 a.m.