Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9820ccdf
Commit
9820ccdf
authored
May 11, 2011
by
Ted Zlatanov
Committed by
Katsumi Yamaoka
May 11, 2011
Browse files
registry.el (registry-usage-test): Disable pruning test.
parent
1c231080
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
9 deletions
+13
-9
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/registry.el
lisp/gnus/registry.el
+9
-9
No files found.
lisp/gnus/ChangeLog
View file @
9820ccdf
2011-05-11 Teodor Zlatanov <tzz@lifelogs.com>
* registry.el (registry-usage-test): Disable pruning test.
2011-05-10 Teodor Zlatanov <tzz@lifelogs.com>
* registry.el (registry-prune-hard-candidates)
...
...
lisp/gnus/registry.el
View file @
9820ccdf
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment