about summary refs log blame commit diff
path: root/users/wpcarro/emacs/pkgs/vector/tests.el
blob: ffa983188229bd46d5f851949a70c4cd6e722a61 (plain) (tree)



















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