tests/testthat/test-netSEMp2.R

In netSEM: Network Structural Equation Modeling

test_that("netSEMp2 gives correct output", {
  expect_s3_class(netSEMp2(pet), c("netSEMp2", "list"))
})

test_that("netSEMp2 shows error if exogenous variable doesn't exist", {
  expect_error(netSEMp2(pet, exogenous = 100),
               "exogenous location out of range!")
  expect_error(netSEMp2(pet, exogenous = 0.5),
               "object 'exogenous.loc' not found")
  expect_error(netSEMp2(pet, exogenous = "test"),
               "exogenous 'test' does not exist!")
})

test_that("netSEMp2 shows error if endogenous variable doesn't exist", {
  expect_error(netSEMp2(pet, endogenous = 100),
               "endogenous location out of range!")
  expect_error(netSEMp2(pet, endogenous = 0.5),
               "replacement has length zero")
  expect_error(netSEMp2(pet, endogenous = "test"),
               "endogenous 'test' does not exist!")
})