CVS update by adrian ADDED: xemacs/tests/automated region-tests.el
User: adrian
Date: 05/02/25 00:02:37
Added: xemacs/tests/automated region-tests.el
Log:
xemacs-21.5-clean: Add tests\automated\region-tests.el to test region-active-p fix
-------------------- ChangeLog entries follow: --------------------
tests/ChangeLog addition:
2005-02-25 Adrian Aichner <adrian(a)xemacs.org>
* automated/region-tests.el: Test regions and zmacs-regions.
Revision Changes Path
1.65 +4 -0 XEmacs/xemacs/tests/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -r1.64 -r1.65
--- ChangeLog 2005/02/18 06:31:22 1.64
+++ ChangeLog 2005/02/24 23:02:32 1.65
＠＠ -1,3 +1,7 ＠＠
+2005-02-25 Adrian Aichner <adrian(a)xemacs.org>
+
+ * automated/region-tests.el: Test regions and zmacs-regions.
+
2005-02-18 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.19 "chives" is released.
1.1 XEmacs/xemacs/tests/automated/region-tests.el
Index: region-tests.el
===================================================================
;; Copyright (C) 2005 Adrian Aichner
;; Author: Adrian Aichner <adrian(a)xemacs.org>
;; Maintainer: XEmacs Beta List <xemacs-beta(a)xemacs.org>
;; Created: 2005
;; Keywords: tests
;; This file is part of XEmacs.
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING. If not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.
;;; Synched up with: Not in FSF.
;;; Commentary:
;;; Test region and zmacs-region functionality
;;; See test-harness.el
(condition-case err
(require 'test-harness)
(file-error
(when (and (boundp 'load-file-name) (stringp load-file-name))
(push (file-name-directory load-file-name) load-path)
(require 'test-harness))))
;; Active region testing, verifying functionality of
;; http://list-archive.xemacs.org/xemacs-patches/200502/msg00194.html
;; Message-ID: <zmxwtboa.fsf(a)smtprelay.t-online.de>
(with-temp-buffer
;; Using active regions
(let ((zmacs-regions t)
(first-buffer (current-buffer)))
(insert (buffer-name))
(Assert (not (region-exists-p)))
(Assert (not (region-active-p)))
(mark-whole-buffer)
(Assert (region-exists-p))
(Assert (region-active-p))
;; Turn off active regions
(setq zmacs-regions nil)
;; Region still exists
(Assert (region-exists-p))
;; Region is no longer active
(Assert (not (region-active-p)))
;; Turn active regions back on
(setq zmacs-regions t)
;; Region still exists
(Assert (region-exists-p))
;; Region is active again
(Assert (region-active-p))
(with-temp-buffer
(insert (buffer-name))
;; Region exists in first buffer, not this second one
(Assert (not (region-exists-p)))
;; Region not active in this second temp buffer
(Assert (not (region-active-p)))
;; Region still active in first temp buffer
(Assert (eq (zmacs-region-buffer) first-buffer))
;; Activate region in second temp buffer
(mark-whole-buffer)
;; Region exists in second temp buffer
(Assert (region-exists-p))
;; Region active in second temp buffer
(Assert (region-active-p)))
;; Second temp buffer no longer exists
(Assert (null (zmacs-region-buffer)))))