# r <- test_dir("~/R/realtest/inst/realtest") # some path
# s <- summary(r) # summary.realtest_results
# print(s) # print.realtest_results_summary
# stopifnot(!any(s[["match"]]=="fail")) # halt if there are failed tests
Run the code above in your browser using DataLab