(should (not (map-empty-p "hello")))
(should (map-empty-p "")))
-(ert-deftest test-map-contains-key-p ()
- (should (map-contains-key-p '((a . 1) (b . 2)) 'a))
- (should (not (map-contains-key-p '((a . 1) (b . 2)) 'c)))
- (should (map-contains-key-p '(("a" . 1)) "a"))
- (should (not (map-contains-key-p '(("a" . 1)) "a" #'eq)))
- (should (map-contains-key-p [a b c] 2))
- (should (not (map-contains-key-p [a b c] 3))))
-
-(ert-deftest test-map-some-p ()
+(ert-deftest test-map-contains-key ()
+ (should (map-contains-key '((a . 1) (b . 2)) 'a))
+ (should (not (map-contains-key '((a . 1) (b . 2)) 'c)))
+ (should (map-contains-key '(("a" . 1)) "a"))
+ (should (not (map-contains-key '(("a" . 1)) "a" #'eq)))
+ (should (map-contains-key [a b c] 2))
+ (should (not (map-contains-key [a b c] 3))))
+
+(ert-deftest test-map-some ()
(with-maps-do map
- (should (equal (map-some-p (lambda (k _v)
+ (should (equal (map-some (lambda (k _v)
(eq 1 k))
map)
(cons 1 4)))
- (should (not (map-some-p (lambda (k _v)
+ (should (not (map-some (lambda (k _v)
(eq 'd k))
map))))
(let ((vec [a b c]))
- (should (equal (map-some-p (lambda (k _v)
+ (should (equal (map-some (lambda (k _v)
(> k 1))
vec)
(cons 2 'c)))
- (should (not (map-some-p (lambda (k _v)
+ (should (not (map-some (lambda (k _v)
(> k 3))
vec)))))