git.chise.org Git - chise/xemacs-chise.git.1/blob - 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