# Test beep / notification function

context("Test beep() function")

test_that("beep() returns invisibly", {
  expect_invisible(beep())
  expect_invisible(beep("test", type = "beep"))
  expect_invisible(beep("test", type = "all"))
})

test_that("beep() with quiet=TRUE produces no output", {
  expect_silent(beep("test", type = "beep", quiet = TRUE))
})

test_that("beep() with type=notify is silent when no tools available", {
  # When notify-send and osascript are both absent, should be silent
  expect_silent(beep("test", type = "notify"))
})

test_that("beep() with type=webhook and no URL is silent", {
  expect_silent(beep("test", type = "webhook"))
})