Mercurial > hg > xemacs-beta

comparison tests/automated/regexp-tests.el @ 1612:28ffd53a1d42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-08-11 10:03:34 by stephent] cosmetic fix regexp-tests.el <878yq0h5qj.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 11 Aug 2003 10:03:36 +0000
parents 4c87ece1e837
children 61179c12fbb7
comparison
equal deleted inserted replaced
1611:a0525f6525d0 1612:28ffd53a1d42
1 ;;; -*- coding: iso-8859-1 -*- 1 ;;; -*- coding: iso-8859-1 -*-
2 2
3 ;; Copyright (C) 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2002, 2003 Free Software Foundation, Inc.
4 4
5 ;; Author: Yoshiki Hayashi <yoshiki@xemacs.org> 5 ;; Author: Yoshiki Hayashi <yoshiki@xemacs.org>
6 ;; Maintainer: Yoshiki Hayashi <yoshiki@xemacs.org> 6 ;; Maintainer: Stephen J. Turnbull <stephen@xemacs.org>
7 ;; Created: 2000 7 ;; Created: 2000
8 ;; Keywords: tests 8 ;; Keywords: tests
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
11 11
282 282
283 ;; More stale match data tests. 283 ;; More stale match data tests.
284 ;; Thanks to <bjacob@ca.metsci.com>. 284 ;; Thanks to <bjacob@ca.metsci.com>.
285 ;; These tests used to fail because we cleared match data only on success. 285 ;; These tests used to fail because we cleared match data only on success.
286 ;; Fixed 2003-04-17. 286 ;; Fixed 2003-04-17.
287 ;; Have to revert 2003-05-09; too much code depends on failed matches 287 ;; Must change sense of failing tests 2003-05-09. Too much code depends on
288 ;; preserving match-data. 288 ;; failed matches preserving match-data.
289 ;; string match and regexp match are equivalent
290 (let ((a "a")) 289 (let ((a "a"))
291 (Assert (string= (progn (string-match "a" a) 290 (Assert (string= (progn (string-match "a" a)
292 (string-match "b" a) 291 (string-match "b" a)
293 (match-string 0 a)) 292 (match-string 0 a))
294 a)) 293 a))