18 lines
759 B
Common Lisp
18 lines
759 B
Common Lisp
(defpackage :opencortex-llm-gateway-tests
|
|
(:use :cl :fiveam :opencortex)
|
|
(:export #:llm-gateway-suite))
|
|
|
|
(in-package :opencortex-llm-gateway-tests)
|
|
|
|
(def-suite llm-gateway-suite :description "Tests for the LLM Gateway skill")
|
|
(in-suite llm-gateway-suite)
|
|
|
|
(test test-llm-gateway-timeout
|
|
"Tier 2 Chaos: Verify that LLM Gateway handles connection failures gracefully."
|
|
;; Point to a non-existent port to force a connection error
|
|
(let ((uiop:*environment* (copy-list uiop:*environment*)))
|
|
(setf (uiop:getenv "OLLAMA_HOST") "localhost:1")
|
|
(let ((result (opencortex::execute-llm-request :prompt "hello" :provider :ollama)))
|
|
(is (eq (getf result :status) :error))
|
|
(is (uiop:string-prefix-p "Ollama Failure" (getf result :message))))))
|