Check-in [de59e55104]
Overview
SHA1:de59e55104edeffcc09046067ebb85b8eadd95c2
Date: 2010-09-28 22:03:23
User: rkeene
Comment:Added regression suite tests for small zip files
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2010-09-28
22:10
[fedad6f886] Updated vfs::zip tests to require zip::vfs package (user: rkeene, tags: trunk)
22:03
[de59e55104] Added regression suite tests for small zip files (user: rkeene, tags: trunk)
21:52
[c0cb33bec5] Fixed issue with vfs::zip opening zip files smaller than 512b, fixes issue [0c5bcad642] (user: rkeene, tags: trunk)
Changes

Added build/test/tests/09-smallzip-nobase.sh version [6b8d43f5fd].





























>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#! /bin/bash

TMPFILE="${TMPDIR:-/tmp}/testzip-$$${RANDOM}${RANDOM}${RANDOM}.zip"
export TMPFILE

cat << \__EOF__ | base64 -d > "${TMPFILE}"
IyEvdXNyL2Jpbi9lbnYgdGNsa2l0CiMgVGhpcyBpcyBhIHppcC1iYXNlZCBUY2wgTW9kdWxlCnBh
Y2thZ2UgcmVxdWlyZSB2ZnM6OnppcAp2ZnM6OnppcDo6TW91bnQgW2luZm8gc2NyaXB0XSBbaW5m
byBzY3JpcHRdCmlmIHtbZmlsZSBleGlzdHMgW2ZpbGUgam9pbiBbaW5mbyBzY3JpcHRdIG1haW4u
dGNsXV19IHsKICAgIHNvdXJjZSBbZmlsZSBqb2luIFtpbmZvIHNjcmlwdF0gbWFpbi50Y2xdCn0K
GlBLAwQUAAAIAABMfzw9CG+kfTQAAAA0AAAACAAAAG1haW4udGNsIyEgL3Vzci9iaW4vZW52IHRj
bHNoCgpwdXRzICJIZWxsbyBXb3JsZCEiCgpleGl0IDAgClBLAQIXAxQAAAgAAEx/PD0Ib6R9NAAA
ADQAAAAIAAAAAAAAAAEAIAC2geUAAABtYWluLnRjbFBLBQYAAAAAAQABADYAAAA/AQAAAAA=
__EOF__

Added build/test/tests/09-smallzip-nobase.tcl version [ff8c61f8fa].































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#! /usr/bin/env tclsh

# Abort if we cant read the tmpfile path from the environment
if {![info exists ::env(TMPFILE)]} {
	exit 0
}

set tmpfile $::env(TMPFILE)

vfs::zip::Mount $tmpfile $tmpfile

set fd [open [file join $tmpfile main.tcl]]
set data [read $fd]
close $fd

catch {
	vfs::unmount $tmpfile
}

catch {
	file delete -force -- $tmpfile
}

if {[string match "*Hello World*" $data]} {
	exit 0
}

puts "Got:              $data"
puts "Expected (match): *Hello World*"

exit 1

Added build/test/tests/10-smallzip-withbase.sh version [dac12cd6f6].





























>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#! /bin/bash

TMPFILE="${TMPDIR:-/tmp}/testzip-$$${RANDOM}${RANDOM}${RANDOM}.zip"
export TMPFILE

cat << \__EOF__ | base64 -d > "${TMPFILE}"
IyEgL3Vzci9iaW4vZW52IHRjbHNoCgpwYWNrYWdlIHJlcXVpcmUgdmZzOjp6aXAKdmZzOjp6aXA6
Ok1vdW50IFtpbmZvIHNjcmlwdF0gW2luZm8gc2NyaXB0XQpzb3VyY2UgW2ZpbGUgam9pbiBbaW5m
byBzY3JpcHRdIG1haW4udGNsXQoKcmV0dXJuClBLAwQKAAAAAABNfzw9CG+kfTQAAAA0AAAACAAc
AG1haW4udGNsVVQJAAPxVqJM8VaiTHV4CwABBPMDAAAEZAAAACMhIC91c3IvYmluL2VudiB0Y2xz
aAoKcHV0cyAiSGVsbG8gV29ybGQhIgoKZXhpdCAwIApQSwECHgMKAAAAAABNfzw9CG+kfTQAAAA0
AAAACAAYAAAAAAABAAAApIEAAAAAbWFpbi50Y2xVVAUAA/FWokx1eAsAAQTzAwAABGQAAABQSwUG
AAAAAAEAAQBOAAAAdgAAAAAA
__EOF__

Added build/test/tests/10-smallzip-withbase.tcl version [ff8c61f8fa].































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#! /usr/bin/env tclsh

# Abort if we cant read the tmpfile path from the environment
if {![info exists ::env(TMPFILE)]} {
	exit 0
}

set tmpfile $::env(TMPFILE)

vfs::zip::Mount $tmpfile $tmpfile

set fd [open [file join $tmpfile main.tcl]]
set data [read $fd]
close $fd

catch {
	vfs::unmount $tmpfile
}

catch {
	file delete -force -- $tmpfile
}

if {[string match "*Hello World*" $data]} {
	exit 0
}

puts "Got:              $data"
puts "Expected (match): *Hello World*"

exit 1