File: all.tcl

package info (click to toggle)

tile 0.8.2-2.1

links: PTS
area: main
in suites: lenny, squeeze
size: 3,152 kB
ctags: 3,093
sloc: ansic: 18,144; tcl: 4,607; makefile: 398; sh: 71

file content (18 lines) | stat: -rw-r--r-- 373 bytes

#
# source all tests.
#
package require tcltest 2

namespace eval tile {
    set dir [file dirname [info script]]
    set ::tcltest::testsDirectory $dir
    set library [set ::env(TILE_LIBRARY) [file join $dir .. library]]
}
lappend auto_path [pwd] $::tile::library

eval tcltest::configure $::argv
tcltest::runAllTests

if {![catch { package present Tk }]} {
	destroy .
}