amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(chaos): force absolute-relative tangle paths in harness

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 18:00:49 -04:00
parent 75cc9e3629
commit d15225a453
13 changed files with 54 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harness/tui-client.org
View File

@@ -22,26 +22,26 @@ A simple MVP console is insufficient for a Lisp Machine. To reach v0.2.0, the TU
* Phase B: Protocol (Success Criteria)
** Test Suite Context
#+begin_src lisp :tangle ((concat (getenv "INSTALL_DIR") "/tests/tui-tests.lisp"))
#+begin_src lisp :tangle ((expand-file-name "tui-tests.lisp"))
(defpackage :opencortex-tui-tests
(:use :cl :fiveam :opencortex)
(:export #:tui-suite))
#+end_src
#+begin_src lisp :tangle ((concat (getenv "INSTALL_DIR") "/tests/tui-tests.lisp"))
#+begin_src lisp :tangle ((expand-file-name "tui-tests.lisp"))
(in-package :opencortex-tui-tests)
#+end_src
#+begin_src lisp :tangle ((concat (getenv "INSTALL_DIR") "/tests/tui-tests.lisp"))
#+begin_src lisp :tangle ((expand-file-name "tui-tests.lisp"))
(def-suite tui-suite :description "Verification of the TUI parsing and styling logic")
#+end_src
#+begin_src lisp :tangle ((concat (getenv "INSTALL_DIR") "/tests/tui-tests.lisp"))
#+begin_src lisp :tangle ((expand-file-name "tui-tests.lisp"))
(in-suite tui-suite)
#+end_src
** Command Parsing Tests
#+begin_src lisp :tangle ((concat (getenv "INSTALL_DIR") "/tests/tui-tests.lisp"))
#+begin_src lisp :tangle ((expand-file-name "tui-tests.lisp"))
(test test-tui-connection-drop
"Tier 2 Chaos: Verify that handle-return degrades gracefully when the daemon connection is lost."
(let ((opencortex.tui::*incoming-msgs* nil)