Index: tests/tcl86.test
===================================================================
diff -u -r6cbb838340f985cc250def919416069f3d43e0df -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55
--- tests/tcl86.test	(.../tcl86.test)	(revision 6cbb838340f985cc250def919416069f3d43e0df)
+++ tests/tcl86.test	(.../tcl86.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
@@ -8,11 +8,11 @@
 #
 # Test coroutine / yield
 #
-nx::Test case number-generator {
+nx::test case number-generator {
   nx::Object create ::numbers {
     # set instance variable used in coroutine
     set :delta 2
-    :public method ++ {} {
+    :public object method ++ {} {
       yield
       set i 0
       while 1 {
@@ -38,7 +38,7 @@
 #
 # Test coroutine / yield 
 #
-nx::Test case enumerator1 {
+nx::test case enumerator1 {
 
   #
   # enumerator with yield in a single class
@@ -79,7 +79,7 @@
 }
 
 
-nx::Test case enumerator2 {
+nx::test case enumerator2 {
   
   #
   # Define separate classes for Yielder and Enumerator
@@ -209,7 +209,7 @@
 #
 # apply
 #
-nx::Test case apply {
+nx::test case apply {
 
   # Register apply as an alias
   ::nx::Object public alias apply ::apply
@@ -219,15 +219,15 @@
     set :delta 100
 
     # Define a standard map function based on apply
-    :public method map {lambda values} {
+    :public object method map {lambda values} {
       set result {}
       foreach value $values {
 	lappend result [:apply $lambda $value]
       }
       return $result
     }
 
-    :method foo {x} {return $x-$x}
+    :object method foo {x} {return $x-$x}
   }
 
   # Two examples from the apply man page
@@ -249,3 +249,10 @@
       "hello-hello world-world"
 }
 
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End:
+