tests/testthat/test-pvalues.R

In semTests: Goodness-of-Fit Testing for Structural Equation Models

test_that("pvalues_one return p_values in (0, 1)", {
  pvals <- pvalues_one(object, eba = 2, peba = 2, unbiased = 2, trad = "psb", pols = 2)
  expect_true(all(pvals < 1))
  expect_true(all(pvals > 0))
})

test_that("pvalues works with NULL", {
  expect_error(pvalues(object, trad = NULL, eba = NULL, peba = NULL, pols = NULL))
  expect_equal(length(pvalues(object, trad = NULL, eba = NULL, peba = 1, pols = NULL)), 2)
  expect_equal(length(pvalues(object, trad = NULL, eba = 1, peba = NULL, pols = 2)), 4)
  expect_equal(length(pvalues(object, trad = c("pstd", "psf", "pss", "psb", "pfull"), eba = NULL, peba = NULL, pols = NULL)), 10)
})