Index: tests/var-access.tcl
===================================================================
diff -u
--- tests/var-access.tcl	(revision 0)
+++ tests/var-access.tcl	(revision afc4ba278d628aaa440e2f8d84c4ef46c380a8ab)
@@ -0,0 +1,72 @@
+package require nx
+package require nx::test
+
+namespace eval ::nx::var1 {
+  namespace ensemble create -map {
+    exists ::nx::core::existsvar 
+    import ::nx::core::importvar 
+    set ::nx::core::setvar
+  }
+}
+
+::nx::Object create ::nx::var2 {
+  :alias exists ::nx::core::existsvar 
+  :alias import ::nx::core::importvar
+  :alias set ::nx::core::setvar
+}
+
+Test parameter count 10000
+Test case dummy {
+  nx::Object create o {
+    set :x 1
+  }
+  nx::Object create p {
+    set :y 1
+    :method foo0 {} {
+      incr :y
+    }
+    :method foo1 {} {
+      o eval {incr :x}
+    }
+    :method foo2 {} {
+      ::nx::core::importvar o x
+      incr x
+    }
+    :method foo3 {} {
+      ::nx::var1 import o x
+      incr x
+    }
+    :method foo4 {} {
+      ::nx::var2 import o x
+      incr x
+    }
+  }
+  
+  ? {::nx::core::setvar o x} 1
+  ? {::nx::core::existsvar o x} 1
+  ? {::nx::core::existsvar o y} 0
+
+  ? {::nx::var1 set o x} 1
+  ? {::nx::var1 exists o x} 1
+  ? {::nx::var1 exists o y} 0
+
+  ? {::nx::var2 set o x} 1
+  ? {::nx::var2 exists o x} 1
+  ? {::nx::var2 exists o y} 0
+
+  ? {p foo0} 2
+
+  ? {p foo1} 2
+  ? {::nx::core::setvar o x} 10002
+
+  ? {p foo2} 10003
+  ? {::nx::core::setvar o x} 20003
+
+  ? {p foo3} 20004
+  ? {::nx::core::setvar o x} 30004
+
+  ? {p foo4} 30005
+  ? {::nx::core::setvar o x} 40005
+}
+
+puts stderr =====END