From ee1504cb23519f58fc88584535de99f696feac7c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Thu, 30 Mar 2023 00:12:05 +0200
Subject: [PATCH] tests/testthat/test-plotting: Commented out bits under
refactoring.
---
tests/testthat/test-plotting.R | 86 +++++++++++++++++-----------------
1 file changed, 43 insertions(+), 43 deletions(-)
diff --git a/tests/testthat/test-plotting.R b/tests/testthat/test-plotting.R
index 5454794..1f33bce 100644
--- a/tests/testthat/test-plotting.R
+++ b/tests/testthat/test-plotting.R
@@ -1,46 +1,46 @@
-test_that("make_eic_ms1_plot",{
-
- ms1 <- PLOTTING_DATA$ms1
- summ <- PLOTTING_DATA$summ
- labs <- PLOTTING_DATA$labs
-
- ## Test the corner case when no cindex entry is selected.
- kval <- NULL
- res <- make_eic_ms1_plot(extr_ms1=ms1,
- summ=summ,
- kval=kval,
- labs=labs)
- expect_identical(res,NULL)
-
- ## Test getting the right plot.
- kval <- list(set="NTs",ID=109L)
- res <- make_eic_ms1_plot(extr_ms1=ms1,
- summ=summ,
- kval=kval,
- labs=labs)
- expect_equal(NROW(res$data),4046L)
-})
-
-test_that("make_eic_ms2_plot",{
-
-
- summ <- PLOTTING_DATA$summ
- labs <- PLOTTING_DATA$labs
-
- ## Test the corner case when no cindex entry is selected.
- kval <- NULL
- res <- make_eic_ms2_plot(summ=summ,
- kval=kval,
- labs=labs)
- expect_identical(res,NULL)
-
- ## Test getting the right plot.
- kval <- list(set="NTs",ID=109L)
- res <- make_eic_ms2_plot(summ=summ,
- kval=kval,
- labs=labs)
- expect_equal(NROW(res$data),77L)
-})
+## test_that("make_eic_ms1_plot",{
+
+## ms1 <- PLOTTING_DATA$ms1
+## summ <- PLOTTING_DATA$summ
+## labs <- PLOTTING_DATA$labs
+
+## ## Test the corner case when no cindex entry is selected.
+## kval <- NULL
+## res <- make_eic_ms1_plot(extr_ms1=ms1,
+## summ=summ,
+## kval=kval,
+## labs=labs)
+## expect_identical(res,NULL)
+
+## ## Test getting the right plot.
+## kval <- list(set="NTs",ID=109L)
+## res <- make_eic_ms1_plot(extr_ms1=ms1,
+## summ=summ,
+## kval=kval,
+## labs=labs)
+## expect_equal(NROW(res$data),4046L)
+## })
+
+## test_that("make_eic_ms2_plot",{
+
+
+## summ <- PLOTTING_DATA$summ
+## labs <- PLOTTING_DATA$labs
+
+## ## Test the corner case when no cindex entry is selected.
+## kval <- NULL
+## res <- make_eic_ms2_plot(summ=summ,
+## kval=kval,
+## labs=labs)
+## expect_identical(res,NULL)
+
+## ## Test getting the right plot.
+## kval <- list(set="NTs",ID=109L)
+## res <- make_eic_ms2_plot(summ=summ,
+## kval=kval,
+## labs=labs)
+## expect_equal(NROW(res$data),77L)
+## })
test_that("plot_fname",{
kval <- list(set="NTs",ID=109L)
--
GitLab