From 48b6b8d4821f8cb5825b1f58043788aa5ed01450 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 14 Jun 2005 03:05:47 +0000
Subject: [PATCH] Add const fold test

---
 ansi-tests/string-right-trim.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ansi-tests/string-right-trim.lsp b/ansi-tests/string-right-trim.lsp
index 66f3e66b..1706b78e 100644
--- a/ansi-tests/string-right-trim.lsp
+++ b/ansi-tests/string-right-trim.lsp
@@ -213,6 +213,8 @@
      i x y))
   "   abc d e f" 2 1 2)
 
+(def-fold-test string-right-trim.fold.1 (string-right-trim " " "abcd "))
+
 ;;; Error cases
 
 (deftest string-right-trim.error.1
-- 
GitLab