exec: Tests imported Test Cases

In RTest: A XML-Based Testing Framework for Automated Component Tests of R Packages

Description

Tests imported Test Cases

Usage

## S4 method for signature 'RTestCollection'
exec(object, test.TCs = NULL,
  test.for = NULL, out.fPath = NULL, open = TRUE, ...)

Arguments

object	(object) The RTestCollection-class object.
test.TCs	(character) Vector with the TCs to be executed or NULL if all all TCs of the collection should be tested.
test.for	(vector(character)) Specification for which elements to test, NULL for test all elements
out.fPath	(character) Path to output file.
open	(logical) Should the generated file be opened (TRUE) or not (FALSE) after report generation.
...	(logical) Additional parameters passed to function writeExecSummary.html.

Author(s)

Matthias Pfeifer [e-mail]

See Also

RTestCollection-class

Examples

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"))

TCDir <- list.dirs(find.package("RTest"),recursive = TRUE) %>%
   grep(pattern = "xml-templates", value = TRUE)

message("Test Adapter being used is defined in Function")
message("test.RTest.test_returnValue_data.frame_cellbycell")

testCollection <- importTCsFromDir(testCollection,
    xml.dPath = TCDir[1],f.pattern  = "RTest_TC-01.xml")

testCollection <- exec(testCollection)

outf <- tempfile(fileext=".html")
writeExecSummary.html(testCollection, out.fPath = outf,open = FALSE)

stopifnot(any(grepl("passed",readLines(outf))))

RTest documentation built on Dec. 4, 2019, 5:07 p.m.