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

fix: pre-existing paren imbalances in programming-org and system-archivist tests
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-05-05 16:25:28 -04:00
parent 23b8cfacd3
commit a2ede2dd89
4 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/programming-org.lisp
View File

@@ -298,9 +298,13 @@ AST format: (:TYPE :HEADLINE :properties (:ID ... :TITLE ... :TAGS (...))
(test test-org-headline-find-by-id
"Contract 6: org-headline-find-by-id finds a headline by ID."
(let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root")
:contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child"))
(list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2")))))))
(let* ((ast (list :type :HEADLINE
:properties (list :ID "root" :TITLE "Root")
:contents
(list (list :type :HEADLINE
:properties (list :ID "child1" :TITLE "Child"))
(list :type :HEADLINE
:properties (list :ID "child2" :TITLE "Child 2"))))))
(let ((found (org-headline-find-by-id ast "child2")))
(is (not (null found)))
(is (string= "Child 2" (getf (getf found :properties) :TITLE))))

2
lisp/system-archivist.lisp
View File

@@ -276,4 +276,4 @@ and dispatches as needed. Called by the deterministic gate."
"Expected note creation to return T")
(is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
"Expected file test_note.org to exist"))
(uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))
(uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))))

10
org/programming-org.org
View File

@@ -402,9 +402,13 @@ Verification of the structural manipulation for Org-mode files and their AST rep
(test test-org-headline-find-by-id
"Contract 6: org-headline-find-by-id finds a headline by ID."
(let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root")
:contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child"))
(list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2")))))))
(let* ((ast (list :type :HEADLINE
:properties (list :ID "root" :TITLE "Root")
:contents
(list (list :type :HEADLINE
:properties (list :ID "child1" :TITLE "Child"))
(list :type :HEADLINE
:properties (list :ID "child2" :TITLE "Child 2"))))))
(let ((found (org-headline-find-by-id ast "child2")))
(is (not (null found)))
(is (string= "Child 2" (getf (getf found :properties) :TITLE))))

2
org/system-archivist.org
View File

@@ -377,5 +377,5 @@ and dispatches as needed. Called by the deterministic gate."
"Expected note creation to return T")
(is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
"Expected file test_note.org to exist"))
(uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))
(uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))))
#+end_src