add two tests for summary method for fastLm

eddelbuettel · eddelbuettel · commit 04c97858f10d · 2021-07-18T06:41:55.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2021-07-18  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/tinytest/test_fastLm.R: Add tests for summary
+
 2021-07-17  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Date, Version): Roll minor version
diff --git a/inst/tinytest/test_fastLm.R b/inst/tinytest/test_fastLm.R
@@ -69,3 +69,9 @@ expect_equal(class(vec), "numeric")
 expect_equal(length(vec), 3L)
 vec <- predict(flm, newdata=NULL)
 expect_equal(vec, fitted(flm))
+
+## also generate summary
+flmsum <- summary(flm)
+fitsum <- summary(fit)
+expect_equal(flmsum$coef, fitsum$coef)
+expect_equal(length(flmsum), 12)
