Index: tests/parameters.tcl
===================================================================
diff -u -rbc9096dbfe6718828baf2359730f098d66598065 -r0c7e47e58354106c6810812efe41008ce5ae939b
--- tests/parameters.tcl	(.../parameters.tcl)	(revision bc9096dbfe6718828baf2359730f098d66598065)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 0c7e47e58354106c6810812efe41008ce5ae939b)
@@ -1253,133 +1253,3 @@
   ? {c1 f32} 1
 }
 
-#
-# testing ensemble objects with next
-#
-Test parameter count 1
-Test case ensemble-next {
-
-  nx::Class create FOO {
-    # reduced ensemble
-    :method foo args {lappend :v "FOO.foo//[nx::current method] ([nx::current args])"}
-
-    # expanded ensemble
-    :method "l1 l2 l3a" {x} {
-      lappend :v "FOO.l1 l2 l3a//[nx::current method] ([nx::current args])"
-    }
-    :method "l1 l2 l3b" {x} {
-      lappend :v "FOO.l1 l2 l3b//[nx::current method] ([nx::current args])"
-    }
-    # uplevel
-    :method "bar x" {varname} {upvar $varname v; return [info exists v]}
-    :method "baz" {} {
-      set hugo 1
-      return [:bar x hugo]
-    }
-  }
-  nx::Class create M0 {
-    :method "foo b x" {x} {
-      lappend :v "M0.foo b x//[nx::current method] ([nx::current args])"
-      nx::next
-    }
-    :method "foo b y" {x} {
-      lappend :v "M0.foo b y//[nx::current method] ([nx::current args])"
-      nx::next
-    }
-    :method "foo a" {x} {
-      lappend :v "M0.foo a//[nx::current method] ([nx::current args])"
-      nx::next
-    }
-
-    :method "l1 l2" {args} {
-      lappend :v "l1 l2//[nx::current method] ([nx::current args])"
-      nx::next
-    }
-  }
-
-  nx::Class create M1 {
-    :method "foo a" {x} {
-      set :v [list "M1.foo a //[nx::current method] ([nx::current args])"]
-      nx::next
-    }
-    :method "foo b x" {x} {
-      set :v  [list "M1.foo b x //[nx::current method] ([nx::current args])"]
-      nx::next
-    }
-    :method "foo b y" {x} {
-      set :v  [list "M1.foo b y //[nx::current method] ([nx::current args])"]
-      nx::next
-    }
-
-    :method "l1 l2 l3a" {x} {
-      set :v  [list "M1.l1 l2 l3a//[nx::current method] ([nx::current args])"]
-      nx::next
-    }
-    :method "l1 l2 l3b" {x} {
-      set :v  [list "M1.l1 l2 l3b//[nx::current method] ([nx::current args])"]
-      nx::next
-    }
-  }
-  
-  FOO mixin {M1 M0}
-  FOO create f1
-  
-  #
-  # The last list element shows handling of less deep ensembles
-  # (longer arg list is passed)
-  #
-  ? {f1 foo a 1} "{M1.foo a //a (1)} {M0.foo a//a (1)} {FOO.foo//foo (a 1)}"
-  ? {f1 foo b x 1} "{M1.foo b x //x (1)} {M0.foo b x//x (1)} {FOO.foo//foo (b x 1)}"
-  ? {f1 foo b y 1} "{M1.foo b y //y (1)} {M0.foo b y//y (1)} {FOO.foo//foo (b y 1)}"
-  #
-  # The middle list element shows shrinking (less deep ensembles), the
-  # last element shows expansion via mixin (deeper ensemble is reached
-  # via next)
-  #
-  ? {f1 l1 l2 l3a 100} "{M1.l1 l2 l3a//l3a (100)} {l1 l2//l2 (l3a 100)} {FOO.l1 l2 l3a//l3a (100)}"
-}
-
-Test case ensemble-partial-next {
-  nx::Class create M {
-    :method "info has namespace" {} {
-      next
-      return sometimes
-    }
-    :method "info has something else" {} {
-      return something
-    }
-    :method "info has something better" {} {
-      next
-      return better
-    }
-  }
-  nx::Object mixin add M
-  nx::Object create o1
-  ? {o1 info has namespace} sometimes
-  ? {o1 info has type Object} 1
-  ? {o1 info has type M} 0
-  ? {o1 info has typo M} \
-      {unable to dispatch method <obj> info has typo; valid subcommands of has: namespace something}
-  ? {o1 info has something else} something
-  ? {o1 info has something better} better
-}
-
-Test case ensemble-upvar {
-
-  nx::Class create FOO {
-    :method "bar0 x" {varname} {upvar $varname v; return [info exists v]}
-    :method "baz0" {} {
-      set hugo 1
-      return [:bar0 x hugo]
-    }
-    :method "bar1 x" {varname} {:upvar $varname v; return [info exists v]}
-    :method "baz1" {} {
-      set hugo 1
-      return [:bar1 x hugo]
-    }
-    :create f1
-  }
- 
-  ? {f1 baz0} 0
-  ? {f1 baz1} 1
-}