tests/testthat/test-play_random_song.R

In dhope/ARUtools: Tools for management of Acoustic Recording Unit (ARU) data

test_that("Playing does not affect global seed", {
  expect_equal({set.seed(1234)
    runif(1)} , {set.seed(1234)
      try(play_random_track("path/to/file/"), silent = TRUE)
      runif(1)}
    )
})

test_that("Weird file path gives error",
          {expect_error({
            play_random_track("I feel a bad path rising")
            })})