Overview
| Comment: | Updated vfs::zip tests to require zip::vfs package |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fedad6f886ba32c22447f2cc3f96a5c2 |
| User & Date: | rkeene on 2010-09-28 22:10:57 |
| Other Links: | manifest | tags |
Context
|
2010-09-28
| ||
| 22:13 | Renamed temporary zip files so they are more obviously deletable check-in: b31abfda22 user: rkeene tags: trunk | |
| 22:10 | Updated vfs::zip tests to require zip::vfs package check-in: fedad6f886 user: rkeene tags: trunk | |
| 22:03 | Added regression suite tests for small zip files check-in: de59e55104 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]
|
| ︙ | ︙ |