Mercurial > hg > xemacs-beta
annotate tests/frame.el @ 5067:7d7ae8db0341
add functions `stable-union' and `stable-intersection' to do stable set operations
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* cl-seq.el:
* cl-seq.el (stable-union): New.
* cl-seq.el (stable-intersection): New.
New functions to do stable set operations, i.e. preserve the order
of the elements in the argument lists, and prefer LIST1 over LIST2
when ordering the combined result. The result looks as much like
LIST1 as possible, followed (in the case of `stable-union') by
any necessary elements from LIST2, in order. This is contrary to
`union' and `intersection', which are not required to be order-
preserving and are not -- they prefer LIST2 and output results in
backwards order.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 22 Feb 2010 21:23:02 -0600 |
parents | 931aaa7a6b37 |
children | 308d34e9f07d |
rev | line source |
---|---|
4980
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
1 ;;; Test geometry setting for frames. |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
2 ;;; |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
3 ;;; Copyright (C) 1997 Martin Buchholz |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
4 ;;; |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
5 ;;; This file is part of XEmacs. |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
6 ;;; |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
7 ;;; XEmacs is free software; you can redistribute it and/or modify it |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
8 ;;; under the terms of the GNU General Public License as published by |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
9 ;;; the Free Software Foundation; either version 2, or (at your |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
10 ;;; option) any later version. |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
11 ;;; |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
12 ;;; XEmacs is distributed in the hope that it will be useful, but |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
15 ;;; General Public License for more details. |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
16 ;;; |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
17 ;;; You should have received a copy of the GNU General Public License |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
18 ;;; along with XEmacs; see the file COPYING. If not, write to the Free |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
19 ;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
20 ;;; Boston, MA 02110-1301, USA. |
931aaa7a6b37
Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents:
108
diff
changeset
|
21 |
108 | 22 (defmacro check-frame-geometry (xx yy) |
23 `(loop for frame in (list nil (selected-frame)) | |
24 do | |
25 (assert (eq (frame-property frame 'top) ,yy)) | |
26 (assert (eq (frame-property frame 'left) ,xx)) | |
27 (assert (eq (frame-property frame 'top) ,yy)) | |
28 (assert (eq (frame-property frame 'left) ,xx)) | |
29 (loop for plist in | |
30 (list (frame-properties) | |
31 (frame-properties nil) | |
32 (frame-properties (selected-frame))) | |
33 do | |
34 (assert (eq (plist-get plist 'top) ,yy)) | |
35 (assert (eq (plist-get plist 'left) ,xx))))) | |
36 | |
37 (loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200)) | |
38 do | |
39 (loop for frame in (list nil (selected-frame)) | |
40 do | |
41 (set-frame-properties frame `(left ,x top ,y)) | |
42 (check-frame-geometry x y) | |
43 (set-frame-property frame 'top (+ y 3)) | |
44 (check-frame-geometry x (+ y 3)) | |
45 (set-frame-property frame 'left (+ x 3)) | |
46 (check-frame-geometry (+ x 3) (+ y 3)))) |