diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat.R | 12 | ||||
| -rw-r--r-- | tests/testthat/test-corplot.R | 5 | ||||
| -rw-r--r-- | tests/testthat/test-gg_csobczak.R | 7 |
3 files changed, 24 insertions, 0 deletions
diff --git a/tests/testthat.R b/tests/testthat.R new file mode 100644 index 0000000..c015e8f --- /dev/null +++ b/tests/testthat.R @@ -0,0 +1,12 @@ +# This file is part of the standard setup for testthat. +# It is recommended that you do not modify it. +# +# Where should you do additional test configuration? +# Learn more about the roles of various files in: +# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview +# * https://testthat.r-lib.org/articles/special-files.html + +library(testthat) +library(rcsobczak) + +test_check("rcsobczak") diff --git a/tests/testthat/test-corplot.R b/tests/testthat/test-corplot.R new file mode 100644 index 0000000..2aecdc1 --- /dev/null +++ b/tests/testthat/test-corplot.R @@ -0,0 +1,5 @@ +test_that("returns a ggplot object", { + x <- matrix(data = rnorm(100), nrow = 10) + p <- corplot(x) + inherits(p, 'ggplot') +}) diff --git a/tests/testthat/test-gg_csobczak.R b/tests/testthat/test-gg_csobczak.R new file mode 100644 index 0000000..ca99bef --- /dev/null +++ b/tests/testthat/test-gg_csobczak.R @@ -0,0 +1,7 @@ +test_that("returns a ggplot object", { + df <- data.frame(x = rnorm(10), y = rnorm(10)) + p <- ggplot2::ggplot(data = df, ggplot2::aes(x = x, y = y)) + + ggplot2::geom_point() + p <- gg_csobczak(p) + inherits(p, 'ggplot') +}) |