cmdr
Check-in [133579f38a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Merged trunk testsuite fixes.
Timelines: family | ancestors | descendants | both | vtype-testing
Files: files | file ages | folders
SHA1: 133579f38a0b2a07dd5f081aac4ecadff22ea382
User & Date: aku 2015-05-11 22:28:14
Context
2015-05-12
22:04
Updated to trunk (negative aliases) check-in: 93b8d83d4c user: aku tags: vtype-testing
2015-05-11
22:28
Merged trunk testsuite fixes. check-in: 133579f38a user: aku tags: vtype-testing
22:27
Really complete fixes for help testsuite. check-in: 868958ed6d user: aku tags: trunk
22:21
Testing validation types, continued. check-in: 58cb0c6af7 user: aku tags: vtype-testing
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/help.tests.

   315    315       cmdr create x foo {
   316    316   	description TEST
   317    317   	private nail {
   318    318   	    description workbench
   319    319   	    option no-driver force { list ; alias force }
   320    320   	} ::wall
   321    321       }
   322         -    x help
          322  +
          323  +    regsub -all {::oo::Obj\d+::} [x help] {ZZZ::}
   323    324   } -cleanup {
   324    325       x destroy
   325    326   } -result {nail {desc workbench options {--driver {Complementary alias of --no-driver.} --force {Alias of --no-driver.} --no-driver force} opt2para {--driver no-driver --force no-driver --no-driver no-driver} arguments {} states {} parameters {no-driver {cmdline 1 code ?* default {} defered 0 description force documented yes flags {--force alias --no-driver primary --driver inverted} generator {} interactive no isbool 1 label no-driver arglabel no-driver list yes ordered 0 presence no prompt {Enter no-driver: } required 0 threshold {} type option validator ::cmdr::validate::boolean}} sections {} action ::wall} help {desc {Retrieve help for a command or command set.
   326    327   	    Without arguments help for all commands is given.
   327    328   	    The default format is --full.} options {--by-category {
   328    329   		Activate by-category form of the help.
   329    330   	    } --full {
................................................................................
   356    357   	} documented yes flags {--no-pager primary} generator {} interactive no isbool 1 label no-pager arglabel no-pager list no ordered 0 presence yes prompt {Enter no-pager: } required 0 threshold {} type option validator ::cmdr::validate::boolean} short {cmdline 1 code ? default no defered 0 description {
   357    358   		Activate short form of the help.
   358    359   	    } documented yes flags {--short primary} generator {} interactive no isbool 1 label short arglabel short list no ordered 0 presence yes prompt {Enter short: } required 0 threshold {} type option validator ::cmdr::validate::boolean} width {cmdline 1 code ? default {} defered 0 description {
   359    360   	    The line width to format the help for.
   360    361   	    Defaults to the terminal width, or 80 when
   361    362   	    no terminal is available.
   362    363   	} documented yes flags {-w alias --width primary} generator {::apply {p { linenoise columns }}} interactive no isbool 0 label width arglabel width list no ordered 0 presence no prompt {Enter width: } required 0 threshold {} type option validator ::cmdr::validate::integer}} sections *AutoGenerated* action {::cmdr::help::auto-help ::x}} exit {desc {Exit the shell.
   363         -		    No-op if not in a shell.} options {} opt2para {} arguments {} states {} parameters {} sections *AutoGenerated* action {::oo::Obj1453::my shell-exit}} {} {desc TEST options {} opt2para {} arguments {} states {} parameters {} sections {}}}
          364  +		    No-op if not in a shell.} options {} opt2para {} arguments {} states {} parameters {} sections *AutoGenerated* action {ZZZ::my shell-exit}} {} {desc TEST options {} opt2para {} arguments {} states {} parameters {} sections {}}}
   364    365   
   365    366   # # ## ### ##### ######## ############# #####################
   366    367   
   367    368   test cmdr-help-2.0 {full - formatting help structure} -body {
   368    369       HelpLarge full
   369    370   } -result {bar aloha [OPTIONS] <yoyo> [<jump>] <run>...
   370    371       hawaii