tkimg/tests/runTest


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

if { $argc < 1 } {
    puts "Usage: $argv0 ImageFormat"
    exit 1
}

set fmt [lindex $argv 0]  
set argv [lrange $argv 1 end]
set testFile "$fmt.test"
if { ![file exists $testFile] } {
    puts "Test file $testFile not existent."
    exit 0
}

puts "Running test $testFile"
source $testFile

exit 0