tests/Embedding/error.R

foo <-
function()
{
    on.exit(print(1:10))
    stop("Stopping in function foo")
}