diff options
| author | ericm <ericm> | 2000-07-18 21:30:40 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-07-18 21:30:40 (GMT) |
| commit | 26e4d6af1e3593766c42558745033818cae3b377 (patch) | |
| tree | 214976cf390fdc922f0513e78335ac253b746b59 /tests/opt.test | |
| parent | 25ae774988b1ff08384886cc62c07f67a0d1d979 (diff) | |
| download | tcl-26e4d6af1e3593766c42558745033818cae3b377.zip tcl-26e4d6af1e3593766c42558745033818cae3b377.tar.gz tcl-26e4d6af1e3593766c42558745033818cae3b377.tar.bz2 | |
* tests/opt.test: Removed references to Lfirst, Lrest functions.
* library/opt0.4/optparse.tcl: Applied patch from Chris Nelson,
which replaces the [Lfirst] function with an inline [lindex ... 0]
and [Lrest] with [lrange ... 1 end], for better performance.
[RFE: 6019]
Diffstat (limited to 'tests/opt.test')
| -rw-r--r-- | tests/opt.test | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/tests/opt.test b/tests/opt.test index a7e0a11..1ed075d 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.7 2000/05/10 23:49:48 hobbs Exp $ +# RCS: @(#) $Id: opt.test,v 1.8 2000/07/18 21:30:41 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -137,17 +137,6 @@ test opt-8.7 {List utilities} { set l } {a {b c -2 e} f} -test opt-8.8 {List utilities} { - set l {{b c 7 e} f} - ::tcl::Lfirst $l -} {b c 7 e} - - -test opt-8.9 {List utilities} { - set l {a {b c 7 e} f} - ::tcl::Lrest $l -} {{b c 7 e} f} - test opt-8.10 {List utilities} { set l {a {b c 7 e} f} ::tcl::Lvarpop l |