Artifact e7a5fc9a49fbedffdd7e31290f86eff1a9957afa:

• File build/test/tests/17-zipseek.tcl — part of check-in [0ebd562749] at 2011-07-17 19:56:47 on branch trunk — Add a test for the zip seek bugfix (95d3afb4e9) (user: sbron, size: 398) [annotate] [blame] [check-ins using]

#!/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
}

gets $fd str

if {[string equal $str $line1]} {
    exit 0
}

puts "Got:      $str"
puts "Expected: $line1"

exit 1