add test-path-fns to cover sub-dir tests for ropensci-review-tools/ro…

…reviewapi#64

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pkgcheck
 Title: rOpenSci Package Checks
-Version: 0.1.2.066
+Version: 0.1.2.067
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265")),

R/path-fns.R

@@ -29,7 +29,7 @@ convert_path <- function (path = ".") {
         subdirs <- fs::dir_ls (path, type = "directory")
         proj_root <- unlist (lapply (subdirs, function (d) {
             tryCatch (
-                rprojroot::find_package_root_file (path = d),
+                rprojroot::find_root (rprojroot::is_r_package, path = d),
                 error = function (e) NULL
             )
         }))
@@ -41,5 +41,5 @@ convert_path <- function (path = ".") {
         )
     }
 
-    return (proj_root)
+    return (fs::path (proj_root))
 }

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/pkgcheck",
   "issueTracker": "https://github.com/ropensci-review-tools/pkgcheck/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.2.066",
+  "version": "0.1.2.067",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/test-path-fns.R

@@ -0,0 +1,16 @@
+test_that ("pkgcheck", {
+
+    pkgname <- paste0 (
+        sample (c (letters, LETTERS), 8),
+        collapse = ""
+    )
+    pkg_root <- fs::dir_create (fs::path_temp (), pkgname)
+    path <- fs::dir_create (pkg_root, "subdir")
+    f_desc <- fs::path (path, "DESCRIPTION")
+    desc <- system.file ("DESCRIPTION", package = "pkgcheck")
+    fs::file_copy (desc, f_desc, overwrite = TRUE)
+    gert::git_init (pkg_root)
+
+    path_conv <- convert_path (pkg_root)
+    expect_identical (path_conv, path)
+})