1 ;;; Testsuite for Mule string-matching - used to crash!
3 ;; Copyright (C) 1996 Sun Microsystems.
5 ;; This file is part of XEmacs.
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)
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.
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.
22 ;;; Just load the file to run the test.
24 (defmacro test-match (result regexp string)
26 (assert (eq ,result (string-match ,regexp ,string)))
27 (let ((buf (get-buffer-create "*testsuite*"))
28 (random-text "foo
\e$(BEl5~
\e(B"))
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))))
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")