XEmacs 21.2.29 "Hestia".

[chise/xemacs-chise.git.1] / tests / automated / base64-tests.el

diff --git a/tests/automated/base64-tests.el b/tests/automated/base64-tests.el
index 3c11ec2..264ff6b 100644 (file)
--- a/tests/automated/base64-tests.el
+++ b/tests/automated/base64-tests.el
@@ -174,30 +174,24 @@ oqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX
 (defconst bt-nonbase64-chars (set-difference (mapcar #'identity bt-allchars)
                                             bt-base64-chars))
 
-(when nil
-  ;; This code crashes XEmacs!  This requires further investigation.
-  ;; I'm running Linux, and for me, XEmacs crashes in
-  ;; Fmapconcat()->mapcar1(), after a GC that thrashes the stack.
-  ;; Raymond Toy reports a similar crash under Solaris.
-  (loop for (raw encoded) in bt-test-strings do
-    (unless (equal raw "")
-      (let* ((middlepos (/ (1+ (length encoded)) 2))
-            (left (substring encoded 0 middlepos))
-            (right (substring encoded middlepos)))
-       ;; Whitespace at the beginning, end, and middle.
-       (let ((mangled (concat bt-nonbase64-chars left bt-nonbase64-chars right
-                              bt-nonbase64-chars)))
-         (Assert (equal (bt-base64-decode-string mangled) raw)))
-
-       ;; Whitespace between every char.
-       (let ((mangled (concat bt-nonbase64-chars
-                              ;; ENCODED with bt-nonbase64-chars
-                              ;; between every character.
-                              (mapconcat #'char-to-string encoded
-                                         (apply #'string bt-nonbase64-chars))
-                              bt-nonbase64-chars)))
-         (Assert (equal (bt-base64-decode-string mangled) raw))))))
-  )
+(loop for (raw encoded) in bt-test-strings do
+  (unless (equal raw "")
+    (let* ((middlepos (/ (1+ (length encoded)) 2))
+          (left (substring encoded 0 middlepos))
+          (right (substring encoded middlepos)))
+      ;; Whitespace at the beginning, end, and middle.
+      (let ((mangled (concat bt-nonbase64-chars left bt-nonbase64-chars right
+                            bt-nonbase64-chars)))
+       (Assert (equal (bt-base64-decode-string mangled) raw)))
+
+      ;; Whitespace between every char.
+      (let ((mangled (concat bt-nonbase64-chars
+                            ;; ENCODED with bt-nonbase64-chars
+                            ;; between every character.
+                            (mapconcat #'char-to-string encoded
+                                       (apply #'string bt-nonbase64-chars))
+                            bt-nonbase64-chars)))
+       (Assert (equal (bt-base64-decode-string mangled) raw))))))
 
 ;;-----------------------------------------------------
 ;; Mixed...