diff options
Diffstat (limited to 'tests/tm.test')
| -rw-r--r-- | tests/tm.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/tm.test b/tests/tm.test index 1b22f8c..280b058 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -6,7 +6,7 @@ # Copyright (c) 2004 by Donal K. Fellows. # All rights reserved. -package require Tcl 8.5 +package require Tcl 8.5- if {"::tcltest" ni [namespace children]} { package require tcltest 2 namespace import -force ::tcltest::* @@ -202,6 +202,11 @@ proc genpaths {base} { set base [file normalize $base] lassign [split [package present Tcl] .] major minor set results {} + set base8 [file join $base tcl8] + lappend results [file join $base8 site-tcl] + for {set i 0} {$i <= 7} {incr i} { + lappend results [file join $base8 8.$i] + } set base [file join $base tcl$major] lappend results [file join $base site-tcl] for {set i 0} {$i <= $minor} {incr i} { |