;;; core-elisp-tests.el --- Testing some core Elisp rules
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords:
(should (equal (list (let ((c-e-x 1)) (defvar c-e-x 2) c-e-x) c-e-x)
'(1 2)))
(should (equal (list (let ((c-e-x 1))
- (defcustom c-e-x "doc" 2 :group 'blah) c-e-x)
+ (defcustom c-e-x 2 "doc" :group 'blah) c-e-x)
c-e-x)
'(1 2)))))
+(ert-deftest core-elisp-test-window-configurations ()
+ "Test properties of window-configurations."
+ (let ((wc (current-window-configuration)))
+ (with-current-buffer (window-buffer (frame-selected-window))
+ (push-mark)
+ (activate-mark))
+ (set-window-configuration wc)
+ (should (or (not mark-active) (mark)))))
+
(provide 'core-elisp-tests)
;;; core-elisp-tests.el ends here