"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tests/automated/mule-tests.el" between
xemacs-21.4.22.tar.gz and xemacs-21.4.24.tar.bz2

About: XEmacs (an alternative to GNU Emacs) is a highly customizable open source text editor and application development system (current version).

mule-tests.el  (xemacs-21.4.22):mule-tests.el  (xemacs-21.4.24.tar.bz2)
skipping to change at line 323 skipping to change at line 323
(Assert (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string))) ) (Assert (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string))) )
(let ((ascii-string (charset-char-string 'ascii)) (let ((ascii-string (charset-char-string 'ascii))
(string (make-string (* 94 60) (make-char 'greek-iso8859-7 57)))) (string (make-string (* 94 60) (make-char 'greek-iso8859-7 57))))
(loop for j from (1- (length string)) downto 0 do (loop for j from (1- (length string)) downto 0 do
(aset string j (aref ascii-string (mod j 94)))) (aset string j (aref ascii-string (mod j 94))))
(loop for k in '(0 1 58 59) do (loop for k in '(0 1 58 59) do
(Assert (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string)))) (Assert (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string))))
;;--------------------------------------------------------------- ;;---------------------------------------------------------------
;; Test string character conversion
;;---------------------------------------------------------------
;; #### This should test all coding systems!
(let ((all-octets (let ((s (make-string 256 ?\000)))
(loop for i from (1- (length s)) downto 0 do
(aset s i (int-char i)))
s))
(escape-quoted-result (let ((schar '(27 155 142 143 14 15))
(s (make-string 262 ?\000))
(pos 0))
(loop for ord from 0 to 255 do
(when (member ord schar)
(aset s pos ?\033)
(setq pos (1+ pos)))
(aset s pos (int-char ord))
(setq pos (1+ pos)))
s)))
(Assert (string= (encode-coding-string all-octets 'escape-quoted)
escape-quoted-result)))
;;---------------------------------------------------------------
;; Test file-system character conversion (and, en passant, file ops) ;; Test file-system character conversion (and, en passant, file ops)
;;--------------------------------------------------------------- ;;---------------------------------------------------------------
(let* ((scaron (make-char 'latin-iso8859-2 57)) (let* ((scaron (make-char 'latin-iso8859-2 57))
(latin2-string (make-string 4 scaron)) (latin2-string (make-string 4 scaron))
(prefix (concat (file-name-as-directory (prefix (concat (file-name-as-directory
(file-truename (temp-directory))) (file-truename (temp-directory)))
latin2-string)) latin2-string))
(name1 (make-temp-name prefix)) (name1 (make-temp-name prefix))
(name2 (make-temp-name prefix)) (name2 (make-temp-name prefix))
(file-name-coding-system 'iso-8859-2)) (file-name-coding-system 'iso-8859-2))
 End of changes. 1 change blocks. 
0 lines changed or deleted 23 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)