make test more robust

wlandau · Oct 2, 2024 · cad8d9c · cad8d9c
1 parent 378e3c1
commit cad8d9c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/local/test-transient.R b/tests/local/test-transient.R
@@ -9,15 +9,15 @@ crew_test("backlog of tasks for transient workers", {
   time <- system.time({
     for (index in seq_len(n)) {
       name <- paste0("task_", index)
-      x$push(name = name, command = ps::ps_pid())
+      x$push(name = name, command = Sys.getenv("CREW_INSTANCE"))
     }
   })
   message(time["elapsed"])
   # Launch many more tasks.
   time <- system.time({
     for (index in seq_len(n)) {
       name <- paste0("task_", index)
-      x$push(name = name, command = ps::ps_pid())
+      x$push(name = name, command = Sys.getenv("CREW_INSTANCE"))
     }
   })
   message(time["elapsed"])
@@ -38,7 +38,7 @@ crew_test("backlog of tasks for transient workers", {
   message(time["elapsed"])
   testthat::expect_equal(sum(x$launcher$summary()$launches), 2 * n)
   results <- tibble::as_tibble(do.call(rbind, results))
-  results$result <- as.integer(results$result)
+  results$result <- as.character(results$result)
   testthat::expect_equal(length(unique(results$result)), 2 * n)
   x$terminate()
 })