atExpectWarnings(expr, expected = ".")
| expr | An expression to evaluate. It will be taken literally, as in system.time(). |
| expected | Regular expressions that should match the expected warning messages. See regexpr for the syntax. "." means to match any warning. |
## Not run:
# First two examples should return TRUE
atExpectWarnings({
warning("Comparing integer and complex number")
1L == (1+0i)},
expected = "integer.*complex")
atExpectWarnings(
atExpectStop({warning("Hmm, possible problem")
stop("Oops")},
expected="Oops"),
expected = "Hmm")
# Next one should describe lack of expected warning
atExpectWarnings(all(is.finite(log(3:4))), "NaNs produced")
# Run example test files in assertionTest/test-ex
assertionTest(system.file(package="assertionTest", "test-ex", "mixed.t",
mustWork=TRUE))
## End(Not run)