test_returnValue_data.frame_shape: Tests a Standard R 'data.frame' by shape, rownames and...

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

Description

Tests a Standard R 'data.frame' by shape, rownames and colnames ('RTestTest_data.frame_shape')

Usage

test_returnValue_data.frame_shape(result, reference, xmlTestSpec,
  add.desc = NULL)

Arguments

result	(data.frame) The result data.frame to be tested
reference	(data.frame) The reference data.frame
xmlTestSpec	(XMLNode) The XML definition of type 'RTestTest_data.frame_cellbycell'
add.desc	(character) Additional description added to the XML definition.

Author(s)

Sebastian Wolf [e-mail]

See Also

XMLNode-class

Examples

# Cleaning up

tryCatch(unloadNamespace("RTest"))
tryCatch(unloadNamespace("testthat"))
library(RTest)

# create some definition of tests

data <- '<test_df desc="Compare a value" diff-type="relative"
         compare-type="equal" tolerance="1E-6"/>'
xmlTestSpec <- XML::xmlRoot(XML::xmlParse(data,asText=TRUE))

# Create data frames

x <- data.frame(x=c(1,2,3,4),y=c(1,2,3,4))
y <- data.frame(x=c(1,2,3,4),y=c(1,2,3,4))
y_wrong_shape <- data.frame(x=c(1,2,3,4,5),y=c(1,2,3,4,5))
y_wrong_names <- data.frame(x=c(1,2,3,4),y1=c(1,2,3,4))

test_returnValue_data.frame_shape(x,y,xmlTestSpec)

# Test for shape

tryCatch(
    {test_returnValue_data.frame_shape(x,y_wrong_shape,xmlTestSpec)
    stop("test did not find difference")},
    error=function(e){
      stopifnot(grepl("rec.nrows",e))
      stopifnot(grepl("exp.nrows",e))
      stopifnot(grepl("not equal",e))
    })

# Test for column names

data <- '<test_df check_colnames="TRUE"
          desc="Compare a value" diff-type="relative"
          compare-type="equal" tolerance="1E-6"/>'
xmlTestSpec <- XML::xmlRoot(XML::xmlParse(data,asText=TRUE))

tryCatch({
    test_returnValue_data.frame_shape(x,y_wrong_names,xmlTestSpec)
    stop("test did not find difference")},
     error=function(e){
      stopifnot(grepl("rec.name",e))
      stopifnot(grepl("exp.name",e))
      stopifnot(grepl("not equal",e))
    })

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