[gnus git] branch master updated: n0-15-49-g854af53 =1= Avoid failing tests for Emacs without lexical binding.

       via  854af5310dde4fed6a522a59d1d7816190f42142 (commit)
      from  9cfcdab4e707ad4bed1cdd30840c71a10696eebb (commit)


- Log -----------------------------------------------------------------
commit 854af5310dde4fed6a522a59d1d7816190f42142
Author: David Engster <[email protected]>
Date:   Thu Apr 7 20:47:29 2011 +0200

    Avoid failing tests for Emacs without lexical binding.
    
    * registry.el (registry-usage-test): Only do
    `registry-lookup-breaks-before-lexbind' testing for Emacs24 with
    lexical binding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 447675c..ff1b3b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2011-04-07  David Engster  <[email protected]>
 
+	* registry.el (registry-usage-test): Only do
+	`registry-lookup-breaks-before-lexbind' testing for Emacs24 with
+	lexical binding.
+
+2011-04-07  David Engster  <[email protected]>
+
 	* Makefile.in (check, test-registry): New rules for test-suite.
 
 2011-04-06  David Engster  <[email protected]>
diff --git a/lisp/registry.el b/lisp/registry.el
index 8fb7aab..3c402cb 100644
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -357,12 +357,13 @@ Removes only entries without the :precious keys."
     (should (= 58 (caadr (registry-lookup db '(1 58 99)))))
     (message "Grouped individual lookup")
     (should (= 3 (length (registry-lookup db '(1 58 99)))))
+    (when (boundp 'lexical-binding)
     (message "Individual lookup (breaks before lexbind)")
     (should (= 58
                (caadr (registry-lookup-breaks-before-lexbind db '(1 58 99)))))
     (message "Grouped individual lookup (breaks before lexbind)")
     (should (= 3
-               (length (registry-lookup-breaks-before-lexbind db '(1 58 99)))))
+		 (length (registry-lookup-breaks-before-lexbind db '(1 58 99))))))
     (message "Search")
     (should (= n (length (registry-search db :all t))))
     (should (= n (length (registry-search db :member '((sender "me"))))))

-----------------------------------------------------------------------
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   |    6 ++++++
 lisp/registry.el |   13 +++++++------
 2 files changed, 13 insertions(+), 6 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