Mercurial > hg > xemacs-beta

comparison tests/automated/symbol-tests.el @ 1413:aa15a2bbba1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-04-15 15:56:56 by stephent] known bug status changes and new macros <87r883bvuy.fsf@tleepslib.sk.tsukuba.ac.jp> <87u1czbvzo.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 15 Apr 2003 15:56:58 +0000
parents 6728e641994e
children 3906442b491b
comparison
equal deleted inserted replaced
1412:583b76a7eb90 1413:aa15a2bbba1a
69 (Assert (not (equal interned uninterned))))) 69 (Assert (not (equal interned uninterned)))))
70 70
71 (flet ((check-weak-list-unique (weak-list &optional reversep) 71 (flet ((check-weak-list-unique (weak-list &optional reversep)
72 "Check that elements of WEAK-LIST are referenced only there." 72 "Check that elements of WEAK-LIST are referenced only there."
73 (let ((len (length (weak-list-list weak-list)))) 73 (let ((len (length (weak-list-list weak-list))))
74 (Assert (not (zerop len))) 74 (if (string-match "Using the new GC algorithms."
75 (garbage-collect) 75 Installation-string)
76 (Assert (eq (length (weak-list-list weak-list)) 76 (Implementation-Incomplete-Expect-Failure
77 (if (not reversep) 0 len)))))) 77 (Assert (not (zerop len)))
78 (garbage-collect)
79 (Assert (eq (length (weak-list-list weak-list))
80 (if (not reversep) 0 len))))
81 (Assert (not (zerop len)))
82 (garbage-collect)
83 (Assert (eq (length (weak-list-list weak-list))
84 (if (not reversep) 0 len)))))))
78 (let ((weak-list (make-weak-list)) 85 (let ((weak-list (make-weak-list))
79 (gc-cons-threshold most-positive-fixnum)) 86 (gc-cons-threshold most-positive-fixnum))
80 ;; Symbols created with `make-symbol' and `gensym' should be fresh 87 ;; Symbols created with `make-symbol' and `gensym' should be fresh
81 ;; and not referenced anywhere else. We check that no other 88 ;; and not referenced anywhere else. We check that no other
82 ;; references are available using a weak list. 89 ;; references are available using a weak list.