tests/testthat/test_usage.R

In petermeissner/statsgrokse: R 'API' Binding to Stats.grok.se Server

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) )
  }
)