summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorericm <ericm>2000-01-28 00:09:15 (GMT)
committerericm <ericm>2000-01-28 00:09:15 (GMT)
commitce3b1a3fb5578366ca5a44cf0a5436abe27e7a92 (patch)
tree7ec3680973d8efe67adf021bc045175f6c6cf5bd /tests
parent335c1f78124d678298612ab09fed880c7042aebc (diff)
downloadtcl-ce3b1a3fb5578366ca5a44cf0a5436abe27e7a92.zip
tcl-ce3b1a3fb5578366ca5a44cf0a5436abe27e7a92.tar.gz
tcl-ce3b1a3fb5578366ca5a44cf0a5436abe27e7a92.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.
Diffstat (limited to 'tests')
-rw-r--r--tests/autoMkindex.test13
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