~ubuntu-branches/ubuntu/edgy/swig1.3/edgy

« back to all changes in this revision

Viewing changes to Examples/test-suite/chicken/newobject2_runme_proxy.ss

• browse files at revision 6
• compare with another revision
• download diff
• download tarball
• view history from revision 6

Show diffs side-by-side

added

removed

Examples/test-suite/chicken/newobject2_runme_proxy.ss

 

1

(load "newobject2.so")

 

2

 

 

3

(define f (make <Foo>))

 

4

 

 

5

(slot-set! f 'dummy 14)

 

6

(if (not (= (slot-ref f 'dummy) 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

(slot-set! f2 'dummy 16)

 

18

(if (not (= (slot-ref f2 'dummy) 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)

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1