add tests prepared by AleksandraDabrowska

Author: pbiecek

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(factorMerger)
+
+test_check("factorMerger")

tests/testthat/testfactorManipulation.R

@@ -0,0 +1,31 @@
+library(factorMerger)
+
+dfWithoutCovariates <- generateMultivariateSample(20,10)
+dfWithCovariates <- dfWithoutCovariates
+dfWithCovariates$covariates <- data.frame(runif(20), rnorm(20))  
+
+
+context("Check mergeFactors() function")
+
+test_that("Wrong input",{
+  expect_error(mergeFactors())
+  expect_error(mergeFactors(dfWithCovariates$response))
+  expect_error(mergeFactors(dfWithCovariates$factor))
+})
+
+test_that("Output format",{
+  expect_is(mergeFactors(dfWithCovariates$response, dfWithCovariates$factor), "factorMerger")
+  expect_is(mergeFactors(dfWithCovariates$response, dfWithCovariates$factor, method = "fast-adaptive"), "factorMerger")
+})
+
+
+context("Check groupStats() function")
+
+test_that("Wrong input",{
+  expect_error(groupsStats())
+  expect_error(groupsStats(dfWithoutCovariates))
+})
+
+test_that("Output format",{
+  expect_is(groupsStats(mergeFactors(dfWithCovariates$response, dfWithCovariates$factor)), "data.frame")
+})

tests/testthat/testfactorMergerClasses.R

@@ -0,0 +1,41 @@
+library(factorMerger)
+
+dfWithoutCovariates <- generateMultivariateSample(20,10)
+merged <- mergeFactors(dfWithoutCovariates$response, dfWithoutCovariates$factor) 
+
+
+context("Check cutTree() function")
+
+test_that("Wrong input",{
+  expect_error(cutTree())
+})
+
+test_that("Output format",{
+  expect_is(cutTree(merged), "factor")
+})
+
+
+
+context("Check getOptimalPartition() function")
+
+test_that("Wrong input",{
+  expect_error(getOptimalPartition())
+})
+
+test_that("Output format",{
+  expect_is(getOptimalPartition(merged), "character")
+})
+
+
+
+context("Check getOptimalPartitionDf() function")
+
+test_that("Wrong input",{
+  expect_error(getOptimalPartitionDf())
+})
+
+test_that("Output format",{
+  expect_is(getOptimalPartitionDf(merged), "data.frame")
+})
+
+

tests/testthat/testfactorMergerHelper.R

@@ -0,0 +1,52 @@
+library(factorMerger)
+
+dfWithoutCovariates <- generateMultivariateSample(20,10)
+merged <- mergeFactors(dfWithoutCovariates$response, dfWithoutCovariates$factor) 
+
+
+context("Check plot() function")
+
+test_that("Wrong input",{
+  expect_error(plot())
+})
+
+test_that("Output format",{
+  expect_is(plot(merged), "gg")
+  expect_is(plot(merged), "ggplot")
+  expect_is(plot(merged), "ggarrange")
+})
+
+context("Check plotHeatmap() function")
+
+test_that("Wrong input",{
+  expect_error(plotHeatmap())
+})
+
+test_that("Output format",{
+  expect_is(plotHeatmap(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "gg")
+  expect_is(plotHeatmap(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "ggplot")
+})
+
+# context("Check plotProfile() function")
+# 
+# test_that("Wrong input",{
+#   expect_error(plotProfile())
+# })
+# 
+# test_that("Output format",{
+#   expect_is(plotProfile(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "gg")
+#   expect_is(plotProfile(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "ggplot")
+# })
+
+
+# context("Check plotHMeansAndConfInt() function")
+# 
+# test_that("Wrong input",{
+#   expect_error(plotMeansAndConfInt())
+# })
+# 
+# test_that("Output format",{
+#   expect_is(plotMeansAndConfInt(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "gg")
+#   expect_is(plotMeansAndConfInt(merged, color=TRUE, clusterSplit=list("pvalue", "GIC")), "ggplot")
+# })
+