/trunk/Examples/test-suite/chicken/newobject2_runme.ss

 1(load "newobject2.so")
 2
 3(define f (new-Foo))
 4
 5(Foo-dummy-set f 14)
 6(if (not (= (Foo-dummy-get f) 14))
 7  (error "Bad dummy value"))
 8
 9(if (not (= (fooCount) 0))
10  (error "Bad foo count 1"))
11
12(define f2 (makeFoo))
13
14(if (not (= (fooCount) 1))
15  (error "Bad foo count 2"))
16
17(Foo-dummy-set f2 16)
18(if (not (= (Foo-dummy-get f2) 16))
19  (error "Bad dummy value for f2"))
20
21(set! f #f)
22(set! f2 #f)
23
24(gc #t)
25
26(if (not (= (fooCount) -1))
27  (error "Bad foo count 3"))
28
29(exit 0)