Mercurial > hg > xemacs-beta

comparison tests/automated/syntax-ppss-tests.el @ 5532:69a08906ad27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Introducing syntax-ppss.el from GNU.
author Mats Lidell <mats.lidell@cag.se>
date Wed, 20 Jul 2011 00:42:16 +0200
parents
children
comparison
equal deleted inserted replaced
5531:1b054bc2ac40 5532:69a08906ad27
1 ;; Copyright (C) 2011 Free Software Foundation, Inc.
2
3 ;; Author: Mats Lidell <matsl@xemacs.org>
4 ;; Maintainer:
5 ;; Created: 2011
6 ;; Keywords: tests
7
8 ;; This file is part of XEmacs.
9
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 the
12 ;; Free Software Foundation, either version 3 of the License, or (at your
13 ;; option) any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 ;; for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
22
23 ;;; Synched up with: Not in FSF.
24
25 ;;; Commentary:
26
27 ;; Test tag support.
28 ;; See test-harness.el for instructions on how to run these tests.
29
30 (with-temp-buffer
31 (insert ";;;")
32 (Assert (equal (syntax-ppss (point-min)) '(0 nil nil nil nil nil 0 nil nil nil)))
33 (Assert (eq (point-min) (point)))
34 (Assert (equal (syntax-ppss 3) '(0 nil nil nil nil nil 0 nil nil nil)))
35 (Assert (eq 3 (point)))
36 )
37