diff options
| author | Sergey Vinokurov <serg.foo@gmail.com> | 2018-08-19 21:31:01 +0100 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-08-25 18:57:56 -0400 |
| commit | 54fb383af6f6af7b72c28f38b308d9b24d2af4f6 (patch) | |
| tree | edc7291d8ae2c17a2e5d0b7e5d29546b93660bcd /test/src | |
| parent | 769d0cdaa9a986b74e30dfc589e1fa8115e1d401 (diff) | |
| download | emacs-54fb383af6f6af7b72c28f38b308d9b24d2af4f6.tar.gz emacs-54fb383af6f6af7b72c28f38b308d9b24d2af4f6.tar.bz2 emacs-54fb383af6f6af7b72c28f38b308d9b24d2af4f6.zip | |
Fix detection of freed emacs_values (Bug#32479)
* src/emacs-module.c (module_free_global_ref): Compare a value to be
freed with all entries of the list.
* test/data/emacs-module/mod-test.c (Fmod_test_globref_free): New
function.
(emacs_module_init): Make it accessible from Lisp.
* test/src/emacs-module-tests.el (mod-test-globref-free-test): New
test which uses it.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/emacs-module-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index d9406a9609e..9f598c68275 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -136,6 +136,9 @@ changes." (garbage-collect) ;; XXX: not enough to really test but it's something.. (should (string= ref-str mod-str)))) +(ert-deftest mod-test-globref-free-test () + (should (eq (mod-test-globref-free 1 'a "test" 'b) 'ok))) + (ert-deftest mod-test-string-a-to-b-test () (should (string= (mod-test-string-a-to-b "aaa") "bbb"))) |