add tests

DESCRIPTION

@@ -28,7 +28,9 @@ Imports:
   rlang,
   vctrs
 Suggests:
-  lme4
+    lme4,
+    testthat (>= 3.0.0)
 URL: https://github.com/graysonwhite/gglm
 BugReports: https://github.com/graysonwhite/gglm/issues
 RoxygenNote: 7.2.3
+Config/testthat/edition: 3

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(gglm)
+
+test_check("gglm")

tests/testthat/test-gglm.R

@@ -0,0 +1,8 @@
+mod <- lm(mpg ~ wt, mtcars)
+result <- gglm(mod)
+
+test_that("is a patchwork'd ggplot", {
+  expect_s3_class(result, class = "patchwork", exact = FALSE)
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_cooks_leverage.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_cooks_leverage()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_cooks_obs.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_cooks_obs()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_fitted_resid.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_fitted_resid()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_normal_qq.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_normal_qq()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_resid_hist.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_resid_hist()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_resid_leverage.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_resid_leverage()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})

tests/testthat/test-stat_scale_location.R

@@ -0,0 +1,10 @@
+library(ggplot2)
+
+mod <- lm(mpg ~ wt, mtcars)
+result <- ggplot(data = mod) +
+  stat_scale_location()
+
+test_that("is a ggplot", {
+  expect_s3_class(result, class = "gg", exact = FALSE)
+  expect_s3_class(result, class = "ggplot", exact = FALSE)
+})