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

« back to all changes in this revision

Viewing changes to Examples/test-suite/tcl/newobject2_runme.tcl

• 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/tcl/newobject2_runme.tcl

 

1

if [ catch { load ./newobject2[info sharedlibextension] newobject2} err_msg ] {

 

2

        puts stderr "Could not load shared object:\n$err_msg"

 

3

}

 

4

 

 

5

set foo1 [makeFoo]

 

6

if {[fooCount] != 1} {

 

7

    puts stderr "newobject2 test 1 failed"

 

8

    exit 1

 

9

}

 

10

 

 

11

set foo2 [makeFoo]

 

12

if {[fooCount] != 2} {

 

13

    puts stderr "newobject2 test 2 failed"

 

14

    exit 1

 

15

}

 

16

 

 

17

$foo1 -delete

 

18

if {[fooCount] != 1} {

 

19

    puts stderr "newobject2 test 3 failed"

 

20

    exit 1

 

21

}

 

22

 

 

23

$foo2 -delete

 

24

if {[fooCount] != 0} {

 

25

    puts stderr "newobject2 test 4 failed"

 

26

    exit 1

 

27

}

• Older »

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