Mercurial > hg > xemacs-beta

view tests/frame.el @ 4573:baf6c66f6f47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct the CCL programs used by the coding system in ccl-tests.el. 2009-01-03 Aidan Kehoe <kehoea@parhasard.net> * automated/ccl-tests.el (ccl-test-setup): Use sane CCL programs for decoding and encoding with the test CCL coding system by default. Correct a spelling in the docstring, add a safe-chars property so that we don't confuse query-coding-tests.el. (ccl-test-suites): Explicitly re-initialise the CCL programs for the test coding system once finished.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 03 Jan 2009 15:24:14 +0000
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))))