Mercurial > hg > xemacs-beta

view tests/frame.el @ 4715:a357478dd457

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix some test failures, mule-tests.el. 2009-10-12 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el : Revert to the old Unicode mapping for scaron once we're finished testing it. Don't check the fixed-width coding systems with odd line endings for ASCII-transparency; maybe we should, but that would require that invalid sequence characters for on-disk ?\x0a be generated by Macintosh line-ending coding systems, for example.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 12 Oct 2009 17:01:15 +0100
parents 360340f9fd5f
children 931aaa7a6b37
line wrap: on
line source

;;; Test geometry settings for frames
(defmacro check-frame-geometry (xx yy)
  `(loop for frame in (list nil (selected-frame))
	 do
	 (assert (eq (frame-property frame 'top)  ,yy))
	 (assert (eq (frame-property frame 'left) ,xx))
	 (assert (eq (frame-property frame 'top)  ,yy))
	 (assert (eq (frame-property frame 'left) ,xx))
	 (loop for plist in
	       (list (frame-properties)
		     (frame-properties nil)
		     (frame-properties (selected-frame)))
	       do
	       (assert (eq (plist-get plist 'top)  ,yy))
	       (assert (eq (plist-get plist 'left) ,xx)))))

(loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200))
      do
      (loop for frame in (list nil (selected-frame))
	    do
	    (set-frame-properties frame `(left ,x top ,y))
	    (check-frame-geometry x y)
	    (set-frame-property frame 'top (+ y 3))
	    (check-frame-geometry x (+ y 3))
	    (set-frame-property frame 'left (+ x 3))
	    (check-frame-geometry (+ x 3) (+ y 3))))