Index: tests/nsf-cmd.test =================================================================== diff -u -N -rb44ba341aa4dc2d759201f6413dc2ef36eba555d -r65d13b7b37bf2ee5dabe0392eb1e7af3a0cc85fe --- tests/nsf-cmd.test (.../nsf-cmd.test) (revision b44ba341aa4dc2d759201f6413dc2ef36eba555d) +++ tests/nsf-cmd.test (.../nsf-cmd.test) (revision 65d13b7b37bf2ee5dabe0392eb1e7af3a0cc85fe) @@ -777,8 +777,24 @@ namespace delete ::ns1 } +nx::test case switch-info { + namespace eval ::ns1 {} + set handle ::n1::foo + set params [list -p1:boolean -p2:switch args] + set def [list ::nsf::proc $handle $params return] + {*}$def + ? [list nsf::cmd::info args $handle] "p1 p2 args" + ? [list nsf::cmd::info definition $handle] $def + ? [list nsf::cmd::info exists $handle] 1 + ? [list nsf::cmd::info parameter $handle] $params + ? [list nsf::cmd::info syntax $handle] "?-p1 /boolean/? ?-p2? ?/arg .../?" + + namespace delete ::ns1 +} + + # - TO-DO: interp hide/expose