tests/testthat/test-brew_info.R

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

test_that("input validation", {
  expect_error(brew_info())
  expect_error(brew_info(TRUE))
  expect_error(brew_info(""))
  expect_error(brew_info(c("unixodbc", "")))
  expect_error(brew_info(pkg = "unixodbc"))
})

test_that("output", {
  skip_on_os("windows")
  skip_if_not(has_homebrew(), message = "Homebrew not installed")

  valid_result1 <- brew_info(package = "unixodbc")
  expect_true(is.list(valid_result1))
  expect_equal(length(valid_result1), 1)
  expect_equal(valid_result1[[1]]$name, "unixodbc")

  valid_result2 <- brew_info(package = c("unixodbc", "pwgen"))
  expect_true(is.list(valid_result2))
  expect_equal(length(valid_result2), 2)
})