Mercurial > hg > xemacs-beta

comparison tests/automated/tag-tests.el @ 5125:b5df3737028a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 01:58:04 -0600
parents 189fb67ca31a
children 0f66906b6e37
comparison
equal deleted inserted replaced
5124:623d57b7fbe8 5125:b5df3737028a
68 (let ((tags-always-exact t)) 68 (let ((tags-always-exact t))
69 69
70 ;; Search for the tag "mystruct"; this should succeed 70 ;; Search for the tag "mystruct"; this should succeed
71 (Silence-Message 71 (Silence-Message
72 (find-tag "mystruct")) 72 (find-tag "mystruct"))
73 (Assert (eq (point) 2)) 73 (Assert-eq (point) 2)
74 74
75 ;; Search again. The search should fail, based on the patch that 75 ;; Search again. The search should fail, based on the patch that
76 ;; Sven Grundmann submitted for 21.4.16. 76 ;; Sven Grundmann submitted for 21.4.16.
77 (Check-Error-Message error "No more entries matching mystruct" 77 (Check-Error-Message error "No more entries matching mystruct"
78 (Silence-Message 78 (Silence-Message
84 ;; from 21.5 in 21.4.16, this test would fail. 84 ;; from 21.5 in 21.4.16, this test would fail.
85 (condition-case nil 85 (condition-case nil
86 (Silence-Message 86 (Silence-Message
87 (find-tag "require")) 87 (find-tag "require"))
88 (t t)) 88 (t t))
89 (Assert (eq (point) 52))) 89 (Assert-eq (point) 52))
90 90
91 (kill-buffer testfile) 91 (kill-buffer testfile)
92 (delete-file testfile) 92 (delete-file testfile)
93 (kill-buffer tagfile) 93 (kill-buffer tagfile)
94 (delete-file tagfile)) 94 (delete-file tagfile))