# 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(EvenBetterRegression)

test_that("Null output must not be returned.", {
  expect_false(is.null(Even_Better_Regression(lm(mpg~., data = mtcars))))
  expect_false(is.null(Even_Better_Regression(lm(mpg~., data = mtcars, weights = 1:32, offset = 1:32))))
  expect_false(is.null(Even_Better_Regression(lm(mpg~., data = mtcars), more_options = FALSE)))
})

test_that("No errors must occur.", {
  expect_no_error(Even_Better_Regression(lm(mpg~., data = mtcars)))
  expect_no_error(Even_Better_Regression(lm(mpg~., data = mtcars, weights = 1:32, offset = 1:32)))
  expect_no_error(Even_Better_Regression(lm(mpg~., data = mtcars), more_options = FALSE))
})

test_that("No warnings must occur.", {
  expect_no_warning(Even_Better_Regression(lm(mpg~., data = mtcars)))
  expect_no_warning(Even_Better_Regression(lm(mpg~., data = mtcars, weights = 1:32, offset = 1:32)))
  expect_no_warning(Even_Better_Regression(lm(mpg~., data = mtcars), more_options = FALSE))
})