Mercurial > hg > xemacs-beta

annotate tests/automated/search-tests.el @ 5015:d95c102a96d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-08 Ben Wing <ben@xemacs.org> * faces.c: * faces.c (face_property_matching_instance): * faces.c (ensure_face_cachel_contains_charset): * faces.h (FACE_FONT): * lisp.h: * lisp.h (enum font_specifier_matchspec_stages): * objects-msw.c: * objects-msw.c (mswindows_font_spec_matches_charset): * objects-msw.c (mswindows_find_charset_font): * objects-tty.c: * objects-tty.c (tty_font_spec_matches_charset): * objects-tty.c (tty_find_charset_font): * objects-xlike-inc.c: * objects-xlike-inc.c (XFUN): * objects-xlike-inc.c (xft_find_charset_font): * objects.c: * objects.c (font_instantiate): * objects.c (FROB): * specifier.c: * specifier.c (charset_matches_specifier_tag_set_p): * specifier.c (call_charset_predicate): * specifier.c (define_specifier_tag): * specifier.c (Fdefine_specifier_tag): * specifier.c (setup_charset_initial_specifier_tags): * specifier.c (specifier_instance_from_inst_list): * specifier.c (FROB): * specifier.c (vars_of_specifier): * specifier.h: Rename the specifier-font-matching stages in preparation for eliminating shadowed warnings, some other related fixes from ben-unicode-internal. 1. Rename raw enums: initial -> STAGE_INITIAL final -> STAGE_FINAL impossible -> NUM_MATCHSPEC_STAGES 2. Move `enum font_specifier_matchspec_stages' from specifier.h to lisp.h. 3. Whitespace changes to match coding standards. 4. Eliminate unused second argument STAGE in charset predicates that don't use it -- the code that calls the charset predicates is now smart enough to supply the right number of arguments automatically. 5. Add some long(ish) comments and authorial notices, esp. in objects.c. 6. In specifier.c, change Vcharset_tag_lists from a vector over leading bytes to a hash table over charsets. This change is unnecessary currently but doesn't hurt and will be required when we merge in Unicode-internal. 7. In specifier.c, extract out the code that calls charset predicates into a function call_charset_predicate().
author Ben Wing <ben@xemacs.org>
date Mon, 08 Feb 2010 16:51:25 -0600
parents 9e7f5a77cc84
children efaa6cd845e5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
48 (Assert-eq (search-forward "test buffer" nil t) 12)
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
49 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
50 (Assert-eq (search-forward "Test buffer" nil t) 12)
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
51 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
52 (Assert-eq (search-forward "Test Buffer" nil t) 12)
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
60 (Assert-eq (search-forward "Test Buffer" nil t) 12)))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
67 (Assert-eq 16 (search-forward "ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
68 (Assert-eq 24 (search-forward "ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
69 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
70 (Assert-eq 16 (search-forward "Ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
71 (Assert-eq 24 (search-forward "Ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
72 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
73 (Assert-eq 23 (search-backward "ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
74 (Assert-eq 15 (search-backward "ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
75 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
76 (Assert-eq 23 (search-backward "Ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
77 (Assert-eq 15 (search-backward "Ä" nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
83 (Assert-eq 16 (search-forward "ä" nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
86 (Assert-eq 24 (search-forward "Ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
87 (goto-char 16)
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
88 (Assert-eq 24 (search-forward "Ä" nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
89 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
90 (Assert-eq 15 (search-backward "ä" nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
94 (Assert-eq 23 (search-backward "Ä" nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
100 (Assert-eq 15 (search-forward "ää" nil t 5))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
104 (Assert-eq 5 (search-backward "ää" nil t 5))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
123 (Assert-eq 2 (search-forward str-hiragana-a nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
124 (goto-char (point-min))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
125 (Assert-eq 2 (search-forward str-a-diaeresis nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
126 (goto-char (1+ (point-min)))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
127 (Assert-eq (point-max)
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
128 (search-forward str-hiragana-a nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
129 (goto-char (1+ (point-min)))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
130 (Assert-eq (point-max)
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
131 (search-forward str-a-diaeresis nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
136 (Assert-eq (1- (point-max)) (search-backward str-hiragana-a nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
137 (goto-char (point-max))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
138 (Assert-eq (1- (point-max)) (search-backward str-a-diaeresis nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
139 (goto-char (1- (point-max)))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
140 (Assert-eq 1 (search-backward str-hiragana-a nil t))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
141 (goto-char (1- (point-max)))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
142 (Assert-eq 1 (search-backward str-a-diaeresis nil t))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
153 (Assert-eq 11 (search-forward string nil t 5))
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
157 (Assert-eq 1 (search-backward string nil t 5))
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")
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
169 (debug-xemacs-searches 1))
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.
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
180 (Assert= (1+ (length target)) (search-forward target nil t))))
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
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
183 (boundp 'debug-xemacs-searches) ; normal when we have DEBUG_XEMACS
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"
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
186 (let ((debug-xemacs-searches 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
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"))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
196 (Assert-eq 'boyer-moore search-algorithm-used)
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))))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
204 (Assert-eq 'boyer-moore search-algorithm-used)
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"))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
208 (Assert-eq 'simple-search search-algorithm-used)
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))))
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
212 (Assert-eq 'simple-search search-algorithm-used)
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))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
diff changeset
228 (Assert-eql (search-forward
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)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
diff changeset
231 3)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
diff changeset
232 (Assert-eq 'simple-search search-algorithm-used)
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))
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
diff changeset
234 (Assert-eql (search-forward
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)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
diff changeset
237 nil)
e91e3e353805 Don't compare the same octet with itself if checking for boyer_moore_ok
Aidan Kehoe <kehoea@parhasard.net>
parents: 4902
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))
c902301f8b7d fix CRLF line endings in search-tests.el
Ben Wing <ben@xemacs.org>
parents: 4897
diff changeset
245 (Assert-eq (search-forward "\201" nil t) 5))