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 GL_Blending/GL_Blending.tcl
runTest GL_Envmap/GL_Envmap.tcl
runTest GL_Font/GL_Font.tcl
runTest GL_Lighting/GL_Lighting.tcl
runTest GL_Motionblur/GL_Motionblur.tcl
runTest GL_Primitives/GL_Primitives.tcl
runTest GL_Shadow/GL_Shadow.tcl
runTest GL_Texturing/GL_Texturing.tcl
runTest GL_Viewing/GL_Viewing.tcl
