tests/testthat/test-02-check_up.R

In krlmlr/rpkgweb: Managing Webs of R Packages

context("check_up")

test_that("check_up acceptance test", {
  web <- rpkgweb("test_web")

  skip_if_packages_installed(web)

  with_temp_lib(
    devtools::in_dir(
      root_dir(web),
      local({
        on.exit({
          for (p in web) {
            n <- p$package
            safe_unload(p)
          }
        }, add = TRUE)

        for (p in web) {
          n <- p$package
          expect_true(check_up(n, web, quiet = TRUE), info = n)
          safe_unload(p)
        }

        for (p in web) {
          n <- p$package
          expect_false(check_up(n, web, quiet = TRUE), info = n)
          safe_unload(p)
        }

        local({
          a_source_file <- file.path(web[[1]]$path, "R", "a.R")
          writeLines("thisWillTriggerAnError", a_source_file)
          on.exit(unlink(a_source_file), add = TRUE)

          expect_message(devtools::uninstall(web[[1]], quiet = TRUE),
                         .libPaths()[[1L]])
          expect_error(check_up(web[[1]]$package, web, quiet = TRUE),
                         "thisWillTriggerAnError")
          safe_unload(web[[1]])

          for (p in web[-1:-2]) {
            n <- p$package
            expect_error(check_up(n, web, quiet = TRUE), "Command failed", info = n)
          }
        })

        for (p in web) {
          n <- p$package
          expect_true(check_up(n, web, quiet = TRUE), info = n)
          safe_unload(p)
        }

        local({
          a_test_file <- file.path(web[[1]]$path, "tests", "testthat", "test-fail.R")
          writeLines("thisWillTriggerAnError", a_test_file)
          on.exit(unlink(a_test_file), add = TRUE)

          expect_message(devtools::uninstall(web[[1]], quiet = TRUE),
                         .libPaths()[[1L]])
          expect_error(check_up(web[[1]]$package, web, quiet = TRUE),
                       "thisWillTriggerAnError")
          safe_unload(web[[1]])

          for (p in web[-1:-2]) {
            n <- p$package
            expect_error(check_up(n, web, quiet = TRUE), "Command failed", info = n)
          }

          writeLines(
            c(
              "context('fail')",
              "test_that('fails', { expect_true(FALSE) })"
            ),
            a_test_file)
          expect_error(check_up(web[[1]]$package, web, quiet = TRUE),
                       "Test failed")
          safe_unload(web[[1]])
        })

        for (p in web) {
          n <- p$package
          expect_true(check_up(n, web, quiet = TRUE), info = n)
          safe_unload(p)
        }
      })
    )
  )
})