From 59f702e27026f7aa7d0ee8abe58781e5d439260e Mon Sep 17 00:00:00 2001
From: Luke Zappia <lazappi@users.noreply.github.com>
Date: Wed, 12 Oct 2016 14:26:14 +1100
Subject: [PATCH] Add tests for simple simulation

---
 DESCRIPTION                           | 2 +-
 NAMESPACE                             | 1 +
 R/simulate-simple.R                   | 1 +
 tests/testthat/test-simulate-simple.R | 5 +++++
 4 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 tests/testthat/test-simulate-simple.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 267d56b..10ba84d 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: splatter
 Type: Package
 Title: Simple Simulation of Single-cell RNA Sequencing Data
-Version: 0.4.2
+Version: 0.4.3
 Date: 2016-10-12
 Author: Luke Zappia
 Authors@R: as.person(c(
diff --git a/NAMESPACE b/NAMESPACE
index de53bdd..282ee47 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -30,6 +30,7 @@ importFrom(stats,rbinom)
 importFrom(stats,rchisq)
 importFrom(stats,rgamma)
 importFrom(stats,rlnorm)
+importFrom(stats,rnbinom)
 importFrom(stats,rnorm)
 importFrom(stats,rpois)
 importFrom(stats,runif)
diff --git a/R/simulate-simple.R b/R/simulate-simple.R
index 34c219b..0ab0704 100644
--- a/R/simulate-simple.R
+++ b/R/simulate-simple.R
@@ -23,6 +23,7 @@
 #' @examples
 #' sim <- simSimple()
 #' @export
+#' @importFrom stats rgamma rnbinom
 simSimple <- function(params = defaultParams(), verbose = TRUE, ...) {
 
     if (verbose) {message("Getting parameters...")}
diff --git a/tests/testthat/test-simulate-simple.R b/tests/testthat/test-simulate-simple.R
new file mode 100644
index 0000000..832c34d
--- /dev/null
+++ b/tests/testthat/test-simulate-simple.R
@@ -0,0 +1,5 @@
+context("simple simulation")
+
+test_that("simple simulation output is valid", {
+  expect_true(validObject(simSimple()))
+})
-- 
GitLab