21 lines
661 B
EmacsLisp
21 lines
661 B
EmacsLisp
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; Dependencies
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
(require 'ert)
|
||
|
|
(require 'vector)
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; Tests
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
(ert-deftest vector-misc-tests ()
|
||
|
|
(let ((xs [1 2 3])
|
||
|
|
(ys [1 2 3]))
|
||
|
|
(should (= 1 (vector-get 0 ys)))
|
||
|
|
(vector-set 0 4 ys)
|
||
|
|
(should (= 1 (vector-get 0 ys)))
|
||
|
|
(should (= 1 (vector-get 0 xs)))
|
||
|
|
(vector-set! 0 4 xs)
|
||
|
|
(should (= 4 (vector-get 0 xs)))))
|