Commit | Line | Data |
---|---|---|
a104f656 SM |
1 | ;;; core-elisp-tests.el --- Testing some core Elisp rules |
2 | ||
ba318903 | 3 | ;; Copyright (C) 2013-2014 Free Software Foundation, Inc. |
a104f656 SM |
4 | |
5 | ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> | |
6 | ;; Keywords: | |
7 | ||
8 | ;; This program is free software; you can redistribute it and/or modify | |
9 | ;; it under the terms of the GNU General Public License as published by | |
10 | ;; the Free Software Foundation, either version 3 of the License, or | |
11 | ;; (at your option) any later version. | |
12 | ||
13 | ;; This program is distributed in the hope that it will be useful, | |
14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;; GNU General Public License for more details. | |
17 | ||
18 | ;; You should have received a copy of the GNU General Public License | |
19 | ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
20 | ||
21 | ;;; Commentary: | |
22 | ||
23 | ;; | |
24 | ||
25 | ;;; Code: | |
26 | ||
27 | (ert-deftest core-elisp-tests () | |
28 | "Test some core Elisp rules." | |
29 | (with-temp-buffer | |
30 | ;; Check that when defvar is run within a let-binding, the toplevel default | |
31 | ;; is properly initialized. | |
32 | (should (equal (list (let ((c-e-x 1)) (defvar c-e-x 2) c-e-x) c-e-x) | |
33 | '(1 2))) | |
1f21d308 | 34 | (should (equal (list (let ((c-e-x 1)) |
5edd44c2 | 35 | (defcustom c-e-x 2 "doc" :group 'blah) c-e-x) |
1f21d308 | 36 | c-e-x) |
a104f656 SM |
37 | '(1 2))))) |
38 | ||
c435f506 SM |
39 | (ert-deftest core-elisp-test-window-configurations () |
40 | "Test properties of window-configurations." | |
41 | (let ((wc (current-window-configuration))) | |
42 | (with-current-buffer (window-buffer (frame-selected-window)) | |
43 | (push-mark) | |
44 | (activate-mark)) | |
45 | (set-window-configuration wc) | |
46 | (should (or (not mark-active) (mark))))) | |
47 | ||
a104f656 SM |
48 | (provide 'core-elisp-tests) |
49 | ;;; core-elisp-tests.el ends here |