blob 02caf6661f5ecbb4d212e1287e0ccbf3cf8e7b19 519 bytes (raw)
name: test/src/igc-tests.el # note: path name is non-authoritative(*)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| | ;;; igc-tests.el --- Tests for igc.c -*- lexical-binding: t -*-
(require 'ert)
(defvar igc-test-v0 (igc-make-weak-ref (list 1 2)))
(defvar igc-test-v1 (igc-make-weak-ref (make-symbol "foo")))
(ert-deftest igc-test-weak-refs ()
(igc--collect)
(garbage-collect)
(should (equal (igc-weak-ref-deref igc-test-v0) nil))
(should (equal (igc-weak-ref-deref igc-test-v1) nil))
(let ((wref (igc-make-weak-ref (list 3 4))))
(should (equal (igc-weak-ref-deref wref) '(3 4)))))
(provide 'igc-tests)
|
debug log:
solving 02caf6661f5 ...
found 02caf6661f5 in https://git.savannah.gnu.org/cgit/emacs.git
(*) Git path names are given by the tree(s) the blob belongs to.
Blobs themselves have no identifier aside from the hash of its contents.^
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.