tests/testthat/test-install.R

In localLLM: Running Local LLMs with 'llama.cpp' Backend

test_that("installation functions work", {
  
  # Test lib_is_installed function (should work without backend)
  expect_type(lib_is_installed(), "logical")
  
  # Test get_lib_path function only if backend is available
  if (lib_is_installed()) {
    lib_path <- get_lib_path()
    expect_type(lib_path, "character")
    expect_true(length(lib_path) > 0)
    expect_true(grepl("localllm", lib_path, ignore.case = TRUE))
  } else {
    # In CI environment, backend may not be installed
    # Just test that the function exists and can be called
    expect_error(get_lib_path(), "backend library is not installed")
  }
})

test_that("installation parameters are valid", {

  # Test that we can check installation status
  expect_silent({
    is_installed <- lib_is_installed()
    expect_type(is_installed, "logical")
  })

  # Test that installation directory can be created
  temp_dir <- tempdir()
  expect_true(dir.exists(temp_dir))
})