minor fixes for devtools::check

Author: [email protected]

NAMESPACE

@@ -23,3 +23,4 @@ export(use_tester)
 export(use_testignore)
 import(assertthat)
 importFrom(magrittr,"%>%")
+importFrom(stats,setNames)

R/testthis-package.R

@@ -11,6 +11,7 @@
 #' @name testthis
 #' @import assertthat
 #' @importFrom magrittr %>%
+#' @importFrom stats setNames
 #'
 #' @section Setting the project path:
 #'

tests/testthat/integration_tests/test_Test_coverage.R

@@ -1,13 +1,49 @@
-context("get_test_coverage")
+context("Test_coverage")
 
-proj <- usethis::proj_get()
 
-test_that("test_Test_coverage works as expected", {
-  tpkg <- rprojroot::find_testthat_root_file("testdata", "test_pkg")
-  usethis::proj_set(tpkg)
-  expect_error(dat <- get_test_coverage(), "Functions can only be detected for installed packages")
-  usethis::proj_set(proj)
-  expect_silent(dat <- get_test_coverage())
+test_that("get_pkg_tested_functions_from_desc", {
+
+  list_test_files_mock <- function(...) {
+    paste0("/blah/blubb/tests/testthat/", c("test_foo", "test_bar"))
+  }
+
+  extract_test_that_desc_mock <- function(...){
+    list(
+      c("foofun1", "testing foofun2"),
+      c("barfun1", "barfun2", "foofun1")
+    ) %>%
+      setNames(list_test_files_mock())
+  }
+
+  get_pkg_functions_mock <- function(...){
+    c("foofun1", "foofun2", "barfun1", "barfun2")
+  }
+
+
+  tres <- with_mock(
+    get_pkg_tested_functions_from_desc(),
+    list_test_files = list_test_files_mock,
+    extract_test_that_desc = extract_test_that_desc_mock,
+    get_pkg_functions = get_pkg_functions_mock
+  )
+
+
+  expect_identical(
+    tres,
+    list(
+      foofun1 =
+        c("/blah/blubb/tests/testthat/test_foo", "/blah/blubb/tests/testthat/test_bar"),
+      foofun2 = "/blah/blubb/tests/testthat/test_foo",
+      barfun1 = "/blah/blubb/tests/testthat/test_bar",
+      barfun2 = "/blah/blubb/tests/testthat/test_bar")
+  )
 })
 
-usethis::proj_set(proj)
+
+
+
+test_that("get_test_coverage works", {
+  expect_silent(get_test_coverage())
+  expect_silent(get_test_coverage(from_tags = FALSE))
+  expect_silent(get_test_coverage(from_desc = FALSE))
+})

tests/testthat/test_Taglist.R

@@ -56,7 +56,7 @@ test_that("extracting testthis tags works as expected", {
 
   expect_identical(tdat$skip, TRUE)
   expect_identical(tdat$testfile, c("testthis_tags", "testthis_tags2"))
-  expect_identical(
+  expect_setequal(
     tdat$testing,
     c("%foofun%", "detect_testthis_comments", "extract_testthis_comments",
       "get_taglist", "testthis_tokenizer")
@@ -74,7 +74,7 @@ test_that("get_tag works as expected", {
   expect_identical(get_tag(tlist, 'testfile'),
                    c('testthis_tags', 'testthis_tags2'))
 
-  expect_identical(
+  expect_setequal(
     get_tag(tlist, 'testing'),
     c("%foofun%", "detect_testthis_comments", "extract_testthis_comments",
       "get_taglist", "testthis_tokenizer")

tests/testthat/test_Test_coverage.R

@@ -16,7 +16,6 @@ knitr::opts_chunk$set(
   fig.path = "README-"
 )
 
-devtools::load_all('.')
 library(testthis)
 library(rstudioapi)
 ```
@@ -167,10 +166,10 @@ test_that("parse_testthis_comments works as expected", {
 }
 ```
 
-The test_coverage summary for a package may look like this (+ marks function for
-which tests exist):
 
-```{r}
+To display the test coverage use:
+
+```{r, eval = FALSE}
 get_test_coverage()
 ```