fix: redundant compute-layout per child, framebuffer diff size test, test file cleanup

tests/framebuffer-tests.lisp

@@ -58,6 +58,29 @@
       (is (eql #\A (cell-char (aref cells 6 6))) "inside scissor draws")
       (is (eql #\space (cell-char (aref cells 1 1))) "outside scissor is clipped"))))
 
+(test flush-different-sized-fbs-handles-edge-cells
+  "flush-framebuffer handles prev and curr framebuffers of different sizes
+   without errors. Cells in the overlapping region are diffed; cells outside
+   the overlap are silently ignored (no crash on array bounds)."
+  (let* ((small-fb (make-framebuffer 5 5))
+         (large-fb (make-framebuffer 10 10))
+         (be (make-simple-backend :output-stream (make-string-output-stream))))
+    ;; Set a cell in the small one for a change in the overlapping region
+    (setf (aref small-fb 0 0) (make-cell :char #\X :fg :red))
+    ;; diff-framebuffers should use min dimensions (5,5) — no crash
+    (let ((changes (diff-framebuffers small-fb large-fb)))
+      (is (= 1 (length changes)) "one cell changed in overlap region"))
+    ;; flush-framebuffer should also handle different sizes gracefully
+    (let ((changed (flush-framebuffer small-fb large-fb be)))
+      (is (= 1 changed) "flush reports 1 changed cell"))
+    ;; Reverse: large as prev, small as curr — extra cells in prev ignored
+    (setf (aref large-fb 9 9) (make-cell :char #\Y :fg :blue))
+    (let ((changes2 (diff-framebuffers large-fb small-fb)))
+      (is (= 1 (length changes2)) "only overlapping region diffed (smaller bounds)"))
+    ;; flush should also work with shrunk framebuffer
+    (let ((changed2 (flush-framebuffer large-fb small-fb be)))
+      (is (= 1 changed2) "flush with shrunk fb reports 1 changed cell"))))
+
 (test flush-fb-copies-to-backend
   (let* ((real-be (make-simple-backend :output-stream (make-string-output-stream)))
          (fb (make-framebuffer-backend)))

tests/input-tests.lisp

@@ -36,6 +36,28 @@
     (is (= (mouse-event-x e) 10))
     (is (= (mouse-event-y e) 5))))
 
+;; ── UTF-8 Decode Tests ──────────────────────────────────────────
+
+(test utf8-decode-latin1-supplement
+  "0xC3 0xA9 (é) decodes to code point 233."
+  (is (= (cl-tty.input:utf8-decode '(#xc3 #xa9)) 233)))
+
+(test utf8-decode-euro-sign
+  "0xE2 0x82 0xAC (€) decodes to code point 8364."
+  (is (= (cl-tty.input:utf8-decode '(#xe2 #x82 #xac)) 8364)))
+
+(test utf8-decode-emoji
+  "0xF0 0x9F 0x92 0xA9 (💩) decodes to code point 128169."
+  (is (= (cl-tty.input:utf8-decode '(#xf0 #x9f #x92 #xa9)) 128169)))
+
+(test utf8-decode-invalid-short
+  "Invalid byte 0x80 alone returns nil."
+  (is-false (cl-tty.input:utf8-decode '(#x80))))
+
+(test utf8-decode-invalid-overlong
+  "Overlong 2-byte sequence 0xC0 0x80 returns nil."
+  (is-false (cl-tty.input:utf8-decode '(#xc0 #x80))))
+
 ;; ── TextInput Tests ─────────────────────────────────────────────
 
 (test text-input-empty