cgit.sxemacs.org Git - sxemacs/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 SXEmacs.
   6
   7 ;; SXEmacs is free software: you can redistribute it and/or modify it
   8 ;; under the terms of the GNU General Public License as published by the
   9 ;; Free Software Foundation, either version 3 of the License, or (at your
  10 ;; option) any later version.
  11
  12 ;; SXEmacs is distributed in the hope that it will be
  13 ;; useful, but 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 this program.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 ;;; Just load the file to run the test.
  21
  22 (defmacro test-match (result regexp string)
  23   `(save-excursion
  24      (assert (eq ,result (string-match ,regexp ,string)))
  25      (let ((buf (get-buffer-create "*testsuite*"))
  26            (random-text  "foo\e$(BEl5~\e(B"))
  27        (set-buffer buf)
  28        (erase-buffer)
  29        (insert random-text)
  30        (insert ,string)
  31        (goto-char (point-min))
  32        (forward-char (length random-text))
  33        (assert (eq (progn (re-search-forward ,regexp) (match-beginning 0))
  34                    (+ 1 ,result (length random-text))))
  35        )))
  36
  37 (when (featurep 'mule)
  38   (test-match 0 "a" "a")
  39   (test-match 0  "[^a]" "\e$(B4A;z\e(B")
  40   (test-match 2  "[^a]\e$(B;z\e(B" "ab\e$(B4A;z\e(B")
  41   (test-match 1  "[^a]" "ab\e$(B4A;z\e(B")
  42   (test-match 0  "[^a]" "\e$(B4A\e(Bb\e$(B4A;z\e(Bb")
  43   (test-match 6  "[a]" "b\e$(B4A\e(Bb\e$(B4A;z\e(Bba")
  44   (test-match 2  "[a]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
  45   (test-match 1  "[\e$(B4A\e(Ba]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
  46   (test-match 1  "[a\e$(B4A\e(B]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
  47   (test-match 0  "[^\e$(B4A\e(Ba]" "b\e$(B4A\e(Bab\e$(B4A;z\e(Bba")
  48   (test-match 5  "\e$(B4A\e(B[^\e$(B4A\e(Ba]" "a\e$(B4A\e(Bab\e$(B4A4A;z\e(Bba")
  49   )
  50