tests/testthat/test_imap.R

context("imap")

test_that("init", {
  # when
  host <- "imaps://imap.gmail.com"
  imap <- IMAP(host)
  # then
  expect_equal(imap$url, host)
  expect_equal(imap$path, "")
})
crazycapivara/imapr documentation built on May 14, 2019, 11:32 a.m.