tests/testthat/test-main_functionality.R

context("Main functionality")

if(!identical(Sys.getenv("GESIS_USER"), "")) {
    test_that("login works", {
      s <- login()
      expect_equal(class(s), "session")
    })
}
expersso/gesis documentation built on June 25, 2019, 11:03 a.m.