xemacs-beta: tests/automated/search-tests.el annotate

annotate tests/automated/search-tests.el @ 5263:0d436a78c514

Add an implementation for #'the, cl-macs.el lisp/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (the): Add a docstring and an implementation for this macro. * bytecomp.el (byte-compile-initial-macro-environment): Add #'the to this, checking byte-compile-delete-errors to decide whether to make the type assertion. Change the initvalue to use backquote and preceding commas for the lambda expressions, to allow the latter to be compiled.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Thu, 16 Sep 2010 13:36:03 +0100
parents	0f66906b6e37
children	308d34e9f07d

rev	line source
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	1 ;;; -- coding: iso-8859-1 --
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	2
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	3 ;; Copyright (C) 2000 Free Software Foundation, Inc.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	4 ;; Copyright (C) 2010 Ben Wing.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	5
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	6 ;; Author: Yoshiki Hayashi <yoshiki@xemacs.org>
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	7 ;; Maintainer: Yoshiki Hayashi <yoshiki@xemacs.org>
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	8 ;; Created: 2000
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	9 ;; Keywords: tests
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	10
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	11 ;; This file is part of XEmacs.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	12
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	13 ;; XEmacs is free software; you can redistribute it and/or modify it
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	14 ;; under the terms of the GNU General Public License as published by
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	15 ;; the Free Software Foundation; either version 2, or (at your option)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	16 ;; any later version.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	17
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	18 ;; XEmacs is distributed in the hope that it will be useful, but
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	21 ;; General Public License for more details.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	22
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	23 ;; You should have received a copy of the GNU General Public License
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	26 ;; 02111-1307, USA.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	27
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	28 ;;; Synched up with: Not in FSF.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	29
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	30 ;;; Commentary:
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	31
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	32 ;; Test of non-regexp searching.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	33
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	34 ;; Split out of case-tests.el.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	35
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	36 ;; NOTE NOTE NOTE: See also:
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	37 ;;
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	38 ;; (1) regexp-tests.el, for regexp searching.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	39 ;; (2) case-tests.el, for some case-related searches.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	40
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4902 diff changeset	41 ;; NOTE NOTE NOTE: There is some domain overlap among case-tests.el,
6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4902 diff changeset	42 ;; regexp-tests.el and search-tests.el. See case-tests.el.
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	43
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	44 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	45 (insert "Test Buffer")
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	46 (let ((case-fold-search t))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	47 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	48 (Assert (eq (search-forward "test buffer" nil t) 12))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	49 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	50 (Assert (eq (search-forward "Test buffer" nil t) 12))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	51 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	52 (Assert (eq (search-forward "Test Buffer" nil t) 12))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	53
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	54 (setq case-fold-search nil)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	55 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	56 (Assert (not (search-forward "test buffer" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	57 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	58 (Assert (not (search-forward "Test buffer" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	59 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	60 (Assert (eq (search-forward "Test Buffer" nil t) 12))))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	61
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	62 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	63 (insert "abcdefghijklmn�opqrstu�vwxyz")
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	64 ;; case insensitive
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	65 (Assert (not (search-forward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	66 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	67 (Assert (eq 16 (search-forward "�" nil t)))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	68 (Assert (eq 24 (search-forward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	69 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	70 (Assert (eq 16 (search-forward "�" nil t)))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	71 (Assert (eq 24 (search-forward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	72 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	73 (Assert (eq 23 (search-backward "�" nil t)))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	74 (Assert (eq 15 (search-backward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	75 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	76 (Assert (eq 23 (search-backward "�" nil t)))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	77 (Assert (eq 15 (search-backward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	78 ;; case sensitive
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	79 (setq case-fold-search nil)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	80 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	81 (Assert (not (search-forward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	82 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	83 (Assert (eq 16 (search-forward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	84 (Assert (not (search-forward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	85 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	86 (Assert (eq 24 (search-forward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	87 (goto-char 16)
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	88 (Assert (eq 24 (search-forward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	89 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	90 (Assert (eq 15 (search-backward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	91 (goto-char 15)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	92 (Assert (not (search-backward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	93 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	94 (Assert (eq 23 (search-backward "�" nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	95 (Assert (not (search-backward "�" nil t))))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	96
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	97 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	98 (insert "aaaa��bbbb")
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	99 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	100 (Assert (eq 15 (search-forward "��" nil t 5)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	101 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	102 (Assert (not (search-forward "��" nil t 6)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	103 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	104 (Assert (eq 5 (search-backward "��" nil t 5)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	105 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	106 (Assert (not (search-backward "��" nil t 6))))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	107
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	108 (when (featurep 'mule)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	109 (let* ((hiragana-a (make-char 'japanese-jisx0208 36 34))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	110 (a-diaeresis ?�)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	111 (case-table (copy-case-table (standard-case-table)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	112 (str-hiragana-a (char-to-string hiragana-a))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	113 (str-a-diaeresis (char-to-string a-diaeresis))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	114 (string (concat str-hiragana-a str-a-diaeresis)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	115 (put-case-table-pair hiragana-a a-diaeresis case-table)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	116 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	117 (set-case-table case-table)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	118 (insert hiragana-a "abcdefg" a-diaeresis)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	119 ;; forward
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	120 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	121 (Assert (not (search-forward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	122 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	123 (Assert (eq 2 (search-forward str-hiragana-a nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	124 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	125 (Assert (eq 2 (search-forward str-a-diaeresis nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	126 (goto-char (1+ (point-min)))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	127 (Assert (eq (point-max)
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	128 (search-forward str-hiragana-a nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	129 (goto-char (1+ (point-min)))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	130 (Assert (eq (point-max)
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	131 (search-forward str-a-diaeresis nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	132 ;; backward
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	133 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	134 (Assert (not (search-backward "�" nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	135 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	136 (Assert (eq (1- (point-max)) (search-backward str-hiragana-a nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	137 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	138 (Assert (eq (1- (point-max)) (search-backward str-a-diaeresis nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	139 (goto-char (1- (point-max)))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	140 (Assert (eq 1 (search-backward str-hiragana-a nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	141 (goto-char (1- (point-max)))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	142 (Assert (eq 1 (search-backward str-a-diaeresis nil t)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	143 (replace-match "a")
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	144 (Assert (looking-at (format "abcdefg%c" a-diaeresis))))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	145 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	146 (set-case-table case-table)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	147 (insert string)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	148 (insert string)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	149 (insert string)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	150 (insert string)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	151 (insert string)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	152 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	153 (Assert (eq 11 (search-forward string nil t 5)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	154 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	155 (Assert (not (search-forward string nil t 6)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	156 (goto-char (point-max))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	157 (Assert (eq 1 (search-backward string nil t 5)))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	158 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	159 (Assert (not (search-backward string nil t 6))))))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	160
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	161 ;; Bug reported in http://mid.gmane.org/y9lk5lu5orq.fsf@deinprogramm.de from
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	162 ;; Michael Sperber. Fixed 2008-01-29.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	163 (with-string-as-buffer-contents "\n\nDer beruhmte deutsche Flei\xdf\n\n"
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	164 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	165 (Assert (search-forward "Flei\xdf")))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	166
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	167 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	168 (let ((target "M\xe9zard")
5041 efaa6cd845e5 add regexp-debugging Ben Wing <ben@xemacs.org> parents: 4907 diff changeset	169 (debug-searches 1))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	170 (Assert (not (search-forward target nil t)))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	171 (insert target)
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	172 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	173 ;; #### search-algorithm-used is simple-search after the following,
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	174 ;; which shouldn't be necessary; it should be possible to use
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	175 ;; Boyer-Moore.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	176 ;;
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	177 ;; But searches for ASCII strings in buffers with nothing above ?\xFF
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	178 ;; use Boyer Moore with the current implementation, which is the
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	179 ;; important thing for the Gnus use case.
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	180 (Assert (= (1+ (length target)) (search-forward target nil t)))))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	181
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	182 (Skip-Test-Unless
5041 efaa6cd845e5 add regexp-debugging Ben Wing <ben@xemacs.org> parents: 4907 diff changeset	183 (boundp 'debug-searches) ; normal when we have DEBUG_XEMACS
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	184 "not a DEBUG_XEMACS build"
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	185 "checks that the algorithm chosen by #'search-forward is relatively sane"
5041 efaa6cd845e5 add regexp-debugging Ben Wing <ben@xemacs.org> parents: 4907 diff changeset	186 (let ((debug-searches 1)
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	187 newcase)
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	188 (with-temp-buffer
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	189 (insert "\n\nDer beruehmte deutsche Fleiss\n\n")
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	190 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	191 (Assert (search-forward "Fleiss"))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	192 (delete-region (point-min) (point-max))
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	193 (insert "\n\nDer ber\xfchmte deutsche Flei\xdf\n\n")
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	194 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	195 (Assert (search-forward "Flei\xdf"))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	196 (Assert (eq 'boyer-moore search-algorithm-used))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	197 (delete-region (point-min) (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	198 (when (featurep 'mule)
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	199 (insert "\n\nDer ber\xfchmte deutsche Flei\xdf\n\n")
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	200 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	201 (Assert
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	202 (search-forward (format "Fle%c\xdf"
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	203 (make-char 'latin-iso8859-9 #xfd))))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	204 (Assert (eq 'boyer-moore search-algorithm-used))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	205 (insert (make-char 'latin-iso8859-9 #xfd))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	206 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	207 (Assert (search-forward "Flei\xdf"))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	208 (Assert (eq 'simple-search search-algorithm-used))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	209 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	210 (Assert (search-forward (format "Fle%c\xdf"
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	211 (make-char 'latin-iso8859-9 #xfd))))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	212 (Assert (eq 'simple-search search-algorithm-used))
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	213 (setq newcase (copy-case-table (standard-case-table)))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	214 (put-case-table-pair (make-char 'ethiopic #x23 #x23)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	215 (make-char 'ethiopic #x23 #x25)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	216 newcase)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	217 (with-case-table
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	218 ;; Check that when a multidimensional character has case and two
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	219 ;; repeating octets, searches involving it in the search pattern
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	220 ;; use simple-search; otherwise boyer_moore() gets confused in the
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	221 ;; construction of the stride table.
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	222 newcase
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	223 (delete-region (point-min) (point-max))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	224 (insert ?0)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	225 (insert (make-char 'ethiopic #x23 #x23))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	226 (insert ?1)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	227 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	228 (Assert (eql (search-forward
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	229 (string (make-char 'ethiopic #x23 #x25))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	230 nil t)
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	231 3))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	232 (Assert (eq 'simple-search search-algorithm-used))
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	233 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	234 (Assert (eql (search-forward
4904 e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	235 (string (make-char 'ethiopic #x23 #x27))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok Aidan Kehoe <kehoea@parhasard.net> parents: 4902 diff changeset	236 nil t)
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	237 nil))
0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	238 (Assert (eq 'boyer-moore search-algorithm-used)))))))
4902 c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	239
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	240 ;; XEmacs bug of long standing.
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	241
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	242 (with-temp-buffer
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	243 (insert "foo\201bar")
c902301f8b7d fix CRLF line endings in search-tests.el Ben Wing <ben@xemacs.org> parents: 4897 diff changeset	244 (goto-char (point-min))
5136 0f66906b6e37 Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically Ben Wing <ben@xemacs.org> parents: 5041 diff changeset	245 (Assert (eq (search-forward "\201" nil t) 5)))

Mercurial > hg > xemacs-beta

annotate tests/automated/search-tests.el @ 5263:0d436a78c514