The great merge

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 18 insertions, 0 deletions

diff --git a/Examples/test-suite/tcl/overload_copy_runme.tcl b/Examples/test-suite/tcl/overload_copy_runme.tcl
new file mode 100644
index 000000000..32b62f2a9
--- /dev/null
+++ b/Examples/test-suite/tcl/overload_copy_runme.tcl
@@ -0,0 +1,18 @@
+
+if { [ string match $tcl_platform(platform) "windows" ] == 1 } {
+    if [ catch { load ./overload_copy.dll overload_copy} err_msg ] {
+        puts stderr "Could not load dll:\n$err_msg"
+    }
+} else {
+    if [ catch { load ./overload_copy.so overload_copy} err_msg ] {
+        puts stderr "Could not load shared object:\n$err_msg"
+    }
+}
+
+Foo f
+Foo g [f cget -this]
+
+
+
+
+