blob: 21039f91f3d430f30767551411c44d5bbf18e00d (
plain)
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
39
40
41
42
43
44
45
|
# This file contains a top-level script to run all of the Img
# tests. Execute it by invoking "source all" when running tcltest
# in this directory.
set fmtListStandard {
"bmp"
"gif"
"ico"
"jpeg"
"pcx"
"png"
"ppm"
"sgi"
"sun"
"tga"
"tiff"
"xbm"
"xpm"
}
set fmtListExtra {
"dted"
"flir"
"raw"
}
set bits [expr $tcl_platform(pointerSize) * 8]
puts "Testing Img version: [package require Img]"
puts "Using Tcl version : [info patchlevel] (${bits}-bit)"
puts "Standard formats (provided by package require Img)"
foreach fmt $fmtListStandard {
set testFile "$fmt.test"
puts $testFile
source $testFile
}
puts "Extra formats (provided by package require img::fmt)"
foreach fmt $fmtListExtra {
set testFile "$fmt.test"
puts $testFile
source $testFile
}
exit 0
|
