Mercurial > hg > xemacs-beta
diff tests/automated/regexp-tests.el @ 1612:28ffd53a1d42
[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 |
line wrap: on
line diff
--- a/tests/automated/regexp-tests.el Sun Aug 10 21:52:25 2003 +0000 +++ b/tests/automated/regexp-tests.el Mon Aug 11 10:03:36 2003 +0000 @@ -1,9 +1,9 @@ ;;; -*- coding: iso-8859-1 -*- -;; Copyright (C) 2000 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2002, 2003 Free Software Foundation, Inc. ;; Author: Yoshiki Hayashi <yoshiki@xemacs.org> -;; Maintainer: Yoshiki Hayashi <yoshiki@xemacs.org> +;; Maintainer: Stephen J. Turnbull <stephen@xemacs.org> ;; Created: 2000 ;; Keywords: tests @@ -284,9 +284,8 @@ ;; Thanks to <bjacob@ca.metsci.com>. ;; These tests used to fail because we cleared match data only on success. ;; Fixed 2003-04-17. -;; Have to revert 2003-05-09; too much code depends on failed matches -;; preserving match-data. -;; string match and regexp match are equivalent +;; Must change sense of failing tests 2003-05-09. Too much code depends on +;; failed matches preserving match-data. (let ((a "a")) (Assert (string= (progn (string-match "a" a) (string-match "b" a)