From 114a5aadf47c4937f3736e2ce0d09183a6769fe5 Mon Sep 17 00:00:00 2001
From: Luke Zappia <lazappi@users.noreply.github.com>
Date: Sun, 1 Oct 2017 17:38:35 +1100
Subject: [PATCH] Add mfa tests
---
tests/testthat/test-mfa-simulate.R | 6 ++++++
.../{test-simulate-simple.R => test-simple-simulate.R} | 0
2 files changed, 6 insertions(+)
create mode 100644 tests/testthat/test-mfa-simulate.R
rename tests/testthat/{test-simulate-simple.R => test-simple-simulate.R} (100%)
diff --git a/tests/testthat/test-mfa-simulate.R b/tests/testthat/test-mfa-simulate.R
new file mode 100644
index 0000000..877e0a9
--- /dev/null
+++ b/tests/testthat/test-mfa-simulate.R
@@ -0,0 +1,6 @@
+context("mfa simulation")
+
+test_that("mfa simulation output is valid", {
+ expect_true(validObject(mfaSimulate()))
+ expect_true(validObject(mfaSimulate(dropout.present = TRUE)))
+})
diff --git a/tests/testthat/test-simulate-simple.R b/tests/testthat/test-simple-simulate.R
similarity index 100%
rename from tests/testthat/test-simulate-simple.R
rename to tests/testthat/test-simple-simulate.R
--
GitLab