Guile testing - call gc instead of explicitly calling the destructor

This commit is contained in:
William S Fulton 2022-08-18 21:42:25 +01:00
commit 63143e8773
2 changed files with 11 additions and 9 deletions

View file

@ -7,10 +7,12 @@
(define foo2 (Foo-makeMore foo1))
(check (= (Foo-fooCount) 2))
(delete-Foo foo1)
(set! foo1 '())
(gc)
(check (= (Foo-fooCount) 1))
(delete-Foo foo2)
(set! foo2 '())
(gc)
(check (= (Foo-fooCount) 0))
(exit 0)