# 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
