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 ComputeShaderDemo/ComputeShaderDemo.tcl
runTest ExtensionDemo/extensions.tcl
runTest Mandelbrot/mandelbrot.tcl
runTest PhotoBooth/PhotoBooth.tcl
runTest SimplexNoiseGLSL/SimplexNoiseGLSL.tcl

runTest OglBenchFBO.tcl

