Differences From Artifact [46ce76b41e]:

• File build/test/tests/17-zipseek.tcl — part of check-in [f8234649a5] at 2011-07-18 03:02:23 on branch trunk — 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, size: 435) [annotate] [blame] [check-ins using]

To Artifact [4058010f56]:

• File build/test/tests/17-zipseek.tcl — part of check-in [49d6a04e90] at 2011-07-19 19:08:27 on branch trunk — 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, size: 389) [annotate] [blame] [check-ins using]

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