update to test

JZauner · JZauner · commit d4ea79ca8726 · 2025-05-20T23:56:27.000+02:00
diff --git a/tests/testthat/test-metric_timing_above_threshold.R b/tests/testthat/test-metric_timing_above_threshold.R
@@ -30,9 +30,9 @@ test_that("Between thresholds works", {
   expect_equal(
     timing_above_threshold(MEDI, Datetime, threshold = c(250, 500)), 
     list(
-      "mean" = lubridate::as_datetime(lubridate::dhours(7.5), tz = "UTC"),
+      "mean" = lubridate::as_datetime(lubridate::dhours(10), tz = "UTC"),
       "first" = lubridate::as_datetime(lubridate::dhours(6), tz = "UTC"),
-      "last" = lubridate::as_datetime(lubridate::dhours(9), tz = "UTC")
+      "last" = lubridate::as_datetime(lubridate::dhours(14), tz = "UTC")
     )
   )
 })

Original file line number	Diff line number	Diff line change
`@@ -30,9 +30,9 @@ test_that("Between thresholds works", {`
`30`	`30`	`expect_equal(`
`31`	`31`	`timing_above_threshold(MEDI, Datetime, threshold = c(250, 500)),`
`32`	`32`	`list(`
`33`		`- "mean" = lubridate::as_datetime(lubridate::dhours(7.5), tz = "UTC"),`
	`33`	`+ "mean" = lubridate::as_datetime(lubridate::dhours(10), tz = "UTC"),`
`34`	`34`	`"first" = lubridate::as_datetime(lubridate::dhours(6), tz = "UTC"),`
`35`		`- "last" = lubridate::as_datetime(lubridate::dhours(9), tz = "UTC")`
	`35`	`+ "last" = lubridate::as_datetime(lubridate::dhours(14), tz = "UTC")`
`36`	`36`	`)`
`37`	`37`	`)`
`38`	`38`	`})`