Mercurial > hg > xemacs-beta

comparison tests/automated/weak-tests.el @ 1758:90502933fb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-21 08:21:00 by stephent] revert "fix space leak" patch <87oewb0zqn.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 21 Oct 2003 08:21:08 +0000
parents f062c28f4a11
children aa0db78e67c4
comparison
equal deleted inserted replaced
1757:d7a328610d7d 1758:90502933fb98
33 (require 'test-harness) 33 (require 'test-harness)
34 (file-error 34 (file-error
35 (when (and (boundp 'load-file-name) (stringp load-file-name)) 35 (when (and (boundp 'load-file-name) (stringp load-file-name))
36 (push (file-name-directory load-file-name) load-path) 36 (push (file-name-directory load-file-name) load-path)
37 (require 'test-harness)))) 37 (require 'test-harness))))
38
39 (when test-harness-test-compiled
40 ;; this ha-a-ack depends on the compiled test coming last
41 (setq test-harness-failure-tag
42 "KNOWN BUG - fix reverted; after 2003-10-31 bitch at stephen\n"))
38 43
39 (garbage-collect) 44 (garbage-collect)
40 45
41 ;; tests for weak-boxes 46 ;; tests for weak-boxes
42 (let ((w (make-weak-box (cons 2 3)))) 47 (let ((w (make-weak-box (cons 2 3))))