Index: tests/protected.xotcl
===================================================================
diff -u -r2f283277aff2bb9488419a4fbe2442a5b17546e5 -r73eb4eccd33d1a940e2d2ca6dccc2f74216f0576
--- tests/protected.xotcl	(.../protected.xotcl)	(revision 2f283277aff2bb9488419a4fbe2442a5b17546e5)
+++ tests/protected.xotcl	(.../protected.xotcl)	(revision 73eb4eccd33d1a940e2d2ca6dccc2f74216f0576)
@@ -2,28 +2,20 @@
 package require xotcl::test
 xotcl::use xotcl2
 
-set count 1
-proc ? {cmd expected {msg ""}} {
-  if {$msg ne ""} {
-    set t [Test new -cmd $cmd -count $::count -msg $msg]
-  } else {
-    set t [Test new -cmd $cmd -count $::count]
+Test parameter count 1
+
+Class create C {
+  .alias SET ::set
+  .method foo {} {return [self proc]}
+  .method bar {} {return [self proc]}
+  .method bar-foo {} {
+    c1 foo
   }
-  $t expected $expected 
-  $t run
+  .method bar-SET {} {
+    c1 SET x 1
+  }
 }
 
-Class create C
-::xotcl::alias C SET ::set
-C method foo {} {return [self proc]}
-C method bar {} {return [self proc]}
-C method bar-foo {} {
-  c1 foo
-}
-C method bar-SET {} {
-  c1 SET x 1
-}
-
 C create c1
 C create c2