test_that("print", {
px <- get_tool("px")
p <- process$new(px, c("sleep", "5"))
on.exit(try_silently(p$kill(grace = 0)), add = TRUE)
expect_output(
print(p),
"PROCESS .* running, pid"
)
p$kill()
expect_output(
print(p),
"PROCESS .* finished"
)
})
Generated by dwww version 1.15 on Sat May 18 13:30:56 CEST 2024.