test: closes #218

rsquaredacademy · Nov 6, 2024 · 6370c4b · 6370c4b
1 parent cf81103
commit 6370c4b
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 6 deletions.
diff --git a/tests/testthat/_snaps/bp-output.md b/tests/testthat/_snaps/bp-output.md
@@ -1,5 +1,4 @@
-# when fitted.values == TRUE, fitted values from the regression
-	are used for the test
+# when fitted.values == TRUE, fitted vals from reg are used
 
     Code
       ols_test_breusch_pagan(model)

diff --git a/tests/testthat/_snaps/score-output.md b/tests/testthat/_snaps/score-output.md
@@ -1,5 +1,4 @@
-# when fitted.values == TRUE, fitted values from the regression
-	are used for the test
+# when fitted.values == TRUE, fitted vals from the reg are used
 
     Code
       ols_test_score(model)

diff --git a/tests/testthat/test-bp-output.R b/tests/testthat/test-bp-output.R
@@ -1,4 +1,4 @@
-test_that("when fitted.values == TRUE, fitted values from the regression\n\tare used for the test", {
+test_that("when fitted.values == TRUE, fitted vals from reg are used", {
   model <- lm(mpg ~ disp + hp + wt + drat + qsec, data = mtcars)
   expect_snapshot(ols_test_breusch_pagan(model))
   expect_snapshot(ols_test_breusch_pagan(model, rhs = TRUE))

diff --git a/tests/testthat/test-score-output.R b/tests/testthat/test-score-output.R
@@ -1,4 +1,4 @@
-test_that("when fitted.values == TRUE, fitted values from the regression\n\tare used for the test", {
+test_that("when fitted.values == TRUE, fitted vals from the reg are used", {
   model <- lm(mpg ~ disp + hp + wt + drat + qsec, data = mtcars)
   expect_snapshot(ols_test_score(model))
   expect_snapshot(ols_test_score(model, rhs = TRUE))