diff options
| author | Ludovic Courtès | 2009-05-26 23:21:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2009-05-26 23:21:12 +0200 |
| commit | d0425ffc943f791f8bc71eff9b8cb355b5559bea (patch) | |
| tree | 82d9935379c5e7ad51ab5576368027434c1af6d6 | |
| parent | 7221ccf9edd1ebde56a7915a338dacf537e8f3fb (diff) | |
| download | skribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.tar.gz skribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.tar.lz skribilo-d0425ffc943f791f8bc71eff9b8cb355b5559bea.zip | |
resolve: Add new test.
* tests/resolve.test ("unresolved node in nested document"): New test.
| -rw-r--r-- | tests/resolve.test | 12 |
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") |