Merge branch 'develop' into release_0.4.0

R/file_and_path_utils.R

@@ -58,8 +58,18 @@ vt_path <- function(...){
 #'
 #' @export
 vt_find_config <- function(){
-
-  root <- find_root(has_file(".here") | is_rstudio_project | is_r_package | is_vcs_root)
+
+  tryCatch({
+    root <- find_root(has_file(".here") | is_rstudio_project | is_r_package | is_vcs_root)
+  }, error = function(e){
+    abort(
+      paste0(
+      "Could not find root directory. ",
+      "Is your working directory inside a package, validation packet, or project?\n"
+      ),
+      class = "vt.validation_root_missing"
+    )
+  })
 
   tryCatch({
 

tests/testthat/test-find_config.R

@@ -0,0 +1,80 @@
+test_that("Find config when within a package with validation", {
+
+  withr::with_tempdir({
+    quiet <- capture.output({
+      vt_create_package(
+        "example.package", 
+        open = FALSE)
+    })
+
+
+    withr::with_dir(new = "example.package", {
+      expect_equal(
+        vt_find_config(),
+        normalizePath(file.path(getwd(), "vignettes","validation","validation.yml"),winslash = "/")
+      )
+    })
+  })
+})
+
+test_that("Find config when within a package with validation when working dir is non-standard", {
+
+  withr::with_tempdir({
+    quiet <- capture.output({
+      vt_create_package(
+        "example.package", 
+        working_dir = "inst",
+        open = FALSE)
+    })
+
+
+    withr::with_dir(new = "example.package", {
+      expect_equal(
+        vt_find_config(),
+        normalizePath(
+          file.path(getwd(), "inst","validation","validation.yml"),
+          winslash = "/")
+      )
+    })
+  })
+})
+
+test_that("Find config when within a validation packet", {
+
+  withr::with_tempdir({
+      quiet <- capture.output({
+        vt_create_packet("example_packet", 
+                         target = "example.package",
+                         open = FALSE)
+      })
+
+
+      withr::with_dir(new = "example_packet", {
+        expect_equal(
+          vt_find_config(),
+          normalizePath(
+            file.path(getwd(), "validation","validation.yml"),
+            winslash = "/")
+        )
+      })
+
+  })
+
+})
+
+
+test_that("Informative error when outside a packet or package", {
+
+  withr::with_tempdir({
+
+    expect_error(
+      vt_find_config(),
+      paste0(
+      "Could not find root directory. ",
+      "Is your working directory inside a package, validation packet, or project?\n"
+      ),
+      fixed = TRUE)
+  })
+
+})
+