check if starts above then truncated

closes #4
poissonconsulting · Apr 23, 2024 · d4f0723 · d4f0723
1 parent bb515e2
commit d4f0723
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/gss-plot/gss_plot13.png b/tests/testthat/_snaps/gss-plot/gss_plot13.png
diff --git a/tests/testthat/test-gss-plot.R b/tests/testthat/test-gss-plot.R
@@ -133,3 +133,10 @@ test_that("gss_plot not shift", {
 
   expect_warning(expect_snapshot_plot(gss_plot(data, min_length = 60), "gss_plot12"))
 })
+
+
+test_that("gss_plot starts above 5", {
+  data <- gsdd::temperature_data
+  data <- data[-(1:85),]
+  expect_snapshot_plot(gss_plot(data, min_length = 60, ignore_truncation = TRUE), "gss_plot13")
+})