test_that("messaging helpers emit structured base-R messages", {
  withr::local_options(list(
    OdysseusCostModule.quiet = FALSE,
    OdysseusCostModule.useAnsi = FALSE,
    OdysseusCostModule.useUnicode = FALSE
  ))

  expect_match(OdysseusCostModule:::.ocm_rule("Pipeline"), "^-- Pipeline -+$")
  expect_identical(OdysseusCostModule:::.ocm_prefix("step", indent = 1), "  - ")
  expect_identical(OdysseusCostModule:::.ocm_prefix("done"), "v ")
  expect_identical(OdysseusCostModule:::.ocm_prefix("skip", indent = 2), "    o ")
})

test_that("messaging helpers respect quiet mode", {
  withr::local_options(list(OdysseusCostModule.quiet = TRUE))

  expect_silent(OdysseusCostModule:::.ocm_step("Hidden"))
  expect_silent(OdysseusCostModule:::.ocm_done("Hidden"))
})