Check-in [fedad6f886]
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:fedad6f886ba32c22447f2cc3f96a5c2689a4235
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      1   #! /usr/bin/env tclsh
     2      2   
     3      3   # Abort if we cant read the tmpfile path from the environment
     4      4   if {![info exists ::env(TMPFILE)]} {
     5      5   	exit 0
     6      6   }
            7  +
            8  +# Abort this test if we don't have vfs::zip
            9  +if {[catch {
           10  +	package require vfs::zip
           11  +}]} {
           12  +	exit 0
           13  +}
     7     14   
     8     15   set tmpfile $::env(TMPFILE)
     9     16   
    10     17   vfs::zip::Mount $tmpfile $tmpfile
    11     18   
    12     19   set fd [open [file join $tmpfile main.tcl]]
    13     20   set data [read $fd]

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

     1      1   #! /usr/bin/env tclsh
     2      2   
     3      3   # Abort if we cant read the tmpfile path from the environment
     4      4   if {![info exists ::env(TMPFILE)]} {
     5      5   	exit 0
     6      6   }
            7  +
            8  +# Abort this test if we don't have vfs::zip
            9  +if {[catch {
           10  +	package require vfs::zip
           11  +}]} {
           12  +	exit 0
           13  +}
     7     14   
     8     15   set tmpfile $::env(TMPFILE)
     9     16   
    10     17   vfs::zip::Mount $tmpfile $tmpfile
    11     18   
    12     19   set fd [open [file join $tmpfile main.tcl]]
    13     20   set data [read $fd]