Running 'appendVarArgs.R' [0s]
  Running 'attributes.R' [0s]
  Running 'findDispatchMethodsS3.R' [168s]
  Running 'getDispatchMethodS3.R' [158s]
  Running 'isGenericS3S4.R' [0s]
  Running 'pkgStartupMessage.R' [158s]
  Running 'setGenericS3.R' [0s]
  Running 'setMethodS3.R' [0s]
  Running 'throw.R' [165s]
Running the tests in 'tests/findDispatchMethodsS3.R' failed.
Complete output:
  > library("R.methodsS3")
  R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
  > 
  > message("TESTING: findDispatchMethodS3()...")
  TESTING: findDispatchMethodS3()...
  > 
  > ## Odds and ends
  > # Trying to retrieve base::.Options, but should be
  > # detected as a non-function and return an empty result
  > fcn <- findDispatchMethodsS3("", "Options")
  > stopifnot(length(fcn) == 0L)
  > 
  > message("TESTING: findDispatchMethodS3()...DONE")
  TESTING: findDispatchMethodS3()...DONE
  > 
  > proc.time()
     user  system elapsed 
     0.18    0.07    0.20 
Running the tests in 'tests/getDispatchMethodS3.R' failed.
Complete output:
  > library("R.methodsS3")
  R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
  > 
  > message("TESTING: getDispatchMethodS3()...")
  TESTING: getDispatchMethodS3()...
  > 
  > fcn <- getDispatchMethodS3("print", "default")
  > print(fcn)
  function (x, digits = NULL, quote = TRUE, na.print = NULL, print.gap = NULL, 
      right = FALSE, max = NULL, width = NULL, useSource = TRUE, 
      ...) 
  {
      args <- pairlist(digits = digits, quote = quote, na.print = na.print, 
          print.gap = print.gap, right = right, max = max, width = width, 
          useSource = useSource, ...)
      missings <- c(missing(digits), missing(quote), missing(na.print), 
          missing(print.gap), missing(right), missing(max), missing(width), 
          missing(useSource))
      .Internal(print.default(x, args, missings))
  }
  <bytecode: 0x000001ee4ab14c38>
  <environment: namespace:base>
  > 
  > tryCatch({
  +   fcn <- getDispatchMethodS3("print", "unknown")
  +   print(fcn)
  + }, error = function(ex) {
  +   print(ex)
  + })
  <simpleError in getDispatchMethodS3.default("print", "unknown"): No method print() for this class structure: unknown>
  > 
  > message("TESTING: getDispatchMethodS3()...DONE")
  TESTING: getDispatchMethodS3()...DONE
  > 
  > proc.time()
     user  system elapsed 
     0.18    0.04    0.21 
Running the tests in 'tests/pkgStartupMessage.R' failed.
Complete output:
  > library("R.methodsS3")
  R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
  > 
  > message("TESTING: pkgStartupMessage()...")
  TESTING: pkgStartupMessage()...
  > 
  > msg <- "Hello world!"
  > pkgStartupMessage(msg)
  Hello world!
  > 
  > for (quietly in c(NA, FALSE, TRUE)) {
  +   msg <- sprintf("Hello world! (quietly=%s)", quietly)
  +   pkgStartupMessage(msg, quietly=quietly)
  + }
  Hello world! (quietly=NA)
  Hello world! (quietly=FALSE)
  > 
  > message("TESTING: pkgStartupMessage()...DONE")
  TESTING: pkgStartupMessage()...DONE
  > 
  > proc.time()
     user  system elapsed 
     0.15    0.07    0.21 
Running the tests in 'tests/throw.R' failed.
Complete output:
  > library("R.methodsS3")
  R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
  > 
  > message("TESTING: throw()...")
  TESTING: throw()...
  > 
  > rbern <- function(n=1, prob=1/2) {
  +   if (prob < 0 || prob > 1)
  +     throw("Argument 'prob' is out of range: ", prob)
  +   rbinom(n=n, size=1, prob=prob)
  + }
  > 
  > rbern(10, 0.4)
   [1] 0 1 0 0 1 0 0 0 1 0
  > # [1] 0 1 0 0 0 1 0 0 1 0
  > tryCatch({
  +   rbern(10, 10*0.4)
  + }, error=function(ex) {
  +   print(ex)
  + })
  <simpleError in throw.default("Argument 'prob' is out of range: ", prob): Argument 'prob' is out of range: 4>
  Warning message:
  In throw.default("Argument 'prob' is out of range: ", prob) :
    R.methodsS3::throw() is deprecated. Use base::stop() instead, or R.oo::throw().
  > 
  > message("TESTING: throw()...DONE")
  TESTING: throw()...DONE
  > 
  > proc.time()
     user  system elapsed 
     0.15    0.14    0.26