Expect message test doesn't look right

[rjake]

# this returns TRUE
expect_message(
    data.frame(new = 18:22/100, old = 0.2) |>
      add_headline_column(new, old, return_cols = c(x, y))
  )

# even though this doesn't print a message
    data.frame(new = 18:22/100, old = 0.2) |>
      add_headline_column(new, old, return_cols = c(x, y))

# but this shows a message
capture_messages(
    data.frame(new = 18:22/100, old = 0.2) |>
      add_headline_column(
        new, old,
        return_cols = c(x, y)
      )
  )