Reformatted.
[chise/xemacs-chise.git] / tests / mule / match.el
1 ;;; Testsuite for Mule string-matching - used to crash!
2
3 ;; Copyright (C) 1996 Sun Microsystems.
4
5 ;; This file is part of XEmacs.
6
7 ;; XEmacs is free software; you can redistribute it and/or modify it
8 ;; under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version.
11
12 ;; XEmacs is distributed in the hope that it will be useful, but
13 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 ;; General Public License for more details.
16
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
19 ;; Software Foundation,59 Temple Place - Suite 330,
20 ;; Boston, MA 02111-1307, USA.
21
22 ;;; Just load the file to run the test.
23
24 (defmacro test-match (result regexp string)
25   `(save-excursion
26      (assert (eq ,result (string-match ,regexp ,string)))
27      (let ((buf (get-buffer-create "*testsuite*"))
28            (random-text  "foo\e$(BEl5~\e(B"))
29        (set-buffer buf)
30        (erase-buffer)
31        (insert random-text)
32        (insert ,string)
33        (goto-char (point-min))
34        (forward-char (length random-text))
35        (assert (eq (progn (re-search-forward ,regexp) (match-beginning 0))
36                    (+ 1 ,result (length random-text))))
37        )))
38
39 (when (featurep 'mule)
40   (test-match 0 "a" "a")
41   (test-match 0  "[^a]" "\e$(B4A;z\e(B")
42   (test-match 2  "[^a]\e$(B;z\e(B" "ab\e$(B4A;z\e(B")
43   (test-match 1  "[^a]" "ab\e$(B4A;z\e(B")
44   (test-match 0  "[^a]" "\e$(B4A\e(Bb\e$(B4A;z\e(Bb")
45   (test-match 6  "[a]" "b\e$(B4A\e(Bb\e$(B4A;z\e(Bba")
46   (test-match 2  "[a]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
47   (test-match 1  "[\e$(B4A\e(Ba]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
48   (test-match 1  "[a\e$(B4A\e(B]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
49   (test-match 0  "[^\e$(B4A\e(Ba]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
50   (test-match 5  "\e$(B4A\e(B[^\e$(B4A\e(Ba]" "a\e$(B4A\e(Bab\e$(B4A4A;z\e(Bba")
51   )
52