r/tests/testthat/: Remove unused files.

Author: MLopez-Ibanez

r/tests/testthat/ALG_1_dat-eaf.rds

@@ -3,10 +3,6 @@ source("helper-common.R")
 expect_snapshot_eafdiffplot <- function(file, ...)
   expect_snapshot_plot(file, scale = c(2,1), eafdiffplot(...))
 
-test_that("eafdiffplot", {
-  skip_on_cran()
-## FIXME: Add main=invokation
-## FIXME: We need smaller data!
 eaftest <- function(a, b, maximise = c(FALSE, FALSE)) {
   A1 <- read_extdata(a)
   A2 <- read_extdata(b)
@@ -24,11 +20,15 @@ eaftest <- function(a, b, maximise = c(FALSE, FALSE)) {
     A1, A2, full.eaf = TRUE, maximise = maximise, title_left = title_left, title_right = title_right)
 }
 
-eaftest("wrots_l10w100_dat", "wrots_l100w10_dat")
-eaftest("tpls.xz", "rest.xz")
-eaftest("ALG_1_dat.xz", "ALG_2_dat.xz")
-eaftest("wrots_l10w100_dat", "wrots_l100w10_dat")
-eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(TRUE, FALSE))
-eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(FALSE, TRUE))
-eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(TRUE, TRUE))
+
+test_that("eafdiffplot", {
+  skip_on_cran()
+  ## FIXME: We need smaller data!
+  eaftest("wrots_l10w100_dat", "wrots_l100w10_dat")
+  eaftest("tpls.xz", "rest.xz")
+  eaftest("ALG_1_dat.xz", "ALG_2_dat.xz")
+  eaftest("wrots_l10w100_dat", "wrots_l100w10_dat")
+  eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(TRUE, FALSE))
+  eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(FALSE, TRUE))
+  eaftest("wrots_l10w100_dat", "wrots_l100w10_dat", maximise = c(TRUE, TRUE))
 })