Check-in [fedad6f886]
Overview
SHA1:fedad6f886ba32c22447f2cc3f96a5c2689a4235
Date: 2010-09-28 22:10:57
User: rkeene
Comment:Updated vfs::zip tests to require zip::vfs package
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:13
[b31abfda22] Renamed temporary zip files so they are more obviously deletable (user: rkeene, tags: trunk)
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)
Changes

Modified build/test/tests/09-smallzip-nobase.tcl from [ff8c61f8fa] to [df6717d86a].

1
2
3
4
5
6







7
8
9
10
11
12
13
#! /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]






>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /usr/bin/env tclsh

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

# Abort this test if we don't have vfs::zip
if {[catch {
	package require vfs::zip
}]} {
	exit 0
}

set tmpfile $::env(TMPFILE)

vfs::zip::Mount $tmpfile $tmpfile

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

Modified build/test/tests/10-smallzip-withbase.tcl from [ff8c61f8fa] to [df6717d86a].

1
2
3
4
5
6







7
8
9
10
11
12
13
#! /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]






>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /usr/bin/env tclsh

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

# Abort this test if we don't have vfs::zip
if {[catch {
	package require vfs::zip
}]} {
	exit 0
}

set tmpfile $::env(TMPFILE)

vfs::zip::Mount $tmpfile $tmpfile

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