Check-in [f8234649a5]
Overview
SHA1:f8234649a551912ed894c99594ca41836b9bfe09
Date: 2011-07-18 03:02:23
User: rkeene
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

Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
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)

2011-07-17
19:56
[0ebd562749] Add a test for the zip seek bugfix (95d3afb4e9) (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
#!/usr/bin/env tclsh




# Open some file inside the tclkit that will be stored in compressed form
set fd [open [file join [info nameofexecutable] 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
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

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
		# 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]] }





	# 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








>
>
>
>







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