diff options
| -rw-r--r-- | tests/ast.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/ast.test b/tests/ast.test index 1110faf..ed09bb0 100644 --- a/tests/ast.test +++ b/tests/ast.test @@ -1,6 +1,7 @@ ;;; Excercise the AST routines. -*- Scheme -*- ;;; ;;; Copyright (C) 2009, 2012, 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright (C) 2023 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of Skribilo. ;;; @@ -64,6 +65,10 @@ (null? (cdr body)))))) (null? (cdr body))))) +(test-equal "ast->string" + "Blah." + (ast->string (document #:title "Foo" (chapter #:title "Bar" "Blah.")))) + (test-assert "`find-down' returns the empty list" (let* ((doc (document (chapter (section)) (chapter (section)))) (lst (find-down (lambda (n) (is-markup? n 'chapter)) doc))) |