diff --git a/tests/testthat/test-get_custom_effort.R b/tests/testthat/test-get_custom_effort.R
index 6f796f53..0fa3a102 100644
--- a/tests/testthat/test-get_custom_effort.R
+++ b/tests/testthat/test-get_custom_effort.R
@@ -254,6 +254,21 @@ test_that("right columns, cols types, right relative number of rows", {
   expect_lt(nrow(set_start_end), nrow(set_start))
 })
 
+test_that("output get_custom_effort can be manipulated to output get_effort", {
+  # Get effort in days per deployment
+  effort_days <- get_custom_effort(mica)
+  # Total effort via get_effort
+  tot_effort <- get_effort(mica)
+  # Same effort per deployment
+  expect_equal(effort_days$effort, tot_effort$effort)
+  # Columns `deploymentID` and `effort` are equal
+  expect_equal(effort_days$deploymentID, tot_effort$deploymentID)
+  # While grouping per a specific time interval, the sum of effort is equal to total effort as calculated via `get_effort()`
+  effort_days_per_week <- get_custom_effort(mica, group_by = "week")
+  expect_equal(sum(effort_days_per_week$effort), sum(tot_effort$effort))
+})
+
+
 test_that("check effort and unit values", {
   tot_effort <- get_custom_effort(mica)
   # Filtering on deployments reduces number of rows (less deployments)