(load "newobject2.so") | |
(define f (new-Foo)) | |
(Foo-dummy-set f 14) | |
(if (not (= (Foo-dummy-get f) 14)) | |
(error "Bad dummy value")) | |
(if (not (= (fooCount) 0)) | |
(error "Bad foo count 1")) | |
(define f2 (makeFoo)) | |
(if (not (= (fooCount) 1)) | |
(error "Bad foo count 2")) | |
(Foo-dummy-set f2 16) | |
(if (not (= (Foo-dummy-get f2) 16)) | |
(error "Bad dummy value for f2")) | |
(set! f #f) | |
(set! f2 #f) | |
(gc #t) | |
(if (not (= (fooCount) -1)) | |
(error "Bad foo count 3")) | |
(exit 0) |