[gnus git] branch master updated: n0-17-36-gaf024d2 =1= * registry.el (registry-usage-test): Disable pruning test.

       via  af024d2c0eff0a70d716f41c064e687bf21df4e7 (commit)
      from  ca35c7c6ff6935f3d1b1c73ab9051d8d5389f8e9 (commit)


- Log -----------------------------------------------------------------
commit af024d2c0eff0a70d716f41c064e687bf21df4e7
Author: Ted Zlatanov <[email protected]>
Date:   Wed May 11 16:24:48 2011 -0500

    * registry.el (registry-usage-test): Disable pruning test.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83dbed6..3968e80 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-11  Teodor Zlatanov  <[email protected]>
+
+	* registry.el (registry-usage-test): Disable pruning test.
+
 2011-05-11  David Engster  <[email protected]>
 
 	* lpath.el: Bind shr-put-image and process-type for Emacs22 and XEmacs.
diff --git a/lisp/registry.el b/lisp/registry.el
index ffba2e1..b5cc3ec 100644
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -435,15 +435,15 @@ Proposes any entries over the max-hard limit minus 10."
     (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 ()

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    4 ++++
 lisp/registry.el |   18 +++++++++---------
 2 files changed, 13 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project