Diff

Differences From Artifact [46ce76b41e]:

To Artifact [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