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

« back to all changes in this revision

Viewing changes to Examples/test-suite/chicken/newobject2_runme.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.ss

1

 

(load-library 'newobject2 "newobject2.so")

2

 

 

3

 

(define f (make <Foo>))

4

 

 

5

 

(slot-set! f 'dummy 14)

6

 

(if (not (= (slot-ref f 'dummy) 14))

 

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

7

  (error "Bad dummy value"))

8

8

 

 

9

(if (not (= (fooCount) 0))

 

10

  (error "Bad foo count 1"))

 

11

 

9

12

(define f2 (makeFoo))

10

13

 

11

 

(slot-set! f2 'dummy 16)

12

 

(if (not (= (slot-ref f2 'dummy) 16))

 

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))

13

19

  (error "Bad dummy value for f2"))

14

20

 

15

21

(set! f #f)

16

22

(set! f2 #f)

17

23

 

18

 

(gc)

 

24

(gc #t)

 

25

 

 

26

(if (not (= (fooCount) -1))

 

27

  (error "Bad foo count 3"))

19

28

 

20

29

(exit 0)

• Older »

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