`edge_quick_setup(NULL)` threw an error with unexpected message.
Expected match: "model_name must be a string"
Actual message: "model_name cannot be empty"

test_that("Model management functions work correctly", {
test_that("edge_list_models provides valid model information", {
# Check required columns (match actual implementation)
required_cols <- c("name", "size", "model_id", "filename", "use_case")
# Check data types (match actual implementation)
test_that("Model memory management works correctly", {
result <- edge_completion(ctx, "Test", n_predict = 2)
# Model should no longer be valid after freeing
# Test that we can load multiple models (if system has enough memory)
ctx2 <- edge_load_model(model_path, n_ctx = 128)
result1 <- edge_completion(ctx1, "Hello", n_predict = 2)
result2 <- edge_completion(ctx2, "Hi", n_predict = 2)
skip("No test model available for memory management tests")
test_that("edge_free_model handles invalid contexts gracefully", {
# These should not crash, just handle gracefully
test_that("Model format validation works", {
# Test that GGUF file is properly recognized
# Test with non-GGUF files (should fail gracefully)
test_that("Helper functions work correctly", {
test_that("is_valid_model works with various inputs", {
info = paste("Should be invalid:", class(input)))

"Model management functions work correctly"
"edge_list_models provides valid model information"
"Model memory management works correctly"
"No test model available for memory management tests"
"edge_free_model handles invalid contexts gracefully"
"is_valid_model works with various inputs"