summaryrefslogtreecommitdiff
path: root/tests/resolve.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/resolve.test')
-rw-r--r--tests/resolve.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/resolve.test b/tests/resolve.test
index 864ac88..18408e8 100644
--- a/tests/resolve.test
+++ b/tests/resolve.test
@@ -192,6 +192,17 @@
(eq? (ast-parent x) sub)
(eq? (ast-document x) sub))))))
+(test-assert "node bindings in processor body"
+ (let* ((doc (document #:title "Doc"
+ (processor #:combinator (lambda (e1 e2) e1)
+ (chapter #:ident "c")))))
+ (resolve! doc %engine '())
+ (let* ((proc (car (markup-body doc)))
+ (ch (car (markup-body proc)))
+ (ch* (document-lookup-node doc "c")))
+ (format (current-error-port) "~A vs ~A~%" ch ch*)
+ (eq? ch ch*))))
+
(test-end "resolve")