Check-in [49d6a04e90]
Overview
SHA1:49d6a04e90cf0395ab085272fa0be24ed10d39b9
Date: 2011-07-19 19:08:27
User: rkeene
Comment:Updated to not force setting of starkit::topdir, this would break starkits

Updated zipseek test to use $tcl_library to find Tclkit root

Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2011-07-20
22:52
[e125d9df77] Added missing build flag (user: rkeene, tags: trunk)
2011-07-19
19:08
[49d6a04e90] Updated to not force setting of starkit::topdir, this would break starkits

Updated zipseek test to use $tcl_library to find Tclkit root (user: rkeene, tags: trunk)

2011-07-18
03:02
[f8234649a5] Updated to set "starkit::topdir" so that it is always correct, even with KitDLL

Updated mk4vfs zlib compressed seek test to use starkit::topdir (user: rkeene, tags: trunk)

Changes

Modified build/test/tests/17-zipseek.tcl from [46ce76b41e] to [4058010f56].

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 $::starkit::topdir boot.tcl]]

gets $fd line1

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


<
<
<

|







1
2



3
4
5
6
7
8
9
10
11
#!/usr/bin/env tclsh




# Open some file inside the tclkit that will be stored in compressed form
set fd [open [file join $::tcl_library init.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 [1c8e83d483] to [63e41b84b9].

140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
		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








|
|
|







140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
		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::tclkitroot
	namespace eval ::starkit { variable tclkitroot }
	set ::starkit::tclkitroot $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