tests/testthat/test-set.R

In cookiemonster: Your Friendly Solution to Managing Browser Cookies

jar <- options(cookie_dir = tempdir())

test_that("setting cookies works", {

  expect_equal(default_jar(), tempdir())

  expect_error(
    add_cookies(cookiefile = system.file("extdata", "cookies.txt",
                                         package = "cookiemonster"),
                cookiestring = "test=true; success=yes"),
    "not both"
  )

  expect_error(
    add_cookies(),
    "either cookie file or string"
  )

  expect_gte({
    add_cookies(cookiefile = system.file("extdata", "cookies.txt",
                                         package = "cookiemonster"))
    file.size(file.path(tempdir(), paste0("cookies.rds")))
  }, 622)

  expect_message({
    l <- readLines(system.file("extdata", "cookies.txt",
                               package = "cookiemonster"))
    writeLines(l[5:7], "test.txt")
    add_cookies(cookiefile = "test.txt")
    unlink("test.txt")
  }, "not seem to be a valid cookiefile")

  expect_error(add_cookies(cookiestring = "test=true; success=yes"),
               "provide a domain")

  expect_gte({
    add_cookies(cookiestring = "test=true; success=yes", domain = "tests.com")
    file.size(file.path(tempdir(), paste0("cookies.rds")))
  }, 754)
})

test_that("old cookies are replaced", {
  expect_equal(default_jar(), tempdir())
  expect_equal({
    add_cookies(cookiestring = "test=true", domain = "https://tests.com")
    add_cookies(cookiestring = "chococookie=delicious", domain = "tests.com")
    get_cookies(domain = "^tests.com")$value
  }, "delicious")
})