diff options
Diffstat (limited to 'test/helpful-unit-test.el')
| -rw-r--r-- | test/helpful-unit-test.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el index 1fbf87c..510396c 100644 --- a/test/helpful-unit-test.el +++ b/test/helpful-unit-test.el @@ -1072,3 +1072,7 @@ find the source code." "Ensure that we can describe an autoloaded function that has advice attached before it is loadedl." (helpful-function 'ruby-mode)) + +(ert-deftest helpful--tree-any-p () + (should (helpful--tree-any-p (lambda (x) (eq x 1)) '((((1)))))) + (should (helpful--tree-any-p (lambda (x) (eq x 1)) (cons 2 1)))) |