# NOT RUN {
location <- find.package("RTest")
testCollection <- new("RTestCollection",
project.name = "RTest Vignette",
project.details = "Example test exectuion",
tester = "Example tester",
test.start = format(Sys.time(), "%Y-%m-%d %H:%M:%S"))
show(testCollection)
testCollection <- importTCsFromDir(testCollection,
xml.dPath = paste0(location,"/xml-templates")
)
# Now one test case shall be imported
show(testCollection)
# }
Run the code above in your browser using DataLab