Check-in [f8234649a5]
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