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