library(testthat)

test_that("download_ffmpeg() returns a valid path", {
  ffmpeg_path <- download_ffmpeg()
  
  expect_type(ffmpeg_path, "character")
  
  # Check if the file exists at the returned path
  expect_true(file.exists(ffmpeg_path))
})