Index: tests/nsf-cmd.test =================================================================== diff -u -r0b1ac7f47948c36c4e03fc3d6dbce0a04d9418d4 -r63fb7c118c69ff1a2753b65d222f59151b6a6906 --- tests/nsf-cmd.test (.../nsf-cmd.test) (revision 0b1ac7f47948c36c4e03fc3d6dbce0a04d9418d4) +++ tests/nsf-cmd.test (.../nsf-cmd.test) (revision 63fb7c118c69ff1a2753b65d222f59151b6a6906) @@ -121,6 +121,13 @@ ? {nsf::cmd::info returns $::handle} "" # + # define a nsf::proc with "-debug" and "-deprecated" + # + nsf::proc -deprecated -debug ::baz {{-x 1} y:optional} {return $x-$y} + + ? {nsf::cmd::info definition ::baz} {::nsf::proc -debug -deprecated ::baz {{-x 1} y:optional} {return $x-$y}} + + # # A simple Tcl proc # set ::handle ::bar