test instrumentation

wlandau · Oct 22, 2024 · 71e0ae3 · 71e0ae3
1 parent 8da0cd9
commit 71e0ae3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-crew_controller_local.R b/tests/testthat/test-crew_controller_local.R
@@ -282,11 +282,12 @@ crew_test("crew_controller_local() resource usage metric logging", {
     crew_test_sleep()
   })
   x$start()
-  x$push(Sys.sleep(2))
+  x$push(name = "monitored_task", Sys.sleep(2))
   x$wait(mode = "all", seconds_timeout = 30)
   x$terminate()
   expect_true(dir.exists(log))
   data <- autometric::log_read(log)
+  expect_true(any("monitored_task" %in% data$phase))
   expect_true(is.data.frame(data))
   expect_gt(nrow(data), 0L)
   expect_equal(unique(data$status), 0L)