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 aapoly.tcl
runTest aapolyStride.tcl
runTest aargb.tcl
runTest accanti.tcl
runTest accpersp.tcl
runTest alpha.tcl
runTest alpha3D.tcl
runTest bezcurve.tcl
runTest bezmesh.tcl
runTest bezsurf.tcl
runTest blendeqn.tcl
runTest checker.tcl
runTest clip.tcl
runTest colormat.tcl
runTest colormatrix.tcl
runTest colortable.tcl
runTest combiner.tcl
runTest convolution.tcl
runTest cube.tcl
runTest cubemap.tcl
runTest dof.tcl
runTest double.tcl
runTest drawf.tcl
runTest feedback.tcl
runTest fog.tcl
runTest fogcoord.tcl
runTest font.tcl
runTest hello.tcl
runTest histogram.tcl
runTest image.tcl
runTest light.tcl
runTest lines.tcl
runTest list.tcl
runTest material.tcl
runTest minmax.tcl
runTest mipmap.tcl
runTest model.tcl
runTest movelight.tcl
runTest multisamp.tcl
runTest multitex.tcl
runTest mvarray.tcl
runTest pickdepth.tcl
runTest picksquare.tcl
runTest planet.tcl
runTest pointp.tcl
runTest polyoff.tcl
runTest polys.tcl
runTest quadric.tcl
runTest robot.tcl
runTest scene.tcl
runTest select.tcl
runTest shadowmap.tcl
runTest smooth.tcl
runTest stencil.tcl
runTest stroke.tcl
runTest surface.tcl
runTest teapots.tcl
runTest texbind.tcl
runTest texgen.tcl
runTest texprox.tcl
runTest texsub.tcl
runTest texture3d.tcl
runTest texturesurf.tcl
runTest torus.tcl
runTest trim.tcl
runTest unproject.tcl
runTest varray.tcl
runTest wrap.tcl

