diff options
author | ericm <ericm@noemail.net> | 2000-01-28 00:09:15 (GMT) |
---|---|---|
committer | ericm <ericm@noemail.net> | 2000-01-28 00:09:15 (GMT) |
commit | 848943ac1d5fa8dc33059e5d97d68dc50f91e8a5 (patch) | |
tree | 7ec3680973d8efe67adf021bc045175f6c6cf5bd /tests | |
parent | 0b886e3cfabc980ebd7932ecfbd9adf64aad2f5e (diff) | |
download | tcl-848943ac1d5fa8dc33059e5d97d68dc50f91e8a5.zip tcl-848943ac1d5fa8dc33059e5d97d68dc50f91e8a5.tar.gz tcl-848943ac1d5fa8dc33059e5d97d68dc50f91e8a5.tar.bz2 |
* tests/autoMkindex.test:
* library/auto.tcl: Applied patch (with slight modification) from
bug #2701: auto_mkIndex uses platform dependent file paths.
Added test for fix.
FossilOrigin-Name: 8e75673ac22a5e381f1fa029d4d9a1bcc8099c31
Diffstat (limited to 'tests')
-rw-r--r-- | tests/autoMkindex.test | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 27de741..cdc33d3 100644 --- a/tests/autoMkindex.test +++ b/tests/autoMkindex.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: autoMkindex.test,v 1.7 1999/10/19 18:08:44 jenn Exp $ +# RCS: @(#) $Id: autoMkindex.test,v 1.8 2000/01/28 00:09:15 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -176,6 +176,17 @@ test autoMkindex-3.3 {auto_mkindex_parser::command} {knownBug} { list [lvalue $::result *mycmd4*] [lvalue $::result *mycmd5*] [lvalue $::result *mycmd6*] } "{::buried::mycmd4 $element} {::buried::mycmd5 $element} {mycmd6 $element}" +test autoMkindex-4.1 {platform indenpendant source commands} { + file delete tclIndex + auto_mkindex . pkg/samename.tcl + set f [open tclIndex r] + set dat [split [string trim [read $f]] "\n"] + set len [llength $dat] + set result [lsort [lrange $dat [expr {$len-2}] [expr {$len-1}]]] + close $f + set result +} {{set auto_index(::college::team) [list source [file join $dir pkg samename.tcl]]} {set auto_index(::pro::team) [list source [file join $dir pkg samename.tcl]]}} + # Clean up. unset result |