Example/1_simple/1_simple.R

In bnbsystems/ddt: Data Driven Testing

reload <- function(){
  myDf <- read.csv("example_input.csv")
  return(lm(y~x, data=myDf))  
}

　
compare <- function(expected, actual){
  if(all(abs(expected$coefficients - actual$coefficients) < 0.001) ){
    print("Same")
  } else {
    stop("wrong coefficents. Expected ", print(expected$coefficients) , " but is ",  print(actual$coefficients))
  }
}

　
　
ddtRun(ddtsDir, preload, compare)