literate: add org sources for orphan test files, update README

- Create org/integration-tests.org (15 blocks, per-test prose)
- Add Markdown tests section to org/markdown-renderer.org (11 test blocks)
- Delete deprecated src/components/input-tests.lisp stub
- Update README.org: tree diagram, literate programming section,
  development commands, remove stale test counts

All 13 test suites pass at 100%. Zero .lisp files without org origin.

tests/markdown-tests.lisp

@@ -11,6 +11,7 @@
 
 (in-suite :cl-tty-markdown-test)
 
+
 ;; ─── Parser edge cases ─────────────────────────────────────────
 
 (def-test render-markdown-nil ( )
@@ -88,6 +89,7 @@
   "Only blank lines produce empty output."
   (is (string= "" (render-markdown (format nil "~%~%")))))
 
+
 ;; ─── Parser tests ─────────────────────────────────────────────────────────────
 
 (def-test heading-parsing ( )
@@ -112,6 +114,7 @@
     (is-true (eql :text (getf (first children) :type)))
     (is-true (eql :bold (getf (second children) :type)))))
 
+
 (def-test paragraph-parsing ( )
   (let* ((result (parse-blocks "This is a paragraph.")) (node (first result)))
     (is-true (eql :paragraph (getf node :type)))))
@@ -120,6 +123,7 @@
   (let* ((result (parse-blocks "Line one\nLine two")) (node (first result)))
     (is-true (eql :paragraph (getf node :type)))))
 
+
 (def-test bold-parsing ( )
   (let* ((children (parse-inline "hello **world** here"))
          (bold-node (second children)))
@@ -156,6 +160,7 @@
       (is-true (eql :text (getf (first link-text) :type)))
       (is (equal "here" (getf (first link-text) :content))))))
 
+
 (def-test code-block-parsing ( )
   (let* ((lines '("```lisp" "(defun hello ())" "  (print \"hi\")" "```"))
          (text (format nil "~{~a~%~}" lines))
@@ -171,6 +176,7 @@
     (is-true (eql :code-block (getf node :type)))
     (is-false (getf (getf node :properties) :language))))
 
+
 (def-test blockquote-parsing ( )
   (let* ((result (parse-blocks "> This is a quote")) (node (first result)))
     (is-true (eql :blockquote (getf node :type)))))
@@ -187,6 +193,7 @@
   (let* ((result (parse-blocks "---")) (node (first result)))
     (is-true (eql :thematic-break (getf node :type)))))
 
+
 ;; ─── Diff tests ───────────────────────────────────────────────────────────────
 
 (def-test classify-diff-added ( )
@@ -196,11 +203,12 @@
   (is (eql :removed (classify-diff-line "-this is removed"))))
 
 (def-test classify-diff-hunk ( )
-  (is (eql :hunk-header (classify-diff-line "@@ -1,3 +1,4 @@" ))))
+  (is (eql :hunk-header (classify-diff-line "@@ -1,3 +1,4 @@"))))
 
 (def-test classify-diff-context ( )
   (is (eql :context (classify-diff-line " normal context"))))
 
+
 ;; ─── Syntax highlighting tests ────────────────────────────────────────────────
 (def-test highlight-lisp-keyword ( )
   (let ((tokens (highlight-code "(defun hello ()" "lisp")))
@@ -223,6 +231,7 @@
   (let ((tokens (highlight-code "; this is a comment" "lisp")))
     (is-true (some (lambda (pair) (eql :comment (cdr pair))) tokens))))
 
+
 ;; ─── Render tests ─────────────────────────────────────────────────────────────
 
 (def-test render-heading-output ( )
@@ -259,10 +268,11 @@
     (is (search "added" (fourth lines)))
     (is (search "removed" (fifth lines)))))
 
+
 ;; ─── Integration tests ────────────────────────────────────────────────────────
 
 (def-test markdown-integration ( )
-  (let* ((md (format nil "# Title~%~%This is **bold** and `code`.~%~%- Item 1~%- Item 2~%~%> A quote~%~%```lisp~%(defun hello ())~%  (print \"hi\")~%```~%~%---"))
+  (let* ((md (format nil "# Title~%~%This is **bold** and `code`.~%~%- Item 1~%~%- Item 2~%~%> A quote~%~%```lisp~%(defun hello ())~%  (print \"hi\")~%```~%~%---"))
          (nodes (parse-blocks md)) (lines (render-md nodes)))
     (is-true (> (length lines) 5))
     (is-true (search "# Title" (first lines)))))