test_that("voyage_embedding returns expected response for text input", {
# Store the current API key and set a dummy key if none exists
"The quick brown fox jumps over the lazy dog"
# Check that the result is a tibble with the correct columns and values
# Assuming embeddings are 1024-dimensional vectors
test_that("voyage_embedding returns expected response for multimodal input", {
result <- list("A banana", img(temp_img)) |>
# Expected input labels: text items remain as-is and images get prefixed with "[IMG] "

"voyage_embedding returns expected response for text input"
"voyage_embedding returns expected response for multimodal input"

voyage_embedding returns expected response for multimodal input