tests/testthat/help-FrameData.R

In ForecastFramework: A Basis for Modular Model Creation

################################################################################
################################################################################
###            Spatial Prediction Model Object Oriented Framework            ###
################################################################################
################################################################################

################################################################################
####Forecast Test Functions
################################################################################

#######################################TODO#####################################

source('help-ArrayData.R')

is_same_FrameData_as= function(rhs){
  return(function(lhs){
    is_same_ArrayData_as(rhs)(lhs)
    equals(rhs$obs)(lhs$obs)
  })
}

test_FrameData= function(object,name,equivalence){
  if(!('MatrixData' %in% class(object))){
    warning("Object is not of the correct")
  }

  first_object = object$clone(TRUE)
  test_ArrayData(object,name,equivalence)

  test_that(paste(name,": Inherited Methods don't change object"),{
    equivalence(first_object)(object)
  })

}