diff --git a/tests/testthat/test-PlotForecastPDF.R b/tests/testthat/test-PlotForecastPDF.R index 95c1e0be7819649f1e3b8ce9484d8da6ef5c567c..1515a13fe084134aa5f44a13b6cde4624be8c77c 100644 --- a/tests/testthat/test-PlotForecastPDF.R +++ b/tests/testthat/test-PlotForecastPDF.R @@ -1,21 +1,4 @@ context("Generic tests") -test_that("some checks", { - fcsts2 <- array(1:100, dim = c(members = 20, fcst = 5)) - expect_equal( - length(PlotForecastPDF(fcsts2, c(-0.66, 0.66), extreme.limits = c(-1.2, 1.2), - fcst.names = paste0("random fcst ", 1 : 5), obs = 0.7)), - 10) - expect_equal( - names(PlotForecastPDF(fcsts2, c(-0.66, 0.66), extreme.limits = c(-1.2, 1.2), - fcst.names = paste0("random fcst ", 1 : 5), obs = 0.7)), - c("data", "layers", "scales", "mapping", "theme", "coordinates", "facet", - "plot_env", "labels", "guides")) - expect_equal( - length(PlotForecastPDF(fcsts2, c(-0.66, 0.66), extreme.limits = c(-1.2, 1.2), - fcst.names = paste0("random fcst ", 1 : 5), obs = 0.7)[[5]]), - 61) -}) - test_that("Sanity checks", { expect_error( PlotForecastPDF(fcst, tercile.limits),