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 atlantis/atlantis.tcl
runTest imgproc/imgproc.tcl
runTest molecules/molecules.tcl
runTest platonic/platonic.tcl
runTest texgen/texgen.tcl

runTest animlogo.tcl
runTest drawReadPixels.tcl
runTest GearTrain.tcl
runTest gluCylinder.tcl
runTest glutShapes.tcl
runTest ModelViewMatrix.tcl
runTest multiview.tcl
runTest Sierpinski.tcl
runTest spheres.tcl
runTest tcl3dChaos.tcl
runTest texanim.tcl
runTest trislam.tcl

