Overview
Comment: | Updated to set "starkit::topdir" so that it is always correct, even with KitDLL
Updated mk4vfs zlib compressed seek test to use starkit::topdir |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | f8234649a551912ed894c99594ca41836b9bfe09 |
User & Date: | rkeene on 2011-07-18 03:02:23 |
Other Links: | manifest | tags |
Context
2011-07-19
| ||
19:08 |
Updated to not force setting of starkit::topdir, this would break starkits
Updated zipseek test to use $tcl_library to find Tclkit root check-in: 49d6a04e90 user: rkeene tags: trunk | |
2011-07-18
| ||
03:02 |
Updated to set "starkit::topdir" so that it is always correct, even with KitDLL
Updated mk4vfs zlib compressed seek test to use starkit::topdir check-in: f8234649a5 user: rkeene tags: trunk | |
2011-07-17
| ||
19:56 | Add a test for the zip seek bugfix (95d3afb4e9) check-in: 0ebd562749 user: sbron tags: trunk | |
Changes
Modified build/test/tests/17-zipseek.tcl from [e7a5fc9a49] to [46ce76b41e].
1 1 #!/usr/bin/env tclsh 2 + 3 +package require starkit 4 +starkit::startup 2 5 3 6 # Open some file inside the tclkit that will be stored in compressed form 4 -set fd [open [file join [info nameofexecutable] boot.tcl]] 7 +set fd [open [file join $::starkit::topdir boot.tcl]] 5 8 6 9 gets $fd line1 7 10 8 11 if {[catch {seek $fd 0} result]} { 9 12 puts "Got: $result" 10 13 puts "Expected: <No Error>" 11 14 exit 1
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [cb5b693f08] to [1c8e83d483].
139 139 # loaded before this is run causing the root VFS to break 140 140 catch { clock scan } 141 141 } 142 142 143 143 # load config settings file if present 144 144 namespace eval ::vfs { variable tclkit_version 1 } 145 145 catch { uplevel #0 [list source [file join $mountpoint config.tcl]] } 146 + 147 + # Set-up starkit::topdir correctly 148 + namespace eval ::starkit { variable topdir } 149 + set ::starkit::topdir $mountpoint 146 150 147 151 # Perform expected initialization 148 152 uplevel #0 [list source [file join $tcl_library init.tcl]] 149 153 150 154 # reset auto_path, so that init.tcl's search outside of tclkit is cancelled 151 155 set auto_path $tcl_libPath 152 156