[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 23036ba: Rename obarray-p to obarrayp
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] master 23036ba: Rename obarray-p to obarrayp |
Date: |
Wed, 11 Nov 2015 17:10:41 +0000 |
branch: master
commit 23036bac7d470397f364d02eb992d701f1ebab4b
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>
Rename obarray-p to obarrayp
* lisp/obarray.el (obarrayp): New name.
* test/automated/obarray-tests.el: Update the tests.
---
lisp/obarray.el | 2 +-
test/automated/obarray-tests.el | 22 +++++++++++-----------
2 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/lisp/obarray.el b/lisp/obarray.el
index 0e57381..bf8bb3e 100644
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -37,7 +37,7 @@
(make-vector size 0)
(signal 'wrong-type-argument '(size 0)))))
-(defun obarray-p (object)
+(defun obarrayp (object)
"Return t if OBJECT is an obarray."
(and (vectorp object)
(< 0 (length object))))
diff --git a/test/automated/obarray-tests.el b/test/automated/obarray-tests.el
index 97df3b3..4cc61b6 100644
--- a/test/automated/obarray-tests.el
+++ b/test/automated/obarray-tests.el
@@ -26,30 +26,30 @@
(require 'obarray)
(require 'ert)
-(ert-deftest obarray-p-test ()
+(ert-deftest obarrayp-test ()
"Should assert that given object is an obarray."
- (should-not (obarray-p 42))
- (should-not (obarray-p "aoeu"))
- (should-not (obarray-p '()))
- (should-not (obarray-p []))
- (should (obarray-p (make-vector 7 0))))
+ (should-not (obarrayp 42))
+ (should-not (obarrayp "aoeu"))
+ (should-not (obarrayp '()))
+ (should-not (obarrayp []))
+ (should (obarrayp (make-vector 7 0))))
-(ert-deftest obarray-p-unchecked-content-test ()
+(ert-deftest obarrayp-unchecked-content-test ()
"Should fail to check content of passed obarray."
:expected-result :failed
- (should-not (obarray-p ["a" "b" "c"]))
- (should-not (obarray-p [1 2 3])))
+ (should-not (obarrayp ["a" "b" "c"]))
+ (should-not (obarrayp [1 2 3])))
(ert-deftest obarray-make-default-test ()
(let ((table (obarray-make)))
- (should (obarray-p table))
+ (should (obarrayp table))
(should (equal (make-vector 59 0) table))))
(ert-deftest obarray-make-with-size-test ()
(should-error (obarray-make -1) :type 'wrong-type-argument)
(should-error (obarray-make 0) :type 'wrong-type-argument)
(let ((table (obarray-make 1)))
- (should (obarray-p table))
+ (should (obarrayp table))
(should (equal (make-vector 1 0) table))))
(ert-deftest obarray-get-test ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 23036ba: Rename obarray-p to obarrayp,
Nicolas Petton <=