[A21.5R21.4] [C] xemacs-21.5-clean: Add tests\automated\region-tests.el to test region-active-p fix
COMMIT APPROVE 21.5 RECOMMEND 21.4
Thanks Vin, for the gentle nudge.
Adrian
xemacs-21.5-clean ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: tests/ChangeLog
Index: tests/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.64
diff -u -U0 -r1.64 ChangeLog
--- tests/ChangeLog 18 Feb 2005 06:31:22 -0000 1.64
+++ tests/ChangeLog 24 Feb 2005 23:01:13 -0000
＠＠ -0,0 +1,4 ＠＠
+2005-02-25 Adrian Aichner <adrian(a)xemacs.org>
+
+ * automated/region-tests.el: Test regions and zmacs-regions.
+
xemacs-21.5-clean source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: tests/automated/region-tests.el
Index: tests/automated/region-tests.el
===================================================================
RCS file: tests/automated/region-tests.el
diff -N tests/automated/region-tests.el
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ tests/automated/region-tests.el 24 Feb 2005 22:59:29 -0000
＠＠ -0,0 +1,79 ＠＠
+;; 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)))))
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/