Update export_help tests to expect_equal

tests/testthat/test_assess_export_help.R

@@ -1,11 +1,16 @@
 # Commenting these out until this is implemented for sourced packages
 test_that("assess_export_help returns expected result for source packages", {
- expect_true(assess_source_good$export_help[[1]])
- expect_true(assess_install_good$export_help[[1]])
- expect_true(assess_source_bad$export_help[[1]])
+
+ expect_equal(unname(assess_source_good$export_help), c(TRUE))
+ expect_equal(unname(assess_install_good$export_help), c(TRUE))
+
+ expect_equal(unname(assess_source_bad$export_help), c(FALSE, TRUE))
+ expect_equal(unname(assess_install_bad$export_help), c(FALSE, TRUE))
+
  expect_true(assess_stdlibs_install$export_help[[1]][[1]])
 
- expect_true(is.numeric(score_install_good$export_help))
- expect_true(is.numeric(score_source_bad$export_help))
- expect_true(is.numeric(score_source_good$export_help))
+ expect_equal(score_install_good$export_help[[1]], 1)
+ expect_equal(score_install_bad$export_help[[1]], 0.5)
+ expect_equal(score_source_bad$export_help[[1]], 0.5)
+ expoct_equal(score_source_good$export_help[[1]], 1)
 })

tests/testthat/test_packages/pkgsourcebad/NAMESPACE

@@ -1,3 +1,4 @@
 # Generated by roxygen2: do not edit by hand
 
+export(hello_work_test_2)
 export(hello_world_test)

tests/testthat/test_packages/pkgsourcebad/R/hello_world_test.R

@@ -7,3 +7,10 @@
 hello_world_test <- function(x) {
  print(paste0("hello world", x))
 }
+
+#' A Test Function with no help docs
+#' @export
+#' @noRd
+hello_work_test_2 <- function(x) {
+ print(paste0("hello world", x))
+}