tests/testthat/test-get.R

context("get")

test_that("gets", {
  skip("needs internet and authentication")
  timesheet <- pts_get_timesheet(from = as.Date("2018-12-18"), to = as.Date("2019-03-27"))
  timesheet <- timesheet[!grepl("^R", timesheet$Member),]

  expect_identical(timesheet, poistimesheets::timesheet)
})
poissonconsulting/poistimesheets documentation built on Jan. 24, 2020, 4:54 a.m.