proc runTest { testFile } {
    global argc argv

    set cmdArgs ""
    if { $argc >= 1 } {
        set cmdArgs [lindex $argv 0]
    }
    if { $::tcl_platform(platform) eq "windows" } {
        set tclsh "tclsh.exe"
    } else {
        set tclsh "tclsh"
    }
    puts "Running test $testFile $cmdArgs ..."
    catch {exec $tclsh $testFile $cmdArgs}
}

runTest AntialiasedLines.tcl
runTest AutoTransform.tcl
runTest Billboard.tcl
runTest Fog.tcl
runTest Geometry.tcl
runTest GeometryTextured.tcl
runTest HelloWorld.tcl
runTest Light.tcl
runTest MultiTextures.tcl
runTest Shapes.tcl
runTest SlaveCameras.tcl
runTest StatisticsDisplay.tcl
runTest UpdateCallback.tcl
runTest Wireframe.tcl
