proc runTest { testFile args } {
    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 $args $cmdArgs ..."
    catch {exec $tclsh $testFile $args $cmdArgs}
}

runTest catmap/catmap.tcl
runTest imgViewer/imgViewer.tcl imgViewer/rabbit.jpg
runTest LightingModels/LightingModels.tcl
runTest modelViewer/modelViewer.tcl modelViewer/f-16.obj
runTest rtVis/rtVis.tcl rtVis/as-Teapot.rt
runTest simpleTracker/simpleTracker.tcl

runTest BackfaceCulling.tcl
runTest bytearray.tcl
runTest checkerBoard.tcl
runTest DepthBufferResolution.tcl
runTest oglmodes.tcl
runTest projectionModes.tcl
runTest tcl3dInfo.tcl
runTest toglInCanvas.tcl
runTest vectormanip.tcl
