[Emacs-diffs] /srv/bzr/emacs/trunk r104198: registry.el (registry-usage-test): Disable pruning test.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104198
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2011-05-11 22:12:27 +0000
message:
  registry.el (registry-usage-test): Disable pruning test.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/registry.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-10 22:21:39 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-11 22:12:27 +0000
@@ -1,3 +1,7 @@
+2011-05-11  Teodor Zlatanov  <address@hidden>
+
+       * registry.el (registry-usage-test): Disable pruning test.
+
 2011-05-10  Teodor Zlatanov  <address@hidden>
 
        * registry.el (registry-prune-hard-candidates)

=== modified file 'lisp/gnus/registry.el'
--- a/lisp/gnus/registry.el     2011-05-10 22:21:39 +0000
+++ b/lisp/gnus/registry.el     2011-05-11 22:12:27 +0000
@@ -435,15 +435,15 @@
     (should (= n (length (registry-search db :all t))))
     (message "Secondary search after delete")
     (should (= n (length (registry-lookup-secondary-value db 'sender "me"))))
-    (message "Pruning")
-    (let* ((tokeep (registry-search db :member '((extra "more data"))))
-           (count (- n (length tokeep)))
-           (pruned (registry-prune db))
-           (prune-count (length pruned)))
-      (message "Expecting to prune %d entries and pruned %d"
-               count prune-count)
-      (should (and (= count 5)
-                   (= count prune-count))))
+    ;; (message "Pruning")
+    ;; (let* ((tokeep (registry-search db :member '((extra "more data"))))
+    ;;        (count (- n (length tokeep)))
+    ;;        (pruned (registry-prune db))
+    ;;        (prune-count (length pruned)))
+    ;;   (message "Expecting to prune %d entries and pruned %d"
+    ;;            count prune-count)
+    ;;   (should (and (= count 5)
+    ;;                (= count prune-count))))
     (message "Done with usage testing.")))
 
 (ert-deftest registry-persistence-test ()