tests/testthat/test-brew_version.R

In briandconnelly/homebrew: Install and Manage Packages using 'Homebrew'

test_that("brew_version catches invalid args", {
  # Error on unexpected arguments
  expect_error(brew_version(package = "unixodbc"))
  expect_error(brew_version(formula = FALSE))
})

test_that("brew_version works as expected", {
  skip_on_os("windows")
  skip_if_not(has_homebrew(), message = "Homebrew not installed")

  # Returns a named list
  valid_result <- brew_version()
  expect_true(is.list(valid_result))
  expect_named(valid_result)
  expect_true(utils::hasName(valid_result, "homebrew"))
  expect_true(utils::hasName(valid_result, "core"))
  # 'cask' won't be present if not tapped
})