tests/testthat/test-is-empty-model.R

In assertive.models: Assertions to Check Properties of Models

test_that("test.is_empty_model.a_model_with_factors.returns_false", {
  expect_false(is_empty_model(lm(y ~ x + 0, data.frame(y = 1:5, x = 1:5))))
})

test_that("test.is_empty_model.a_model_with_intercept.returns_false", {
  expect_false(is_empty_model(lm(y ~ 1, data.frame(y = 1:5))))
})

test_that("test.is_empty_model.an_empty_model.returns_true", {
  expect_true(is_empty_model(lm(y ~ 0, data.frame(y = 1:5))))
})

test_that("test.is_empty_model.not_a_model.returns_false", {
  expect_false(is_empty_model(1:10))
})

test_that("test.is_non_empty_model.a_model_with_factors.returns_true", {
  expect_true(is_non_empty_model(lm(y ~ x + 0, data.frame(y = 1:5, x = 1:5))))
})

test_that("test.is_non_empty_model.a_model_with_intercept.returns_true", {
  expect_true(is_non_empty_model(lm(y ~ 1, data.frame(y = 1:5))))
})

test_that("test.is_non_empty_model.an_empty_model.returns_false", {
  expect_false(is_non_empty_model(lm(y ~ 0, data.frame(y = 1:5))))
})

test_that("test.is_non_empty_model.not_a_model.returns_false", {
  expect_false(is_non_empty_model(1:10))
})