helpful

commit 09a7b284898dea9d0881092bb9ac0d3ba1ee6925
parent ec62ad773a4a06c57b271d4151a33dc7e8ec1dda
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sat, 28 Apr 2018 12:48:13 +0100

Add unit tests for helpful--bound-p

Diffstat:
M
test/unit-test.el
 | 
11
+++++++++++

1 file changed, 11 insertions(+), 0 deletions(-)
diff --git a/test/unit-test.el b/test/unit-test.el
@@ -504,3 +504,14 @@ find the source code."
      (equal
       summary
       "-select is a function alias for -filter, defined in dash.el."))))
+
+(ert-deftest helpful--bound-p ()
+  ;; Functions.
+  (should (helpful--bound-p 'message))
+  ;; Variables
+  (should (helpful--bound-p 'tab-width))
+  ;; Unbound.
+  (should (not (helpful--bound-p 'this-variable-does-not-exist)))
+  ;; For our purposes, we don't consider nil or t to be bound.
+  (should (not (helpful--bound-p 'nil)))
+  (should (not (helpful--bound-p 't))))