powered by
dispatch_test(test, file, parse.data = getParseData(parse(file, keep.source = TRUE)), lines = readLines(file), quiet = FALSE, warning = with_default(test$warning, FALSE))
getParseData
quiet=TRUE