X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fautomated%2Fbase64-tests.el;h=264ff6b3a0fc3b3b1735f1c522664e4ff57c791d;hp=fee7225aade1b823f677dc9247a0f9df5ab57d23;hb=3e447015251ce6dcde843cbed10d9033d5538622;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89

diff --git a/tests/automated/base64-tests.el b/tests/automated/base64-tests.el
index fee7225..264ff6b 100644
--- a/tests/automated/base64-tests.el
+++ b/tests/automated/base64-tests.el
@@ -174,31 +174,24 @@ oqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX
 (defconst bt-nonbase64-chars (set-difference (mapcar #'identity bt-allchars)
 					     bt-base64-chars))
 
-(when t
-  ;; This code crashes some versions of XEmacs 21.2!  This requires
-  ;; further investigation.  I (hniksic) am running Linux, and for me,
-  ;; XEmacs used to crash in Fmapconcat()->mapcar1(), after a GC that
-  ;; thrashes the stack.  Raymond Toy reported a similar crash under
-  ;; Solaris.  I can no longer repeat the bug, so I cannot fix it now.
-  (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...