summaryrefslogtreecommitdiff
path: root/tests/resolve.test
diff options
context:
space:
mode:
authorLudovic Courtès2009-05-26 23:21:12 +0200
committerLudovic Courtès2009-05-26 23:21:12 +0200
commitd0425ffc943f791f8bc71eff9b8cb355b5559bea (patch)
tree82d9935379c5e7ad51ab5576368027434c1af6d6 /tests/resolve.test
parent7221ccf9edd1ebde56a7915a338dacf537e8f3fb (diff)
downloadskribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.tar.gz
skribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.tar.lz
skribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.zip
resolve: Add new test.
* tests/resolve.test ("unresolved node in nested document"): New test.
Diffstat (limited to 'tests/resolve.test')
-rw-r--r--tests/resolve.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/resolve.test b/tests/resolve.test
index 18408e8..282a8b8 100644
--- a/tests/resolve.test
+++ b/tests/resolve.test
@@ -119,6 +119,17 @@
(resolve! doc %engine '())
resolved?))))
+(test-assert "unresolved node in nested document"
+ (let* ((resolved? #f)
+ (doc (document #:title "Outer"
+ (document #:title "Inner"
+ (resolve (lambda (n e env)
+ (set! resolved? #t)))))))
+ (and (not resolved?)
+ (begin
+ (resolve! doc %engine '())
+ resolved?))))
+
(test-assert "unresolved node product has a parent"
(let* ((doc (document #:title "Doc"
(resolve (lambda (n e env)
@@ -200,7 +211,6 @@
(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")