model$size_gb > 0 is not TRUE

`actual`:       
`expected`: TRUE

test_that("Integration tests work correctly", {
test_that("Complete workflow integration test", {
ctx <- edge_load_model(model_path, n_ctx = 512)
# 2. Test multiple completions with the same context
results[i] <- edge_completion(ctx, prompts[i], n_predict = 8)
# 3. Test that results are different (high probability)
info = "Results should generally be different")
# 5. Verify we can't use the context after freeing
skip("No test model available for integration tests")
test_that("Model listing and information consistency", {
info = "Model listing should be consistent")
# Check that listed models have reasonable properties
# Model ID should be non-empty and reasonable format
info = "Model ID should typically contain '/' for org/model format")
info = "Model size should be reasonable (< 1TB)")
test_that("Package namespace and exports", {
# Test that all expected functions are exported
info = paste("Function should be exported:", func_name))
# Test package loading and basic functionality
# Test that we can access documentation (if available)
# This is mainly to ensure the package structure is correct
help_result <- utils::help("edge_load_model", package = "edgemodelr")
# If help exists, it should have content
# Help might not be available in all test environments
message("Help documentation not available in test environment")
test_that("Stress test with multiple operations", {
# Stress test: multiple load/use/free cycles
prompt <- paste("Test prompt", cycle, completion)
skip("No test model available for stress tests")
test_that("Performance and timing tests", {
# Test that operations complete in reasonable time
# Model loading should complete within reasonable time (30 seconds)
load_time <- as.numeric(difftime(Sys.time(), start_time, units = "secs"))
info = paste("Model loading took", round(load_time, 2), "seconds"))
# Text completion should complete within reasonable time (10 seconds)
result <- edge_completion(ctx, "Quick test", n_predict = 5)
completion_time <- as.numeric(difftime(Sys.time(), start_time, units = "secs"))
info = paste("Text completion took", round(completion_time, 2), "seconds"))
free_time <- as.numeric(difftime(Sys.time(), start_time, units = "secs"))
info = paste("Model freeing took", round(free_time, 2), "seconds"))
skip("No test model available for performance tests")