jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

massive typemap unification

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7676 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-18 13:24:15 +00:00
commit 7e5e4fd1f9
144 changed files with 6378 additions and 7248 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Examples/test-suite/tcl/Makefile.in
View file

@ -9,6 +9,9 @@ srcdir = @srcdir@
top_srcdir = @top_srcdir@
top_builddir = @top_builddir@
CPP_TEST_CASES += \
primitive_types \
include $(srcdir)/../common.mk
# Overridden variables here
@ -39,6 +42,6 @@ run_testcase = \
# Clean
%.clean:
clean:
$(MAKE) -f $(top_builddir)/$(EXAMPLES)/Makefile tcl_clean

4
Examples/test-suite/tcl/bools_runme.tcl
View file

@ -35,7 +35,7 @@ if { [ value $const_pbool ] != $bool1} {
exit 1
}
if { [ value $const_rbool ] != $bool2} {
if { $const_rbool != $bool2} {
puts stderr "Runtime test 7 failed"
exit 1
}
@ -61,7 +61,7 @@ if { [ value [ pbo $pbool ] ] != [ value $pbool ]} {
exit 1
}
if { [ const_rbo [ value $const_rbool ] ] != [ value $const_rbool ]} {
if { [ const_rbo $const_rbool ] != $const_rbool } {
puts stderr "Runtime test 12 failed"
exit 1
}

1
Examples/test-suite/tcl/enum_thorough_runme.tcl
View file

@ -3,6 +3,7 @@ if [ catch { load ./enum_thorough[info sharedlibextension] enum_thorough} err_ms
puts stderr "Could not load shared object:\n$err_msg"
}
if { [speedTest0 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest0 failed" }
if { [speedTest4 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest4 failed" }
if { [speedTest5 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest5 failed" }

2
Examples/test-suite/tcl/overload_simple_runme.tcl
View file

@ -9,7 +9,7 @@ set v [malloc_void 32]
set x [foo 3]
if {$x != "foo:int"} {
puts stderr "foo(int) test failed"
puts stderr "foo(int) test failed $x"
exit 1
}

21
Examples/test-suite/tcl/primitive_types_runme.tcl Normal file
View file

@ -0,0 +1,21 @@
if [ catch { load ./primitive_types[info sharedlibextension] primitive_types} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
if {[val_int 10] != 10 } { error "bad int map" }
if {[val_schar 10] != 10 } { error "bad char map" }
if {[val_short 10] != 10 } { error "bad schar map" }
if [catch { val_schar 10000 } ] {} else { error "bad schar map" }
if [catch { val_uint -100 } ] {} else { error "bad uint map" }
if [catch { val_uchar -100 } ] {} else { error "bad uchar map" }
if {[val_uint 10] != 10 } { error "bad uint map" }
if {[val_uchar 10] != 10 } { error "bad uchar map" }
if {[val_ushort 10] != 10 } { error "bad ushort map" }