1 ;; Copyright (C) 1999 Free Software Foundation, Inc.
3 ;; Author: Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>
4 ;; Maintainer: Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>
8 ;; This file is part of XEmacs.
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;;; Synched up with: Not in FSF.
29 ;; Test syntax related functions.
30 ;; Right now it tests scan_words using forward-word and backward-word.
31 ;; See test-harness.el for instructions on how to run these tests.
34 ;; W: word constituent character.
35 ;; NW: non word constituent character.
36 ;; -!-: current point.
38 ;; BOB: beginning of buffer.
40 ;; Algorithm of scan_words is simple. It just searches SW and then
41 ;; moves to NW. When with MULE, it also stops at word boundary. Word
42 ;; boundary is tricky and listing all possible cases will be huge.
43 ;; Those test are omitted here as it doesn't affect core
46 (defun test-forward-word (string stop)
47 (goto-char (point-max))
48 (let ((point (point)))
52 (Assert (eq (point) (+ point stop)))))
56 (test-forward-word "W " 1)
57 (test-forward-word "WO " 2)
59 (test-forward-word "W" 1)
60 (test-forward-word "WO" 2)
62 (test-forward-word " " 1)
63 (test-forward-word " !" 2)
65 (test-forward-word " W " 2)
66 (test-forward-word " WO " 3)
67 (test-forward-word " !W " 3)
68 (test-forward-word " !WO " 4)
70 (test-forward-word " W" 2)
71 (test-forward-word " WO" 3)
72 (test-forward-word " !W" 3)
73 (test-forward-word " !WO" 4))
75 (defun test-backward-word (string stop)
76 (goto-char (point-min))
78 (let ((point (point)))
80 (Assert (eq (point) (- point stop)))))
84 (test-backward-word " W" 1)
85 (test-backward-word " WO" 2)
87 (test-backward-word "W" 1)
88 (test-backward-word "WO" 2)
91 (test-backward-word " " 1)
92 (test-backward-word " !" 2)
94 (test-backward-word " W " 2)
95 (test-backward-word " WO " 3)
96 (test-backward-word " W !" 3)
97 (test-backward-word " WO !" 4)
99 (test-backward-word "W " 2)
100 (test-backward-word "WO " 3)
101 (test-backward-word "W !" 3)
102 (test-backward-word "WO !" 4))