Mercurial > hg > xemacs-beta
view tests/frame.el @ 4717:fcc7e89d5e68
Properly handle continuable divide-by-zero errors. Fix truncation of a
zero-valued ratio. See xemacs-patches message
<870180fe0910080956h5d674f03q185d11aa6fc57bd2@mail.gmail.com>.
author | Jerry James <james@xemacs.org> |
---|---|
date | Mon, 12 Oct 2009 12:10:04 -0600 |
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))))