Index: tests/contains.test =================================================================== diff -u -r5fa3584b0f682d4103c39af82357713871f1de0c -rfc4e3f5f6a94ef7324baffab90d58cd7eb513907 --- tests/contains.test (.../contains.test) (revision 5fa3584b0f682d4103c39af82357713871f1de0c) +++ tests/contains.test (.../contains.test) (revision fc4e3f5f6a94ef7324baffab90d58cd7eb513907) @@ -2,9 +2,8 @@ package require nx namespace path nx -# Don't use test, since test and contains redefines new, -# so we ahe a conflict.... -#package require nx::test +# Don't use test, since both, package test and contains redefine "new", +# so we have a conflict.... proc ? {cmd expected {msg ""}} { #puts "??? $cmd" @@ -51,4 +50,30 @@ Tree create 1.3 -label 1.3 }] +namespace path "" + +# Test resolving of implicit namespaces in relationcmds (here +# superclass) in the nx namespace. +namespace eval ::nx { + + #puts stderr =====1 + set c [Class create C -superclass Class { + :class-object method foo {} {;} + }] + ? {set c} ::C + + # recreate + set c [Class create C -superclass Class ] + ? {set c} ::C + #puts stderr =====3 +} + + +package forget nx +package req nx + +package require XOTcl +package forget XOTcl +package require XOTcl + puts stderr ===EXIT \ No newline at end of file