# NOT RUN {
expr1 <- quote(print(paste("my_name_is", "mud")))
expr2 <- quote(print(paste("my_name_is", "mud", sep=" ")))
err <- try(ans <- is_robust_match(expr1, expr2, eval_for_class=TRUE), silent=TRUE)
if(is(ans, "try-error")){
ans <- isTRUE(all.equal())
}
# }
Run the code above in your browser using DataLab