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