tests: standardize on embedded tests (migrate all from tests/ to lisp/ sources)

lisp/gateway-tui-main.lisp

@@ -163,3 +163,24 @@
         (refresh scr)
         (sleep 0.03))
        (disconnect-daemon))))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-tui-tests
+  (:use :cl :passepartout)
+  (:export #:tui-suite))
+
+(in-package :passepartout-tui-tests)
+
+(fiveam:def-suite tui-suite :description "Verification of the TUI parsing and styling logic")
+(fiveam:in-suite tui-suite)
+
+(fiveam:test test-tui-connection-drop
+  "Tier 2 Chaos: Verify that handle-return degrades gracefully when the daemon connection is lost."
+  (let ((passepartout.gateway-tui::*incoming-msgs* nil)
+        (passepartout.gateway-tui::*input-buffer* (make-array 5 :element-type 'character :initial-contents "hello" :fill-pointer 5 :adjustable t))
+        (mock-stream (make-string-output-stream)))
+    (close mock-stream)
+    (passepartout.gateway-tui::handle-return mock-stream)
+    (fiveam:is (member "ERROR: Connection to daemon lost." passepartout.gateway-tui::*incoming-msgs* :test #'string=))))