add disown.i and li_attribute.i

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

Examples/test-suite/tcl/Makefile.in

@@ -13,12 +13,13 @@ top_builddir = @top_builddir@
 
 CPP_TEST_CASES += \
 	primitive_types \
-	li_attribute \
+	li_cdata \
 	li_cstring \
 	li_cwstring \
 	li_std_wstring
 
 C_TEST_CASES += \
+	li_cdata \
 	li_cstring \
 	li_cwstring
 

Examples/test-suite/tcl/disown_runme.tcl

@@ -0,0 +1,16 @@
+
+# This is the union runtime testcase. It ensures that values within a 
+# union embedded within a struct can be set and read correctly.
+
+if [ catch { load ./disown[info sharedlibextension] disown} err_msg ] {
+	puts stderr "Could not load shared object:\n$err_msg"
+}
+
+set x 0
+while {$x<100} {
+  set a [new_A]
+  B b
+  b acquire $a
+  incr x
+}
+