Start building out some testing infrastructure

R/pkg.R

@@ -25,3 +25,24 @@ pkg_version <- function(pkgdir) {
 pkg_bug_reports <- function(pkgdir) {
   read.dcf(file.path(pkgdir, "DESCRIPTION"))[, "BugReports"][[1]]
 }
+
+# Helper for testing ------------------------------------------------------
+
+local_package <- function(fields = list(), env = parent.frame()) {
+  dir <- tempfile()
+  dir.create(dir)
+  dir.create(file.path(dir, "revdep"))
+  withr::defer(unlink(dir, recursive = TRUE), envir = env)
+
+  defaults <- list(
+    Package = "Test",
+    Version = "1.0.0"
+  )
+
+  fields <- utils::modifyList(defaults, fields)
+  write.dcf(fields, file.path(dir, "DESCRIPTION"))
+
+  db_setup(dir)
+
+  dir
+}

tests/testthat/test-pkg.R

@@ -0,0 +1,17 @@
+test_that("can retrieve basic package metadata", {
+  pkg <- local_package(list(
+    Package = "test",
+    Version = "0.0.1",
+    BugReports = "BUGS"
+  ))
+
+  expect_equal(pkg_name(pkg), "test")
+  expect_equal(pkg_version(pkg), "0.0.1")
+  expect_equal(pkg_bug_reports(pkg), "BUGS")
+})
+
+test_that("pkg_check validates its inputs", {
+  expect_error(pkg_check(1), "string")
+  expect_error(pkg_check("NOT-FOUND"), "existing directory")
+  expect_error(pkg_check("."), "DESCRIPTION")
+})

tests/testthat/test-todo.R

@@ -0,0 +1,13 @@
+test_that("can add and remove from db", {
+  pkg <- local_package()
+
+  todo <- revdep_todo(pkg)
+  expect_equal(nrow(todo), 0)
+
+  todo <- revdep_add(pkg, c("x", "y"))
+  expect_equal(todo$package, c("x", "y"))
+
+  todo <- revdep_rm(pkg, "x")
+  expect_equal(todo$package, c("x", "y"))
+  expect_equal(todo$status, c("ignore", "todo"))
+})