Index: xotcl/tests/slottest.xotcl
===================================================================
diff -u -r2c98844f5e9a46a8ecb2c8aa8d714592a07b311d -r20e421dc641dc39b53106b1296ac7e09d0b206f2
--- xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 2c98844f5e9a46a8ecb2c8aa8d714592a07b311d)
+++ xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 20e421dc641dc39b53106b1296ac7e09d0b206f2)
@@ -1,4 +1,4 @@
-# $Id: slottest.xotcl,v 1.1 2006/09/14 06:42:08 neumann Exp $
+# $Id: slottest.xotcl,v 1.2 2006/10/04 20:40:24 neumann Exp $
 package require XOTcl
 namespace import -force xotcl::*
 package require xotcl::test
@@ -36,11 +36,6 @@
 # -gustaf neumann                          21.Jan. 2006
 
 package require xotcl::serializer
-#source /Users/neumann/src/xotcl-1.5.0/library/serialize/Serializer.xotcl
-::xotcl::Object instproc serialize {} {
-  set s [Serializer new -volatile]
-  $s deepSerialize [self]
-}
 
 #proc ? {cmd expected} {
 #   set r [eval $cmd]		       
@@ -478,6 +473,23 @@
 ? {catch {a1 foo 100}} 1
 ? {catch {a1 foo 99}} 0
 
+set x [Object new -set x 1 -contains {
+  Object new -set x 1.1
+  Object new -set x 1.2 -contains {
+    Object new -set x 1.2.1
+    Object new -set x 1.2.2 -contains {
+      Object new -set x 1.2.2.1
+    }
+    Object new -set x 1.2.3
+  }
+  Object new -set x 1.3
+}]
+
+? {llength [$x info children]} 3
+? {llength [[lindex [lsort [$x info children]] 0] info children]} 0
+? {llength [[lindex [lsort [$x info children]] 1] info children]} 3
+? {llength [[lindex [lsort [$x info children]] 2] info children]} 0
+
 exit
 
 #puts [Person array get __defaults]