Test case error (test_linreg_ref_class.R)

[obiii]

print = function(){ cat("Call:\n") cat("linreg(formula = ",as.character(formula[2])," ~ ",as.character(formula[3])," ,data = ",dfname,")") prdf <- as.data.frame(t(regCoefficients)) colnames(prdf) <-formulaNames cat("\n\nCoefficients:\n") print.data.frame(as.data.frame(prdf),row.names = FALSE) }

The test case test_linreg_ref_class.R for print fails even though the print function is working fine exactly same output as from lm model)

Please see the image below: