tests/testthat/test-beep_3_times.R

In Neves-P/repeatbeeps: Beeps Three Times on GitHub

context("test-beep_3_times")

test_that("use", {
  if (Sys.info()["sysname"] == "Linux") {
    expect_is(
      repeatbeeps::beep_3_times(), class = "character"
    )
  } else {
    expect_is(
      repeatbeeps::beep_3_times(), class = "audioInstance"
    )
  }
})