| (load "newobject2.so") | |
| (define f (make <Foo>)) | |
| (slot-set! f 'dummy 14) | |
| (if (not (= (slot-ref f 'dummy) 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")) | |
| (slot-set! f2 'dummy 16) | |
| (if (not (= (slot-ref f2 'dummy) 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) |