tests/testthat/test-invalid-credential.R

In conflr: Client for 'Confluence' API

# Copyright (C) 2019 LINE Corporation
#
# conflr is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation, version 3.
#
# conflr is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See <http://www.gnu.org/licenses/> for more details.

test_that("confluence_document() stops early", {
  skip_if_not(rmarkdown::pandoc_available("1.12.3"))

  tmp <- tempfile(fileext = ".Rmd")
  on.exit(unlink(tmp), add = TRUE)
  writeLines(c("---", "title: title1", "---\n", "test"), tmp, sep = "\n")

  knit_mock <- mockery::mock(NULL)

  withr::local_envvar(list(
    CONFLUENCE_URL = "base_url",
    CONFLUENCE_USERNAME = "username",
    CONFLUENCE_PASSWORD = "password"
  ))

  expect_error(
    with_mock(
      "httr::VERB" = function(...) abort("Unauthorized (HTTP 401)"),
      "knitr::knit" = knit_mock,
      {
        confl_create_post_from_Rmd(tmp, interactive = FALSE)
      }
    ),
    "Invalid credentials!",
    fixed = TRUE
  )

  # knit should not be called
  mockery::expect_called(knit_mock, 0)
})