users/wpcarro/emacs/pkgs/vector/tests.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)))))