tests/testthat/test_usage.R

context("\nstatsgrokse()")

test_that(
  "normal usage", {
    tmp <- statsgrokse("main", from="2015-01-01", to="2015-01-31")
    expect_true( all(dim(tmp) > 0) )

    tmp <- statsgrokse("main", from="2015-01-01", to="2015-01-31", warn=FALSE, verbose = FALSE)
    expect_true( all(dim(tmp) > 0) )

    tmp <- statsgrokse("main", from="2015-01-01", to="2015-01-31", warn=TRUE, verbose = FALSE)
    expect_true( all(dim(tmp) > 0) )

    tmp <- statsgrokse("main", from="2015-01-01", to="2015-01-31", warn=FALSE, verbose = TRUE)
    expect_true( all(dim(tmp) > 0) )
  }
)
petermeissner/statsgrokse documentation built on May 24, 2017, 4:33 a.m.