The R Project SVN – R – Diff – /trunk/tests/reg-tests-2.R

 op <- options(deparse.max.lines = 3)
 f <- function(...) browser()
 do.call(f, mtcars)
+c
-options(error = expression(NULL))
+op <- c(op, options(error = expression(NULL)))
 f <- function(...) stop()
 do.call(f, mtcars)
 traceback()
 ## Debugger can handle a function that has a single function call as its body
 ## R < 2.15.1 got these as FALSE, TRUE, FALSE.
 library("methods")# (not needed here)
 assertError <- tools::assertError
+assertErrorV <- function(expr) assertError(expr, verbose=TRUE)
-assertError( getMethod(ls, "bar", fdef=ls), verbose=TRUE)
+assertErrorV( getMethod(ls, "bar", fdef=ls) )
-assertError( getMethod(show, "bar"), verbose=TRUE)
+assertErrorV( getMethod(show, "bar") )
 ## R < 2.15.1 gave
 ##   cannot coerce type 'closure' to vector of type 'character'
 ## corner cases for array
 sprintf("%d", c(1,2))
 sprintf("%d", c(1,NA))
 sprintf("%d", c(NA,1))
 ##
 ## these should fail
-sprintf("%d", 1.1)
+assertErrorV( sprintf("%d", 1.1) )
-sprintf("%d", c(1.1,1))
+assertErrorV( sprintf("%d", c(1.1,1)) )
-sprintf("%d", c(1,1.1))
+assertErrorV( sprintf("%d", c(1,1.1)) )
-sprintf("%d", NaN)
+assertErrorV( sprintf("%d", NaN) )
-sprintf("%d", c(1,NaN))
+assertErrorV( sprintf("%d", c(1,NaN)) )
 ## formatting of named raws:
 setNames(as.raw(1:3), c("a", "bbbb", "c"))
 ## was quite ugly for R <= 3.4.2

The R Project SVN R