Don't test warnings in integration tests (#1822)

Since they're now tested individually in each file.

Author: hadley

tests/testthat/_snaps/rd-r6.md

@@ -1,27 +1,5 @@
 # integration test
 
-    Code
-      roxygenise(path)
-    Message
-      i Loading testR6
-      x classes.R:12: Must use one @param for each argument.
-      x $meth3(duplicate) is documented multiple times
-      x classes.R:12: Must use one @param for each argument.
-      x $meth3(missing) is not documented
-      x classes.R:12: Must use one @return per R6 method.
-      x classes.R:91: Undocumented R6 fields: field2 and undocumented_field.
-      x classes.R:91: R6 field documented multiple times: duplicatefield.
-      x classes.R:91: Unknown R6 field: nosuchfield.
-      x classes.R:91: Undocumented R6 active binding: undocumented_binding.
-      x classes.R:91: R6 active binding documented multiple times: duplicate_binding.
-      x classes.R:91: Undocumented R6 method: undocumented_method.
-      Writing 'NAMESPACE'
-      Writing 'A.Rd'
-      Writing 'B.Rd'
-      Writing 'C.Rd'
-
----
-
     Code
       cat(read_lines(rd_file), sep = "\n")
     Output
@@ -31,19 +9,17 @@
       \alias{A}
       \title{Class A}
       \value{
-      twice.
-      
-      really?
+      A value.
       }
       \description{
       A method 1.
       
       Method 2 description.
+      
+      Method 3.
       }
       \details{
       Method 2 details.
-      
-      Method 3 details.
       }
       \examples{
       ## Example for meth1
@@ -79,7 +55,7 @@
       
       \item{\code{active2}}{A binding 2.}
       
-      \item{\code{active3}}{A binding 2.}
+      \item{\code{active3}}{A binding 3.}
       }
       \if{html}{\out{</div>}}
       }
@@ -143,6 +119,10 @@
       Method 2 details.
       }
       
+      \subsection{Returns}{
+      A value.
+      }
+      
       \subsection{Examples}{
       \if{html}{\out{<div class="r example copy">}}
       \preformatted{## Example for meth2
@@ -155,29 +135,21 @@
       \if{html}{\out{<a id="method-A-meth3"></a>}}
       \if{latex}{\out{\hypertarget{method-A-meth3}{}}}
       \subsection{Method \code{meth3()}}{
+      Method 3.
       \subsection{Usage}{
       \if{html}{\out{<div class="r">}}
-      \preformatted{A$meth3(duplicate, missing)}
+      \preformatted{A$meth3(x)}
       \if{html}{\out{</div>}}
       }
       
       \subsection{Arguments}{
       \if{html}{\out{<div class="arguments">}}
       \describe{
-      \item{\code{duplicate}}{This one is}
-      \item{\code{duplicate}}{Twice}
+      \item{\code{x}}{An argument.}
       }
       \if{html}{\out{</div>}}
       }
       
-      \subsection{Details}{
-      Method 3 details.
-      }
-      
-      \subsection{Returns}{
-      twice.
-      }
-      
       }
       \if{html}{\out{<hr>}}
       \if{html}{\out{<a id="method-A-clone"></a>}}
@@ -214,7 +186,7 @@
       \description{
       B method 1.
       
-      A method 4.
+      B method 4.
       }
       \section{Super class}{
       \code{A} -> \code{B}
@@ -277,7 +249,7 @@
       \if{html}{\out{<a id="method-B-meth4"></a>}}
       \if{latex}{\out{\hypertarget{method-B-meth4}{}}}
       \subsection{Method \code{meth4()}}{
-      A method 4.
+      B method 4.
       \subsection{Usage}{
       \if{html}{\out{<div class="r">}}
       \preformatted{B$meth4()}
@@ -328,30 +300,20 @@
       \section{Public fields}{
       \if{html}{\out{<div class="r6-fields">}}
       \describe{
-      \item{\code{nosuchfield}}{This will warn.}
+      \item{\code{field2}}{C field 2.}
       
       \item{\code{field5}}{C field 5.}
-      
-      \item{\code{duplicatefield}}{Multiple.}
-      
-      \item{\code{duplicatefield}}{times.}
       }
       \if{html}{\out{</div>}}
       }
       \section{Active bindings}{
       \if{html}{\out{<div class="r6-active-bindings">}}
       \describe{
-      \item{\code{nosuchfield}}{This will warn.}
-      
       \item{\code{active2}}{C binding 2.}
       
       \item{\code{active4}}{C binding 4.}
       
       \item{\code{active6}}{C binding 6.}
-      
-      \item{\code{duplicate_binding}}{Double.}
-      
-      \item{\code{duplicate_binding}}{Double double.}
       }
       \if{html}{\out{</div>}}
       }
@@ -360,7 +322,6 @@
       \itemize{
       \item \href{#method-C-meth2}{\code{C$meth2()}}
       \item \href{#method-C-meth5}{\code{C$meth5()}}
-      \item \href{#method-C-undocumented_method}{\code{C$undocumented_method()}}
       }
       }
       \if{html}{\out{<details open><summary>Inherited methods</summary>
@@ -402,17 +363,6 @@
       \if{html}{\out{</div>}}
       }
       
-      }
-      \if{html}{\out{<hr>}}
-      \if{html}{\out{<a id="method-C-undocumented_method"></a>}}
-      \if{latex}{\out{\hypertarget{method-C-undocumented_method}{}}}
-      \subsection{Method \code{undocumented_method()}}{
-      \subsection{Usage}{
-      \if{html}{\out{<div class="r">}}
-      \preformatted{C$undocumented_method()}
-      \if{html}{\out{</div>}}
-      }
-      
       }
       }
 

tests/testthat/test-rd-r6.R

@@ -1,6 +1,6 @@
 test_that("integration test", {
   path <- local_package_copy(test_path("testR6"))
-  expect_snapshot(roxygenise(path))
+  suppressMessages(roxygenise(path))
   withr::defer(pkgload::unload("testR6"))
 
   rd_files <- sort(dir(file.path(path, "man"), full.names = TRUE))

tests/testthat/testR6/R/classes.R

@@ -6,7 +6,6 @@
 #' @details
 #' Class A details
 #'
-#' @param fogbehindme This is not show up in the output at all.
 #' @param Z zzzzzzz
 
 A <- R6::R6Class(
@@ -22,17 +21,15 @@ A <- R6::R6Class(
     #' @details Method 2 details.
     #' @param Z Overriding Z argument for meth2.
     #' @param ... Rest.
+    #' @return A value.
     #' @examples
     #' ## Example for meth2
     meth2 = function(Z = 10, ...) {},
     #' @field field2 A field 2.
     field2 = "foobar",
-    #' @details Method 3 details.
-    #' @param duplicate This one is
-    #' @param duplicate Twice
-    #' @return twice.
-    #' @return really?
-    meth3 = function(duplicate, missing) {},
+    #' @description Method 3.
+    #' @param x An argument.
+    meth3 = function(x) {},
     #' @field field3 A field 3.
     field3 = "baz"
   ),
@@ -41,7 +38,7 @@ A <- R6::R6Class(
     active1 = function(x) {},
     #' @field active2 A binding 2.
     active2 = function(x) {},
-    #' @field active3 A binding 2.
+    #' @field active3 A binding 3.
     active3 = function(x) {}
   )
 )
@@ -65,7 +62,7 @@ B <- R6::R6Class(
     #' @description B method 1.
     #' @param Z Still zzzzzzzz.
     meth1 = function(Z) {},
-    #' @description A method 4.
+    #' @description B method 4.
     meth4 = function() {}
   ),
   active = list(
@@ -84,15 +81,14 @@ B <- R6::R6Class(
 #' Class C Description.
 #'
 #' @details
-#' Classs C details.
-#'
-#' @field nosuchfield This will warn.
+#' Class C details.
 
 C <- R6::R6Class(
   "C",
   inherit = B,
   cloneable = FALSE,
   public = list(
+    #' @field field2 C field 2.
     field2 = NULL,
     #' @description C method 2.
     #' @param Z zzzzz
@@ -101,23 +97,14 @@ C <- R6::R6Class(
     #' @field field5 C field 5.
     field5 = "foobar",
     #' @description C method 5.
-    meth5 = function() {},
-    undocumented_field = NULL,
-    undocumented_method = function() {},
-    #' @field duplicatefield Multiple.
-    #' @field duplicatefield times.
-    duplicatefield = NULL
+    meth5 = function() {}
   ),
   active = list(
     #' @field active2 C binding 2.
     active2 = function(x) {},
     #' @field active4 C binding 4.
     active4 = function(x) {},
     #' @field active6 C binding 6.
-    active6 = function(x) {},
-    undocumented_binding = function(x) {},
-    #' @field duplicate_binding Double.
-    #' @field duplicate_binding Double double.
-    duplicate_binding = function(x) {}
+    active6 = function(x) {}
   )
 )