tests/testthat/test_select.R

context("SELECT")

imap <- IMAP("imaps://imap.gmail.com")

test_that("escape mailbox name with brackets", {
  # when
  mailbox <- "[Gmail]/Gesendet"
  imap %<>% SELECT(mailbox)
  # then
  expected_path <- "%5BGmail%5D/Gesendet"
  expect_equal(imap$path, expected_path)
})
crazycapivara/imapr documentation built on May 14, 2019, 11:32 a.m.