fix unit tests

jasp-stats · Nov 5, 2024 · 451668f · 451668f
1 parent 8b28eee
commit 451668f
Show file tree

Hide file tree

Showing 14 changed files with 49 additions and 31 deletions.
diff --git a/inst/Description.qml b/inst/Description.qml
@@ -12,6 +12,7 @@ Description
 	website		: "https://sophieberkhout.github.io/"
 	license		: "GPL (>= 2)"
 	icon		: "analysis-time-series.svg"
+	preloadData: true
 
 	Analysis
 	{

diff --git a/tests/testthat/_snaps/ARIMATimeSeries/forecast-time-series-plot.svg b/tests/testthat/_snaps/ARIMATimeSeries/forecast-time-series-plot.svg
diff --git a/tests/testthat/_snaps/ARIMATimeSeries/ljung-box-plot.svg b/tests/testthat/_snaps/ARIMATimeSeries/ljung-box-plot.svg
diff --git a/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot1-subplot-1.svg b/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot1-subplot-1.svg
diff --git a/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot2-subplot-1.svg b/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot2-subplot-1.svg
diff --git a/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot3-subplot-1.svg b/tests/testthat/_snaps/ARIMATimeSeries/time-series-plot3-subplot-1.svg
diff --git a/tests/testthat/_snaps/DescriptivesTimeSeries/autocorrelation-function.svg b/tests/testthat/_snaps/DescriptivesTimeSeries/autocorrelation-function.svg
diff --git a/tests/testthat/_snaps/DescriptivesTimeSeries/partial-autocorrelation-function.svg b/tests/testthat/_snaps/DescriptivesTimeSeries/partial-autocorrelation-function.svg
diff --git a/tests/testthat/_snaps/DescriptivesTimeSeries/time-series-plot-desc-subplot-1.svg b/tests/testthat/_snaps/DescriptivesTimeSeries/time-series-plot-desc-subplot-1.svg
diff --git a/tests/testthat/_snaps/SpectralTimeSeries/power-spectral-density-plot.svg b/tests/testthat/_snaps/SpectralTimeSeries/power-spectral-density-plot.svg
diff --git a/tests/testthat/_snaps/StationarityTimeSeries/time-series-plot-stat-subplot-1.svg b/tests/testthat/_snaps/StationarityTimeSeries/time-series-plot-stat-subplot-1.svg
diff --git a/tests/testthat/helper-options.R b/tests/testthat/helper-options.R
@@ -0,0 +1,16 @@
+
+analysisOptionsFromJaspDescriptives <- function(functionName) {
+
+  filename <- switch(
+    functionName,
+    "DescriptivesTimeSeries" = "DescriptivesTimeSeriesForm.qml"
+
+  )
+
+  path <- system.file("qml", "common", filename, package = "jaspDescriptives")
+
+  if (!file.exists(path))
+    stop("Could not find the QML file for \"", functionName, "\" at path:", path)
+
+  return(jaspTools:::readQML(path))
+}
diff --git a/tests/testthat/test-ARIMATimeSeries.R b/tests/testthat/test-ARIMATimeSeries.R
@@ -141,4 +141,4 @@ test_that("Time Series Plot matches", {
   plotName <- results[["results"]][["timeSeriesPlot"]][["data"]]
   testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]]
   jaspTools::expect_equal_plots(testPlot, "time-series-plot3")
-})
+})
diff --git a/tests/testthat/test-DescriptivesTimeSeries.R b/tests/testthat/test-DescriptivesTimeSeries.R
@@ -1,6 +1,7 @@
 context("Descriptives Time Series")
 
-options <- jaspTools::analysisOptions("DescriptivesTimeSeries")
+# options <- jaspTools::analysisOptions("DescriptivesTimeSeries")
+options <- analysisOptionsFromJaspDescriptives("DescriptivesTimeSeries")
 options$dependent <- "visits"
 options$time <- "date"
 options$lagPlot <- TRUE
@@ -39,4 +40,4 @@ test_that("Time Series Plot matches", {
   plotName <- results[["results"]][["timeSeriesPlot"]][["data"]]
   testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]]
   jaspTools::expect_equal_plots(testPlot, "time-series-plot-desc")
-})
+})