Add mfa tests

114a5aad · Luke Zappia · dbac87de · 114a5aad · 114a5aad
Commit 114a5aad authored 7 years ago by Luke Zappia
--- a/tests/testthat/test-mfa-simulate.R
+++ b/tests/testthat/test-mfa-simulate.R
+context("mfa simulation")
+
+test_that("mfa simulation output is valid", {
+    expect_true(validObject(mfaSimulate()))
+    expect_true(validObject(mfaSimulate(dropout.present = TRUE)))
+})
--- a/tests/testthat/test-simulate-simple.R
+++ b/tests/testthat/test-simulate-simple.R