expect_warning has problem with "()"

[tanaphum]

I found some bugs while I'm try testthat package on expect_warning().

library(testthat)

#pass
expect_warning(warning("test"),"test")
#pass
expect_warning(warning("(test)"),"(test)")
#fail
expect_warning(warning("test(test)"),"test(test)")

The error on console

> expect_warning(warning("test(test)"),"test(test)")
Error: `warning("test(test)")` did not throw the expected warning.
In addition: Warning message:
In eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) : test(test)

It looks like the skip to read string after "(".

#fail
expect_warning(warning("test(test)"),"test(test)")
#pass
expect_warning(warning("test(test)"),"test")

[hadley]

Note that the second argument to expect_warning() is called regexp because it's a regular expression 😄 You might want to either set fixed = TRUE or try expect_snapshot() instead.