Artifact ff8c61f8faaac3aeedc7ea9353fd8be75f21ab9e:

• File build/test/tests/09-smallzip-nobase.tcl — part of check-in [de59e55104] at 2010-09-28 22:03:23 on branch trunk — Added regression suite tests for small zip files (user: rkeene, size: 482) [annotate] [blame] [check-ins using]
• File build/test/tests/10-smallzip-withbase.tcl — part of check-in [de59e55104] at 2010-09-28 22:03:23 on branch trunk — Added regression suite tests for small zip files (user: rkeene, size: 482) [annotate] [blame] [check-ins using]

#! /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