Index: tests/nsf-cmd.test =================================================================== diff -u -N -rd01fb5ad47bb23f2069f048e4344c70485bdd9b9 -rf93d46e6e9ca1ceb7b7f9fc48f83c4e54aef2bd0 --- tests/nsf-cmd.test (.../nsf-cmd.test) (revision d01fb5ad47bb23f2069f048e4344c70485bdd9b9) +++ tests/nsf-cmd.test (.../nsf-cmd.test) (revision f93d46e6e9ca1ceb7b7f9fc48f83c4e54aef2bd0) @@ -521,7 +521,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} nsf::proc ::ns1::foo { {-x:required} @@ -540,7 +540,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} namespace eval ::ns1 {} } @@ -552,7 +552,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} nsf::proc ::ns1::foo { {-x:required} @@ -571,7 +571,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} } @@ -624,7 +624,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} nsf::proc ::ns1::foo { {-x:required} @@ -652,7 +652,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} namespace eval ::ns1 {} } @@ -664,7 +664,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} nsf::proc ::ns1::foo { {-x:required} @@ -693,7 +693,7 @@ ? {info procs ::ns1::foo} "" ? {info procs ::nsf::procs::ns1::foo} "" - ? {::ns1::foo -x ok} {invalid command name "::ns1::foo"} + ? {::ns1::foo -x ok} {TCL LOOKUP COMMAND ::ns1::foo} {invalid command name "::ns1::foo"} namespace eval ::ns1 {} rename ::nsf::procs::ns1::foo ""