Index: tests/interceptor-slot.xotcl
===================================================================
diff -u -N
--- tests/interceptor-slot.xotcl	(revision 57c47e5fff431976511c200231567024bea09ff4)
+++ tests/interceptor-slot.xotcl	(revision 0)
@@ -1,127 +0,0 @@
-package require next
-package require next::test
-
-namespace import ::nx::*
-
-Class create M {
-  :method mfoo {} {puts [self proc]}
-}
-Class create M2
-Class create C 
-
-? {C info callable -which mixin} "::nx::Class forward mixin ::nx::Class::slot::mixin {%1 {get assign}} %self class-mixin"
-C mixin M
-? {C info precedence} "::nx::Class ::nx::Object"
-? {C mixin} "::M"
-? {C info mixin} "::M"
-C create c1
-? {c1 info precedence} "::M ::C ::nx::Object"
-C mixin add M2
-? {c1 info precedence} "::M2 ::M ::C ::nx::Object"
-C mixin delete M2
-? {c1 info precedence} "::M ::C ::nx::Object"
-C mixin delete M
-
-# per-object mixins
-? {c1 info precedence} "::C ::nx::Object"
-c1 mixin add M
-? {::nx::core::relation c1 object-mixin} ::M
-? {catch {c1 mixin UNKNOWN}} 1
-? {::nx::core::relation c1 object-mixin} "::M"
-
-# add again the same mixin
-c1 mixin add M
-? {c1 info precedence} "::M ::C ::nx::Object"
-c1 mixin add M2
-? {c1 info precedence} "::M2 ::M ::C ::nx::Object"
-c1 mixin delete M
-? {c1 info precedence} "::M2 ::C ::nx::Object"
-c1 mixin delete M2
-? {c1 info precedence} "::C ::nx::Object"
-
-#
-# adding, removing per-object mixins for classes through relation
-# "object-mixin"
-#
-::nx::core::relation C object-mixin M
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {C object info mixin} "::M"
-::nx::core::relation C object-mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
-
-#
-# adding, removing per-object mixins for classes through slot
-# "object-mixin"
-#
-C object-mixin M
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {C object info mixin} "::M"
-C object-mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
-
-#
-# add and remove object mixin for classes via modifier "object" and
-# "mixin"
-#
-C object mixin M
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {C object info mixin} "::M"
-C object mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
-
-#
-#  add and remove object mixin for classes via object mixin add
-#
-C object mixin add M
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {C object info mixin} "::M"
-C object mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
-
-#
-# adding per-object mixins for classes via "object mixin add M"
-#
-C object mixin add M 
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {::nx::core::relation C object-mixin} ::M
-? {catch {C object mixin add UNKNOWN}} 1
-? {::nx::core::relation C object-mixin} "::M"
-C object mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
-
-#
-# adding per-object mixins for classes via "object mixin M"
-#
-C object mixin M 
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-
-# forwarder with 0 arguments + flag
-? {C object-mixin} "::M"
-
-puts stderr "==================== XOTcl 1"
-package require XOTcl
-namespace import -force ::xotcl::*
-
-Class create M1
-Class create M11
-M1 instproc mfoo {} {puts [self proc]}
-Class create C1 
-? {C1 procsearch mixin} "::xotcl::Object instforward mixin"
-C1 mixin M1
-? {C1 info precedence} "::M1 ::xotcl::Class ::xotcl::Object"
-C1 create c11
-? {c11 info precedence} "::C1 ::xotcl::Object"
-C1 mixin add M11
-? {C1 info precedence} "::M11 ::M1 ::xotcl::Class ::xotcl::Object"
-puts stderr ===obj-create+add
-Object o -mixin M1
-puts stderr ====[o info class]-[o procsearch mixin]-[Object info instforward -definition mixin]
-? {o info precedence} "::M1 ::xotcl::Object"
-puts stderr ===class-create+add
-Class O 
-O mixin M1
-? {O info precedence} "::M1 ::xotcl::Class ::xotcl::Object"
-puts stderr ===class-create+add-via-parameter
-Class O -mixin M1
-puts stderr ====[O info class]
-? {O info precedence} "::M1 ::xotcl::Class ::xotcl::Object"