summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/cl-lib-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/emacs-lisp/cl-lib-tests.el')
-rw-r--r--test/lisp/emacs-lisp/cl-lib-tests.el32
1 files changed, 0 insertions, 32 deletions
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el
index 607161c6a7c..ff19ec74a43 100644
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -79,38 +79,6 @@
(should (= (cl-decf (alist-get 'a alist 0)) -1))
(should (= (alist-get 'a alist 0) -1))))
-(ert-deftest cl-lib-test-plusp ()
- (should-not (cl-plusp -1.0e+INF))
- (should-not (cl-plusp -1.5e2))
- (should-not (cl-plusp -3.14))
- (should-not (cl-plusp -1))
- (should-not (cl-plusp -0.0))
- (should-not (cl-plusp 0))
- (should-not (cl-plusp 0.0))
- (should-not (cl-plusp -0.0e+NaN))
- (should-not (cl-plusp 0.0e+NaN))
- (should (cl-plusp 1))
- (should (cl-plusp 3.14))
- (should (cl-plusp 1.5e2))
- (should (cl-plusp 1.0e+INF))
- (should-error (cl-plusp "42") :type 'wrong-type-argument))
-
-(ert-deftest cl-lib-test-minusp ()
- (should (cl-minusp -1.0e+INF))
- (should (cl-minusp -1.5e2))
- (should (cl-minusp -3.14))
- (should (cl-minusp -1))
- (should-not (cl-minusp -0.0))
- (should-not (cl-minusp 0))
- (should-not (cl-minusp 0.0))
- (should-not (cl-minusp -0.0e+NaN))
- (should-not (cl-minusp 0.0e+NaN))
- (should-not (cl-minusp 1))
- (should-not (cl-minusp 3.14))
- (should-not (cl-minusp 1.5e2))
- (should-not (cl-minusp 1.0e+INF))
- (should-error (cl-minusp "-42") :type 'wrong-type-argument))
-
(ert-deftest cl-digit-char-p ()
(should (eql 3 (cl-digit-char-p ?3)))
(should (eql 10 (cl-digit-char-p ?a 11)))