procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for watchpoints

Browse source 
* test/src/data-tests.el (data-tests-variable-watchers):
(data-tests-local-variable-watchers): New tests.
This commit is contained in:
Noam Postavsky 2015-12-12 23:10:15 -05:00
parent d3faef9bae
commit e7cd98b86f
1 changed files with 115 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

115
test/src/data-tests.el
View file

@ -255,3 +255,118 @@ comparing the subr with a much slower lisp implementation."
(v2 (test-bool-vector-bv-from-hex-string "0000C"))
(v3 (bool-vector-not v1)))
(should (equal v2 v3))))
(ert-deftest data-tests-variable-watchers ()
(defvar data-tests-var 0)
(let* ((watch-data nil)
(collect-watch-data
(lambda (&rest args) (push args watch-data))))
(cl-flet ((should-have-watch-data (data)
(should (equal (pop watch-data) data))
(should (null watch-data))))
(add-variable-watcher 'data-tests-var collect-watch-data)
(setq data-tests-var 1)
(should-have-watch-data '(data-tests-var 1 set nil))
(let ((data-tests-var 2))
(should-have-watch-data '(data-tests-var 2 let nil))
(setq data-tests-var 3)
(should-have-watch-data '(data-tests-var 3 set nil)))
(should-have-watch-data '(data-tests-var 1 unlet nil))
;; `setq-default' on non-local variable is same as `setq'.
(setq-default data-tests-var 4)
(should-have-watch-data '(data-tests-var 4 set nil))
(makunbound 'data-tests-var)
(should-have-watch-data '(data-tests-var nil makunbound nil))
(setq data-tests-var 5)
(should-have-watch-data '(data-tests-var 5 set nil))
(remove-variable-watcher 'data-tests-var collect-watch-data)
(setq data-tests-var 6)
(should (null watch-data)))))
(ert-deftest data-tests-varalias-watchers ()
(defvar data-tests-var0 0)
(defvar data-tests-var1 0)
(defvar data-tests-var2 0)
(defvar data-tests-var3 0)
(let* ((watch-data nil)
(collect-watch-data
(lambda (&rest args) (push args watch-data))))
(cl-flet ((should-have-watch-data (data)
(should (equal (pop watch-data) data))
(should (null watch-data))))
;; Watch var0, then alias it.
(add-variable-watcher 'data-tests-var0 collect-watch-data)
(defvaralias 'data-tests-var0-alias 'data-tests-var0)
(setq data-tests-var0 1)
(should-have-watch-data '(data-tests-var0 1 set nil))
(setq data-tests-var0-alias 2)
(should-have-watch-data '(data-tests-var0 2 set nil))
;; Alias var1, then watch var1-alias.
(defvaralias 'data-tests-var1-alias 'data-tests-var1)
(add-variable-watcher 'data-tests-var1-alias collect-watch-data)
(setq data-tests-var1 1)
(should-have-watch-data '(data-tests-var1 1 set nil))
(setq data-tests-var1-alias 2)
(should-have-watch-data '(data-tests-var1 2 set nil))
;; Alias var2, then watch it.
(defvaralias 'data-tests-var2-alias 'data-tests-var2)
(add-variable-watcher 'data-tests-var2 collect-watch-data)
(setq data-tests-var2 1)
(should-have-watch-data '(data-tests-var2 1 set nil))
(setq data-tests-var2-alias 2)
(should-have-watch-data '(data-tests-var2 2 set nil))
;; Watch var3-alias, then make it alias var3 (this removes the
;; watcher flag).
(defvar data-tests-var3-alias 0)
(add-variable-watcher 'data-tests-var3-alias collect-watch-data)
(defvaralias 'data-tests-var3-alias 'data-tests-var3)
(should-have-watch-data '(data-tests-var3-alias
data-tests-var3 defvaralias nil))
(setq data-tests-var3 1)
(setq data-tests-var3-alias 2)
(should (null watch-data)))))
(ert-deftest data-tests-local-variable-watchers ()
(defvar-local data-tests-lvar 0)
(let* ((buf1 (current-buffer))
(buf2 nil)
(watch-data nil)
(collect-watch-data
(lambda (&rest args) (push args watch-data))))
(cl-flet ((should-have-watch-data (data)
(should (equal (pop watch-data) data))
(should (null watch-data))))
(add-variable-watcher 'data-tests-lvar collect-watch-data)
(setq data-tests-lvar 1)
(should-have-watch-data `(data-tests-lvar 1 set ,buf1))
(let ((data-tests-lvar 2))
(should-have-watch-data `(data-tests-lvar 2 let ,buf1))
(setq data-tests-lvar 3)
(should-have-watch-data `(data-tests-lvar 3 set ,buf1)))
(should-have-watch-data `(data-tests-lvar 1 unlet ,buf1))
(setq-default data-tests-lvar 4)
(should-have-watch-data `(data-tests-lvar 4 set nil))
(with-temp-buffer
(setq buf2 (current-buffer))
(setq data-tests-lvar 1)
(should-have-watch-data `(data-tests-lvar 1 set ,buf2))
(let ((data-tests-lvar 2))
(should-have-watch-data `(data-tests-lvar 2 let ,buf2))
(setq data-tests-lvar 3)
(should-have-watch-data `(data-tests-lvar 3 set ,buf2)))
(should-have-watch-data `(data-tests-lvar 1 unlet ,buf2))
(kill-local-variable 'data-tests-lvar)
(should-have-watch-data `(data-tests-lvar nil makunbound ,buf2))
(setq data-tests-lvar 3.5)
(should-have-watch-data `(data-tests-lvar 3.5 set ,buf2))
(kill-all-local-variables)
(should-have-watch-data `(data-tests-lvar nil makunbound ,buf2)))
(setq-default data-tests-lvar 4)
(should-have-watch-data `(data-tests-lvar 4 set nil))
(makunbound 'data-tests-lvar)
(should-have-watch-data '(data-tests-lvar nil makunbound nil))
(setq data-tests-lvar 5)
(should-have-watch-data `(data-tests-lvar 5 set ,buf1))
(remove-variable-watcher 'data-tests-lvar collect-watch-data)
(setq data-tests-lvar 6)
(should (null watch-data)))))