Mercurial > hg > xemacs-beta
diff tests/automated/lisp-tests.el @ 4898:9a6c3653f58e
merge
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Fri, 29 Jan 2010 20:59:21 -0600 |
parents | 91a023144e72 |
children | 6ef8256a020a |
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el Fri Jan 29 15:06:36 2010 -0600 +++ b/tests/automated/lisp-tests.el Fri Jan 29 20:59:21 2010 -0600 @@ -1070,17 +1070,6 @@ (Assert-equal (split-string "foobar" split-string-default-separators) '("foobar")) -(Assert (not (string-match "\\(\\.\\=\\)" "."))) -(Assert (string= "" (let ((str "test string")) - (if (string-match "^.*$" str) - (replace-match "\\U" t nil str))))) -(with-temp-buffer - (erase-buffer) - (insert "test string") - (re-search-backward "^.*$") - (replace-match "\\U" t) - (Assert (and (bobp) (eobp)))) - ;;----------------------------------------------------- ;; Test near-text buffer functions. ;;-----------------------------------------------------