summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ast.test13
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/ast.test b/tests/ast.test
index cb18e3f..596d9d3 100644
--- a/tests/ast.test
+++ b/tests/ast.test
@@ -1,6 +1,6 @@
;;; Excercise the AST routines. -*- Scheme -*-
;;;
-;;; Copyright (C) 2009 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright (C) 2009, 2012 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of Skribilo.
;;;
@@ -99,6 +99,17 @@
(equal? (map markup-ident lst)
(map number->string (iota 2))))))
+(test-assert "node-children"
+ (let* ((doc (document
+ (chapter #:ident "0" (section #:ident "s"))
+ (list (chapter #:ident "1"))
+ "hey"
+ (list "foo"
+ (chapter #:ident "2"))))
+ (lst (node-children doc)))
+ (equal? (map markup-ident lst)
+ '("0" "1" "2"))))
+
(test-end "ast")