Coverage report: /home/runner/work/geb/geb/test/meta.lisp

Kind	Covered	All	%
expression	23	26	88.5
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :geb-test)

2

3

(define-test geb-meta :parent geb-test-suite)

4

5

(defclass mixin-test (meta-mixin) ())

6

7

(define-test insert-works :parent geb-meta

8

(let ((obj (make-instance 'mixin-test)))

9

(meta-insert obj :a 2)

10

(is = (meta-lookup obj :a) 2)))

11

12

(define-test copying-meta-data-works :parent geb-meta

13

(let ((obj (make-instance 'mixin-test)))

14

(meta-insert obj :a 2)

15

(is = (meta-lookup (geb.utils:copy-instance obj) :a) 2)))

16

17

#+nil

18

(define-test weak-pointers-work :parent geb-meta

19

(tg:gc :full t)

20

(let ((count (hash-table-count

21

(geb.mixins::meta (make-instance 'mixin-test)))))

22

;; creates some garbage

23

(flet ((other-env ()

24

(meta-insert (make-instance 'mixin-test) :a 2)))

25

(other-env))

26

;; collect it

27

(tg:gc :full t)

28

;; did it work?

29

(is =

30

(hash-table-count (geb.mixins::meta (make-instance 'mixin-test)))

31

count)))