Check-in [0ebd562749]
Overview
Comment:Add a test for the zip seek bugfix (95d3afb4e9)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0ebd5627499fd6252b5a5a798e3568ca33abc9b5
User & Date: sbron on 2011-07-17 19:56:47
Other Links: manifest | tags
Context
2011-07-18
03:02
Updated to set "starkit::topdir" so that it is always correct, even with KitDLL

Updated mk4vfs zlib compressed seek test to use starkit::topdir check-in: f8234649a5 user: rkeene tags: trunk

2011-07-17
19:56
Add a test for the zip seek bugfix (95d3afb4e9) check-in: 0ebd562749 user: sbron tags: trunk
2011-07-16
13:59
Fix seek operations with native zlib support. Without this fix creating images from gif files inside a starkit would frequently fail with an error message of: couldn't read GIF header from file XXX. check-in: 95d3afb4e9 user: sbron tags: trunk
Changes

Added build/test/tests/17-zipseek.tcl version [e7a5fc9a49].
























1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#!/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