summaryrefslogtreecommitdiff
path: root/Examples/test-suite/tcl
diff options
context:
space:
mode:
authorOlly Betts <olly@survex.com>2022-02-10 09:55:58 +1300
committerOlly Betts <olly@survex.com>2022-02-10 09:55:58 +1300
commitbb15c4eccf2340eda0c9cb3bc7824d6d19f301c2 (patch)
tree74603c9efea3484487cb501ef0799372264e0262 /Examples/test-suite/tcl
parent1d088d712405efa0ba164f6903b02454da93c204 (diff)
downloadswig-bb15c4eccf2340eda0c9cb3bc7824d6d19f301c2.tar.gz
[Tcl] Fix Tcl generic input typemap for std::vector
Fixes https://sourceforge.net/p/swig/bugs/1207/ Fixes https://sourceforge.net/p/swig/bugs/1213/
Diffstat (limited to 'Examples/test-suite/tcl')
-rw-r--r--Examples/test-suite/tcl/li_std_vector_runme.tcl8
1 files changed, 8 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/li_std_vector_runme.tcl b/Examples/test-suite/tcl/li_std_vector_runme.tcl
index 99840607b..743565d95 100644
--- a/Examples/test-suite/tcl/li_std_vector_runme.tcl
+++ b/Examples/test-suite/tcl/li_std_vector_runme.tcl
@@ -5,3 +5,11 @@ if [ catch { load ./li_std_vector[info sharedlibextension] li_std_vector} err_ms
# Regression test for bug fixed in SWIG 4.1.0.
if {[sum []] != 0} { error "bad vector sum" }
+
+IntPtrVector v 6
+if {[v empty] != 0} { error "bad std::vector::empty()" }
+if {[v size] != 6} { error "bad std::vector::size()" }
+# Test that calling get succeeds
+v get 0
+v pop
+if {[v size] != 5} { error "bad std::vector::size()" }