KitCreator: Check-in [7971c09bf4]

Overview

Comment:	Added zip test that involves doing zlib decompression
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	7971c09bf46e3c8d4560a9dfc8406fb71036ea2b
User & Date:	rkeene on 2010-10-05 16:58:13
Other Links:	manifest \| tags

Context

2010-10-05
16:58		Began adding zlib to KitDLL check-in: db7ab5ff29 user: rkeene tags: trunk
16:58		Added zip test that involves doing zlib decompression check-in: 7971c09bf4 user: rkeene tags: trunk
02:28		Corrected typo in comments check-in: 0f0abdc08e user: rkeene tags: trunk

Changes






































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 32 33 34 35 36 37 38	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	#! /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 data]] 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 \[0..10\]: [string range $data 0 10]" puts "Expected (match): Hello World" exit 1