diff options
Diffstat (limited to 'tests/opt.test')
| -rw-r--r-- | tests/opt.test | 39 |
1 files changed, 2 insertions, 37 deletions
diff --git a/tests/opt.test b/tests/opt.test index 1ed075d..b7e3a55 100644 --- a/tests/opt.test +++ b/tests/opt.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: opt.test,v 1.8 2000/07/18 21:30:41 ericm Exp $ +# RCS: @(#) $Id: opt.test,v 1.9 2004/05/19 12:48:32 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -39,7 +39,6 @@ test opt-2.1 {OptKeyDelete} { [info exists ::tcl::OptDesc(testkey)] } {testkey 1 {} 0} - test opt-3.1 {OptParse / temp key is removed} { set n $::tcl::OptDescN set prev [array names ::tcl::OptDesc] @@ -50,8 +49,6 @@ test opt-3.1 {OptParse / temp key is removed} { [info exists ::tcl::OptDesc($n)]\ [expr {"[lsort $prev]"=="[lsort [array names ::tcl::OptDesc]]"}] } {1 {} {} 0 1} - - test opt-3.2 {OptParse / temp key is removed even on errors} { set n $::tcl::OptDescN catch {::tcl::OptKeyDelete $n} @@ -65,7 +62,6 @@ test opt-4.1 {OptProc} { ::tcl::OptKeyDelete optTest } {} - test opt-5.1 {OptProcArgGiven} { ::tcl::OptProc optTest {{-foo}} { if {[::tcl::OptProcArgGiven "-foo"]} { @@ -85,7 +81,6 @@ test opt-6.1 {OptKeyParse} { ------------ ---- ----- ---- ( -help gives this help )}} - test opt-7.1 {OptCheckType} { list \ [::tcl::OptCheckType 23 int] \ @@ -102,7 +97,6 @@ test opt-7.1 {OptCheckType} { [catch {::tcl::OptCheckType foo choice {x y Foo z}}] } {23 23.0 1 -blah {a b c} maYbe 1 1 1 1 1 1} - test opt-8.1 {List utilities} { ::tcl::Lempty {} } 1 @@ -112,37 +106,32 @@ test opt-8.2 {List utilities} { test opt-8.3 {List utilities} { ::tcl::Lget {a {b c d} e} {1 2} } d - test opt-8.4 {List utilities} { set l {a {b c d e} f} ::tcl::Lvarset l {1 2} D set l } {a {b c D e} f} - test opt-8.5 {List utilities} { set l {a b c} ::tcl::Lvarset1 l 6 X set l } {a b c {} {} {} X} - test opt-8.6 {List utilities} { set l {a {b c 7 e} f} ::tcl::Lvarincr l {1 2} set l } {a {b c 8 e} f} - test opt-8.7 {List utilities} { set l {a {b c 7 e} f} ::tcl::Lvarincr l {1 2} -9 set l } {a {b c -2 e} f} - +# 8.8 and 8.9 missing? test opt-8.10 {List utilities} { set l {a {b c 7 e} f} ::tcl::Lvarpop l set l } {{b c 7 e} f} - test opt-8.11 {List utilities} { catch {unset x} set l {a {b c 7 e} f} @@ -157,7 +146,6 @@ test opt-9.1 {Misc utilities} { ::tcl::SetMax v 6 set v } 7 - test opt-9.2 {Misc utilities} { catch {unset v} ::tcl::SetMin v 3 @@ -176,21 +164,18 @@ test opt-10.1 {ambigous flags} { -fla boolflag (false) -flag2xyz boolflag (false) -flag3xyz boolflag (false) } - test opt-10.2 {non ambigous flags} { ::tcl::OptProc optTest {{-flag1xyz} {-other} {-flag2xyz} {-flag3xyz}} { return $flag2xyz } optTest -fLaG2 } 1 - test opt-10.3 {non ambigous flags because of exact match} { ::tcl::OptProc optTest {{-flag1x} {-other} {-flag1} {-flag1xy}} { return $flag1 } optTest -flAg1 } 1 - test opt-10.4 {ambigous flags, not exact match} { ::tcl::OptProc optTest {{-flag1xy} {-other} {-flag1} {-flag1xyz}} { return $flag1 @@ -201,8 +186,6 @@ test opt-10.4 {ambigous flags, not exact match} { -flag1xy boolflag (false) -flag1xyz boolflag (false) } - - # medium size overall test example: (defined once) ::tcl::OptProc optTest { {cmd -choice {print save delete} "sub command to choose"} @@ -218,8 +201,6 @@ test opt-10.5 {medium size overall test} { list [catch {optTest} msg] $msg } {1 {no value given for parameter "cmd" (use -help for full usage) : cmd choice (print save delete) sub command to choose}} - - test opt-10.6 {medium size overall test} { list [catch {optTest -help} msg] $msg } {1 {Usage information: @@ -231,19 +212,15 @@ test opt-10.6 {medium size overall test} { arg2 string () this is help ?arg3? int (7) optional number -moreflags boolflag (false) }} - test opt-10.7 {medium size overall test} { optTest save tst } {save 1 tst 7 0} - test opt-10.8 {medium size overall test} { optTest save -allowBoing false -- 8 } {save 0 8 7 0} - test opt-10.9 {medium size overall test} { optTest save tst -m -- } {save 1 tst 7 1} - test opt-10.10 {medium size overall test} { list [catch {optTest save tst foo} msg] [lindex [split $msg "\n"] 0] } {1 {too many arguments (unexpected argument(s): foo), usage:}} @@ -268,15 +245,3 @@ test opt-11.2 {default value for args} { # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - |