From d0425ffc943f791f8bc71eff9b8cb355b5559bea Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 26 May 2009 23:21:12 +0200
Subject: resolve: Add new test.

* tests/resolve.test ("unresolved node in nested document"): New test.
---
 tests/resolve.test | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'tests/resolve.test')

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")
-- 
cgit v1.2.3