18 lines
311 B
Scheme
18 lines
311 B
Scheme
(define-macro (check test)
|
|
`(unless ,test (error "Error in test" ',test)))
|
|
|
|
(define foo1 (Foo-makeFoo))
|
|
(check (= (Foo-fooCount) 1))
|
|
|
|
(define foo2 (Foo-makeMore foo1))
|
|
(check (= (Foo-fooCount) 2))
|
|
|
|
(set! foo1 '())
|
|
(gc)
|
|
(check (= (Foo-fooCount) 1))
|
|
|
|
(set! foo2 '())
|
|
(gc)
|
|
(check (= (Foo-fooCount) 0))
|
|
|
|
(exit 0)
|