(dotimes (j iterations)
(puthash (+ one 0.0) t ht)
(puthash (+ two 0.0) t ht)
- (puthash (concat "1" "2") t ht)
- (puthash (concat "3" "4") t ht))
+ (puthash (cons 1 2) t ht)
+ (puthash (cons 3 4) t ht))
(Assert (eq (hashtable-test-function ht) 'eq))
(Assert (eq (hash-table-test ht) 'eq))
(Assert (= (* iterations 4) (hash-table-count ht)))
(Assert (eq nil (gethash 1.0 ht)))
- (Assert (eq nil (gethash "12" ht)))
+ (Assert (eq nil (gethash '(1 . 2) ht)))
(check-copy ht)
)
(dotimes (j iterations)
(puthash (+ one 0.0) t ht)
(puthash (+ two 0.0) t ht)
- (puthash (concat "1" "2") t ht)
- (puthash (concat "3" "4") t ht))
+ (puthash (cons 1 2) t ht)
+ (puthash (cons 3 4) t ht))
(Assert (eq (hashtable-test-function ht) 'eql))
(Assert (eq (hash-table-test ht) 'eql))
(Assert (= (+ 2 (* 2 iterations)) (hash-table-count ht)))
(Assert (eq t (gethash 1.0 ht)))
- (Assert (eq nil (gethash "12" ht)))
+ (Assert (eq nil (gethash '(1 . 2) ht)))
(check-copy ht)
)
(dotimes (j iterations)
(puthash (+ one 0.0) t ht)
(puthash (+ two 0.0) t ht)
- (puthash (concat "1" "2") t ht)
- (puthash (concat "3" "4") t ht))
+ (puthash (cons 1 2) t ht)
+ (puthash (cons 3 4) t ht))
(Assert (eq (hashtable-test-function ht) 'equal))
(Assert (eq (hash-table-test ht) 'equal))
(Assert (= 4 (hash-table-count ht)))
(Assert (eq t (gethash 1.0 ht)))
- (Assert (eq t (gethash "12" ht)))
+ (Assert (eq t (gethash '(1 . 2) ht)))
(check-copy ht)
)