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

« back to all changes in this revision

Viewing changes to Examples/test-suite/guile/constover_runme.scm

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

Show diffs side-by-side

added

removed

Examples/test-suite/guile/constover_runme.scm

 

1

(dynamic-call "scm_init_constover_module" (dynamic-link "./libconstover.so"))

 

2

 

 

3

(define p (test "test"))

 

4

(if (not (string=? p "test"))

 

5

    (error "test failed!"))

 

6

 

 

7

(set! p (test-pconst "test"))

 

8

(if (not (string=? p "test_pconst"))

 

9

    (error "test_pconst failed!"))

 

10

 

 

11

(define f (new-Foo))

 

12

(set! p (Foo-test f "test"))

 

13

(if (not (string=? p "test"))

 

14

    (error "member-test failed!"))

 

15

 

 

16

(set! p (Foo-test-pconst f "test"))

 

17

(if (not (string=? p "test_pconst"))

 

18

    (error "member-test_pconst failed!"))

 

19

 

 

20

(set! p (Foo-test-constm f "test"))

 

21

(if (not (string=? p "test_constmethod"))

 

22

    (error "member-test_constm failed!"))

 

23

 

 

24

(set! p (Foo-test-pconstm f "test"))

 

25

(if (not (string=? p "test_pconstmethod"))

 

26

    (error "member-test_pconstm failed!"))

 

27

 

 

28

(exit 0)

• Older »

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