bug#61305: [PATCH 1/2] tests: Test ast->string.

[Arun Isaac]

* tests/ast.test ("ast->string"): New test.
---
 tests/ast.test | 5 +++++
 1 file changed, 5 insertions(+)

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)))
-- 
2.38.1