GNU bug report logs - #61305
[PATCH 0/2] Rewrite ast->string

Previous Next

Full log

View this message in rfc822 format

From: Arun Isaac <arunisaac <at> systemreboot.net>
To: 61305 <at> debbugs.gnu.org
Cc: Arun Isaac <arunisaac <at> systemreboot.net>
Subject: bug#61305: [PATCH 1/2] tests: Test ast->string.
Date: Mon,  6 Feb 2023 00:03:08 +0000

* 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 <at> gnu.org>
+;;; Copyright (C) 2023 Arun Isaac <arunisaac <at> 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.