summaryrefslogtreecommitdiff
path: root/test-suite/tests/texinfo.plain-text.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/texinfo.plain-text.test')
-rw-r--r--test-suite/tests/texinfo.plain-text.test20
1 files changed, 19 insertions, 1 deletions
diff --git a/test-suite/tests/texinfo.plain-text.test b/test-suite/tests/texinfo.plain-text.test
index 565da8c7d..4315cdbb1 100644
--- a/test-suite/tests/texinfo.plain-text.test
+++ b/test-suite/tests/texinfo.plain-text.test
@@ -31,4 +31,22 @@
"This is another sentence.\nThat too.\n\n"
(with-fluids ((*line-width* 26))
(stexi->plain-text
- '(*fragment* (para "This is another sentence. That too."))))))
+ '(*fragment* (para "This is another sentence. That too.")))))
+
+ (pass-if-equal "acronym"
+ "What's GNU (GNU's Not Unix)?\n\n"
+ (stexi->plain-text
+ '(*fragment* (para "What's "
+ (acronym (% (acronym "GNU")
+ (meaning "GNU's Not Unix")))
+ "?"))))
+
+ (pass-if-equal "recursive acronym"
+ "What's GNU (GNU's Not Unix)?\n\n"
+ (stexi->plain-text
+ '(*fragment* (para "What's "
+ (acronym (% (acronym "GNU")
+ (meaning (acronym
+ (% (acronym "GNU")))
+ "'s Not Unix")))
+ "?")))))