Don't show a warning when testing get_package

NCEAS · Sep 14, 2016 · 3bfd205 · 3bfd205
1 parent da93729
commit 3bfd205
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test_access.R b/tests/testthat/test_access.R
@@ -44,7 +44,9 @@ test_that("get_package works for an object in two packages", {
 
   child_pkg <- create_dummy_package(mn)
   second_resmap <- create_resource_map(mn, metadata_pid = child_pkg$metadata, check_first = FALSE)
-  pkg <- get_package(mn, child_pkg$metadata)
+  suppressWarnings({
+    pkg <- get_package(mn, child_pkg$metadata)
+  })
 
   expect_length(pkg, 2)
 })