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
2



3
4

5
6
7
8
9
10
11
1
2
3
4
5
6

7
8
9
10
11
12
13
14


+
+
+

-
+







#!/usr/bin/env tclsh

package require starkit
starkit::startup

# Open some file inside the tclkit that will be stored in compressed form
set fd [open [file join [info nameofexecutable] boot.tcl]]
set fd [open [file join $::starkit::topdir boot.tcl]]

gets $fd line1

if {[catch {seek $fd 0} result]} {
    puts "Got:      $result"
    puts "Expected: <No Error>"
    exit 1

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [cb5b693f08] to [1c8e83d483].

139
140
141
142
143
144
145




146
147
148
149
150
151
152
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156







+
+
+
+







		# loaded before this is run causing the root VFS to break
		catch { clock scan }
	}
  
	# load config settings file if present
	namespace eval ::vfs { variable tclkit_version 1 }
	catch { uplevel #0 [list source [file join $mountpoint config.tcl]] }

	# Set-up starkit::topdir correctly
	namespace eval ::starkit { variable topdir }
	set ::starkit::topdir $mountpoint

	# Perform expected initialization
	uplevel #0 [list source [file join $tcl_library init.tcl]]
  
	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
	set auto_path $tcl_libPath