tests/testthat/test-CondKolmXY.R

In gofreg: Bootstrap-Based Goodness-of-Fit Tests for Parametric Regression

test_that("calc_stat works", {
  set.seed(123)

  dummy <- dummy_xymodel_fitted()

  test_stat <- CondKolmXY$new()
  test_stat$calc_stat(dummy$data, dummy$model)
  expect_equal(test_stat$get_value(), 0.34503022)
})

test_that("calc_stat does not work for unfitted model", {
  set.seed(123)

  dummy <- dummy_xymodel_fitted()
  dummy$model$set_params(NA)

  test_stat <- CondKolmXY$new()
  expect_error(test_stat$calc_stat(dummy$data, dummy$model))
})

test_that("calc_stat does not work for wrong type of data", {
  set.seed(123)

  dummy <- dummy_xymodel_fitted()
  dummy$data <- dplyr::select(dummy$data, -y)

  test_stat <- CondKolmXY$new()
  expect_error(test_stat$calc_stat(dummy$data, dummy$model))
})