Mercurial > hg > xemacs-beta

comparison tests/automated/tag-tests.el @ 3472:43b4a54fbf66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-06-24 14:30:36 by stephent] Silence commands that set marks etc in test suite. <87wtb67hm2.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Sat, 24 Jun 2006 14:30:39 +0000
parents 58228a446857
children 189fb67ca31a
comparison
equal deleted inserted replaced
3471:3b1f8220a65e 3472:43b4a54fbf66
66 ")) 66 "))
67 67
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 (find-tag "mystruct") 71 (Silence-Message
72 (find-tag "mystruct"))
72 (Assert (eq (point) 2)) 73 (Assert (eq (point) 2))
73 74
74 ;; Search again. The search should fail, based on the patch that 75 ;; Search again. The search should fail, based on the patch that
75 ;; Sven Grundmann submitted for 21.4.16. 76 ;; Sven Grundmann submitted for 21.4.16.
76 (Check-Error-Message error "No more entries matching mystruct" 77 (Check-Error-Message error "No more entries matching mystruct"
77 (tags-loop-continue))) 78 (Silence-Message
79 (tags-loop-continue))))
78 80
79 (let ((tags-always-exact nil)) 81 (let ((tags-always-exact nil))
80 82
81 ;; Search for the definition of "require". Until the etags.el upgrade 83 ;; Search for the definition of "require". Until the etags.el upgrade
82 ;; from 21.5 in 21.4.16, this test would fail. 84 ;; from 21.5 in 21.4.16, this test would fail.
83 (condition-case nil 85 (condition-case nil
84 (find-tag "require") 86 (Silence-Message
87 (find-tag "require"))
85 (t t)) 88 (t t))
86 (Assert (eq (point) 52))) 89 (Assert (eq (point) 52)))
87 90
88 (kill-buffer testfile) 91 (kill-buffer testfile)
89 (delete-file testfile) 92 (delete-file testfile)